Changeset 3460


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

OLPC XO-1 XO-1.5 XO-1.75 - fix missing SPI FLASH progress bar dots, using a design from Mitch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/gui.fth

    r3449 r3460  
    408408   dot-adr 0=  if  2drop exit  then                     ( offset size )
    409409   #dots swap */                                        ( dot# )
    410    dup last-dot# <>  if                                 ( dot# )
    411       dup to last-dot#                                  ( dot# )
    412       dot-adr swap                                      ( adr dot# )
    413       dot-spacing *  bar-x + bar-y                      ( adr x y )
    414       image-width image-height                          ( adr x y w h )
    415       " draw-transparent-rectangle" $call-screen        ( )
    416    else
    417       drop
    418    then
     410   dup  last-dot#  ?do                                  ( dot# )
     411      dot-adr i 1+ dot-spacing *  bar-x + bar-y         ( dot# adr x y )
     412      image-width image-height                          ( dot# adr x y w h )
     413      " draw-transparent-rectangle" $call-screen        ( dot# )
     414   loop                                                 ( dot# )
     415   to last-dot#
    419416;
    420417
Note: See TracChangeset for help on using the changeset viewer.