' Image Scaler sample
'
' Usage : miniimagescalerdemo3.exe [Depth]
' Depth is 8 or 16 or 32

#lang "fb"
#include "fbgfx.bi"
Using fb

#include "imagescale2.bi"
#include "createsampleimage.bi"

' set screen depth
Dim As Integer sdepth = 32
Select Case Command(1)
Case "8"  : sdepth = 8
Case "16" : sdepth = 16
Case "32" : sdepth = 32
End Select

' get desktop size
Dim As Integer scr_w, scr_h

#If 1

' like fullscreen
ScreenInfo scr_w, scr_h
Screenres scr_w, scr_h, sdepth, , GFX_NO_FRAME

#Else

' set window size
scr_w = 1280
scr_h = 720
Screenres scr_w, scr_h, sdepth
Windowtitle "Simple FB Graphics Demo Series - Image Scaler by D.J.Peters"

#endif

'clear keyboard-buffer
While inkey <> ""
Wend

Color Rgb(&HA0, &HA0, &HA0), RGB(0, 0, 0)
Dim p As Any Ptr = CreateSsampleImage(scr_w, scr_h)
dim as integer ox, oy, mx, my

' main loop
while inkey=""
    if GetMouse(mx, my) = 0 then
        if ox <> mx or oy <> my then
            dim as fb.image ptr scaled = ImageScale(p, mx, my)
            if scaled then
                screenlock
                cls
                put (0, 0), scaled, pset
                screenunlock
                ImageDestroy scaled
            end if
            ox = mx
            oy = my
        end if
    end if
    sleep 10
Wend

if p then imagedestroy p
' Exit