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

(sliderule) Added D rule

This commit is contained in:
Devine Lu Linvega 2023-07-05 15:05:48 -07:00
parent bc011d4e09
commit 919d9937d1
1 changed files with 37 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
gui/sliderule/sliderule.tal
View File

@ -41,10 +41,11 @@
@|drawing )
@<redraw> ( -- )
<draw-sliderule>
<draw-c>
<draw-d>
JMP2r
@<draw-sliderule> ( -- )
@<draw-c> ( -- )
#0020 .Screen/x DEO2
#0020 .Screen/y DEO2
( | cap )
@ -56,14 +57,24 @@
<draw-rule>
JMP2r
@<draw-d> ( -- )
#0030 .Screen/x DEO2
#0037 .Screen/y DEO2
( | cap )
#25 .Screen/auto DEO
;cap-chr .Screen/addr DEO2
#85 .Screen/sprite DEO
<draw-rule-rev>
JMP2r
@<draw-rule> ( -- )
#2300
&l ( -- )
( | bg )
#06 .Screen/auto DEO
;bg-chr .Screen/addr DEO2
[ LIT2 85 -Screen/sprite ] DEOk DEO
[ LIT2 85 -Screen/sprite ] DEOk
DEO
( | scale )
#05 .Screen/auto DEO
#00 OVR #40 SFT2 ;rule-chr ADD2 .Screen/addr DEO2
@ -74,6 +85,23 @@
( adjust ) .Screen/x DEI2k #0005 SUB2 ROT DEO2
JMP2r
@<draw-rule-rev> ( -- )
#2300
&l ( -- )
( | scale )
#06 .Screen/auto DEO
#00 OVR #40 SFT2 ;rule-chr ADD2 .Screen/addr DEO2
[ LIT2 a5 -Screen/sprite ] DEO
( | bg )
#15 .Screen/auto DEO
;bg-rev-chr .Screen/addr DEO2
[ LIT2 85 -Screen/sprite ] DEO
( adjust ) .Screen/y DEI2k #0008 SUB2 ROT DEO2
INC GTHk ?&l
POP2
( adjust ) .Screen/x DEI2k #0005 SUB2 ROT DEO2
JMP2r
(
@|utils )
@ -113,6 +141,11 @@
00ff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff ]
@bg-rev-chr
[
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ff00 ffff ffff ffff ffff ]
@cap-chr
[
003f 7f7f 7f7f 7f7f 3f7f ffff ffff ffff