; SaveImage Example
; -----------------

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

; Paint a badge sprite into an image so we have something to save
badge=CreateImage(64,64)
SetBuffer ImageBuffer(badge)
Color 255,128,0
Oval 2,2,60,60,True
Color 255,255,255
Oval 16,16,32,32,True
SetBuffer BackBuffer()

saved=-1

While Not KeyDown(1)

    Cls

    DrawImage badge,288,180

    ; S saves the image as a BMP file next to this example
    If KeyHit(31) Then saved=SaveImage(badge,"saveimage_demo.bmp")

    Text 0,0,"S: save the badge to disk   Esc: exit"
    If saved=1 Then
        Text 0,20,"SaveImage returned 1 - wrote saveimage_demo.bmp"
    ElseIf saved=0 Then
        Text 0,20,"SaveImage returned 0 - the file could not be written"
    Else
        Text 0,20,"Press S to call SaveImage(badge,saveimage_demo.bmp)"
    End If

    Flip

Wend

End