; TFormFilter Example
; -------------------

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

; A detailed photo shows the filtering difference clearly
logo=LoadImage("media/b3dlogo.jpg")

; Rotate around the image's centre
MidHandle logo

filter=1
angle#=0

While Not KeyDown(1)

    Cls

    ; Space toggles bilinear filtering for image transforms
    If KeyHit(57) Then filter=1-filter

    ; TFormFilter affects the NEXT RotateImage/TFormImage calls
    TFormFilter filter

    ; Rotate a fresh copy each frame so the source stays clean
    angle=angle+1
    tmp=CopyImage(logo)
    RotateImage tmp,angle
    DrawImage tmp,320,260
    FreeImage tmp

    Color 255,255,255
    Text 0,0,"Space: toggle filtering   Esc: exit"
    If filter Then
        Text 0,20,"TFormFilter 1 - smooth (bilinear filtered) edges"
    Else
        Text 0,20,"TFormFilter 0 - fast but jagged edges"
    EndIf

    Flip

Wend

End