~rabbits/oekaki

c6151c5729f704b1972074244a5f491c90b4cf39 — neauoire 6 months ago dc0b910
Minor optimisations
1 files changed, 6 insertions(+), 6 deletions(-)

M src/oekaki.tal
M src/oekaki.tal => src/oekaki.tal +6 -6
@@ 45,7 45,7 @@
	( name ) "Oekaki 0a
	( desc ) "Drawing 20 "Program 0a
	( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
	( date ) "20 20 "Aug 20 "2023 $1
	( date ) "22 20 "Aug 20 "2023 $1
	( exts ) 00

(


@@ 495,7 495,7 @@
	,&filter STR2
	;tga/w LDA2 ,&w STR2
	( | paint )
	#01 .Screen/auto DEO
	[ LIT2 01 -Screen/auto ] DEO
	#0000 [ LIT2r 0000 ]
	&stream ( -- )
		;&pixel feof ?&end


@@ 550,7 550,7 @@
@<redraw-all> ( -- )
	#0000 DUP2 .Screen/y DEO2
	.Screen/x DEO2
	#83 .Screen/pixel DEO
	[ LIT2 83 -Screen/pixel ] DEO
	.canvas/x LDZ2 .canvas/y LDZ2
	( >> )



@@ 674,8 674,8 @@
	;patts-icns/spray .Screen/addr DEO2
	#0002 .Screen/x DEO2
	#007a .Screen/y DEO2
	#00 .Screen/auto DEO
	#06 .Screen/sprite DEO
	[ LIT2 00 -Screen/auto ] DEO
	[ LIT2 06 -Screen/sprite ] DEO
	JMP2r

@<clear-guide> ( -- )


@@ 687,7 687,7 @@
@<clear-menu> ( -- )
	#000c .Screen/x DEO2
	#0000 .Screen/y DEO2
	#93 .Screen/pixel DEO
	[ LIT2 93 -Screen/pixel ] DEO
	.canvas/height LDZ2 #0000
	&y ( -- )
		#0000 OVR2 <redraw-tile>