Changeset 3460

Timestamp:

Nov 24, 2012 4:50:25 AM (7 months 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:

• cpu/x86/pc/olpc/gui.fth (modified) (1 diff)

cpu/x86/pc/olpc/gui.fth

@@ -408 +408 @@
    dot-adr 0=  if  2drop exit  then                     ( offset size )
    #dots swap */                                        ( dot# )
-   dup last-dot# <>  if                                 ( dot# )
-      dup to last-dot#                                  ( dot# )
-      dot-adr swap                                      ( adr dot# )
-      dot-spacing *  bar-x + bar-y                      ( adr x y )
-      image-width image-height                          ( adr x y w h )
-      " draw-transparent-rectangle" $call-screen        ( )
-   else
-      drop
-   then
+   dup  last-dot#  ?do                                  ( dot# )
+      dot-adr i 1+ dot-spacing *  bar-x + bar-y         ( dot# adr x y )
+      image-width image-height                          ( dot# adr x y w h )
+      " draw-transparent-rectangle" $call-screen        ( dot# )
+   loop                                                 ( dot# )
+   to last-dot#
 ;