png and jpg test
This commit is contained in:
parent
51dd7953fb
commit
0b6a963f34
4 changed files with 3 additions and 8 deletions
BIN
data/gfx/tileset01.jpg
Normal file
BIN
data/gfx/tileset01.jpg
Normal file
Binary file not shown.
After Width: | Height: | Size: 35 KiB |
BIN
data/gfx/tileset01.png
Normal file
BIN
data/gfx/tileset01.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 3.9 KiB |
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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"
|
|
Loading…
Reference in a new issue