M etc/cream.uf2 => etc/cream.uf2 +0 -0
M src/assets.tal => src/assets.tal +6 -6
@@ 20,8 20,8 @@
0000 0000 0000 0000 0000 0000 0000 0000
0402 0509 0606 0803 0505 0806 0306 0206
0605 0606 0606 0606 0606 0303 0405 0406
-0908 0707 0706 0608 0702 0406 060a 0708
-0609 0807 0608 080c 0608 0704 0604 0505
+0908 0707 0706 0608 0702 0407 060a 0708
+0709 0807 0608 080c 0808 0704 0604 0505
0307 0606 0707 0506 0704 0406 030c 0806
0707 0606 0508 070b 0607 0605 0305 0708
&glyphs
@@ 111,7 111,7 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 0020 2020 2020 2020 2020 4080 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0088 9090 a0c0 a090 9088 0000 0000
+0000 0084 8890 a0c0 a090 8884 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0080 8080 8080 8080 84f8 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
@@ 121,11 121,11 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4482 8282 8282 4438 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 00f0 8888 88f0 8080 8080 0000 0000
+0000 00f8 8484 84f8 8080 8080 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4482 8282 828a 443b 0000 0000
0000 0000 0000 0000 0000 8000 0000 0000
-0000 00f0 8888 88f0 9088 8986 0000 0000
+0000 00f8 8484 84f8 9088 8986 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0078 8480 4030 0804 8478 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
@@ 137,7 137,7 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 0084 8444 4444 2a2a 1111 0000 0000
0000 0020 2040 4040 8080 0000 0000 0000
-0000 0088 8850 5020 5050 8888 0000 0000
+0000 0082 4444 2810 2844 4482 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0082 8244 2810 1010 1010 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
M src/left.tal => src/left.tal +16 -5
@@ 823,8 823,8 @@ JMP2
@draw-token ( str* -- str* )
;get-color JSR2 STH
+ ;is-bold JSR2 ;draw-ufx/bold STA
&w
- ;is-bold JSR2 ;draw-ufx/bold STA
;is-selected JSR2 STH
LDAk STH2kr #08 ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
INC2 LDAk #20 GTH ,&w JCN
@@ 843,6 843,9 @@ JMP2r
LDAk LIT ": EQU ,&bold JCN
LDAk LIT "; EQU ,&bold JCN
LDAk LIT ". EQU ,&bold JCN
+ LDAk LIT "# EQU ,&bold JCN
+ LDAk LIT "@ EQU ,&bold JCN
+ LDAk LIT "& EQU ,&bold JCN
#00
JMP2r
@@ 897,14 900,22 @@ JMP2r
&seg ( width addr* -- )
+ DUP2 ,&addr STR2
.Screen/addr DEO2
- STHk #00 SWP .Screen/x DEI2 ADD2
+ STHk #00 SWP .Screen/x DEI2 DUP2 ,&anchor STR2 ADD2
[ LIT &color $1 ] .Screen/sprite DEOk
- STHr #09 LTH [ JMP DEOk POP2 ]
+ STHkr #09 LTH [ JMP DEOk POP2 ]
+
+ [ LIT &bold $1 ] #00 EQU ,&no-bold JCN
+ [ LIT2 &anchor $2 ] INC2 .Screen/x DEO2
+ [ LIT2 &addr $2 ] .Screen/addr DEO2
+ ,&color LDR #03 AND #05 MUL .Screen/sprite DEOk
+ STHkr #09 LTH [ JMP DEOk POP2 ]
+ INC2
+ &no-bold
+ POPr
.Screen/x DEO2
- [ LIT &bold $1 ] POP
-
JMP2r
@draw-special ( char -- )