| 123456789101112131415161718 |
- SuperStrict
- Graphics 640 , 480
- Local pix:TPixmap=LoadPixmap(blitzmaxpath()+"\samples\hitoro\gfx\boing.png")
- If pix = Null Then
- RuntimeError ("Error Loading Image")
- End If
- Local newPix:TPixmap=CopyPixmap(pix)
- Repeat
- Cls
- DrawPixmap pix, 50, 50
- DrawPixmap newPix, MouseX(), MouseY()
- Flip
- Until KeyHit(key_escape) Or AppTerminate()
|
