Changeset 3192

Timestamp:

Aug 17, 2012 7:22:45 PM (9 months ago)

Author:

wmb

Message:

OLPC camera test - removed an unnecessary call to full-brightness.

File:

• dev/olpc/cameratest.fth (modified) (2 diffs)

dev/olpc/cameratest.fth

@@ -14 +14 @@
    read-agc 3 + 3 rshift  h# f min  " bright!" " $call-screen" evaluate
 ;
+: full-brightness  ( -- )  h# f " bright!" " $call-screen" evaluate  ;
 [then]
-
-: full-brightness  ( -- )  h# f " bright!" " $call-screen" evaluate  ;
 
 : timeout-read  ( adr len timeout -- actual )
@@ -48 +47 @@
    shoot-still  ?dup  if  stop-display close exit  then ( error? )
    d# 1,000 ms
-   true set-mirrored  resync  shoot-movie  full-brightness      ( error? )
+   true set-mirrored  resync  shoot-movie  ( full-brightness )  ( error? )
    stop-display close                                   ( error? )
    ?dup  0=  if  confirm-selftest?  then                ( error? )