#!/bin/csh
#
# Examples for osc -- Equal loundness frequency sweeping at various soundlevels.
#
# parameters are: (1) frequency envelope  (in Hertz)
#                 (2) amplitude envelope 
#                 (3) output soundfile
# Program input   (a) time of sound in seconds 
#

if ($1 == "") then
   set SOUNDDIR = ../
else
   set SOUNDDIR = $1
endif

if ($2 == "") then
   set BINDIR = ../../bin
else
   set BINDIR = $2
endif


# Equal amplitude frequency sweep:

echo Creating $SOUNDDIR/equalAmpLoud.wav

rm -f $SOUNDDIR/equalAmpLoud.wav
$BINDIR/osc \
"g(0 20; 0.58 30; 1 40; 1.32 50; 1.58 60; 1.81 70; 2 80; 2.12 87; \
2.32 100; 3.32 200; 3.91 300; 4.32 400; 4.64 500; 4.91 600; 5.13 \
700; 5.32 800; 5.49 900; 6.64 2000; 6.97 2500; 7.22 3000; 7.45 \
3500; 7.64 4000; 7.68 4100; 7.71 4200; 7.75 4300; 7.78 4400; 7.81 \
4500; 7.97 5000; 8.04 5250; 8.10 5500; 8.12 5570; 8.23 6000; 8.29 \
6250; 8.34 6500; 8.45 7000; 8.5 7250; 8.55 7500; 8.6 7750; 8.64 \
8000; 8.68 8200; 8.71 8400; 8.73 8500; 8.75 8600; 8.76 8700; 8.77 \
8750; 8.81 9000; 8.85 9200; 8.88 9400; 8.91 9600; 8.94 9800; 8.97 \
10000)" \
"c(0 0.03; 1 0.03)" \
$SOUNDDIR/equalAmpLoud.wav >/dev/null <<EOT
2
EOT

# This is a loud equal-loudness contour for Craig, measured Jan 1995.

echo Creating $SOUNDDIR/craigEqualLoud.wav

rm -f $SOUNDDIR/craigEqualLoud.wav
$BINDIR/osc \
-f "g(0 20; 0.58 30; 1 40; 1.32 50; 1.58 60; 1.81 70; 2 80; 2.12 87; \
2.32 100; 3.32 200; 3.91 300; 4.32 400; 4.64 500; 4.91 600; 5.13 \
700; 5.32 800; 5.49 900; 6.64 2000; 6.97 2500; 7.22 3000; 7.45 \
3500; 7.64 4000; 7.68 4100; 7.71 4200; 7.75 4300; 7.78 4400; 7.81 \
4500; 7.97 5000; 8.04 5250; 8.10 5500; 8.12 5570; 8.23 6000; 8.29 \
6250; 8.34 6500; 8.45 7000; 8.5 7250; 8.55 7500; 8.6 7750; 8.64 \
8000; 8.68 8200; 8.71 8400; 8.73 8500; 8.75 8600; 8.76 8700; 8.77 \
8750; 8.81 9000; 8.85 9200; 8.88 9400; 8.91 9600; 8.94 9800; 8.97 \
10000)" \
-a "g(0 1; 0.58 1; 1 0.316228; 1.32 0.281838; 1.58 0.223872; 1.81 \
0.141254; 2 0.112202; 2.12 0.1; 2.32 0.0794328; 3.32 0.0354813; \
3.91 0.0446684; 4.32 0.0398107; 4.64 0.0316228; 4.91 0.0251189; \
5.13 0.0316228; 5.32 0.0316228; 5.49 0.0316228; 6.64 0.0199526; \
6.97 0.0158489; 7.23 0.0177828; 7.45 0.0177828; 7.64 0.0199526; \
7.68 0.0251189; 7.71 0.0281838; 7.75 0.0316228; 7.78 0.0316228; \
7.81 0.0354813; 7.97 0.0251189; 8.04 0.0199526; 8.10 0.0141254; \
8.12 0.0158489; 8.23 0.0177828; 8.29 0.0199526; 8.34 0.0199526; \
8.45 0.0141254; 8.5 0.0177828; 8.55 0.0158489; 8.6 0.0112202; 8.64 \
0.00891251; 8.68 0.0125893; 8.71 0.0158489; 8.73 0.0125893; 8.75 \
0.0158489; 8.76 0.0177828; 8.77 0.0141254; 8.81 0.0281838; 8.85 \
0.0354813; 8.88 0.0501187; 8.91 0.0707946; 8.93 0.0630957; 8.97 \
0.0562341)" \
$SOUNDDIR/craigEqualLoud.wav >/dev/null <<EOT
2
EOT


# This is a medium-loud equal-loudness contour for Craig, measured Jan 1995.

echo Creating $SOUNDDIR/craigEqualMid.wav

