From 4e14f43fa0cadfdab0f8561b64dfefdd0e571543 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Mon, 28 Feb 2022 10:42:02 -0800
Subject: [PATCH] Fixed mouse picking issue with the zoomview

---
 src/main.tal | 19 ++-----------------
 1 file changed, 2 insertions(+), 17 deletions(-)

diff --git a/src/main.tal b/src/main.tal
index a9a47c4..5c99e51 100644
--- a/src/main.tal
+++ b/src/main.tal
@@ -111,7 +111,7 @@
 
 	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #0030 ++ #10 TOS 8** #0080 SIZE-TO-RECT ;tileview SET-RECT
 	.frame/x1 LDZ2 #0082 ++ .frame/y1 LDZ2 #0030 ++ #007f #007f SIZE-TO-RECT ;nametable SET-RECT
-	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT
+	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #001f #0028 SIZE-TO-RECT ;zoomview SET-RECT
 	.frame/x1 LDZ2 #002f ++ .frame/y1 LDZ2 #0020 #0020 SIZE-TO-RECT ;preview SET-RECT
 	.frame/x1 LDZ2 #005f ++ .frame/y1 LDZ2 #0020 #0020 SIZE-TO-RECT ;colorview SET-RECT
 	.frame/x1 LDZ2 #008f ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;blendview SET-RECT
@@ -125,7 +125,7 @@
 
 	.zoomview/x1 LDZ2 #0001 -- .zoomview-frame/x1 STZ2
 	.zoomview/y1 LDZ2 #0001 -- .zoomview-frame/y1 STZ2
-	.zoomview/x2 LDZ2 INC2 .zoomview-frame/x2 STZ2
+	.zoomview/x2 LDZ2 #0002 ++ .zoomview-frame/x2 STZ2
 	.zoomview/y2 LDZ2 #0007 -- .zoomview-frame/y2 STZ2
 
 	;new-file JSR2
@@ -895,21 +895,6 @@ RTN
 
 RTN
 
-@copy-tile ( src* dst* -- )
-
-	STH2 STH2
-	#10 #00
-	&loop
-		( get )
-		DUP TOS DUP2 STH2kr ++ LDA
-		( put )
-		ROT ROT SWP2r STH2kr SWP2r ++ STA
-		INC GTHk ,&loop JCN
-	POP2
-	POP2r POP2r
-
-RTN
-
 @has-nametable ( -- bool )
 
 	BANK-NAMETABLE STH2k #0200 ++ STH2r