; SaveBuffer Example
; ------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

player=LoadImage("media/player.bmp")
angle#=0
saved=-1

While Not KeyDown(1)

    Cls

    ; A little squadron worth photographing
    angle=angle+2
    For i=0 To 4
        DrawImage player,120+i*100,240+50*Sin(angle+i*45)
    Next

    ; S saves everything drawn to the back buffer so far as a screenshot
    If KeyHit(31) Then saved=SaveBuffer(BackBuffer(),"demo_screenshot.bmp")

    Text 0,0,"S: screenshot the back buffer   Esc: exit"
    If saved=1 Then
        Text 0,20,"SaveBuffer wrote demo_screenshot.bmp - try the LoadBuffer example!"
    ElseIf saved=0 Then
        Text 0,20,"SaveBuffer returned 0 - could not write the file"
    End If

    Flip

Wend

End