rm -f $SOUNDDIR/craigEqualMid.wav
$BINDIR/osc \
-f "g( 0 20; 0.585 30; 1. 40; 1.32 50; 1.58 60; 1.81 70; 2. 80; 2.12 \
87; 2.32 100;3.32 200;  3.91 300; 4.32 400; 4.64 500; 4.91 600; \
5.13 700; 5.32 800; 5.49 900;6.64 2000;  6.97 2500; 7.23 3000; 7.45 \
3500; 7.64 4000; 7.68 4100; 7.71 4200; 7.75 4300; 7.78 4400; 7.81 \
4500; 7.97 5000; 8.04 5250; 8.1 5500; 8.12 5570; 8.23 6000;8.29 \
6250; 8.34 6500; 8.45 7000; 8.5 7250; 8.55 7500; 8.6 7750; 8.64 \
8000; 8.68 8200;8.71 8400; 8.73 8500; 8.75 8600; 8.76 8700; 8.77 \
8750; 8.81 9000; 8.85 9200;8.88 9400;  8.91 9600; 8.94 9800; 8.97 \
10000; 9.04 10500; 9.11 11025 )" \
-a "g(0 1; 0.585 1; 1. 0.316228; 1.32 0.281838; 1.58 0.223872; 1.81 \
0.141254;2.  0.112202; 2.12 0.1; 2.32 0.0794328; 3.32 0.0354813; \
3.91 0.0446684; 4.32 0.0398107; 4.64 0.0316228; 4.91 0.0251189; \
5.13 0.0316228; 5.32 0.0316228; 5.49 0.0316228; 6.64 0.0199526; \
6.97 0.0158489; 7.23 0.0177828; 7.45 0.0177828; 7.64 0.0199526; \
7.68 0.0251189; 7.71 0.0281838; 7.75 0.0316228; 7.78 0.0316228; \
7.81 0.0354813; 7.97 0.0251189; 8.04 0.0199526; 8.1 0.0141254; 8.12 \
0.0158489; 8.23 0.0177828; 8.29 0.0199526; 8.34 0.0199526; 8.45 \
0.0141254; 8.5 0.0177828; 8.55 0.0158489; 8.6 0.0112202; 8.64 \
0.00891251; 8.68 0.0125893; 8.71 0.0158489; 8.73 0.0125893; 8.75 \
0.0158489; 8.76 0.0177828; 8.77 0.0141254; 8.81 0.0281838; 8.85 \
0.0354813; 8.88 0.0501187; 8.91 0.0707946; 8.94 0.0630957; 8.97 \
0.0562341; 9.04 0.0794328; 9.11 0.112202 )" \
$SOUNDDIR/craigEqualMid.wav >/dev/null <<EOT
2
EOT



# This is a quiet equal-loudness contour for Craig, measured Jan 1995.
# Just above the threshold of hearing sound level.

echo Creating $SOUNDDIR/craigEqualLow.wav

rm -f $SOUNDDIR/craigEqualLow.wav
$BINDIR/osc \
-f "g(0 20; 0.585 30; 1. 40; 1.32 50; 1.58 60; 1.81 70; 2. 80; 2.17 90; 2.32 \
100;3.32 200; 3.91 300; 4.32 400; 4.64 500; 4.91 600; 5.13 700; \
5.32 800; 5.49 900; 6.64 2000; 6.97 2500; 7.23 3000; 7.45 3500; \
7.64 4000;7.81 4500; 7.97 5000; 8.1 5500; 8.23 6000;  8.34 6500; \
8.45 7000; 8.55 7500;8.64 8000; 8.73 8500; 8.81 9000; 8.89 9500; \
8.97 10000; 9.1 11000 )" \
-a "g(0 1; 0.585 1; 1. 0.398107; 1.32 0.223872; 1.58 0.141254; 1.81 0.0794328; \
2. 0.0446684;  2.17 0.0223872; 2.32 0.0158489; 3.32 0.01; 3.91 \
0.00354813;4.32 0.00177828;  4.64 0.00223872; 4.91 0.00251189; 5.13 \
0.00316228; 5.32 0.00158489; 5.49 0.00158489; 6.64 0.000749894; \
6.97 0.000562341; 7.23 0.000398107; 7.45 0.000354813; 7.64 0.000316228; \
7.81 0.00141254; 7.97 0.00177828; 8.1 0.00125893;  8.23 0.00316228; \
8.34 0.00354813; 8.45 0.00354813; 8.55 0.00223872; 8.64 0.00125893; \
8.73 0.00223872; 8.81 0.00158489; 8.89 0.00199526; 8.97 0.00149624; \
9.1 0.00158489 )" \
$SOUNDDIR/craigEqualLow.wav >/dev/null <<EOT
2
EOT