png and jpg test

This commit is contained in:
Ruben Müller 2011-08-20 18:27:49 +02:00
parent 51dd7953fb
commit 0b6a963f34
4 changed files with 3 additions and 8 deletions

BIN
data/gfx/tileset01.jpg Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 35 KiB

BIN
data/gfx/tileset01.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.9 KiB

View file

@ -3,9 +3,10 @@
; ***************************************************************************** ; *****************************************************************************
; * Tileset ; * Tileset
UsePNGImageDecoder()
Procedure InitTileset() Procedure InitTileset()
CatchSprite(#Tile01, ?Gfx_Tileset) LoadSprite(#Tile01, DataPath+"gfx/tileset01.png")
;ClipSprite(#Tile01, 0, 0, 16, 16) ;ClipSprite(#Tile01, 0, 0, 16, 16)
EndProcedure EndProcedure

View file

@ -115,10 +115,4 @@ If OpenWindow(0, 0, 0, Screen\Width, Screen\Height, title, #PB_Window_ScreenCent
Until CurrentState = "QUIT" Until CurrentState = "QUIT"
EndIf EndIf
End End
DataSection
Gfx_Tileset:
IncludeBinary "../data/gfx/tileset01.bmp"