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

Format

This commit is contained in:
Devine Lu Linvega 2024-07-24 10:46:14 -07:00
parent 95394b8416
commit 42882d1fe5
1 changed files with 72 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

153
gui/teatime/teatime.tal
View File

@ -7,12 +7,15 @@
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|000
@cursor &x $2 &y $2
@bar &height $1
@remaining-seconds $2
@last-second $1
|100 @on-reset ( -> )
|100
@on-reset ( -> )
( | meta )
;meta #06 DEO2
( | theme )
@ -25,12 +28,10 @@
( | screen size )
#0048 .Screen/width DEO2
#0100 .Screen/height DEO2
.DateTime/second DEI .last-second STZ
<draw-border>
<draw-bar>
BRK
BRK
@on-frame ( -> )
.Mouse/state DEI ?{
@ -40,125 +41,115 @@ BRK
.remaining-seconds LDZ2 #0001 SUB2 DUP2 .remaining-seconds STZ2
#0007 DIV2 NIP .bar/height STZ
<draw-bar>
JMP2r
}
POP }
}
JMP2r }
POP } }
BRK
@on-mouse ( -> )
( clear old cursor )
( | clear old cursor )
.cursor/x LDZ2 .Screen/x DEO2
.cursor/y LDZ2 .Screen/y DEO2
#00 .Screen/auto DEO
#40 .Screen/sprite DEO
.Mouse/x DEI2 DUP2 .cursor/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .cursor/y STZ2 .Screen/y DEO2
;arrow .Screen/addr DEO2
( | draw cursor )
.Mouse/x DEI2 DUP2 .cursor/x STZ2
.Screen/x DEO2
.Mouse/y DEI2 DUP2 .cursor/y STZ2
.Screen/y DEO2
;arrow-icn .Screen/addr DEO2
#42 .Screen/sprite DEO
.Mouse/state DEI #00 EQU ?{
.Mouse/y DEI2 NIP #08 SUB
DUP #f0 GTH ?{
#f0 OVRk SUB
DUP .bar/height STZ
#00 SWP #0007 MUL2 ( very rough! should be 7.5 )
.remaining-seconds STZ2
<draw-bar> }
POP
}
BRK
.Mouse/y DEI2 NIP #08 SUB DUP #f0 GTH ?{
#f0 OVRk SUB DUP .bar/height STZ
#00 SWP #0007 MUL2
( very rough! should be 7.5 ) .remaining-seconds STZ2
<draw-bar> }
POP }
BRK
@meta
00
( name ) "Tea 20 "Timer 0a
( details ) "Null
( author ) "By 20 "Dave 20 "Van 20 "Ee 0a
( date ) "12 20 "Jan 20 "2024 $1
( elements ) 00
(
@|helpers )
@meta 00
( name ) "Tea 20 "Timer 0a
( details ) "Null
( author ) "By 20 "Dave 20 "Van 20 "Ee 0a
( date ) "12 20 "Jan 20 "2024 $1
( elements ) 00
(
@|drawing )
@<draw-bar> ( -- )
#0008 DUP2 .Screen/x DEO2 .Screen/y DEO2
#0008 DUP2 .Screen/x DEO2
.Screen/y DEO2
;fill-icn .Screen/addr DEO2
#32 .Screen/auto DEO
.bar/height LDZ #f0 OVRk SUB
&w
&>w ( -- )
DUP #08 LTH ?{
#01 .Screen/sprite DEO
#08 SUB
!&w }
#08 SUB !&>w }
DUP #00 EQU ?{
( partial row )
DUP #00 SWP ;fill-icn SWP2 SUB2 .Screen/addr DEO2
#07 .Screen/sprite DEO
}
POP
#00f8 .Screen/y DEI2 NEQ2 ?{ JMP2r }
( partial row ) DUP #00 SWP ;fill-icn SWP2 SUB2 .Screen/addr DEO2
#07 .Screen/sprite DEO }
POP #00f8 .Screen/y DEI2 NEQ2 ?{ JMP2r }
;fill-icn .Screen/addr DEO2
&w2
&>w2 ( -- )
#03 .Screen/sprite DEO
.Screen/y DEI2
#00f8 NEQ2 ?&w2
POP
JMP2r
.Screen/y DEI2 #00f8 NEQ2 ?&>w2
POP JMP2r
@<draw-border> ( -- )
#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#0000 DUP2 .Screen/x DEO2
.Screen/y DEO2
#82 .Screen/pixel DEO
;tick .Screen/addr DEO2
;tick-icn .Screen/addr DEO2
#e1 .Screen/auto DEO
#0028 .Screen/x DEO2
#0008 .Screen/y DEO2
#08 .Screen/sprite DEOk
#f1 .Screen/auto DEO
#08 .Screen/sprite DEOk #f1 .Screen/auto DEO
#0028 .Screen/x DEO2
#0080 .Screen/y DEO2
DEO
( labels )
( | labels )
#0030 .Screen/x DEO2
#0004 .Screen/y DEO2
#02 .Screen/auto DEO
LIT2r [ =label-tilemap ]
#1f00
&w
LDAkr #00 STHr INC2r
;digits ADD2 .Screen/addr DEO2
LIT2r [ =label-tilemap ] #1f00
&>w ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
#08 .Screen/sprite DEO
INC GTHk ?&w
POP2
#0038 .Screen/x DEO2
INC GTHk ?&>w
POP2 #0038 .Screen/x DEO2
#0004 .Screen/y DEO2
#1f00
&w2
LDAkr #00 STHr INC2r
;digits ADD2 .Screen/addr DEO2
&>w2 ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
#08 .Screen/sprite DEO
INC GTHk ?&w2
INC GTHk ?&>w2
JMP2r
(
@|assets )
@arrow [ 80c0 e0f0 f8fc f0c0 ]
@tick [ f000 0000 0000 0000 ]
@blank-icn [ 0000 0000 0000 0000 ]
@fill-icn [ ffff ffff ffff ffff ]
@arrow-icn [ 80c0 e0f0 f8fc f0c0 ]
@tick-icn [ f000 0000 0000 0000 ]
@blank-icn [ 0000 0000 0000 0000 ]
@fill-icn [ ffff ffff ffff ffff ]
@digits ( Emmaline by damieng )
[ 0000 0000 0000 0000 ]
[ 3864 e2e2 e264 3800 0c3c 5c1c 1c1c 1c00 ]
[ 7c8e 8e1c 3870 fe00 fe8e 0c3c 8e8e 7c00 ]
[ 0c1c 3c5c 9cfe 1c00 3e40 7c0e 8e8e 7c00 ]
[ 3c62 e0ec e262 3c00 fe0e 0e1c 3870 7000 ]
[ 7ce2 f27c 9e8e 7c00 788c 8e6e 0e8c 7800 ]
[
0000 0000 0000 0000 3864 e2e2 e264 3800
0c3c 5c1c 1c1c 1c00 7c8e 8e1c 3870 fe00
fe8e 0c3c 8e8e 7c00 0c1c 3c5c 9cfe 1c00
3e40 7c0e 8e8e 7c00 3c62 e0ec e262 3c00
fe0e 0e1c 3870 7000 7ce2 f27c 9e8e 7c00
788c 8e6e 0e8c 7800 ]
@label-tilemap [
20 00 00 00 00 18 00 00 00 00 18 00 00 00 00 10
00 00 00 00 10 00 00 00 00 30 00 00 00 00 08 08
00 00 00 00 30 00 00 00 00 08 00 00 00 00 30 00
00 00 00 08 00 00 00 00 00 00 00 00 00 00 ]
@label-tilemap
[ 20 00 00 00 00 18 00 00 00 00 18 00 00 00 00 10 00 00 00 00 10 00 00 00 00 30 00 00 00 00 08 ]
[ 08 00 00 00 00 30 00 00 00 00 08 00 00 00 00 30 00 00 00 00 08 00 00 00 00 00 00 00 00 00 00 ]