@@ 53,7 53,7 @@
( name ) "Oekaki 0a
( desc ) "Drawing 20 "Program 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
- ( date ) "9 20 "Jul 20 "2024 $1
+ ( date ) "4 20 "Aug 20 "2024 $1
( exts ) 00
(
@@ 340,34 340,34 @@
#41 ;selector-icn !<update-cursor>
&down ( -- )
- .Mouse/x DEI2 ,&x STR2
- .Mouse/y DEI2 ,&y STR2
- get-touch-x #0003 SUB2 ,&real-x STR2
- get-touch-y #0003 SUB2 ,&real-y STR2
+ .Mouse/x DEI2 #0003 ADD2 ,&x STR2
+ .Mouse/y DEI2 #0003 ADD2 ,&y STR2
+ get-touch-x ,&real-x STR2
+ get-touch-y ,&real-y STR2
JMP2r
&up ( -- )
<clear-guide>
( ) [ LIT2 &real-x $2 ] [ LIT2 &real-y $2 ]
- ( ) get-touch-x #0003 SUB2
- ( ) get-touch-y #0003 SUB2 ;<paint-dot> !<do-line>
+ ( ) get-touch-x
+ ( ) get-touch-y ;<paint-dot> !<do-line>
&drag ( -- )
<clear-guide>
( ) [ LIT2 &x $2 ] [ LIT2 &y $2 ]
- ( ) .Mouse/x DEI2 .Mouse/y DEI2 ;<guide-dot>
+ ( ) .Mouse/x DEI2 #0003 ADD2 .Mouse/y DEI2 #0003 ADD2 ;<guide-dot>
<do-line>
- #43 ;selector-icn !<update-cursor>
+ #4f ;selector-icn !<update-cursor>/no-clear
@rect
&hover ( -- )
#41 ;selector-icn !<update-cursor>
&down ( -- )
- .Mouse/x DEI2 ,&x STR2
- .Mouse/y DEI2 ,&y STR2
- get-touch-x #0003 SUB2 ,&real-x STR2
- get-touch-y #0003 SUB2 ,&real-y STR2
+ .Mouse/x DEI2 #0003 ADD2 ,&x STR2
+ .Mouse/y DEI2 #0003 ADD2 ,&y STR2
+ get-touch-x ,&real-x STR2
+ get-touch-y ,&real-y STR2
JMP2r
&up ( -- )
@@ 378,8 378,8 @@
&drag ( -- )
<clear-guide>
( ) [ LIT2 &x $2 ] [ LIT2 &y $2 ]
- ( ) .Mouse/x DEI2 .Mouse/y DEI2 <guide-rect>
- #43 ;selector-icn !<update-cursor>
+ ( ) .Mouse/x DEI2 #0003 ADD2 .Mouse/y DEI2 #0003 ADD2 <guide-rect>
+ #4f ;selector-icn !<update-cursor>/no-clear
@move
&hover ( -- )
@@ 869,8 869,7 @@
@<update-cursor> ( color addr* -- )
[ LIT2 00 -Screen/auto ] DEO
;fill-icn .Screen/addr DEO2
- #40 <draw-cursor>
- .Screen/addr DEO2
+ #40 <draw-cursor> &no-clear .Screen/addr DEO2
.Mouse/x DEI2 ,<draw-cursor>/x STR2
.Mouse/y DEI2 ,<draw-cursor>/y STR2
( >> )
@@ 1003,8 1002,7 @@
0e1f 3b7f fefc f870 0e1f 1b3f 3e78 6080
0106 1e7c fcd8 f870 ]
-@blend-icns [
- 0102 050a 152b 57af 0103 070f 1f3f 7fff ]
+@blend-icns [ 0102 050a 152b 57af 0103 070f 1f3f 7fff ]
@patterns-icns [
ffff ffff ffff ffff aa55 aa55 aa55 aa55
@@ 1046,7 1044,7 @@
@eraser-icn [ c0e0 7038 1c0a 0400 ]
-@selector-icn [ 2020 d820 2000 0000 ]
+@selector-icn [ 0010 106c 1010 0000 ]
@hand-icn [ 4040 787c fcfc 7c38 ]
&down [ 0000 787c fcfc 7c38 ]