Fixed clearing problem

2 years ago · ed7b91207f
1 changed files with 12 additions and 1 deletions
--- a/src/nasu.tal
+++ b/src/nasu.tal
@ -71,7 +71,7 @@ BRK
 	( name ) "Nasu 0a
 	( details ) "A 20 "Sprite 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "10 20 "Nov 20 "2023 00
+	( date ) "2 20 "Dec 20 "2023 00
 	01
 		( icon ) 83 =appicon

@ -693,6 +693,17 @@ JMP2r

@draw-tileview-zoom ( -- )

+	( | clear )
+	;fill-icn .Screen/addr DEO2
+	.tileview/x1 LDZ2 .Screen/x DEO2
+	.tileview/y1 LDZ2 .Screen/y DEO2
+	#f2 .Screen/auto DEO
+	#f0 &times ( -- )
+		[ LIT2 00 -Screen/sprite ] DEO
+		INC DUP ?&times
+	POP
+	( | draw )
+	#01 .Screen/auto DEO
 	;pixel-icn .Screen/addr DEO2
 	#1000
 	&ver