[commit] r1151 - trunk/openbios-devel/forth/device

[repository service]

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 <[e-mail]>

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
   ;