a code example (blitzbasic) to demonstrate how to read and put the values of DATA rows / columns to a 2d array
;DATA values to 2d array values (2025.06.29)
Graphics( 640, 360, 32, 2 )
Dim grey_val%( 6, 4 )
Restore greys_data
For row% = 1 To 4 Step+1
For col% = 1 To 6 Step+1
Read grey%
grey_val( col, row ) = grey ;: DebugLog( grey )
Next
Next
Local greys_image = CreateImage( 6, 4 )
SetBuffer( ImageBuffer( greys_image ) )
For gx% = 1 To 6 Step+1
For gy% = 1 To 4 Step+1
grey% = grey_val%( gx, gy )
Color( grey, grey, grey ) : Plot( gx-1, gy-1 )
Next
Next
ScaleImage( greys_image, 10, 10 )
SetBuffer( BackBuffer() )
ClsColor( 000, 000, 000 ) : Cls()
DrawImage( greys_image, GraphicsWidth()/2-ImageWidth(greys_image)/2, GraphicsHeight()/2-ImageHeight(greys_image)/2 )
WaitKey()
End()
.greys_data
Data 010, 250, 010, 250, 010, 250
Data 250, 010, 250, 010, 250, 010
Data 060, 180, 060, 180, 060, 180
Data 180, 060, 180, 060, 180, 060