~rabbits/adelie

e7f15b2d747d4af9736f6154e43d57d42e85b18d — Devine Lu Linvega a day ago d1f6705 main
Faster tga parsing
2 files changed, 7 insertions(+), 7 deletions(-)

M src/adelie.tal
M src/tga.tal
M src/adelie.tal => src/adelie.tal +1 -1
@@ 58,7 58,7 @@
	( name ) "Adelie 0a
	( details ) "A 20 "Slideshow 20 "Program 0a
	( author ) "By 20 "Hundred 20 "Rabbits 0a
	( date ) "11 20 "Jun, 20 "2024 00
	( date ) "12 20 "Jun, 20 "2024 00
	( > ) 02
	( icon ) 83 =appicon
	( mask ) 41 1705

M src/tga.tal => src/tga.tal +6 -6
@@ 8,10 8,10 @@
	#0012 .File/length DEO2
	;tga .File/read DEO2
	( | flip endianness )
	;tga/x STH2k LDA2 SWP STH2r STA2
	;tga/y STH2k LDA2 SWP STH2r STA2
	;tga/w STH2k LDA2 SWP STH2r STA2
	;tga/h STH2k LDA2 SWP STH2r STA2
	;tga/x LDA2k SWP SWP2 STA2
	;tga/y LDA2k SWP SWP2 STA2
	;tga/w LDA2k SWP SWP2 STA2
	;tga/h LDA2k SWP SWP2 STA2
	( | is pos auto )
	[ LIT2 00 -pen/auto ] LDZ EQU ?{
		.center/x LDZ2 ;tga/w LDA2 #01 SFT2 SUB2 .Screen/x DEO2


@@ 69,7 69,7 @@
	DUP2 #0003 ADD2 LDA #80 GTH ?{
		.Screen/x DEI2k INC2 ROT DEO2
		POP2 JMP2r }

	( >> )

@tga-rawt ( rgba* -- )
	STH2


@@ 82,7 82,7 @@
	INC2k LDA #80 GTH ?{
		.Screen/x DEI2k INC2 ROT DEO2
		POP2 JMP2r }

	( >> )

@tga-rawm ( grey* -- )
	( res ) LDA