[openfirmware] [commit] r1724 - dev/hdaudio
repository service
svn at openfirmware.info
Sat Jan 30 04:29:00 CET 2010
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
More information about the openfirmware
mailing list