Making and saving bmp files

I have created ivory-like tile on screen.
I want to save them.
I have become confused by my failed attempts.
If anyone would take a look at the following code and suggest a solution, I would be deeply greatful.
The last part, Function saving(n), is the notional equivelant of what I need ...

; Making and saving tiles

AppTitle "Making and saving tiles - Escape to Quit"
Global tile
Global tilewidth=60
Global tileheight=120
Graphics tilewidth*11+1, tileheight*5+1, 32, 2
SetBuffer BackBuffer()

tile=CreateImage(59,119,1)

; SetBuffer ImageBuffer(domino,0)

Origin 1,1
For z=0 To 1
  SeedRnd 13
  ;  create an ivory look
  Color 230,230,210
  Rect 0,0,660,600
  For i=0 To 400
    Color 190+Rnd(0,40), 190+Rnd(0,40), 170+Rnd(0,40)
    x=Rnd(-100,760)
    xx=x+Rnd(-10, 10)
    y=Rnd(-200,600)
    yy=y+Rnd(160,600)
    Line x,y,xx,yy
  Next
  Color 0,0,0:Rect -1,-1,661,601,0
  Flip
Next

; shading for four directions
For i=0 To 3
  Delay 1000
  shading(i)
  Flip
Next

Delay 1000
shading(0)
cuts()
Flip



Repeat
  If KeyDown(1) Then End
Forever



Function shading(n)
  ; top
  If n=0 Then Color 255,255,255
  If n=1 Then Color 255,255,255
  If n=2 Then Color 190,190,160
  If n=3 Then Color 190,190,160
  For x=0 To 10
    For y=0 To 4
      Rect x*tilewidth, y*tileheight, tilewidth-2, 3
    Next
  Next
  ; left
  If n=0 Then Color 255,255,255
  If n=1 Then Color 190,190,160
  If n=2 Then Color 190,190,160
  If n=3 Then Color 255,255,255
  For x=0 To 10
    For y=0 To 4
      Rect x*tilewidth, y*tileheight, 3, tileheight-2
    Next
  Next
  ;   bottom
  If n=0 Then Color 190,190,160
  If n=1 Then Color 190,190,160
  If n=2 Then Color 255,255,255
  If n=3 Then Color 255,255,255
  For x=0 To 10
    For y=1 To 5
      Rect x*tilewidth, y*tileheight-4, tilewidth-2, 3
    Next
  Next
  ; right
  If n=0 Then Color 190,190,160
  If n=1 Then Color 255,255,255
  If n=2 Then Color 255,255,255
  If n=3 Then Color 190,190,160
  For x=1 To 11
    For y=0 To 4
      Rect x*tilewidth-4, y*tileheight, 3, tileheight-2
    Next
  Next
End Function



Function cuts()
  ; cut it into tiles
  Color 0,0,0
  For x=0 To 10
    For y=0 To 4
      Rect x*tilewidth-1, y*tileheight-1, tilewidth+1, tileheight+1,0
    Next
  Next
End Function



Function saving(n)
  i=0
  For x=0 To 10
    For y=0 To 8 Step 2
      ii$=Str(i)
      If i<10 ii$="0"+ii$
      filename$=Str(n)+ii$+".bmp"
      ; SaveRectangle(x*tilewidth, y*tilewidth, tilewidth-1, 2*tilewidth-1) as filename$
      i=i+1
    Next
  Next
End Function

You are the first one to actually post a non-forum-messed-up problem! Congratulations!

Yet you still got a forum-messed-up response. Commiserations!

Anyway. You want SaveBuffer, don't you? EDIT: Ack - just saw the restrictive buffer options for the command... that's not handy. Scour the code archives?

In the meantime, if this is a dev tool for you alone to use: Windowed mode - [Print Screen] - Paste into PSP - bish bosh you're done.

Follow the White Rabbit...


http://www.blitzbasic.com/codearcs/codearcs.php?code=226

Gee thanks, Sledge :-)

Lewis Carol, here I come ...