Changeset 3405


Ignore:
Timestamp:
Nov 1, 2012, 5:59:36 AM (21 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:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/nn-touchscreen.fth

    r3404 r3405  
    673673 
    674674: xs>xy  ( signal# -- x y ) 
    675    2+ screen-w xleds 2* / * r -         ( x ) 
     675   screen-w xleds 2* / *                ( x ) 
     676   r 2/ + 
    676677   x>x'                                 ( x' ) 
    677    r 2/ + 
     678   d# 10 - 
    678679   xy                                   ( x y ) 
    679680; 
     
    762763; 
    763764 
     765: watch-fss-sig  ( ) 
     766   d# 50 d# 18 at-xy ."  signal strength: " fs .d 
     767   d# 50 d# 20 at-xy ."  d  down " 
     768   d# 50 d# 21 at-xy ."  u  up   " 
     769   d# 50 d# 22 at-xy ."  q  quit " 
     770; 
     771 
     772: watch-fss-key  ( stop-flag key -- stop-flag' ) 
     773   case 
     774      h# 1b     of  drop true  endof 
     775      [char] q  of  drop true  endof 
     776      [char] u  of  fs 2* d# 64 min  to fs  watch-fss-sig  endof 
     777      [char] d  of  fs 2/  d# 1 max  to fs  watch-fss-sig  endof 
     778   endcase 
     779; 
     780 
    764781: watch-fss 
    765    empty 
    766    begin 
     782   watch-fss-sig  empty  watch-fss-sig  false 
     783   begin                                        ( stop-flag ) 
    767784      0 watch-fss-axis 
    768       1 watch-fss-axis  key? 
     785      1 watch-fss-axis  key?  if  key watch-fss-key  then 
     786      dup 
    769787   until 
    770    key drop 
    771    page 
     788   drop page 
    772789; 
    773790 
Note: See TracChangeset for help on using the changeset viewer.