~rabbits/left

ecede30aabcb0adc60eeca48e64ece146395e77c — Devine Lu Linvega a month ago 33f73b3
Faster screen clear
1 files changed, 4 insertions(+), 4 deletions(-)

M src/left.tal
M src/left.tal => src/left.tal +4 -4
@@ 45,8 45,8 @@
	.Screen/height DEI2
		DUP2 #0020 SUB2 #04 SFT2 .textarea/lines STZ2
		DUP2 #0018 SUB2 .scrollbar/height STZ2
		#06 SFT2 NIP INC ;draw-textarea/height STA
	.Screen/width DEI2 #0088 SUB2 #03 SFT2 NIP ;draw-textarea/width STA
		#06 SFT2 NIP INC #00 SWP SUB ;draw-textarea/height STA
	.Screen/width DEI2 #0088 SUB2 #03 SFT2 NIP #00 SWP SUB ;draw-textarea/width STA
	( defaults )
	#0001 .scroll/ratio STZ2
	;text .scroll/addr STZ2


@@ 799,10 799,10 @@ JMP2r
	( fast clear )
	#71 .Screen/auto DEO
	#0020 .Screen/y DEO2
	#00 [ LIT &height $1 ] SUB
	[ LIT &height $1 ]
	&h
		#0088 .Screen/x DEO2
		#00 [ LIT &width $1 ] SUB
		[ LIT &width $1 ]
		&w
			#00 .Screen/sprite DEO
			INC DUP ?&w