Changeset 3482

Timestamp:

Dec 7, 2012 11:20:57 PM (6 months ago)

Author:

quozl

Message:

OLPC XO-1.75 XO-4 - accelerometer informal tests fail second time when the formal test is used between them, fixed by closing accelerometer device after informal tests. #12365.

File:

• cpu/arm/olpc/roller.fth (modified) (6 diffs)

cpu/arm/olpc/roller.fth

@@ -57 +57 @@
    " acceleration@" accel-ih $call-method  xyz>fraction
 ;
-: init-accelerometer  ( -- )
+: open-accelerometer  ( -- )
    accel-ih  if  exit  then
    " /accelerometer" open-dev to accel-ih
@@ -70 +70 @@
    1 4 a/b>fraction xyz*  to acc-0
 [then]
+;
+: close-accelerometer  ( -- )
+   accel-ih close-dev  0 to accel-ih
 ;
 
@@ -247 +250 @@
 ;
 : roller  ( -- )
-   init-accelerometer
+   open-accelerometer
    init-ball
    text-off
@@ -253 +256 @@
    begin  ( update-laptop ) update-ball  d# 50 ms  key? until
    text-on
+   close-accelerometer
 ;
 
@@ -327 +331 @@
 ;
 : clinometer  ( -- )
-   init-accelerometer
+   open-accelerometer
    init-ball
    cursor-off
@@ -337 +341 @@
    key? until
    cursor-on
+   close-accelerometer
 ;
 : level  ( -- )