#include "MultiPut.bi"
'
' main
'
screenres 1024, 480, 32
dim as integer w, h
screeninfo w, h

Function CreateSampleImage() As Any Ptr
    var img = ImageCreate(128, 128, rgb(255, 255, 255))

    line img, (0, 0) - step(127, 127), RGB(255,255,255), BF
    for i as integer = 0 to 127 step 32
        line img,(i  , 0  ) - step(  0, 127), rgb(128, 128, 128)
        line img,(i+1, 0  ) - step(  0, 127), rgb(128, 128, 128)
        line img,(0  , i  ) - step(127,   0), rgb(128, 128, 128)
        line img,(0  , i+1) - step(127,   0), rgb(128, 128, 128)
    next
    for i as integer = 0 to 3
        line img, (i, i) - step(127 - i * 2, 127 - i * 2), RGB(0, 0, 255), B
    Next

    ' some holes (in pink)
    circle img, (12    , 12    ), 8, RGB(255, 0, 255),,,,F
    circle img, (127-12, 12    ), 8, RGB(255, 0, 255),,,,F
    circle img, (12    , 127-12), 8, RGB(255, 0, 255),,,,F
    circle img, (127-12, 127-12), 8, RGB(255, 0, 255),,,,F

    ' yes baby version 2.0 :-)
    draw string img,(24,9   ),"MultiPut2()",RGB(128,0,0)
    draw string img,(24,9+32),"MultiPut2()",RGB(0,128,0)
    draw string img,(24,9+64),"MultiPut2()",RGB(0,0,128)
    draw string img,(24,9+96),"MultiPut2()",RGB(128,128,0)
    
    Return img
End Function

' main

Dim As Any Ptr img = CreateSampleImage()

dim as single rotation(5)
dim as boolean transparent
dim as integer frames

while inkey()=""
    screenlock
    line (0, 0) - step(w - 1, h - 1), 0, BF
    draw string (32, 0), "Original"
    put (0,8), img, PSET

    dim as single x
    for i as integer = 1 to 6
        dim as single scale = i * .5
        x += scale * 100
        MultiPut ,x, 240, img, scale, scale, rotation(i - 1), transparent
        rotation(6 - i) += i * .25
    next
    screenunlock
    
    frames += 1
    if frames mod 60 = 0 then transparent = not transparent
    sleep 10
Wend

ImageDestroy(img)