Code: Select all
InitSprite()
InitKeyboard()
UsePNGImageDecoder()
UsePNGImageEncoder()
UseZipPacker()
ExamineDesktops()
OpenScreen(DesktopWidth(0), DesktopHeight(0), 32, "Bug")
*unpacked = AllocateMemory(252)
UncompressMemory(?PicPak, 251, *unpacked, 252)
img0 = CatchImage(#PB_Any, *unpacked, 252)
SaveImage(img0, GetCurrentDirectory() + "img0.png", #PB_ImagePlugin_PNG)
LoadSprite(1, GetCurrentDirectory() + "img0.png", #PB_Sprite_AlphaBlending)
Repeat
ClearScreen(#Black)
For y = 0 To ScreenHeight() - 1 Step 32 ; <-- removing '- 1' creates anomaly in lower right corner
For x = 0 To ScreenWidth() - 1 Step 32 ; <-- removing '- 1' creates anomaly on right side
DisplayTransparentSprite(1, x, y, 255)
Next x
Next y
FlipBuffers()
Delay(1)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
DataSection
PicPak:
Data.q $E5E773F00CEB9C78,$F4F5E0606062E292,$C1CC200AD2020970,$A40C5DBC48FF2404,$528B9C4A235C4A74,$324214F3F3324B13,
$0C154A3242195373,$0C8C14F34ABC152D,$0D0CAC8D0C144D0C,$0D4C0D74158C0CAD,$B1F50085AEE34C0C,$1363DFB2BAFA7897,
$1278F7B59B361416,$8198B223C0B38850,$ADDD2F1984085B81,$75F47749641403FB,$9127FDCFD8D86064,$A90C7174F60FC815,
$E36B7C6367FC95B8,$456FEBDF87D686B4,$A1DA2A3EDDFFF87D,$0723AB260DC2FE58,$2EF84824E8B2B057,$C190A761983BCE63,
$6C87E15BE3B9B678,$48CF5C1E9B82C593,$CDAF8AC176207F34,$F109C67349ECD7B1,$FD561B427A3F0CEB,$D5D3C19E340F7D91,
$46001342539D65CF
Data.b $1A,$53,$06
PicPakend:
EndDataSection