Changeset 3192


Ignore:
Timestamp:
Aug 17, 2012, 7:22:45 PM (20 months 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.