DATA values to 2d array values

[RemiD]

a code example (blitzbasic) to demonstrate how to read and put the values of DATA rows / columns to a 2d array

Code Select Expand

;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