@@ 615,7 615,7 @@ RTN
RTN
@draw-tileview-zoom ( -- )
-
+
( find focus ) GET-POSITION STH2 STH2
;pixel-icn .Screen/addr DEO2
#00 VER
@@ 626,7 626,7 @@ RTN
OVR #08 * TOS .tileview/x1 LDZ2 ++ .Screen/x DEO2
( get pixel offset ) GET-ITERATORS SWP TOS ROT TOS
( add focus ) STH2kr SWP2r STH2kr SWP2r ADD-POSITIONS
- ,get-pixel JSR #20 + .Screen/color DEO
+ ;get-pixel JSR2 #20 + .Screen/color DEO
INCR
LTHk ,&hor JCN
POP2
@@ 635,6 635,31 @@ RTN
POP2
POP2r POP2r
+ ( guides )
+ #00 VER #08 / #01 -
+ &guides-hor
+ OVR STH
+ .tileview/x1 LDZ2
+ .tileview/x2 LDZ2
+ .tileview/y1 LDZ2 STHr #01 + #40 * #01 - TOS ++
+ #02
+ ;line-hor JSR2
+ INCR
+ LTHk ,&guides-hor JCN
+ POP2
+
+ #00 HOR #08 / #01 -
+ &guides-ver
+ OVR STH
+ .tileview/x1 LDZ2 STHr #01 + #40 * #01 - TOS ++
+ .tileview/y1 LDZ2
+ .tileview/y2 LDZ2
+ #02
+ ;line-ver JSR2
+ INCR
+ LTHk ,&guides-ver JCN
+ POP2
+
RTN
@get-pixel ( x* y* -- color )
@@ 1050,6 1075,30 @@ RTN
RTN
+@line-hor ( x0* x1* y* color -- )
+
+ STH .Screen/y DEO2
+ &loop
+ ( save ) OVR2 .Screen/x DEO2
+ ( draw ) STHkr .Screen/color DEO
+ ( incr ) SWP2 #0002 ++ SWP2
+ LTH2k ,&loop JCN
+ POP2 POP2 POPr
+
+RTN
+
+@line-ver ( x* y0* y1* color -- )
+
+ STH ROT2 .Screen/x DEO2
+ &loop
+ ( save ) OVR2 .Screen/y DEO2
+ ( draw ) STHkr .Screen/color DEO
+ ( incr ) SWP2 #0002 ++ SWP2
+ LTH2k ,&loop JCN
+ POP2 POP2 POPr
+
+RTN
+
@brush-icn 8040 e070 381c 0c00
@tool-selector 80c0 e0f0 f8e0 1000
@tool-hand 2020 20b8 7c7c 3838