~rabbits/oekaki

dc0b910186c2c3b510cb60573085552e15e2f5eb — neauoire 6 months ago 93772be
Hide menu properly
1 files changed, 4 insertions(+), 1 deletions(-)

M src/oekaki.tal
M src/oekaki.tal => src/oekaki.tal +4 -1
@@ 611,7 611,7 @@

@<redraw-tile> ( x* y* -- )
	.menu/hide LDZ ?{
		OVR2 #0010 GTH2 ?{ <hide-menu> }
		OVR2 .canvas/x LDZ2 ADD2 #0010 GTH2 ?{ <hide-menu> }
		}
	DUP2 .canvas/height LDZ2 GTH2 ?&skip
	OVR2 .canvas/width LDZ2 GTH2 ?&skip


@@ 685,6 685,9 @@
	JMP2r

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