[commit] r3192 - dev/olpc

[repository service]

Author: wmb
Date: Fri Aug 17 19:22:45 2012
New Revision: 3192
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3192

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

Modified:
   dev/olpc/cameratest.fth

Modified: dev/olpc/cameratest.fth
==============================================================================
--- dev/olpc/cameratest.fth	Fri Aug 17 19:20:39 2012	(r3191)
+++ dev/olpc/cameratest.fth	Fri Aug 17 19:22:45 2012	(r3192)
@@ -13,9 +13,8 @@
 : autobright  ( -- )
    read-agc 3 + 3 rshift  h# f min  " bright!" " $call-screen" evaluate
 ;
-[then]
-
 : full-brightness  ( -- )  h# f " bright!" " $call-screen" evaluate  ;
+[then]

: timeout-read  ( adr len timeout -- actual )
    >r 0 -rot r>  0  ?do			( actual adr len )
@@ -47,7 +46,7 @@
    false set-mirrored  resync                           ( )
    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? )
 ;