commit 861c8494a878daa2acf09a0e5d5b56f2edd85b2e
parent 982f0180e48b0b15b7353113067c5ad1eb3e33a4
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 16 Jul 2022 11:54:16 -0700
(mouse.tal) Something fun!
Diffstat:
1 file changed, 78 insertions(+), 14 deletions(-)
diff --git a/projects/examples/devices/mouse.tal b/projects/examples/devices/mouse.tal
@@ -9,18 +9,31 @@
@line
&x $2 &y $2 &dx $2 &dy $2 &e1 $2
+@length $2
+@frame $2
+@pen
+ &x $2 &y $2 &x2 $2 &y2 $2
@pointer
&x $2 &y $2 &lastx $2 &lasty $2 &state $1
|0100 ( -> )
( theme )
- #a0f0 .System/r DEO2
- #40ff .System/g DEO2
- #60ff .System/b DEO2
+ #4cfd .System/r DEO2
+ #4cf3 .System/g DEO2
+ #dcf2 .System/b DEO2
( vectors )
;on-mouse .Mouse/vector DEO2
+ ;on-frame .Screen/vector DEO2
+
+BRK
+
+@on-frame ( -> )
+
+ .Mouse/state DEI ,&skip JCN
+ ;run DUP2 JSR2 JSR2
+ &skip
BRK
@@ -34,7 +47,7 @@ BRK
( draw new cursor )
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
- #43 .Mouse/state DEI #00 NEQ DUP ADD SUB .Screen/sprite DEO
+ #42 .Mouse/state DEI #00 NEQ ADD .Screen/sprite DEO
( on down )
.Mouse/state DEI #00 NEQ .pointer/state LDZ #00 EQU AND ,on-mouse-down JCN
( on drag )
@@ -45,6 +58,8 @@ BRK
@on-mouse-down ( -> )
+ #0000 DUP2 .length STZ2 .frame STZ2
+ ;clear-screen JSR2
( record start position )
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .pointer/lastx STZ2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .pointer/lasty STZ2
@@ -53,36 +68,65 @@ BRK
BRK
@on-mouse-drag ( -> )
-
+
+ ( record )
+ ;stroke .length LDZ2 #20 SFT2 ADD2 STH2
+ .pointer/x LDZ2 .pointer/lastx LDZ2 SUB2 STH2kr STA2
+ .pointer/y LDZ2 .pointer/lasty LDZ2 SUB2 STH2r INC2 INC2 STA2
+ ( move ptr )
+ .length LDZ2 INC2 .length STZ2
( draw line )
.pointer/lastx LDZ2
.pointer/lasty LDZ2
.pointer/x LDZ2
.pointer/y LDZ2
- .Mouse/state DEI INC
- ;draw-line JSR2
-
+ #01
+ ;draw-line JSR2
( record last position )
- .Mouse/x DEI2 .pointer/lastx STZ2
- .Mouse/y DEI2 .pointer/lasty STZ2
+ .Mouse/x DEI2
+ DUP2 .pointer/lastx STZ2
+ DUP2 .pen/x STZ2
+ .pen/x2 STZ2
+ .Mouse/y DEI2
+ DUP2 .pointer/lasty STZ2
+ DUP2 .pen/y STZ2
+ .pen/y2 STZ2
.Mouse/state DEI .pointer/state STZ
BRK
+@run ( -- )
+
+ ( read )
+ ;stroke .frame LDZ2 #20 SFT2 ADD2 STH2
+ .pen/x LDZ2 STH2kr LDA2 ADD2 .pen/x STZ2
+ .pen/y LDZ2 STH2r INC2 INC2 LDA2 ADD2 .pen/y STZ2
+ ( line )
+ .pen/x LDZ2 .pen/y LDZ2
+ .pen/x2 LDZ2 .pen/y2 LDZ2
+ .frame LDZ2 #01 SFT2 NIP #01 AND INC ;draw-line JSR2
+ ( history )
+ .pen/x LDZ2 .pen/x2 STZ2
+ .pen/y LDZ2 .pen/y2 STZ2
+ ( incr frame )
+ .frame LDZ2 INC2 .length LDZ2 INC2 ( mod2 ) DIV2k MUL2 SUB2 .frame STZ2
+
+JMP2r
+
@draw-line ( x1* y1* x2* y2* color -- )
( load ) STH ,&y STR2 ,&x STR2 .line/y STZ2 .line/x STZ2
,&x LDR2 .line/x LDZ2 SUB2 ;abs2 JSR2 .line/dx STZ2
#0000 ,&y LDR2 .line/y LDZ2 SUB2 ;abs2 JSR2 SUB2 .line/dy STZ2
- #ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sx STR2
- #ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 #10 SFT2 ADD2 ,&sy STR2
+ #ffff #00 .line/x LDZ2 ,&x LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sx STR2
+ #ffff #00 .line/y LDZ2 ,&y LDR2 ;lts2 JSR2 DUP2 ADD2 ADD2 ,&sy STR2
.line/dx LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
&loop
.line/x LDZ2 DUP2 .Screen/x DEO2 [ LIT2 &x $2 ] EQU2
.line/y LDZ2 DUP2 .Screen/y DEO2 [ LIT2 &y $2 ] EQU2
STHkr .Screen/pixel DEO
AND ,&end JCN
- .line/e1 LDZ2 #10 SFT2 DUP2
+ .line/e1 LDZ2 DUP2 ADD2 DUP2
.line/dy LDZ2 ;lts2 JSR2 ,&skipy JCN
.line/e1 LDZ2 .line/dy LDZ2 ADD2 .line/e1 STZ2
.line/x LDZ2 [ LIT2 &sx $2 ] ADD2 .line/x STZ2
@@ -101,4 +145,24 @@ JMP2r
@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
-@pointer-icn 80c0 e0f0 f8e0 1000
+@clear-screen ( -- )
+
+ .Screen/height DEI2 #03 SFT2 NIP #00
+ &y
+ #00 OVR #30 SFT2 .Screen/y DEO2
+ .Screen/width DEI2 #03 SFT2 NIP #00
+ &x
+ #00 OVR #30 SFT2 .Screen/x DEO2
+ #00 .Screen/sprite DEO
+ INC GTHk ,&x JCN
+ POP2
+ INC GTHk ,&y JCN
+ POP2
+
+JMP2r
+
+@pointer-icn
+ 80c0 e0f0 f8e0 1000
+
+@stroke
+
