Changeset 3192


Ignore:
Timestamp:
Aug 17, 2012, 5:22:45 PM (3 years ago)
Author:
wmb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/olpc/cameratest.fth

    r2880 r3192  
    1414   read-agc 3 + 3 rshift  h# f min  " bright!" " $call-screen" evaluate
    1515;
     16: full-brightness  ( -- )  h# f " bright!" " $call-screen" evaluate  ;
    1617[then]
    17 
    18 : full-brightness  ( -- )  h# f " bright!" " $call-screen" evaluate  ;
    1918
    2019: timeout-read  ( adr len timeout -- actual )
     
    4847   shoot-still  ?dup  if  stop-display close exit  then ( error? )
    4948   d# 1,000 ms
    50    true set-mirrored  resync  shoot-movie  full-brightness      ( error? )
     49   true set-mirrored  resync  shoot-movie  ( full-brightness )  ( error? )
    5150   stop-display close                                   ( error? )
    5251   ?dup  0=  if  confirm-selftest?  then                ( error? )
Note: See TracChangeset for help on using the changeset viewer.