This enables us to execute "default-font set-font" as per the the IEEE1275 specification.
Signed-off-by: Mark Cave-Ayland mark.cave-ayland@ilande.co.uk --- openbios-devel/forth/device/display.fs | 2 +- openbios-devel/forth/device/font.fs | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/openbios-devel/forth/device/display.fs b/openbios-devel/forth/device/display.fs index 1ab69ec..d85ac85 100644 --- a/openbios-devel/forth/device/display.fs +++ b/openbios-devel/forth/device/display.fs @@ -68,7 +68,7 @@ defer fb-emit ( x -- ) \
: default-font ( -- addr width height advance min-char #glyphs ) - \ (romfont-8x16) 8 10 10 0 100 + (romfont) (romfont-width) (romfont-height) (romfont-height) 0 100 ;
: set-font ( addr width height advance min-char #glyphs -- ) diff --git a/openbios-devel/forth/device/font.fs b/openbios-devel/forth/device/font.fs index c8100a8..7b742fa 100644 --- a/openbios-devel/forth/device/font.fs +++ b/openbios-devel/forth/device/font.fs @@ -9,5 +9,9 @@ \ the copyright and warranty status of this work. \
+0 value (romfont) +0 value (romfont-width) +0 value (romfont-height) + \ encode-file romfont.bin \ drop value (romfont-8x16)