commit a7e608adf1c16d62ea7c14d4e9d864f10620bb2f
parent d7c1dd826dc80191820e19c1cea4080cde3a2f48
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 4 Jul 2021 19:17:56 -0700
Fixed broken uf1 fonts
Diffstat:
5 files changed, 25 insertions(+), 3 deletions(-)
diff --git a/projects/examples/demos/font.tal b/projects/examples/demos/font.tal
@@ -29,7 +29,7 @@
#0fa7 .System/b DEO2
( load font )
- #4000 .File/length DEO2
+ #6000 .File/length DEO2
;font-path-large .File/name DEO2
;font-data .File/load DEO2
( draw label )
@@ -51,6 +51,28 @@
BRK
+@draw-uf1 ( x* y* text* color -- )
+
+ STH
+ SWP2 .Screen/y DEO2
+ SWP2 DUP2 .Screen/x DEO2 SWP2
+ &loop
+ LDAk
+ DUP #0a ! ,&no-linebreak JCN
+ ( move down ) STH OVR2 .Screen/x DEO2 STHr
+ ( incr y ) .Screen/y DEI2 #0010 ++ .Screen/y DEO2
+ POP ,&continue JMP &no-linebreak
+ ( get addr ) STHk TOS #0008 ** ;font-data #0100 ++ ++ .Screen/addr DEO2
+ ( get width ) STHr TOS ;font-data ++ LDA TOS
+ ( draw ) STHkr .Screen/color DEO
+ ( use width ) .Screen/x DEI2 ++ .Screen/x DEO2
+ &continue
+ ( incr addr ) #0001 ++
+ LDAk ,&loop JCN
+ POP2 POP2 POPr
+
+RTN
+
@draw-uf2 ( x* y* text* color -- )
STH
@@ -160,10 +182,10 @@ RTN
79 $1
@font-path-large
- "projects/fonts/diamond20.uf3 $1
+ "projects/fonts/geneva24.uf3 $1
@font-path-medium
"projects/fonts/venice14.uf2 $1
@font-path-small
- "projects/fonts/terminal12.uf2 $1
+ "projects/fonts/newyork12.uf2 $1
@font-data
\ No newline at end of file
diff --git a/projects/fonts/atari.uf1 b/projects/fonts/atari.uf1
Binary files differ.
diff --git a/projects/fonts/bbcmicro.uf1 b/projects/fonts/bbcmicro.uf1
Binary files differ.
diff --git a/projects/fonts/commodore.uf1 b/projects/fonts/commodore.uf1
Binary files differ.
diff --git a/projects/fonts/sapphire19.uf3 b/projects/fonts/sapphire19.uf3
Binary files differ.
