Tone Generators: Siren

Using Nyquist scripts in Audacity.
Post and download new plug-ins.
Forum rules
If you require help using Audacity, please post on the forum board relevant to your operating system:
Windows
Mac OS X
GNU/Linux and Unix-like
Post Reply
Annabelle3985
Posts: 122
Joined: Sat Oct 24, 2015 1:17 am
Operating System: Windows 7

Tone Generators: Siren

Post by Annabelle3985 » Sat Oct 24, 2015 5:02 am

I know this might sound strange but, I wonder if there's a way for me to make a noise generator that generates the common siren tones, wail, yelp, phaser/piercer (hyperyelp), Horn, and hi-lo? If there is, what would be the code for me to make these? Also, being blind, how would I make this into a plugin? The horn example I'm thinking of can be found on this video: https://www.youtube.com/watch?v=Ul127xTb5K0
Attachments
Track 68.mp3
(909.8 KiB) Downloaded 261 times
Track 69.mp3
(962.45 KiB) Downloaded 159 times
Track 70.mp3
(761.63 KiB) Downloaded 157 times
Top
steve
Site Admin
Posts: 81653
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: Tone Generators: Siren

Post by steve » Sat Oct 24, 2015 12:47 pm

I think this is a reasonably good approximation of the "Track 68" siren without making it overly complicated (below).
Perhaps you would like to have a go at the others yourself. Give a shout if you get stuck.

Code: Select all

;type generate

(setf duration 10.0) ; duration in seconds

;Make a skewed triangle waveform
(defun mod-table ()
  (let* ((mod-table (pwlv -1 0.55 1 1 -1)))
    (list mod-table (hz-to-step 1.0) t)))

(setf *table*
  (sum (mult 0.5 (build-harmonic 1.0 2048))
       (mult 0.05 (build-harmonic 2.0 2048))
       (mult 0.05 (build-harmonic 3.0 2048))
       (mult 0.03 (build-harmonic 4.0 2048))
       (mult 0.02 (build-harmonic 5.0 2048))
       (mult 0.01 (build-harmonic 6.0 2048))))
(setf *table* (list *table* (hz-to-step 1.0) t))

(setf siren
  (let ((mod (hp (osc (hz-to-step 0.22) duration (mod-table)) 0.3))
        (env (sum 1.4 (hp (osc (hz-to-step 0.22) duration (mod-table))0.3))))
    (setf mod (sum 480 (mult 530 (sum 1 mod))))
    (mult 0.5 env (fmosc 0 mod *table*))))

(mult 0.3 (jcrev siren 2.0 0.3)) ; add a bit of reverb
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)
Top
Annabelle3985
Posts: 122
Joined: Sat Oct 24, 2015 1:17 am
Operating System: Windows 7

Re: Tone Generators: Siren

Post by Annabelle3985 » Sat Oct 24, 2015 1:28 pm

And you can make this with any waveform? I remember trying something similar with a square wave, but for some reason, I heard this wavy wiggly sound when it would rise and fall. I could be wrong, but I think that's aliasing. Is that some kind of change in sound quality?
Top
steve
Site Admin
Posts: 81653
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: Tone Generators: Siren

Post by steve » Sat Oct 24, 2015 1:35 pm

