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]