Is this ok for you
// Project: max
// Created: 2018-04-06
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "max" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
Type ResultGridType
Result As Float
X0 As Float
Y0 As Float
Z0 As Float
Endtype
Dim ResultGrid[] As ResultGridType
file = OpenToRead( "result.txt" )
i = 1
// we need to use a temporary array holder to store each value, this can be used then to use an .Insert function later
tmpresult as ResultGridType
while FileEOF(file) = 0
// add the line into the temporary array holder, why not use 2 functions into one line, which will allow you
// to eliminate the tempresult
tmpresult.Result = ValFloat(ReadLine( file ))
// add the temp array holder to the main expandable array
ResultGrid.insert(tmpresult)
i = i + 1
endwhile
CloseFile( file )
do
for i=1 to ResultGrid.length-1
print(ResultGrid[i].Result)
next
Print( ScreenFPS() )
Sync()
loop
