From ed7b91207f442a430afeaa8df427d6da0a19613d Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sat, 2 Dec 2023 16:24:40 -0800
Subject: [PATCH] Fixed clearing problem

---
 src/nasu.tal | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/nasu.tal b/src/nasu.tal
index cd29e3b..f40f754 100644
--- 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