[openfirmware] [commit] r2755 - ofw/gui
repository service
svn at openfirmware.info
Thu Dec 8 13:43:46 CET 2011
Author: wmb
Date: Thu Dec 8 13:43:46 2011
New Revision: 2755
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2755
Log:
Absolutely-addressed text display routines for use by on-screen keyboard.
Modified:
ofw/gui/graphics.fth
Modified: ofw/gui/graphics.fth
==============================================================================
--- ofw/gui/graphics.fth Thu Dec 8 13:43:42 2011 (r2754)
+++ ofw/gui/graphics.fth Thu Dec 8 13:43:46 2011 (r2755)
@@ -114,6 +114,28 @@
)package
;
+: xy>screenadr ( x y -- screenadr )
+ bytes/line * swap pix* + frame-buffer-adr +
+;
+0 value char-fg 0 value char-bg
+: character-at-xy ( char x y -- )
+ screen-ih package(
+ 2>r ( char r: x y )
+ >font fontbytes char-width char-height ( 'font fontbytes w h r: x y )
+ 2r> xy>screenadr ( 'font fontbytes w h 'screen )
+ bytes/line char-fg char-bg ( font fontbytes w h 'screen bytes/line fg bg )
+ fb-paint ( )
+ )package
+;
+: type-at-xy ( adr len x y -- )
+ 2swap bounds ?do ( x y )
+ 2dup i c@ -rot character-at-xy ( x y )
+ screen-ih package( char-width )package ( x y char-width )
+ rot + swap ( x' y )
+ loop ( x y )
+ 2drop ( )
+;
+
: getchar ( -- byte ) key ;
\ use getchar or keyboard package read ( a n - actual ) to get input
More information about the openfirmware
mailing list