d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working copy

This commit is contained in:
Devine Lu Linvega 2023-07-05 16:23:05 -07:00
parent bafd434554
commit b896892f29
2 changed files with 66 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui/sliderule/assets.tal
View File

@ -93,6 +93,13 @@ e0e0 0000 0000 0000 f0f0 e000 0000 0000
7f7f 7f7f 7f7f 7f7f ffff ffff ffff ffff 7f7f 7f7f 7f7f 7f7f ffff ffff ffff ffff
7f7f 7f7f 7f7f 3f00 ffff ffff ffff 7f3f ] 7f7f 7f7f 7f7f 3f00 ffff ffff ffff 7f3f ]
@cap-end-chr [
00fc fefe fefe fefe fcfe ffff ffff ffff
fefe fefe fefe fefe ffff ffff ffff ffff
fefe fefe fefe fc00 ffff ffff ffff fefc
]
@rule-chr @rule-chr
[ [
7f7f 7f7f 6d6d ff00 ffff ffff ffff ffff 7f7f 7f7f 6d6d ff00 ffff ffff ffff ffff

70
gui/sliderule/sliderule.tal
View File

@ -44,11 +44,13 @@
SWP2 SUB2 SWP2 SUB2
@on-drag ( offset* -> ) @on-drag ( offset* -> )
.Mouse/y DEI2 DUP2 #0020 LTH2 ?&cursor .Mouse/y DEI2
DUP2 #0038 LTH2 ?&c ( ) DUP2 #0020 LTH2 ?&cursor
DUP2 #0060 LTH2 ?&d ( ) DUP2 #0038 LTH2 ?&c
( ) DUP2 #0050 LTH2 ?&d
&cursor ( offset* y* -> ) &cursor ( offset* y* -> )
POP2 .state/cursor LDZ2 ADD2 .state/cursor STZ2 POP2 DUP2 .state/c LDZ2 ADD2 .state/c STZ2
.state/d LDZ2 ADD2 .state/d STZ2
<redraw> <redraw>
BRK BRK
&c ( offset* y* -> ) &c ( offset* y* -> )
@ -76,7 +78,7 @@
JMP2r JMP2r
@<draw-cursor> ( -- ) @<draw-cursor> ( -- )
#0050 .state/cursor LDZ2 ADD2 .Screen/x DEO2 #0050 .Screen/x DEO2
#0018 .Screen/y DEO2 #0018 .Screen/y DEO2
#76 .Screen/auto DEO #76 .Screen/auto DEO
;cursor-chr .Screen/addr DEO2 ;cursor-chr .Screen/addr DEO2
@ -96,15 +98,15 @@
<draw-rule> <draw-rule>
<draw-rule> <draw-rule>
<draw-rule> <draw-rule>
( | cap )
#25 .Screen/auto DEO
;cap-end-chr .Screen/addr DEO2
#85 .Screen/sprite DEO
( | numbers ) ( | numbers )
#05 .Screen/auto DEO
#0024 .state/c LDZ2 ADD2 .Screen/x DEO2 #0024 .state/c LDZ2 ADD2 .Screen/x DEO2
#0028 .Screen/y DEO2 #0028 .Screen/y DEO2
#00 <draw-num> <draw-nums>
JMP2r
@<draw-num> ( num -- )
#00 SWP #30 SFT2 ;num-icn ADD2 .Screen/addr DEO2
#0a .Screen/sprite DEO
JMP2r JMP2r
@<draw-d> ( -- ) @<draw-d> ( -- )
@ -117,6 +119,52 @@
<draw-rule-rev> <draw-rule-rev>
<draw-rule-rev> <draw-rule-rev>
<draw-rule-rev> <draw-rule-rev>
( | cap )
#25 .Screen/auto DEO
;cap-end-chr .Screen/addr DEO2
#85 .Screen/sprite DEO
( | numbers )
#05 .Screen/auto DEO
#0034 .state/d LDZ2 ADD2 .Screen/x DEO2
#0041 .Screen/y DEO2
<draw-nums>
JMP2r
@<draw-nums> ( -- )
#01 <draw-num>
( small ) #0900
&l ( -- )
#00 OVR STH2 .Screen/x DEI2k #0016 STH2r SUB2 ADD2 ROT DEO2
INCk <draw-num-small>
INC GTHk ?&l
POP2
( | next )
.Screen/x DEI2k #000d ADD2 ROT DEO2
#02 <draw-num>
.Screen/x DEI2k #0083 ADD2 ROT DEO2
#03 <draw-num>
.Screen/x DEI2k #006b ADD2 ROT DEO2
#04 <draw-num>
.Screen/x DEI2k #0042 ADD2 ROT DEO2
#05 <draw-num>
.Screen/x DEI2k #003a ADD2 ROT DEO2
#06 <draw-num>
.Screen/x DEI2k #0036 ADD2 ROT DEO2
#07 <draw-num>
.Screen/x DEI2k #002d ADD2 ROT DEO2
#08 <draw-num>
.Screen/x DEI2k #0024 ADD2 ROT DEO2
#09 <draw-num>
JMP2r
@<draw-num> ( num -- )
#00 SWP #30 SFT2 ;num-icn ADD2 .Screen/addr DEO2
#0a .Screen/sprite DEO
JMP2r
@<draw-num-small> ( num -- )
#00 SWP #30 SFT2 ;num-icn ADD2 .Screen/addr DEO2
#05 .Screen/sprite DEO
JMP2r JMP2r
@<draw-rule> ( -- ) @<draw-rule> ( -- )