Making monochrome

This commit is contained in:
Devine Lu Linvega 2024-07-24 14:18:32 -07:00
parent c530e8a3be
commit 701c8efad5
3 changed files with 268 additions and 42 deletions

229
gui/teatime/assets.tal Normal file
View File

@ -0,0 +1,229 @@
@hand-icn [ 4040 787c fcfc 7c38 ]
&down [ 0000 787c fcfc 7c38 ]
@tick-icn [ 7e00 0000 7000 0000 ]
@mark-icn [ 0000 0000 0000 0060 ]
&short [ 0000 0000 0000 007e ]
@halftone-icn [ aa55 aa55 aa55 aa55 ]
@fill-icn [ ffff ffff ffff ffff ]
@line-icn [ ff00 0000 0000 0000 ]
@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 ]
@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 ]
@chicago-uf2 [
0000 0000 0000 0000 0008 0000 0000 0000
000b 0b09 0b00 0000 0000 0000 0000 0000
0406 070a 070b 0a03 0505 0707 0407 0407
0808 0808 0808 0808 0808 0404 0608 0608
0b08 0808 0807 0708 0806 0709 070c 0908
0808 0807 0608 080c 0808 0805 0705 0808
0608 0807 0808 0608 0804 0608 040c 0808
0808 0607 0608 080c 0808 0805 0505 0808 ]
&glyphs [
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0030 3030 3030 3000 3030 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0028 2828 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0909 3f12 127f 2424 0000 0000 0000
0000 0000 8000 0000 0000 0000 0000 0000
0000 1038 5470 7038 1c1c 5438 1000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 3749 4a32 0404 090a 1211 0000 0000
0000 0000 0000 0000 8040 4080 0000 0000
0000 003c 6666 3067 6666 663c 0000 0000
0000 0000 0080 8000 0000 0000 0000 0000
0000 0040 4040 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 1020 6060 6060 6060 6020 1000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 4020 3030 3030 3030 3020 4000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0010 5438 5410 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0010 107c 1010 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 6060 2040 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 007c 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0404 0808 1010 2020 4040 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6666 6666 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 3818 1818 1818 1818 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 4606 060c 1830 607e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007e 0c18 3c06 0606 463c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0006 0e16 2646 7f06 0606 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007e 6060 7c06 0606 463c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 001c 3060 7c66 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007e 0606 060c 1818 1818 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6666 663c 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6666 6666 3e06 0c38 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0060 6000 0000 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0060 6000 0000 6060 2040 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 1830 60c0 6030 1800 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 7e00 7e00 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 c060 3018 3060 c000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 4606 0c18 1800 1818 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 1f20 4e52 524d 201f 0000 0000
0000 0000 0080 4040 4080 0000 0000 0000
0000 003c 6666 667e 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6666 667c 6666 667c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6260 6060 6060 623c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6666 6666 6666 667c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6060 6078 6060 607c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6060 6078 6060 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6260 606e 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0066 6666 667e 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0030 3030 3030 3030 3030 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 000c 0c0c 0c0c cccc cc78 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0063 666c 7870 786c 6663 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 6060 6060 6060 607c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 6070 795f 4e44 4040 0000 0000
0000 0020 60e0 e060 6060 6060 0000 0000
0000 0041 6171 795d 4f47 4341 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6666 6666 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6666 667c 6060 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 6666 6666 6666 663c 0600 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 6666 667c 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 6460 7038 1c0c 4c38 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 00fc 3030 3030 3030 3030 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0066 6666 6666 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0066 6666 6666 6666 6478 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0066 6666 6666 6666 667f 0000 0000
0000 0060 6060 6060 6060 4080 0000 0000
0000 0066 6666 663c 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0066 6666 663c 1818 1818 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 007e 0606 0c18 3060 607e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 7060 6060 6060 6060 6060 7000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 4040 2020 1010 0808 0404 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 7030 3030 3030 3030 3030 7000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0008 1422 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 00ff 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 4020 1000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 003c 463e 6666 663e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 607c 6666 6666 667c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0038 6460 6060 6438 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0006 063e 6666 6666 663e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 003c 6666 7e60 623c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 001c 3078 3030 3030 3030 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 003e 6666 6666 663e 0646 3c00
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 607c 6666 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 0060 6060 6060 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 0018 1818 1818 1818 1898 7000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 6066 6c78 7078 6c66 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0060 6060 6060 6060 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 007f 6666 6666 6666 0000 0000
0000 0000 00c0 6060 6060 6060 0000 0000
0000 0000 007c 6666 6666 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 003c 6666 6666 663c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 007c 6666 6666 667c 6060 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 003e 6666 6666 663e 0606 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 006c 7060 6060 6060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0038 6470 381c 4c38 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0030 3078 3030 3030 3018 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0066 6666 6666 663e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0066 6666 6666 6478 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0066 6666 6666 667f 0000 0000
0000 0000 0060 6060 6060 4080 0000 0000
0000 0000 0066 6666 3c66 6666 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0066 6666 6666 663e 0646 3c00
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 007e 060c 1830 607e 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 1020 2020 2040 2020 2020 1000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 2020 2020 2020 2020 2020 2000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 4020 2020 2010 2020 2020 4000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0032 4c00 0000 0000 0000 0000 ]

