Changeset 3405


Ignore:
Timestamp:
Nov 1, 2012, 4:59:36 AM (3 years 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.