[commit] r1724 - dev/hdaudio

[repository service]

Author: wmb
Date: Sat Jan 30 04:29:00 2010
New Revision: 1724
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1724

Log:
OLPC XO-1.5 factory support - lengthened audio test in case mode for better noise immunity in final test, and shortened the initial preparation pass so the total test time doesn't get too long.

Modified:
   dev/hdaudio/noiseburst.fth
   dev/hdaudio/test.fth

Modified: dev/hdaudio/noiseburst.fth
==============================================================================
--- dev/hdaudio/noiseburst.fth	Sat Jan 30 04:23:25 2010	(r1723)
+++ dev/hdaudio/noiseburst.fth	Sat Jan 30 04:29:00 2010	(r1724)
@@ -359,13 +359,13 @@
    left-range  d# 200 d# 140 sm-covar-abs-sum  nip ( sum1.high )
    left-range  d# 540 d# 400 sm-covar-abs-sum  nip ( sum1.high sum2.high )
    >ratio
-   d# 30 <
+   d# 25 <
 ;
 : case-ratio-right  ( -- error? )
    right-range  d# 330 d# 140 sm-covar-abs-sum  nip ( sum1.high )
    right-range  d# 590 d# 400 sm-covar-abs-sum  nip ( sum1.high sum2.high )
    >ratio
-   d# 15 <
+   d# 14 <
 ;

\ This compares the total energy within the impulse response band to the
@@ -439,8 +439,7 @@
    ['] -mono-wmean to fix-dc
 ;
 : setup-case  ( -- )
-\   xxx - this needs to use the internal speakers and mic even though the loopback cable is attached
-   h# 40000 to /pb          \ Long burst for better S/N on far away speaker
+   h# 80000 to /pb         \ Long burst for better S/N on far away speaker
    /pb 2/ h# 1000 + to /rb  \ Mono reception (internal mic)
    ['] case-ratio-left  to analyze-left
    ['] case-ratio-right to analyze-right

Modified: dev/hdaudio/test.fth
==============================================================================
--- dev/hdaudio/test.fth	Sat Jan 30 04:23:25 2010	(r1723)
+++ dev/hdaudio/test.fth	Sat Jan 30 04:29:00 2010	(r1724)
@@ -90,8 +90,8 @@
 : test-common  ( setup$ -- error? )
    $call-analyzer                    ( )
    " prepare-signal" $call-analyzer  ( pb /pb rb /rb )
-   \ First time lets the input channel settle
-   2over 2over out-in                ( pb /pb rb /rb )
+   \ First shorter run lets the input channel settle
+   2over 4 /  2over 4 /  out-in      ( pb /pb rb /rb )
    out-in                            ( )
    " analyze-signal" $call-analyzer  ( okay? )
 ;
@@ -116,7 +116,6 @@
    output-common-settings  d# -23 set-volume  \ -23 prevents obvious visible clipping
    " setup-fixture" test-common
    false to force-speakers?  false to force-internal-mic?
-
 ;
 : test-with-loopback  ( -- error? )
    input-common-settings  stereo