rgb color value to DATA letter value, DATA letter value to rgb color value

[RemiD]

demonstrates how to read the colors of an image, and convert these rgb colors values to letters string values,
then output a txt file with these letters values organized in a way that it is formated for DATA (blitzbasic),
then read the letters string values stored in DATA, and convert each letter string value to a rgb color, and write these colors on a image.

Code Select Expand

;rgb color value to DATA letter value
;DATA letter value to rgb color value

Graphics( 640, 360, 32, 2 )

;create a image (or load a image)
Local in_image = CreateImage( 8, 4 )
SetBuffer( ImageBuffer( in_image ) )
Color( 250, 000, 000 ) : Plot( 0, 0 ) : Color( 250, 250, 250 ) : Plot( 1, 0 ) : Color( 250, 250, 250 ) : Plot( 2, 0 ) : Color( 001, 001, 001 ) : Plot( 3, 0 ) : Color( 001, 001, 001 ) : Plot( 4, 0 ) : Color( 250, 250, 250 ) : Plot( 5, 0 ) : Color( 250, 250, 250 ) : Plot( 6, 0 ) : Color( 250, 250, 000 ) : Plot( 7, 0 )
Color( 000, 250, 000 ) : Plot( 0, 1 ) : Color( 250, 250, 250 ) : Plot( 1, 1 ) : Color( 001, 001, 001 ) : Plot( 2, 1 ) : Color( 125, 125, 125 ) : Plot( 3, 1 ) : Color( 125, 125, 125 ) : Plot( 4, 1 ) : Color( 001, 001, 001 ) : Plot( 5, 1 ) : Color( 250, 250, 250 ) : Plot( 6, 1 ) : Color( 000, 250, 250 ) : Plot( 7, 1 )
Color( 000, 000, 250 ) : Plot( 0, 2 ) : Color( 250, 250, 250 ) : Plot( 1, 2 ) : Color( 001, 001, 001 ) : Plot( 2, 2 ) : Color( 125, 125, 125 ) : Plot( 3, 2 ) : Color( 125, 125, 125 ) : Plot( 4, 2 ) : Color( 001, 001, 001 ) : Plot( 5, 2 ) : Color( 250, 250, 250 ) : Plot( 6, 2 ) : Color( 250, 000, 250 ) : Plot( 7, 2 )
Color( 125, 125, 125 ) : Plot( 0, 3 ) : Color( 250, 250, 250 ) : Plot( 1, 3 ) : Color( 250, 250, 250 ) : Plot( 2, 3 ) : Color( 001, 001, 001 ) : Plot( 3, 3 ) : Color( 001, 001, 001 ) : Plot( 4, 3 ) : Color( 250, 250, 250 ) : Plot( 5, 3 ) : Color( 250, 250, 250 ) : Plot( 6, 3 ) : Color( 125, 125, 125 ) : Plot( 7, 3 )

;read the texels colors of the image and convert them to letters (each letter corresponding to a color) 
;write these letters in a txt file
;each line having the format to hold string values in DATA (for blitzbasic)
fileh% = WriteFile( "letters_DATA.txt" )
If( fileH <> 0 )
 SetBuffer( ImageBuffer( in_image ) )
 For gy% = 0 To 4-1 Step+1
  linestr$ = "DATA "
  For gx% = 0 To 8-1 Step+1
   GetColor( gx, gy ) : r% = ColorRed() : g% = ColorGreen() : b% = ColorBlue()
   If( r = 001 And g = 001 And b = 001 ) : letterstr$ = "A" ;black
   Else If( r = 250 And g = 250 And b = 250 ) : letterstr$ = "B" ;white
   Else If( r = 125 And g = 125 And b = 125 ) : letterstr$ = "C" ;grey    
   Else If( r = 250 And g = 000 And b = 000 ) : letterstr$ = "D" ;red
   Else If( r = 000 And g = 250 And b = 000 ) : letterstr$ = "E" ;green
   Else If( r = 000 And g = 000 And b = 250 ) : letterstr$ = "F" ;blue
   Else If( r = 250 And g = 250 And b = 000 ) : letterstr$ = "G" ;yellow
   Else If( r = 000 And g = 250 And b = 250 ) : letterstr$ = "H" ;cyan
   Else If( r = 250 And g = 000 And b = 250 ) : letterstr$ = "I" ;magenta
   EndIf
   linestr = LineStr+Chr$(34)+letterstr+Chr$(34)+", "
  Next
  DebugLog( linestr )
  WriteLine( fileH, linestr )
 Next
 CloseFile( fileh ) : fileh = 0
