[OpenBIOS] [commit] r1151 - trunk/openbios-devel/forth/device
repository service
svn at openbios.org
Sun Jun 9 14:25:31 CEST 2013
Author: mcayland
Date: Sun Jun 9 14:25:30 2013
New Revision: 1151
URL: http://tracker.coreboot.org/trac/openbios/changeset/1151
Log:
display.fs: Add vertical font-spacing as per the existing C console implementation.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>
Modified:
trunk/openbios-devel/forth/device/display.fs
Modified: trunk/openbios-devel/forth/device/display.fs
==============================================================================
--- trunk/openbios-devel/forth/device/display.fs Sun Jun 9 14:25:27 2013 (r1150)
+++ trunk/openbios-devel/forth/device/display.fs Sun Jun 9 14:25:30 2013 (r1151)
@@ -44,6 +44,7 @@
0 value foreground-color
0 value background-color
+2 value font-spacing
0 value depth-bytes
0 value line-bytes
@@ -82,7 +83,7 @@
to char-num
to char-min
to fontbytes
- to char-height
+ font-spacing + to char-height
to char-width
to font
;
@@ -192,12 +193,17 @@
;
: fb8-draw-character ( char -- )
+ \ erase the current character
+ background-color
+ column# char-width * window-left +
+ line# char-height * window-top +
+ char-width char-height fb8-fillrect
\ draw the character:
>font
line# char-height * window-top + screen-width * depth-bytes *
column# char-width * depth-bytes *
window-left depth-bytes * + + frame-buffer-adr +
- swap char-width char-height
+ swap char-width char-height font-spacing -
\ normal or inverse?
foreground-color background-color
inverse? if
@@ -234,7 +240,7 @@
: fb8-toggle-cursor ( -- )
column# char-width * window-left +
line# char-height * window-top +
- char-width char-height
+ char-width char-height font-spacing -
foreground-color background-color
fb8-invertrect
;
More information about the OpenBIOS
mailing list