BIN
gui/teatime/chicago12.uf2 Normal file

Binary file not shown.

View File

@ -5,10 +5,11 @@
|80 @Controller &vector $2 &button $1 &key $1 |80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $1 &ylb $1 &state $1 &chord $1 &pad $4 &scrolly &scrolly-hb $1 &scrolly-lb $1 |90 @Mouse &vector $2 &x $2 &y $1 &ylb $1 &state $1 &chord $1 &pad $4 &scrolly &scrolly-hb $1 &scrolly-lb $1
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|000 |000
( | 15 minutes = 900 seconds, or 0x384 )
( | 0x384 / 2 = 0x1c2 )
@remaining-seconds $2 @remaining-seconds $2
@height $2 @height $2
|100 |100
@ -17,9 +18,9 @@
( | meta ) ( | meta )
;meta #06 DEO2 ;meta #06 DEO2
( | theme ) ( | theme )
#b0f7 .System/r DEO2 #f0f7 .System/r DEO2
#f0fc .System/g DEO2 #f0fc .System/g DEO2
#c0f8 .System/b DEO2 #f0f8 .System/b DEO2
( | vector ) ( | vector )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
@ -47,14 +48,14 @@
.Mouse/state DEI ?{ BRK } .Mouse/state DEI ?{ BRK }
( | down ) ( | down )
<freeze-timer> <freeze-timer>
.Mouse/y DEI2 #0010 SUB2 DUP2 #00f0 GTH2 ?{ DUP2 <set-height> } .Mouse/y DEI2 #0010 SUB2 DUP2 #00e1 GTH2 ?{ DUP2 #22 SFT2 <set-height> }
POP2 BRK POP2 BRK
@meta 00 @meta 00
( name ) "Tea 20 "Timer 0a ( name ) "Teatime 0a
( details ) "Null ( details ) "A 20 "Countdown 20 "Timer 0a
( author ) "By 20 "Dave 20 "Van 20 "Ee 0a ( author ) "By 20 "Dave 20 "Van 20 "Ee 0a
( date ) "12 20 "Jan 20 "2024 $1 ( date ) "24 20 "Jul 20 "2024 $1
( elements ) 00 ( elements ) 00
( (
@ -66,13 +67,10 @@
JMP2r JMP2r
@<set-height> ( distance* -- ) @<set-height> ( distance* -- )
#22 SFT2 #00f0 SWP2 SUB2 #02 SFT2 #001e MUL2 #20 SFT2
( >> )
@<set-seconds> ( seconds* -- ) @<set-seconds> ( seconds* -- )
DUP2 .remaining-seconds LDZ2 EQU2 ?{ DUP2 .remaining-seconds LDZ2 EQU2 ?{ .remaining-seconds STZ2 !<redraw-bar> }
DUP2 .remaining-seconds STZ2
#0007 DIV2 .height STZ2 !<redraw-bar> }
POP2 JMP2r POP2 JMP2r
( (
@ -80,6 +78,8 @@
@<redraw> ( -- ) @<redraw> ( -- )
<redraw-bar> <redraw-bar>
<draw-markers>
JMP2r
( | markers ) ( | markers )
;tick-icn .Screen/addr DEO2 ;tick-icn .Screen/addr DEO2
[ LIT2 f1 -Screen/auto ] DEO [ LIT2 f1 -Screen/auto ] DEO
@ -110,26 +110,45 @@
INC GTHk ?&>ll INC GTHk ?&>ll
POP2 POP2r JMP2r POP2 POP2r JMP2r
@<draw-markers> ( -- )
#00 .Screen/auto DEO
#00e2 #0000
&>l ( -- )
( | every 5th )
DUP #03 AND ?{
DUP2 #0009 ADD2 .Screen/y DEO2
#0030 .Screen/x DEO2
DUP2 #0004 DIV2 NIP #03 AND #00 EQU #00 SWP #30 SFT2 ;mark-icn ADD2 .Screen/addr DEO2
#05 .Screen/sprite DEO }
INC2 GTH2k ?&>l
POP2 POP2 JMP2r
@<redraw-bar> ( -- ) @<redraw-bar> ( -- )
;fill-icn .Screen/addr DEO2 ;halftone-icn .Screen/addr DEO2
( | top ) ( | top )
#0010 .Screen/x DEO2 #0010 .Screen/x DEO2
#0010 .Screen/y DEO2 #0010 .Screen/y DEO2
[ LIT2 f1 -Screen/auto ] DEO [ LIT2 f1 -Screen/auto ] DEO
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( | bottom ) ( | bottom )
#0010 .Screen/x DEO2 #0010 .Screen/x DEO2
#0090 .Screen/y DEO2 #0090 .Screen/y DEO2
[ LIT2 d1 -Screen/auto ] DEO [ LIT2 b1 -Screen/auto ] DEO
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO [ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( >> ) ( >> )
@<draw-bar> ( -- ) @<draw-bar> ( -- )
#0010 .Screen/x DEO2
.remaining-seconds LDZ2 #02 SFT2 #0010 ADD2 .Screen/y DEO2
[ LIT2 32 -Screen/auto ] DEO
;line-icn .Screen/addr DEO2
#85 .Screen/sprite DEO
JMP2r
#0010 .Screen/x DEO2 #0010 .Screen/x DEO2
( | all ) ( | all )
[ LIT2 32 -Screen/auto ] DEO [ LIT2 32 -Screen/auto ] DEO
;line-icn .Screen/addr DEO2 ;line-icn .Screen/addr DEO2
[ LIT2r 0a -Screen/sprite ] .height LDZ2 #0010 ADD2 #0010 [ LIT2r 0a -Screen/sprite ] .height LDZ2 #0010 ADD2 #0110 SWP2 SUB2 #0010
&>l ( -- ) &>l ( -- )
DUP2 .Screen/y DEO2 DUP2 .Screen/y DEO2
DEOkr DEOkr
@ -165,27 +184,5 @@
( (
@|assets ) @|assets )
@hand-icn [ 4040 787c fcfc 7c38 ] ~assets.tal
&down [ 0000 787c fcfc 7c38 ]
@tick-icn [ 7e00 0000 7000 0000 ]
@fill-icn [ ffff ffff ffff ffff ]
@line-icn [ ff00 0000 0000 0000 ]
@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 ]
@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 ]