~rabbits/oekaki

93772becf53ef0641b9d3fc727d808d170756049 — neauoire 6 months ago 8540faf
Added option to drag canvas around
1 files changed, 6 insertions(+), 2 deletions(-)

M src/oekaki.tal
M src/oekaki.tal => src/oekaki.tal +6 -2
@@ 229,7 229,7 @@
		( ) DUP2 [ LIT2 &y $2 ] SUB2 .canvas/y LDZ2 ADD2 .canvas/y STZ2
		( ) ,&y STR2
		!<redraw-all>
	

(
@|brush )



@@ 329,7 329,7 @@
	JMP2r
	&outside ( `color* -- )
		POP2r JMP2r
	

(
@|filters )



@@ 613,11 613,15 @@
	.menu/hide LDZ ?{
		OVR2 #0010 GTH2 ?{ <hide-menu> }
		}
	DUP2 .canvas/height LDZ2 GTH2 ?&skip
	OVR2 .canvas/width LDZ2 GTH2 ?&skip
	get-tile-addr .Screen/addr DEO2
	#33 SFT2 .canvas/y LDZ2 ADD2 .Screen/y DEO2
	#33 SFT2 .canvas/x LDZ2 ADD2 .Screen/x DEO2
	[ LIT2 81 -Screen/sprite ] DEO
	JMP2r
	&skip ( x* y* -- )
		POP2 POP2 JMP2r

@<guide-rect> ( x* y* x* y* -- )
	normalize-rect STH2 STH2