'demo paint a Chessboard without using Memory for SPRITE/BLIT
'Tiles are loaded from SD Card, just when they are used
'Filenames are Color, Type, Background coded
'so
'"bpw.bin" is a Black Pawn on a with white Background
'"wnb.bin" would be a white Knight with black Background
' etc.
'-----------------------
MODE 1
'create example board
Dim BRD%(8,8)
LN1$="rnbqkbnr"
'Rock.Knight,Bishop,Queen,King,Bishop,Knight,Rock
For y%=0 To 7
  For x%=0 To 7
  c$="0"
  If y%<2 Then c$="b"
   If y%>5 Then c$="w"
    Select Case y%
   Case 0,7
    c$=c$+Mid$(LN1$,x%+1,1)
   Case 1,6
    c$=c$+"p"
   Case 2 To 5
   c$=c$+"0"
 End Select
  stile(c$,x%,y%)
  Next x%
Next y%
Print @(0,320):Memory

'---------------------------------------
'paint the Tiles
'Parameters f$ holds the color and type of the figure "bp" "wp".. etc
' if the place is empty F$ is "00"
'---------------------------------------
Sub STILE(f$,px%,py%)
Local tl$
 'deside the Backgroundcolor
 If (px%+py%)Mod 2 Then f$=f$+"b.bin" Else f$=f$+"w.bin"
 f$="Tiles\"+f$
 Open f$ For input As #1
 tl$=Input$(200,#1)
 Close #1
GUI bitmap px%*40,py%*40,tl$,40,40
End Sub

'demo paint a Chessboard without using Memory for SPRITE/BLIT
'Tiles are loaded from SD Card, just when they are used
'Filenames are Color, Type, Background coded
'so
'"bpw.bin" is a Black Pawn on a with white Background
'"wnb.bin" would be a white Knight with black Background
' etc.
'-----------------------
MODE 1
'create example board
Dim BRD%(8,8)
LN1$="rnbqkbnr"
'Rock.Knight,Bishop,Queen,King,Bishop,Knight,Rock
For y%=0 To 7
  For x%=0 To 7
  c$="0"
  If y%<2 Then c$="b"
   If y%>5 Then c$="w"
    Select Case y%
   Case 0,7
    c$=c$+Mid$(LN1$,x%+1,1)
   Case 1,6
    c$=c$+"p"
   Case 2 To 5
   c$=c$+"0"
 End Select
  stile(c$,x%,y%)
  Next x%
Next y%
font 8:Print @(0,400):Memory
save image "color"

'---------------------------------------
'paint the Tiles
'Parameters f$ holds the color and type of the figure "bp" "wp".. etc
' if the place is empty F$ is "00"
'---------------------------------------
Sub STILE(f$,px%,py%)
Local tl$,g$

 'always use the white background, black piece BMP
 if f$="00" then
   g$="Tiles\0"+right$(f$,1)+"w.bin" 'always load black piece on white field
 else
   g$="Tiles\b"+right$(f$,1)+"w.bin" 'always load black piece on white field
 end if
 
 'deside the Backgroundcolor
 'If (px%+py%)Mod 2 Then f$=f$+"b.bin" Else f$=f$+"w.bin"
 'f$="Tiles\"+f$
 'Open f$ For input As #1
 
 'determin the tile (tc%) and piece (pc%)colors
 if left$(f$,1)="b" then
   pc%=rgb(red)
 else
   pc%=rgb(white)
 end if
 If (px%+py%)Mod 2 Then
   tc%=rgb(green)
 else
   tc%=rgb(myrtle)
 end if
 
 open g$ for input as #1
 tl$=Input$(200,#1)
 Close #1

box px%*48,py%*48,48,48,1,rgb(white),rgb(white) 'make the tiles virtually bigger 48x48
GUI bitmap 4+px%*48,4+py%*48,tl$,40,40          'print the 40x40 tile in centre

'color the tile background and ink the piece
for dx%=0 to 2
 for dy%=0 to 2
   tile dx%+3*px%, dy%+3*py%,tc%,pc%
 next
next

End Sub