In the code (my last post), you will see that I have used "build-harmonic" (http://www.cs.cmu.edu/~rbd/doc/nyquist/ ... l#index344) to create a wave-table with 6 harmonics. I did this to ensure that the frequency content of the waveform would not exceed the "Nyquist frequency" (digital audio cannot produce frequencies above half the sample rate, which is known as the "Nyquist frequency"). Using a simple triangle, saw or square wave for the tone will, as you say, cause "aliasing distortion", which can be very noticeable with a sweeping tone. By generating the waveform with a restricted number of harmonics (in this case, 6), aliasing distortion can be avoided.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)
Top
Annabelle3985
Posts: 122
Joined: Sat Oct 24, 2015 1:17 am
Operating System: Windows 7

Re: Tone Generators: Siren

Post by Annabelle3985 » Sat Oct 24, 2015 1:46 pm

I tried putting that code in Nyquist Prompt, and I got the following error:

Code: Select all

error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
1> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
2> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
3> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
4> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
5> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
6> error: unbound variable - MOD-TABLE
if continued: try evaluating symbol again
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
7> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
8> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
9> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
10> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
11> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
12> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
13> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
14> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
15> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
16> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
17> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
18> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
19> #<Sound: #44f0568>
19> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
20> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
21> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
22> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
23> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
24> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
25> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
26> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
27> #<Sound: #44f0670>
27> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
28> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
29> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
30> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
31> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
32> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
33> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
34> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
35> #<Sound: #44f0768>
35> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
36> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
37> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
38> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
39> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
40> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
41> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
42> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
43> #<Sound: #44f0860>
43> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
44> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
45> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
46> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
47> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
48> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
49> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
50> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
51> #<Sound: #44f09f0>
51> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
52> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
53> ((#<Sound: #44f0078> -36.3763 T) -36.3763 T)
53> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
54> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
55> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
56> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
57> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
58> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
59> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
60> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
61> error: illegal character - -62
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
62> error: illegal character - -96
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
63> error: unbound function - MOD-TABLE
if continued: try evaluating symbol again
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
64> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
65> error: illegal character - -62
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
66> error: illegal character - -96
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
67> error: illegal character - -62
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
68> error: illegal character - -96
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
69> error: unbound variable - MOD
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
70> error: illegal character - -62
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
71> error: illegal character - -96
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
72> error: illegal character - -62
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
73> error: illegal character - -96
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
74> error: unbound variable - ENV
if continued: try evaluating symbol again
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
75> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
76> error: misplaced right paren
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
77> error: unbound variable - SIREN
if continued: try evaluating symbol again
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<FSubr-SETF: #a7dbf20>
Arguments:
  MOD
  (SUM 480 (MULT 530 (SUM 1 MOD)))
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e1690>
Arguments:
  #<File-Stream: #36b2100>
  #\)
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2100>
  #\(
Function: #<Subr-(null): #a7e16b0>
Arguments:
  #<File-Stream: #36b2180>
  #\(
78> 77> 76> 75> 74> 73> 72> 71> 70> 69> 68> 67> 66> 65> 64> 63> 62> 61> 60> 59> 58> 57> 56> 55> 54> 53> 52> 51> 50> 49> 48> 47> 46> 45> 44> 43> 42> 41> 40> 39> 38> 37> 36> 35> 34> 33> 32> 31> 30> 29> 28> 27> 26> 25> 24> 23> 22> 21> 20> 19> 18> 17> 16> 15> 14> 13> 12> 11> 10> 9> 8> 7> 6> 5> 4> 3> 2> 1>
Last edited by steve on Sat Oct 24, 2015 3:12 pm, edited 1 time in total.
Reason: code tags added for readability
Top
steve
Site Admin
Posts: 81653
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: Tone Generators: Siren

Post by steve » Sat Oct 24, 2015 3:24 pm

Check that you have copied the code correctly. If you still get the problem, please post exactly the code that you are using in the Nyquist Prompt.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)
Top
Annabelle3985
Posts: 122
Joined: Sat Oct 24, 2015 1:17 am
Operating System: Windows 7

Re: Tone Generators: Siren

Post by Annabelle3985 » Sat Oct 24, 2015 3:42 pm

The code I copied into the Nyquist Prompt is exactly the code you posted on the forum, at least as far as I know. Here's what I copied.

;type generate

(setf duration 10.0) ; duration in seconds

;Make a skewed triangle waveform
(defun mod-table ()
  (let* ((mod-table (pwlv -1 0.55 1 1 -1)))
    (list mod-table (hz-to-step 1.0) t)))

(setf *table*
  (sum (mult 0.5 (build-harmonic 1.0 2048))
       (mult 0.05 (build-harmonic 2.0 2048))
       (mult 0.05 (build-harmonic 3.0 2048))
       (mult 0.03 (build-harmonic 4.0 2048))
       (mult 0.02 (build-harmonic 5.0 2048))
       (mult 0.01 (build-harmonic 6.0 2048))))
(setf *table* (list *table* (hz-to-step 1.0) t))

(setf siren
  (let ((mod (hp (osc (hz-to-step 0.22) duration (mod-table)) 0.3))
        (env (sum 1.4 (hp (osc (hz-to-step 0.22) duration (mod-table))0.3))))
    (setf mod (sum 480 (mult 530 (sum 1 mod))))
    (mult 0.5 env (fmosc 0 mod *table*))))

(mult 0.3 (jcrev siren 2.0 0.3)) ; add a bit of reverb
Top
steve
Site Admin
Posts: 81653
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: Tone Generators: Siren

Post by steve » Sat Oct 24, 2015 4:37 pm

That looks OK.
Which version of Audacity are you using?
Are you applying the code to an empty mono track?
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)
Top
Annabelle3985
Posts: 122
Joined: Sat Oct 24, 2015 1:17 am
Operating System: Windows 7

Re: Tone Generators: Siren

Post by Annabelle3985 » Sat Oct 24, 2015 4:42 pm

1. I use Audacity 2.1.0
2. I'm applying the code to a track with audio, since the Nyquist Prompt won't let me apply to an empty track.
3. The track is a stereo track.
Top
steve
Site Admin
Posts: 81653
Joined: Sat Dec 01, 2007 11:43 am
Operating System: Linux *buntu

Re: Tone Generators: Siren

Post by steve » Sun Oct 25, 2015 1:05 am

1) The duration will not be correct in Audacity 2.1.0 because that version does not support the ";type generate" instruction. You need Audacity 2.1.1 for it to work correctly.
Regardless of that, I am not able to reproduce that error using Audacity 2.1.0, so I don't know what the problem is.

2) To use the Nyquist Prompt effect, you do not need to select "audio", but you do need a "selection" in an audio track. You can create a selection in an empty track by creating a new track (Tracks menu), then move focus to the Selection Toolbar, then tab across to the second time box and enter an "end" or "length" time.

3) I intended the code to run on a mono track, but it does also work on stereo tracks.

As you are interested in working with Nyquist code I'd recommend keeping up to date with current Audacity versions (currently 2.1.1) because there have been some useful updates recently, and are likely to be additional useful features coming soon.
9/10 questions are answered in the FREQUENTLY ASKED QUESTIONS (FAQ)
Top
Post Reply

Return to “Nyquist”