1 files changed, 11 insertions(+), 13 deletions(-)

M src/main.tal

@@ 697,26 697,24 @@ RTN
 RTN
 
 @draw-tileview ( -- )
-	
+
 	.settings/zoom LDZ ;draw-tileview-zoom JCN2
 
-	#00 VER
+	VER #00
 	&ver
-		OVR DUP #08 * TOS .tileview/y1 LDZ2 ++ .Screen/y DEO2 STH
-		#00 HOR
+		DUP TOS 8** .tileview/y1 LDZ2 ++ .Screen/y DEO2
+		HOR #00
 		&hor
-			OVR DUP #08 * TOS .tileview/x1 LDZ2 ++ .Screen/x DEO2 STHkr
-			TOS ROT TOS SWP2
-			HOR TOS ** ++ #0010 **
-			BANK ++ .Screen/addr DEO2
-			GET-ITERATORS ;is-selected JSR2 #0d *
+			DUP TOS 8** .tileview/x1 LDZ2 ++ .Screen/x DEO2
+			GET-ITER
+				DUP2 GET-ADDR .Screen/addr DEO2
+			;is-selected JSR2 #0d *
 			.settings/blending LDZ +
 			.settings/depth LDZ #80 * +
-			#00 + .Screen/sprite DEO
-			INCR LTHk ,&hor JCN
+				#00 + .Screen/sprite DEO
+			#01 + GTHk ,&hor JCN
 		POP2
-		POPr
-		INCR LTHk ,&ver JCN
+		#01 + GTHk ,&ver JCN
 	POP2
 
 	.tileview/x1 LDZ2 #0002 --