Browse code

Improved zoom

neauoire authored on 19/03/2021 19:43:29
Showing 3 changed files
1 1
new file mode 100644
2 2
Binary files /dev/null and b/projects/bigpicture(3f-2c).bit differ
3 3
similarity index 100%
4 4
rename from projects/picture.bit
5 5
rename to projects/picture(20-10).bit
... ...
@@ -161,6 +161,14 @@ BRK
161 161
 
162 162
 	$no-ctrl
163 163
 
164
+	,$no-keys ~Keys #00 EQU JMP2?
165
+		,$no-keys-toogle-zoom ~Keys #20 NEQ JMP2?
166
+			~cursor.zoom #00 EQU =cursor.zoom
167
+			,redraw JSR2
168
+		$no-keys-toogle-zoom 
169
+		( release ) #00 =Keys
170
+	$no-keys
171
+
164 172
 	~Mouse.x =cursor.x0
165 173
 	~Mouse.y =cursor.y0
166 174
 
... ...
@@ -591,7 +599,7 @@ RTN
591 599
 @save_icn       [ fe82 8282 848a f400 ]
592 600
 
593 601
 @blank_icn      [ 0000 0000 0000 0000 ]
594
-@filepath       [ projects/picture.bit 00 ]
602
+@filepath       [ projects/picture(20-10).bit 00 ]
595 603
 
596 604
 @font_hex
597 605
 [