Changeset 3405

Timestamp:

Nov 1, 2012 5:59:36 AM (7 months ago)

Author:

quozl

Message:

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

File:

• cpu/arm/olpc/nn-touchscreen.fth (modified) (2 diffs)

cpu/arm/olpc/nn-touchscreen.fth

@@ -673 +673 @@
 
 : xs>xy  ( signal# -- x y )
-   2+ screen-w xleds 2* / * r -         ( x )
+   screen-w xleds 2* / *                ( x )
+   r 2/ +
    x>x'                                 ( x' )
-   r 2/ +
+   d# 10 -
    xy                                   ( x y )
 ;
@@ -762 +763 @@
 ;
 
+: 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
 ;