EndIf

;debug the in image
ScaleImage( in_image, 10, 10 )
SetBuffer( BackBuffer() )
ClsColor( 000, 000, 000 ) : Cls()
Color( 250, 250, 250 ) : Text( GraphicsWidth()/2-80/2, 0, "in_image" )
DrawImage( in_image, GraphicsWidth()/2-ImageWidth(in_image)/2, GraphicsHeight()/2-ImageHeight(in_image)/2 )
Flip()
WaitKey()

;array to hold the letters values read from DATA
Dim letter_str$( 8, 4 )

;get the letters values stored in letters_DATA and put them in the letter array
Restore letters_DATA 
For row% = 1 To 4 Step+1
 For col% = 1 To 8 Step+1
  Read letterstr$ 
  letter_str( col, row ) = letterstr
 Next
Next 

;create a image with texels colors depending on the letters values held in letters_DATA ( and in the letter array )
Local out_image = CreateImage( 8, 4 )
SetBuffer( ImageBuffer( out_image ) )
For gx% = 1 To 8 Step+1
 For gy% = 1 To 4 Step+1
  If( letter_str( gx, gy ) = "A" ) : Color( 001, 001, 001 ) : Plot( gx-1, gy-1 ) ;black
  Else If( letter_str( gx, gy ) = "B" ) : Color( 250, 250, 250 ) : Plot( gx-1, gy-1 ) ;white
  Else If( letter_str( gx, gy ) = "C" ) : Color( 125, 125, 125 ) : Plot( gx-1, gy-1 ) ;grey
  Else If( letter_str( gx, gy ) = "D" ) : Color( 250, 000, 000 ) : Plot( gx-1, gy-1 ) ;red
  Else If( letter_str( gx, gy ) = "E" ) : Color( 000, 250, 000 ) : Plot( gx-1, gy-1 ) ;green
  Else If( letter_str( gx, gy ) = "F" ) : Color( 000, 000, 250 ) : Plot( gx-1, gy-1 ) ;blue
  Else If( letter_str( gx, gy ) = "G" ) : Color( 250, 250, 000 ) : Plot( gx-1, gy-1 ) ;yellow
  Else If( letter_str( gx, gy ) = "H" ) : Color( 000, 250, 250 ) : Plot( gx-1, gy-1 ) ;cyan
  Else If( letter_str( gx, gy ) = "I" ) : Color( 250, 000, 250 ) : Plot( gx-1, gy-1 ) ;magenta
  EndIf
 Next
Next

;debug the out image
ScaleImage( out_image, 10, 10 )
SetBuffer( BackBuffer() )
ClsColor( 000, 000, 000 ) : Cls()
Color( 250, 250, 250 ) : Text( GraphicsWidth()/2-90/2, 0, "out_image" )
DrawImage( out_image, GraphicsWidth()/2-ImageWidth(out_image)/2, GraphicsHeight()/2-ImageHeight(out_image)/2 )
Flip()
WaitKey()

End()

;letters values stored in DATA
.letters_DATA 
Data "D", "B", "B", "A", "A", "B", "B", "G"
Data "E", "B", "A", "C", "C", "A", "B", "H"
Data "F", "B", "A", "C", "C", "A", "B", "I"
Data "C", "B", "B", "A", "A", "B", "B", "C"