From 701c8efad54456831bd89950f85f385e18365b6b Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 24 Jul 2024 14:18:32 -0700
Subject: [PATCH] Making monochrome

---
 gui/teatime/assets.tal    | 229 ++++++++++++++++++++++++++++++++++++++
 gui/teatime/chicago12.uf2 | Bin 0 -> 8448 bytes
 gui/teatime/teatime.tal   |  81 +++++++-------
 3 files changed, 268 insertions(+), 42 deletions(-)
 create mode 100644 gui/teatime/assets.tal
 create mode 100644 gui/teatime/chicago12.uf2

diff --git a/gui/teatime/assets.tal b/gui/teatime/assets.tal
new file mode 100644
index 0000000..2ddf313
--- /dev/null
+++ b/gui/teatime/assets.tal
@@ -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 ]
+
diff --git a/gui/teatime/chicago12.uf2 b/gui/teatime/chicago12.uf2
new file mode 100644
index 0000000000000000000000000000000000000000..631221e86ea337cdd7d78945d02404b3e5d8dd97
GIT binary patch
literal 8448
zcmeHLUyB<z5Z96Q{;`*^HAiu&arO>3<Z<s@l7%?-9!cHnaZQ7{hZa(*yIeLeCb+bO
z3mAJJ^AY;gPtpf}fP9Gi2>k$sc1Ej}SN4wlP$(2U#;ck6X-3jW8flj?Nv<p#4X;t?
zptNkK?lkImYBk5P;O8o`EZeo+2FeboZO3zbPe``w`oPqj8mIvkPpEC77Ah8a4R9bw
zSP2#%HjonB8v1oSuU>D|Y_H+nb!@v{cfESUcAPpmv>o5Bd!Ba}Z5qHsKP_-s8pDp=
zMc`jV;OOjZSRbC99Z4Tql4MLgl+(RCqe&bTVzSH%R+Mgguo$$76?w<D9xsrFpBF~i
zlCkBQj{@73|9J!=K`e@hmLEKLKp;ZxdBbLN(e1A4WGfc9AikJR<97REwSYAI(Klzu
zmgUu(pOn?5_190+=uMiYeT8S4Vu4ALq%5xULCA9o)dJS4Bw-$aC?wnj7x6{4Y2hab
zW`Vf|)a0CM0Ki${iY_^?#w^QqgCGpaC_wxKt>ULUYQ?RbbhVQDBir^{5uYoK&dmK*
zAI`K9<=?*h>HX0HYUpN4nsYug*|#G;!vRqK=V0vP2$V;i!SRc~u2zzW&%pL$rCDc0
z=&ATaWr<Vs3$a`Bi0U3THisWgXbdi>3NSw~d`6C+-3y<O$KQtclmpmYNv0$m{~QCX
zG&(Z_Nc?rRlKNL-e_c`YgSJRBWuY@OFu#HSHk|8bO2YQvf`6)gY}+(Gx&6uf=Ocam
z`0+-ys57t9$<6d;lD^W_N)pjAj4$ES_dh*<ruJ{hZ*PT-^l)<d^ZOsa`}*mL@~AU7
ze@N8$#oVDo-AqZ!p4gzm9ve^=Iul=W$nX9+wSWF90<4=U30)&m{m;?#nu@=~(}naX
zV#m2!;lejQREs(za6|rp{DSF^%70VY9_LftuauG`41>UREvph{(;_@kwLNq9534QL
zw12P3QcQ?*uT;A~8bA;RB~6)yorxhL_b+3x0yw{>=HIr_JMEt_Sb=j+=8txClZU9>
zDUFx@i6f}!KQ;fH$r;pqt^`c2IsH~SL!8S5urkp&wLUa$Sy+hptopaiO;nXU{wrJo
zl7aXEQTqpO7XpVoyKX4uB7Qc3Px3WRpg8}K0Lc9x$@y!M_M&^_`eRJs<o=hq+W&YS
z1F8Kla17D5_KEca$Fu4F16MD&eBq<|3W$iL$_^w5=1wYcP#&LC$aZ}fcNcyBwYps+
z4h^XDz2$C>5LCwV8@g^jzw-X!3|Ft;Za(`Y&Y%az{1v!nyahcl=D#gCjL={Y@okxK
zF@Yk&SN*E^GBG|=e#G&aa2%frXIt<fgjYjB)r$?5y%CR2%{beFLwskrJgEJP^Dp4)
z^~3V`Kn()V<3r<ld}ti!-_$<zPry`ugZ>$D=${dX{+aP`3JIoq?u0fvJ&g=7yuZJA
zLA|`AUHe#M_#@&KCVs}F@6WHlZ28Zq8$vvr%_xkq;p^A0pVWYePIh{|hdrQo6n^k>
z{Bk@#=qNlxQc~yOeEed3PU64b|DvlZ1CuP(Rb8k9>b*}IotBL&d28V=HdAX+bqLdo
zH-tA*v4k>%KbA-^{zs2{y<dLMMS)3H7V%e4N9EQ3=Lh%0v{WVkelaU)bQVSkyZlC1
zmZUInAxlvBWpCjx@EuB8z{kb4KH}{4dV{q%W<?9J-+7p(<o$AS)bingJ}U12g;`N9
za`(NSRAdF9%Ha>60jcj#2`-OJRcp!g7DZfHl$rRvKbiFDPdM=eD5mjF@AC5UpxG??
z2eZ3sTr@Ns4d4UVP&K;b{Fa4FB|k~ix9`$Fl&mx2+dxF$ui?ell;4H3nPurt%hKN7
z;nn`WD?b3=W@QX`h@ZT`^EIRp_c{liun;y&*WKSgJUpT1mocx|J?%EVO-rdk5UP;4
z0Mz=B)yVGwnj3k#%rOOPfE48EunkA^@(wM#!u^lmKa2Ta0+_)c%bcKwaeXjyZx$Zb
zW1AHKl-<+Gq$F;zlZiRBVM4xm2w%nzqoM}fF&Uj7@df$ha9=LJjqa_^NAiBZX|vPp
OBCw0VE&~7i2>b)(9M{bN

literal 0
HcmV?d00001

diff --git a/gui/teatime/teatime.tal b/gui/teatime/teatime.tal
index 50c681b..323d423 100644
--- a/gui/teatime/teatime.tal
+++ b/gui/teatime/teatime.tal
@@ -5,11 +5,12 @@
 |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
 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
-
 |000
-
+	( | 15 minutes = 900 seconds, or 0x384 )
+	( | 0x384 / 2 = 0x1c2 )
 	@remaining-seconds $2
-	@height $2
+
+@height $2
 
 |100
 
@@ -17,9 +18,9 @@
 	( | meta )
 	;meta #06 DEO2
 	( | theme )
-	#b0f7 .System/r DEO2
+	#f0f7 .System/r DEO2
 	#f0fc .System/g DEO2
-	#c0f8 .System/b DEO2
+	#f0f8 .System/b DEO2
 	( | vector )
 	;on-frame .Screen/vector DEO2
 	;on-mouse .Mouse/vector DEO2
@@ -47,14 +48,14 @@
 	.Mouse/state DEI ?{ BRK }
 	( | down )
 	<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
 
 @meta 00
-	( name ) "Tea 20 "Timer 0a
-	( details ) "Null
+	( name ) "Teatime 0a
+	( details ) "A 20 "Countdown 20 "Timer 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
 
 (
@@ -66,13 +67,10 @@
 	JMP2r
 
 @<set-height> ( distance* -- )
-	#22 SFT2 #00f0 SWP2 SUB2 #02 SFT2 #001e MUL2
-	( >> )
+	#20 SFT2
 
 @<set-seconds> ( seconds* -- )
-	DUP2 .remaining-seconds LDZ2 EQU2 ?{
-		DUP2 .remaining-seconds STZ2
-		#0007 DIV2 .height STZ2 !<redraw-bar> }
+	DUP2 .remaining-seconds LDZ2 EQU2 ?{ .remaining-seconds STZ2 !<redraw-bar> }
 	POP2 JMP2r
 
 (
@@ -80,6 +78,8 @@
 
 @<redraw> ( -- )
 	<redraw-bar>
+	<draw-markers>
+	JMP2r
 	( | markers )
 	;tick-icn .Screen/addr DEO2
 	[ LIT2 f1 -Screen/auto ] DEO
@@ -110,26 +110,45 @@
 		INC GTHk ?&>ll
 	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> ( -- )
-	;fill-icn .Screen/addr DEO2
+	;halftone-icn .Screen/addr DEO2
 	( | top )
 	#0010 .Screen/x DEO2
 	#0010 .Screen/y DEO2
 	[ LIT2 f1 -Screen/auto ] DEO
-	[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
+	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
 	( | bottom )
 	#0010 .Screen/x DEO2
 	#0090 .Screen/y DEO2
-	[ LIT2 d1 -Screen/auto ] DEO
-	[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
+	[ LIT2 b1 -Screen/auto ] DEO
+	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
 	( >> )
 
 @<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
 	( | all )
 	[ LIT2 32 -Screen/auto ] DEO
 	;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 ( -- )
 		DUP2 .Screen/y DEO2
 		DEOkr
@@ -165,27 +184,5 @@
 (
 @|assets )
 
-@hand-icn [ 4040 787c fcfc 7c38 ]
-	&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 ]
+~assets.tal