~rabbits/left: Added chrw helper

4 files changed, 213 insertions(+), 4 deletions(-)

A etc/cream12.uf2
A etc/monaco12.uf2
M src/assets.tal
M src/left.tal

A etc/cream12.uf2 => etc/cream12.uf2 +0 -0

A etc/monaco12.uf2 => etc/monaco12.uf2 +0 -0

M src/assets.tal => src/assets.tal +204 -1

@@ 36,7 36,7 @@
 	0000 0000 00fe 82fe 82fe 82fe 0000 0000
 	0000 0000 0000 0000 0000 0000 0000 0000 
 
-@font
+@font ( cream12 )
 0808 0808 0808 0808 080f 0808 0808 0808 0808 0808 0808 0808 0808 0808 0808 0808
 0403 0509 0606 0803 0505 0806 0306 0306 0703 0707 0707 0707 0707 0303 0406 0406
 0908 0707 0706 0607 0703 0407 070a 0708 0709 0807 0708 080c 0808 0704 0604 0605


@@ 139,6 139,209 @@
 0000 0000 0000 6092 0c00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 0000 0000 0000 0000 0000 0000 0000 0000 
 
+@font-mono ( monaco12 )
+0000 0000 0000 0000 0007 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0707 0707 0707 0707 0707 0707 0707 0707
+0707 0707 0707 0707 0707 0707 0707 0707
+0707 0707 0707 0707 0707 0707 0707 0707
+0707 0707 0707 0707 0707 0707 0707 0707
+0707 0707 0707 0707 0707 0707 0707 0707
+0707 0707 0707 0707 0707 0707 0707 070f
+&glyphs
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1010 1010 1000 1010 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 0028 7c28 287c 2800 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 1038 5450 3018 1414 5438 1000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0024 5458 3810 2834 5448 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0060 9090 a040 a094 8874 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1010 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0810 1020 2020 2020 1010 0800 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 2010 1008 0808 0808 1010 2000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 5438 3854 1000 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 1010 1020 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 0000 7c00 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0004 0408 0810 1020 2040 4000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 4444 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 3010 1010 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4404 0408 1020 407c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4404 1804 0404 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0008 1828 487c 0808 0808 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 4040 7804 0404 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0018 2040 7844 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 0404 0810 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 3844 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 4444 3c04 0830 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 1010 0000 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 1010 0000 1010 1020 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0810 2040 2010 0800 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 7c00 7c00 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 2010 0804 0810 2000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4404 0810 1000 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0078 84b4 b4bc 8078 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 447c 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0078 4444 7844 4444 4478 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 4040 4040 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0078 4444 4444 4444 4478 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 4040 4078 4040 407c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 4040 4078 4040 4040 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4440 404c 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 447c 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1010 1010 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0004 0404 0404 0444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4850 6040 6050 4844 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0040 4040 4040 4040 407c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 6c54 4444 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4464 544c 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 4444 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0078 4444 4478 4040 4040 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4444 4444 4444 4438 1008 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0078 4444 4478 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0038 4440 4038 0404 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 1010 1010 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 4444 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 4444 4444 2810 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 4444 4454 6c44 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 2810 2844 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0044 4444 4428 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 007c 0404 0810 2040 407c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 3820 2020 2020 2020 2020 3800 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0040 4020 2010 1008 0804 0400 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 3808 0808 0808 0808 0808 3800 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 2844 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 00fe 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 0800 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3c44 4444 4c34 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0040 4040 7844 4444 4478 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3844 4040 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0004 0404 3c44 4444 443c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3844 7c40 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 000c 1010 3810 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3c44 4444 443c 0444 3800
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0040 4040 7844 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1000 1010 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1000 1010 1010 1010 1010 6000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0040 4040 4850 6050 4844 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0010 1010 1010 1010 1010 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 7854 5454 5454 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 7844 4444 4444 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3844 4444 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 7844 4444 4478 4040 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3c44 4444 443c 0404 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 5864 4440 4040 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 3844 3804 4438 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 2020 7020 2020 2018 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 4444 4444 4c34 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 4444 4444 2810 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 5454 5454 5428 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 4428 1010 2844 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 4444 4444 443c 0444 3800
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0000 0000 7c08 1020 407c 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0810 1010 1020 1010 1010 0800 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 1010 1010 1010 1010 1010 1000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 2010 1010 1008 1010 1010 2000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+0000 0034 5800 0000 0000 0000 0000 0000
+0000 0000 0000 0000 0000 0000 0000 0000
+ffff ffff ffff ffff ffff ffff ffff ffff
+ffff ffff ffff ffff ffff ffff ffff ffff
+
 @appicon ( 3x3 )
 0000 0000 0000 0000 0000 0000 0000 0000 0008 0808 4838 1808 0814 14d4 b444 2414
 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0307 070f 0000 0003 0408 0810

M src/left.tal => src/left.tal +9 -3

@@ 470,7 470,7 @@ JMP2r
 	DUP2 is-rune ?&rune
 	LDAk DUP #7e GTH
 		?&special
-	#00 SWP ;font ADD2 LDA #00 SWP
+	get-chrw
 
 JMP2r
 	&special POP


@@ 1010,12 1010,18 @@ JMP2r
 
 JMP2r
 
+@get-chrw ( c -- width* )
+
+	#0000 ROT ;font ADD2 LDA
+
+JMP2r
+
 @get-strw ( str* -- width* )
 
 	LIT2r 0000
 	LDAk #00 EQU ?&skip
 	&w
-		LDAk #0000 ROT ;font ADD2 LDA STH2 ADD2r
+		LDAk get-chrw STH2 ADD2r
 		INC2 LDAk ?&w
 		&skip
 	POP2


@@ 1043,7 1049,7 @@ JMP2r
 @draw-chr ( char -- )
 
 	( addr ) #00 OVR #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
-	( anchor ) #0000 ROT ;font ADD2 LDA STHk .Screen/x DEI2 ADD2
+	( anchor ) get-chrw STHk .Screen/x DEI2 ADD2
 	[ LIT &color 01 ] .Screen/sprite DEOk STHr #08 LTH ?&thin DEOk &thin POP2
 	.Screen/x DEO2