DATA values to 2d array values

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|709\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> DATA values to 2d array values
Sun, 29 Jun 2025, 04:28
RemiD	DATA values to 2d array values 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 --v