' MultiPut v1 fork test sample

#include "multiput_v1f.bi"

Function Trans(Byval Src As Uinteger, Byval Dest As Uinteger, Byval Param As Any Ptr = 0) As Uinteger
    If (Src And &HFFFFFF) = &HFF00FF Then Return Dest Else Return Src
End Function

' main

#define scr_w 1280
#define scr_h 720
screenres scr_w, scr_h, 32

Dim As Any Ptr sprite = ImageCreate(101, 101)
Bload "sprite.bmp", sprite    ' load bmp image file

Dim As Single Rotate
' Rotate=3.14
Rotate = 0

' main loop
While Len(Inkey) = 0
    Rotate += 0.01
    Dim As Single xZoom = Cos(Rotate * 2) * 2 + 2.1
    Dim As Single yZoom = Sin(Rotate * 3) * 2 + 2.1

    ScreenLock
    color RGB(0, 0, 0), RGB(0, 0, 0)
    Cls    ' clear screen
    MultiPut(, (scr_w \ 2), (scr_h \ 2), sprite, xZoom, yZoom, Rotate, 1, 0, 0, @trans) ',1=trans
    ScreenUnlock

    sleep 12
Wend

imagedestroy Sprite