Changeset 3441


Ignore:
Timestamp:
Nov 17, 2012, 4:20:25 AM (3 years ago)
Author:
quozl
Message:

OLPC - use additional graphical indicators for different reflash operations, yellow dots for EC, and plus signs for touchscreen

Location:
cpu
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/build-fw.fth

    r3412 r3441  
    862862   update-ec-flash?  if
    863863      ['] ?enough-power catch  ?dup  if  ( error )
    864         show-no-power
    865         .error
    866         ." Skipping EC reflash, not enough power" cr
    867         d# 1000 ms
     864        show-no-power
     865        .error
     866        ." Skipping EC reflash, not enough power" cr
     867        d# 1000 ms
    868868      else
    869          jots  ['] jot to edi-progress
    870         update-ec-flash
     869         jots-ec  ['] jot to edi-progress
     870        update-ec-flash
    871871      then
    872872   then
     
    882882            d# 1000 ms
    883883         else
    884             jots  ['] jot to bsl-progress
     884            jots-nn  ['] jot to bsl-progress
    885885            update-nn-flash
    886886         then
  • cpu/x86/pc/olpc/gui.fth

    r3364 r3441  
    405405;
    406406
    407 : jots  ( -- )  \ bottom left corner, chip and progress dots
    408    d# 25 d# 772 set-icon-xy " spi" show-icon
    409    bar-x-last bar-y set-icon-xy " yellowdot" show-icon
    410    read-dot
    411    -1 to last-dot#
    412    bar-x-last bar-x - #dots / to dot-spacing
    413 ;
    414 
    415407: jot  ( offset size -- )
    416408   dot-adr 0=  if  2drop exit  then                     ( offset size )
     
    426418   then
    427419;
     420
     421: jots-init
     422   d# 25 d# 772 set-icon-xy " spi" show-icon
     423   -1 to last-dot#
     424   bar-x-last bar-x - #dots / to dot-spacing
     425;
     426
     427: jots-bracket  ( icon$ -- )
     428   d#  20 d# 800 set-icon-xy 2dup show-icon \ left and above
     429   d#  20 d# 857 set-icon-xy 2dup show-icon \ left and below
     430   d# 120 d# 857 set-icon-xy 2dup show-icon \ right and below
     431   d# 120 d# 800 set-icon-xy      show-icon \ right and above
     432;
     433
     434: jots-prep  ( -- )
     435   bar-x-last bar-y set-icon-xy " yellowdot" show-icon
     436   read-dot
     437;
     438
     439\ bottom left corner, chip and progress dots
     440: jots     jots-init                             jots-prep  ;
     441: jots-nn  jots-init       " plus" jots-bracket  jots-prep  ;
     442: jots-ec  jots-init  " yellowdot" jots-bracket  jots-prep  ;
    428443
    4294440 [if]
Note: See TracChangeset for help on using the changeset viewer.