[openfirmware] [commit] r3405 - cpu/arm/olpc
repository service
svn at openfirmware.info
Thu Nov 1 05:59:37 CET 2012
Author: quozl
Date: Thu Nov 1 05:59:36 2012
New Revision: 3405
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3405
Log:
OLPC XO-4 - nn-touchscreen, watch-fss, compensate for X coordinate reversal in firmware 0.0.0.6, slightly breaks rendering of previous firmware versions, add signal strength control with keyboard keys
Modified:
cpu/arm/olpc/nn-touchscreen.fth
Modified: cpu/arm/olpc/nn-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/nn-touchscreen.fth Thu Nov 1 00:32:08 2012 (r3404)
+++ cpu/arm/olpc/nn-touchscreen.fth Thu Nov 1 05:59:36 2012 (r3405)
@@ -672,9 +672,10 @@
;
: xs>xy ( signal# -- x y )
- 2+ screen-w xleds 2* / * r - ( x )
- x>x' ( x' )
+ screen-w xleds 2* / * ( x )
r 2/ +
+ x>x' ( x' )
+ d# 10 -
xy ( x y )
;
@@ -761,14 +762,30 @@
then
;
+: watch-fss-sig ( )
+ d# 50 d# 18 at-xy ." signal strength: " fs .d
+ d# 50 d# 20 at-xy ." d down "
+ d# 50 d# 21 at-xy ." u up "
+ d# 50 d# 22 at-xy ." q quit "
+;
+
+: watch-fss-key ( stop-flag key -- stop-flag' )
+ case
+ h# 1b of drop true endof
+ [char] q of drop true endof
+ [char] u of fs 2* d# 64 min to fs watch-fss-sig endof
+ [char] d of fs 2/ d# 1 max to fs watch-fss-sig endof
+ endcase
+;
+
: watch-fss
- empty
- begin
+ watch-fss-sig empty watch-fss-sig false
+ begin ( stop-flag )
0 watch-fss-axis
- 1 watch-fss-axis key?
+ 1 watch-fss-axis key? if key watch-fss-key then
+ dup
until
- key drop
- page
+ drop page
;
[then]
More information about the openfirmware
mailing list