; LoadBuffer Example
; ------------------

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

; Prefer the screenshot made by the SaveBuffer example, if it exists
If FileType("demo_screenshot.bmp")=1 Then
    file$="demo_screenshot.bmp"
Else
    file$="media/b3dlogo.jpg"
End If

While Not KeyDown(1)

    ; LoadBuffer paints the file straight onto a buffer, scaled to fit -
    ; no image handle involved. It returns 1 on success, 0 on failure.
    ok=LoadBuffer(BackBuffer(),file$)

    Text 0,0,"Esc: exit"
    Text 0,20,"LoadBuffer filled the back buffer from "+file$+" (returned "+ok+")"
    If file$="media/b3dlogo.jpg" Then
        Text 0,40,"Tip: run the SaveBuffer example and press S to create demo_screenshot.bmp"
    End If

    Flip

Wend

End