#N canvas 0 0 276 428 10;
#N canvas 195 401 288 210 graph2 0;
#X obj 23 53 tgl 15 0 pdon r_pdon On/Off 20 8 0 10 -262144 -1 -1 1
1;
#X obj 213 48 vsl 15 101 0 100 0 0 vol r_vol Volume -13 -8 0 10 -262144
-1 -1 0 1;
#X obj 213 152 bng 15 250 50 0 mute empty Mute -6 23 0 10 -262144 -1
-1;
#N canvas 542 192 297 328 guts 0;
#X obj 24 284 s r_vol;
#X obj 67 236 r vol;
#X obj 110 217 r mute;
#N canvas 126 317 280 193 two_periodic_signals 0;
#X obj 21 30 inlet;
#X obj 21 65 osc~;
#X obj 74 89 phasor~;
#X obj 74 66 sig~;
#X obj 128 66 osc~;
#X obj 128 89 *~ 1000;
#X obj 128 113 clip~ -1 1;
#X text 21 9 freq1;
#N canvas 210 347 526 245 signal_router 0;
#X obj 21 18 inlet~;
#X obj 72 18 inlet~;
#X obj 122 18 inlet~;
#X obj 21 211 outlet~;
#X obj 21 186 *~;
#X obj 72 186 *~;
#X obj 122 186 *~;
#X obj 37 158 line~;
#X msg 37 133 \$1 20;
#X obj 88 158 line~;
#X msg 88 133 \$1 20;
#X obj 138 158 line~;
#X msg 138 133 \$1 20;
#X obj 182 18 r loud-sin;
#X obj 269 18 r loud-saw;
#X obj 358 18 r loud-square;
#X obj 182 151 s loud-r_sin;
#X obj 270 151 s loud-r_saw;
#X obj 359 151 s loud-r_square;
#X obj 182 62 sel 1;
#X obj 269 61 sel 1;
#X obj 358 60 sel 1;
#X obj 182 87 0;
#X obj 269 88 0;
#X obj 358 87 0;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 4 1;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 10 0 9 0;
#X connect 11 0 6 1;
#X connect 12 0 11 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 14 0 10 0;
#X connect 14 0 20 0;
#X connect 15 0 12 0;
#X connect 15 0 21 0;
#X connect 19 0 22 0;
#X connect 20 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 10 0;
#X connect 22 0 12 0;
#X connect 22 0 17 0;
#X connect 22 0 18 0;
#X connect 23 0 8 0;
#X connect 23 0 12 0;
#X connect 23 0 16 0;
#X connect 23 0 18 0;
#X connect 24 0 8 0;
#X connect 24 0 10 0;
#X connect 24 0 17 0;
#X connect 24 0 16 0;
#X restore 21 138 pd signal_router;
#X obj 21 161 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 8 0;
#X connect 2 0 8 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 2;
#X connect 8 0 9 0;
#X restore 24 112 pd two_periodic_signals;
#X obj 159 138 r loud-2on;
#N canvas 55 252 450 300 initialize 0;
#X msg 17 39 dsp \$1;
#X obj 17 63 s pd;
#X obj 82 15 loadbang;
#X obj 82 39 1;
#X obj 82 63 s r_pdon;
#X obj 17 15 r pdon;
#X obj 82 111 s loud-r_sin;
#X obj 146 110 s loud-r_4on;
#X obj 146 38 0;
#X obj 82 133 s loud-sin;
#X obj 204 40 440;
#X obj 204 64 s loud-r_f1;
#X obj 14 195 r loud-f1;
#X obj 14 242 s loud-r_f1;
#X msg 14 219 set \$1;
#X obj 82 87 s loud-r_2on;
#X msg 64 219 set \$1;
#X obj 64 195 r loud-sin;
#X obj 64 242 s loud-r_sin;
#X msg 120 219 set \$1;
#X msg 170 219 set \$1;
#X obj 120 195 r loud-saw;
#X obj 120 242 s loud-r_saw;
#X obj 170 195 r loud-square;
#X obj 170 242 s loud-r_square;
#X obj 255 171 r loud-4on;
#X obj 255 195 sel 1;
#X obj 255 217 1;
#X obj 255 241 s loud-sin;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 4 0;
#X connect 3 0 0 0;
#X connect 3 0 6 0;
#X connect 3 0 9 0;
#X connect 3 0 15 0;
#X connect 5 0 0 0;
#X connect 8 0 7 0;
#X connect 10 0 11 0;
#X connect 12 0 14 0;
#X connect 14 0 13 0;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 19 0 22 0;
#X connect 20 0 24 0;
#X connect 21 0 19 0;
#X connect 23 0 20 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X restore 179 256 pd initialize;
#N canvas 93 306 403 151 windows 0;
#X obj 15 12 r loud-1on;
#X obj 15 35 sel 1;
#X obj 15 58 0;
#X obj 15 94 s loud-r_1on;
#X obj 104 35 sel 1;
#X obj 104 58 0;
#X obj 193 35 sel 1;
#X obj 193 58 0;
#X obj 283 35 sel 1;
#X obj 283 58 0;
#X obj 104 12 r loud-2on;
#X obj 193 12 r loud-3on;
#X obj 283 12 r loud-4on;
#X obj 104 94 s loud-r_2on;
#X obj 193 94 s loud-r_3on;
#X obj 283 94 s loud-r_4on;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 13 0;
#X connect 2 0 14 0;
#X connect 2 0 15 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 5 0 14 0;
#X connect 5 0 15 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 7 0 13 0;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 14 0;
#X connect 9 0 13 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 6 0;
#X connect 12 0 8 0;
#X restore 179 281 pd windows;
#X obj 24 86 r loud-f1;
#N canvas 33 278 280 253 fmcurve 0;
#X obj 23 15 inlet~;
#X obj 23 221 outlet~;
#X obj 188 96 r loud-amp4;
#X obj 89 16 r loud-4on;
#X obj 89 41 sel 0 1;
#X obj 89 66 0;
#X obj 89 88 1;
#X obj 112 66 0;
#X obj 112 88 1;
#X obj 23 188 *~;
#X msg 89 117 \$1 20;
#X obj 89 140 line~;
#X msg 135 117 \$1 20;
#X obj 135 140 line~;
#X obj 120 195 *~;
#X obj 120 168 *~;
#X obj 188 119 dbtorms;
#X msg 188 142 \$1 20;
#X obj 188 165 line~;
#X connect 0 0 9 0;
#X connect 0 0 15 0;
#X connect 2 0 16 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 4 1 7 0;
#X connect 4 1 8 0;
#X connect 5 0 12 0;
#X connect 6 0 10 0;
#X connect 7 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 9 1;
#X connect 12 0 13 0;
#X connect 13 0 15 1;
#X connect 14 0 1 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 14 1;
#X restore 24 209 pd fmcurve;
#N canvas 186 289 474 324 output 0;
#X obj 333 148 t b;
#X obj 333 98 f;
#X obj 333 48 inlet;
#X text 339 17 mute;
#X obj 333 173 f;
#X msg 421 168 0;
#X msg 333 73 bang;
#X obj 333 123 moses 1;
#X obj 392 98 moses 1;
#X obj 78 136 dbtorms;
#X obj 392 73 r master-lvl;
#X obj 78 30 r master-lvl;
#X obj 333 198 s master-lvl;
#X obj 15 143 inlet~;
#X obj 194 29 inlet;
#X text 194 6 level;
#X msg 91 53 set \$1;
#X obj 91 78 outlet;
#X msg 209 53 \; pd dsp 1;
#X obj 78 186 line~;
#X obj 15 195 *~;
#X obj 15 220 dac~;
#X obj 78 161 pack 0 50;
#X text 15 120 audio;
#X text 91 102 show level;
#X obj 421 143 t b;
#X obj 15 169 hip~ 1;
#X obj 194 93 s master-lvl;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 12 0;
#X connect 5 0 12 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 25 0;
#X connect 8 1 4 1;
#X connect 9 0 22 0;
#X connect 10 0 1 1;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X connect 11 0 16 0;
#X connect 13 0 26 0;
#X connect 14 0 18 0;
#X connect 14 0 27 0;
#X connect 16 0 17 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 20 0 21 1;
#X connect 22 0 19 0;
#X connect 25 0 5 0;
#X connect 26 0 20 0;
#X restore 24 259 pd output ---;
#N canvas 122 129 284 293 loudness_matching 0;
#X obj 23 26 inlet~;
#X obj 23 246 outlet~;
#X obj 80 26 inlet;
#X obj 23 224 *~;
#X text 80 6 bypass;
#X obj 80 103 sel 0 1;
#X obj 80 129 1;
#X obj 106 129 0;
#X obj 80 199 line~;
#X msg 80 177 \$1 20;
#X text 23 6 signal;
#X obj 149 187 *~;
#X obj 165 145 line~;
#X msg 165 123 \$1 20;
#X obj 149 212 *~;
#X obj 80 151 0;
#X obj 106 151 1;
#X obj 187 191 line~;
#X msg 187 169 \$1 20;
#N canvas 232 264 310 207 amplitudes 0;
#X obj 28 119 f;
#X obj 28 48 / 100;
#X obj 28 18 r loud-amp1;
#X obj 28 143 spigot;
#X obj 65 120 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 35 72 r loud-sin;
#X obj 35 97 t b f;
#X obj 110 119 f;
#X obj 110 48 / 100;
#X obj 110 142 spigot;
#X obj 147 119 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 117 96 t b f;
#X obj 110 18 r loud-amp2;
#X obj 117 71 r loud-saw;
#X obj 193 118 f;
#X obj 193 48 / 100;
#X obj 193 141 spigot;
#X obj 230 118 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 200 95 t b f;
#X obj 193 18 r loud-amp3;
#X obj 200 70 r loud-square;
#X obj 28 174 outlet;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 21 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 1 4 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 21 0;
#X connect 10 0 9 1;
#X connect 11 0 7 0;
#X connect 11 1 10 0;
#X connect 12 0 8 0;
#X connect 13 0 11 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 21 0;
#X connect 17 0 16 1;
#X connect 18 0 14 0;
#X connect 18 1 17 0;
#X connect 19 0 15 0;
#X connect 20 0 18 0;
#X restore 165 98 pd amplitudes;
#X floatatom 219 129 5 0 0 0 - - -;
#X connect 0 0 3 0;
#X connect 0 0 11 0;
#X connect 2 0 5 0;
#X connect 3 0 1 0;
#X connect 5 0 6 0;
#X connect 5 0 15 0;
#X connect 5 1 7 0;
#X connect 5 1 16 0;
#X connect 6 0 9 0;
#X connect 7 0 9 0;
#X connect 8 0 3 1;
#X connect 9 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 11 1;
#X connect 13 0 12 0;
#X connect 14 0 1 0;
#X connect 15 0 18 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 18 0 17 0;
#X connect 19 0 13 0;
#X connect 19 0 20 0;
#X restore 24 162 pd loudness_matching;
#X connect 1 0 9 1;
#X connect 2 0 9 2;
#X connect 3 0 10 0;
#X connect 4 0 10 1;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 8 0;
#X restore 20 13 pd guts;
#X obj 24 112 tgl 15 0 loud-sin loud-r_sin Sinusoid 20 8 0 10 -262144
-1 -1 1 1;
#X obj 24 133 tgl 15 0 loud-saw loud-r_saw Sawtooth 20 8 0 10 -262144
-1 -1 0 1;
#X obj 24 154 tgl 15 0 loud-square loud-r_square Square 20 8 0 10 -262144
-1 -1 0 1;
#X coords 0 1 100 -1 170 200 1;
#X restore 8 14 graph;
#X text 22 97 Signal Type:;
#X text 35 23 Global Controls:;
#X text 8 220 To access the patch for;
#X text 8 242 a question \, click the;
#X text 8 264 appropriate box below.;
#N canvas 191 0 427 428 question1 0;
#N canvas 457 237 292 197 graph4 0;
#X floatatom 210 56 5 0 100 0 - - -;
#X floatatom 210 99 5 0 100 0 - - -;
#X obj 0 1 tgl 15 0 loud-2on loud-r_2on On/Off 20 8 0 10 -262144 -1
-1 1 1;
#X obj 210 75 s loud-amp1;
#X obj 210 118 s loud-amp2;
#X floatatom 41 94 5 0 20000 0 - - -;
#X obj 41 113 s loud-f1;
#X obj 41 75 r loud-r_f1;
#X floatatom 210 141 5 0 100 0 - - -;
#X obj 210 160 s loud-amp3;
#X obj 185 58 tgl 15 0 loud-sin loud-r_sin Sinusoid -60 8 0 10 -262144
-1 -1 1 1;
#X obj 185 102 tgl 15 0 loud-saw loud-r_saw Sawtooth -60 8 0 10 -262144
-1 -1 0 1;
#X obj 185 143 tgl 15 0 loud-square loud-r_square Square -45 8 0 10
-262144 -1 -1 0 1;
#X obj 168 23 100;
#X obj 91 27 loadbang;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 13 0 0 0;
#X connect 13 0 1 0;
#X connect 13 0 8 0;
#X connect 14 0 13 0;
#X coords 0 1 100 -1 300 100 1;
#X restore 62 60 graph;
#X text 103 87 Freq 1;
#X text 7 173 Directions:;
#X text 7 215 2) Bring up the volume in the Global Controls window
until it reaches a comfortable level.;
#X text 7 317 5) Toggle between the two signals from step 4 \, changing
the amplitude of the second each time until they sound like they are
the same loudness.;
#X text 7 364 6) Repeat steps 4 and 5 with the third signal type.;
#X text 7 385 7) Record the relative amplitudes necessary for the three
signal types to sound equally loud.;
#X text 9 6 1) What is the relative amplitude necessary for sinusoid
\, sawtooth \, and square waves in order for their loudnesses to be
perceived as the same?;
#X text 276 68 Amplitude;
#X text 7 194 1) Set all three amplitudes to 100 units.;
#X text 7 249 3) One at a time \, listen to the three signal types
at amplitude 100 and decide which sounds the softest.;
#X text 7 283 4) Leaving the softest signal type at 100 \, choose one
of the other signal types and decrement its amplitude.;
#X restore 29 322 pd question1;
#N canvas 190 0 427 469 question2 0;
#N canvas 409 279 288 132 graph6 0;
#X floatatom 22 92 7 1 135 0 - - -;
#X floatatom 161 91 7 0 20000 0 - - -;
#X obj 0 1 tgl 15 0 loud-4on loud-r_4on On/Off 20 8 0 10 -262144 -1
-1 0 1;
#X floatatom 167 29 5 0 200 0 - - -;
#X msg 22 69 set \$1;
#X obj 167 47 s loud-amp4;
#X obj 114 64 mtof;
#X obj 107 49 ftom;
#X obj 114 90 s loud-f1;
#X obj 161 69 r loud-r_f1;
#X obj 74 54 r loud-f1;
#X obj 137 29 bng 15 250 50 0 empty empty empty -35 8 0 10 -262144
-1 -1;
#X obj 94 23 0;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 1 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 6 0 1 0;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X connect 9 0 1 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 3 0;
#X coords 0 1 100 -1 170 100 1;
#X restore 113 70 graph;
#X text 213 72 Amp (dB);
#X text 132 120 Pitch;
#X text 207 120 Frequency;
#X text 11 190 1) Make sure this part of the patch is turned on. There
should be an X in the On/Off box in the top-left corner.;
#X text 11 171 Directions:;
#X text 11 305 5) Bring up the amplitude very slowly (click in the
amplitude box and hold down the shift key while dragging). Stop when
you begin to hear the selected pitch.;
#X text 14 435 8) Graph your results.;
#X text 11 254 3) Set the amplitude (in this window) to zero. The button
to the left of the amplitude box will zero its value.;
#X text 11 222 2) Set your global volume to a constant level and your
signal type to sinusoid.;
#X text 11 286 4) Set the pitch to 15 (for a frequency of about 20
Hz).;
#X text 11 403 7) Repeat steps 3-6 with evenly spaced pitches between
15 (about 20Hz) and 135 (about 20kHz).;
#X text 6 5 2) Graph your sensitivity curve (AKA Fletcher Munson curve).
For evenly spaced pitches from MIDI 15 (about 20Hz) to MIDI 135 (about
20 kHz) \, find the lowest amplitude (in dB) at which you can hear
the pitch;
#X text 148 90 zero->;
#X text 11 347 6) Record the pitch/frequency and amplitude. If you
were never able to hear the pitch (or if your sound system started
distorting first) \, the answer is undefined at that frequency.;
#X restore 29 347 pd question2;
#N canvas 190 0 427 427 about 0;
#X text 7 5 Loudness Lab;
#X text 7 33 Loudness is a subjective measure. Unlike amplitude \,
it is affected by partials present in a signal and the frequency of
that signal. The first question examines the effect of partials on
loudness \; the second question examines the effect of frequency on
loudness.;
#X restore 29 297 pd about;
#N canvas 200 0 418 428 help 0;
#X obj 11 89 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 6 24 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1
;
#X floatatom 11 170 5 0 0 0 - - -;
#X obj 11 373 vsl 15 40 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X text 6 2 Interface Help;
#X text 30 23 Bang;
#X text 31 89 Toggle;
#X text 52 169 Number Box;
#X text 35 371 Slider;
#X text 11 41 A bang is a button that has no state (see toggle) and
is used to trigger something. Clicking on one should do whatever the
label next to it says.;
#X text 11 109 A toggle is a button that has state (it either has an
X in it or it does not). Toggles are often used as on/off switches
\, with an X indicating that something has been turned on.;
#X text 11 193 A number box lets you set values. You can enter things
into a number box in two ways. The easiest way to enter a specific
number is to click in the box \, type the desired number \, then press
return. If would like to scroll through settings \, you can click in
the box and move the mouse up or down while holding down the (left)
button. This will scroll through by ones. To scroll through by hundredths
\, hold down the shift key while scrolling. If a box won't let you
scroll below or above a particular number \, it has been set not to
let you slide past that number for some reason. Wile you can probably
type the number in and have it work \, it might be a bad idea \, since
the boundary was put there for a reason.;
#X text 34 404 the slider bar up or down to change its value.;
#X text 34 390 Sliders work a lot like number boxes. Click and drag
;
#X restore 29 371 pd help;