0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-05 03:57:25 +00:00
uxn/projects/examples/gui/hover.tal

120 lines
2.9 KiB
Tal
Raw Normal View History

2021-04-02 04:53:41 +00:00
( GUI Hover )
2021-03-01 03:49:53 +00:00
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
2021-05-31 22:08:34 +00:00
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
( variables )
|0000
2021-08-18 02:17:47 +00:00
@color $1
@pointer [ &x $2 &y $2 &sprite $2 ]
@r1 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
@r2 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
@r3 [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
2021-03-21 21:16:19 +00:00
2021-04-05 20:00:55 +00:00
( program )
|0100
2021-03-21 21:16:19 +00:00
2021-08-18 18:14:29 +00:00
( theme )
#0f0f .System/r DEO2
#0fff .System/g DEO2
#0ff0 .System/b DEO2
( vectors ) ;on-mouse .Mouse/vector DEO2
2021-03-01 03:49:53 +00:00
2021-05-11 18:14:52 +00:00
#0020 #0030 #0060 #0060 .r1/y2 STZ2 .r1/x2 STZ2 .r1/y1 STZ2 .r1/x1 STZ2
#0058 #0050 #0090 #0080 .r2/y2 STZ2 .r2/x2 STZ2 .r2/y1 STZ2 .r2/x1 STZ2
#0048 #0048 #0080 #0098 .r3/y2 STZ2 .r3/x2 STZ2 .r3/y1 STZ2 .r3/x1 STZ2
2021-03-01 03:49:53 +00:00
( no BRK, run through to on-mouse )
2021-03-01 03:49:53 +00:00
@on-mouse
2021-05-16 04:35:01 +00:00
2021-05-11 18:14:52 +00:00
;pointer_icn .pointer/sprite STZ2
2021-03-01 03:49:53 +00:00
2021-05-11 18:14:52 +00:00
#01 .color STZ
2021-05-16 04:35:01 +00:00
.Mouse/x DEI2 .Mouse/y DEI2 .r1 ;within-rect JSR2 #00 EQU ,&draw1 JCN
#02 .color STZ
;hand_icn .pointer/sprite STZ2
2021-08-18 02:17:47 +00:00
&draw1
2021-05-16 04:35:01 +00:00
.r1/x1 LDZ2 .r1/y1 LDZ2 .r1/x2 LDZ2 .r1/y2 LDZ2 .color LDZ ;line-rect JSR2
2021-03-01 03:49:53 +00:00
2021-05-11 18:14:52 +00:00
#01 .color STZ
2021-05-16 04:35:01 +00:00
.Mouse/x DEI2 .Mouse/y DEI2 .r2 ;within-rect JSR2 #00 EQU ,&draw2 JCN
#03 .color STZ
;hand_icn .pointer/sprite STZ2
2021-08-18 02:17:47 +00:00
&draw2
2021-05-16 04:35:01 +00:00
.r2/x1 LDZ2 .r2/y1 LDZ2 .r2/x2 LDZ2 .r2/y2 LDZ2 .color LDZ ;line-rect JSR2
2021-03-01 03:49:53 +00:00
2021-05-11 18:14:52 +00:00
#01 .color STZ
2021-05-16 04:35:01 +00:00
.Mouse/x DEI2 .Mouse/y DEI2 .r3 ;within-rect JSR2 #00 EQU ,&draw3 JCN
#02 .color STZ
;hand_icn .pointer/sprite STZ2
2021-08-18 02:17:47 +00:00
&draw3
2021-05-16 04:35:01 +00:00
.r3/x1 LDZ2 .r3/y1 LDZ2 .r3/x2 LDZ2 .r3/y2 LDZ2 .color LDZ ;line-rect JSR2
2021-03-01 03:49:53 +00:00
2021-03-14 01:34:08 +00:00
( clear last cursor )
2021-05-11 18:14:52 +00:00
.pointer/x LDZ2 .Screen/x DEO2
.pointer/y LDZ2 .Screen/y DEO2
#40 .Screen/sprite DEO
2021-03-01 03:49:53 +00:00
2021-03-14 01:34:08 +00:00
( record pointer positions )
2021-08-18 18:14:29 +00:00
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
.pointer/sprite LDZ2 .Screen/addr DEO2
2021-03-01 03:49:53 +00:00
2021-03-14 01:34:08 +00:00
( draw new cursor )
#41 .Screen/sprite DEO
2021-03-01 03:49:53 +00:00
2021-08-18 18:14:29 +00:00
BRK
2021-03-01 03:49:53 +00:00
2021-05-16 04:35:01 +00:00
@within-rect ( x* y* rect -- flag )
STH
2022-05-31 20:25:41 +00:00
( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN
2021-05-16 04:35:01 +00:00
( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN
SWP2
( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN
( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ,&skip JCN
POP2 POP2 POPr
#01
2022-05-31 20:25:41 +00:00
JMP2r
2021-05-16 04:35:01 +00:00
&skip
POP2 POP2 POPr
#00
2022-05-31 20:25:41 +00:00
JMP2r
2021-05-16 04:35:01 +00:00
2021-04-29 04:00:39 +00:00
@line-rect ( x1* y1* x2* y2* color -- )
2021-03-01 03:49:53 +00:00
2022-02-21 18:30:55 +00:00
STH
DUP2 ,&ver-y2 STR2 ,&hor-y2 STR2
DUP2 ,&ver-x2 STR2 ,&hor-x2 STR2
DUP2 ,&ver-y1 STR2 ,&hor-y1 STR2
DUP2 ,&ver-x1 STR2 ,&hor-x1 STR2
( horizontal )
[ LIT2 &hor-x2 $2 ] INC2 [ LIT2 &hor-x1 $2 ]
2021-08-18 02:17:47 +00:00
&hor
2022-02-21 18:30:55 +00:00
DUP2 .Screen/x DEO2
[ LIT2 &hor-y1 $2 ] .Screen/y DEO2 STHkr .Screen/pixel DEOk
[ LIT2 &hor-y2 $2 ] .Screen/y DEO2 DEO
INC2 GTH2k ,&hor JCN
POP2 POP2
( vertical )
[ LIT2 &ver-y2 $2 ] [ LIT2 &ver-y1 $2 ]
&ver
DUP2 .Screen/y DEO2
[ LIT2 &ver-x1 $2 ] .Screen/x DEO2 STHkr .Screen/pixel DEOk
[ LIT2 &ver-x2 $2 ] .Screen/x DEO2 DEO
INC2 GTH2k ,&ver JCN
2021-08-18 02:17:47 +00:00
POP2 POP2
2022-02-21 18:30:55 +00:00
POPr
2021-03-01 03:49:53 +00:00
2022-05-31 20:25:41 +00:00
JMP2r
2021-03-01 03:49:53 +00:00
2021-03-01 17:16:40 +00:00
@pointer_icn [ 80c0 e0f0 f8e0 1000 ]
2021-03-01 03:49:53 +00:00
@hand_icn [ 4040 4070 f8f8 f870 ]