This was an easy one!
Where you display the brush with:
Code: Select all
DisplayBrush(1, 100, 50, { Width = x, Height = y })
Code: Select all
DisplayBrush(1, 100, 50, { Width = x, Height = y, AnchorX = 0.5, AnchorY = 0.5 })
Code: Select all
DisplayBrush(1, 100, 50, { Width = x, Height = y })
Code: Select all
DisplayBrush(1, 100, 50, { Width = x, Height = y, AnchorX = 0.5, AnchorY = 0.5 })
Code: Select all
@DISPLAY {Width = 640, Height = 480, Title = "Slow Lens Effect"}
@BGPIC 1, "hidden-part.png"
@ANIM 1, "sprite-kiokio-vrai.gif", {transparency = $ff0000}
@ANIM 2, "sprite-jayblood-vrai.gif", {transparency = $ff0000}
Function p_mainloop()
PlayAnim(1,320,100)
PlayAnim(2,150,100)
EndFunction
SetInterval(1, p_MainLoop, 1000/50) ; 50fps
Repeat
WaitEvent
Forever
Code: Select all
@DISPLAY {Width = 640, Height = 480, Title = "apng"}
@BGPIC 1, "hidden-part.png"
@SPRITE 1, "sprite-kiokio-vrai.gif", {transparency = $ff0000}
@SPRITE 2, "sprite-jayblood-vrai.gif", {transparency = $ff0000}
xa = 0
ya = 0
xb = 640
yb = 480
v = 1
Function p_mainloop()
v = v - 0,5
v2 = Int (v)
xc = (xa + xb) / v2
yc = (ya + yb) / v2
DisplaySprite(1, xc, yc)
DisplaySprite(2,320,240)
EndFunction
SetInterval(1, p_MainLoop, 1000/50) ; 50fps
Repeat
WaitEvent
Forever
Code: Select all
speed = 0.5
sprite1x = 0
sprite1y = 0
Function p_mainloop()
; increase x & y, moving along the screen diagonal
sprite1x = sprite1x + speed
sprite1y = sprite1y + speed
DisplaySprite(1, sprite1x, sprite1y)
DisplaySprite(2,320,240)
EndFunction