Tones:shiver(float dur = 1.0 (0.1:9.9),
                     int pitch = 72 (48:96),
		     int noise-percent = 50 (0:100),
		     float noise-freq = 100 (20:480))
SOURCE-BEGIN
(if (not (fboundp 'shiver)) (load "../demos/pmorales/a4"))
SOURCE-END


Tones:cheap(float frq-randi = 100 (0.0:1000.0),
                   int pitch = 69 (48:96),
		   float dur = 6.0 (0.1:9.9),
                   float rate = 3.0 (0.1:9.9),
		   float amount = 1000.0 (100.0:9900.0))
SOURCE-BEGIN
(if (not (fboundp 'cheap)) (load "../demos/pmorales/a6"))
SOURCE-END


Percussion:gong-1()
SOURCE-BEGIN
(if (not (fboundp 'gong-1)) (load "../demos/pmorales/b1"))
SOURCE-END


Percussion:gong-2()
SOURCE-BEGIN
(if (not (fboundp 'gong-2)) (load "../demos/pmorales/b1"))
SOURCE-END


Percussion:gong-3(int freq = 440 (200:800),
                          float dur = 5.0 (2.0:10.0))
SOURCE-BEGIN
(if (not (fboundp 'gong-3)) (load "../demos/pmorales/b1"))
SOURCE-END


Percussion:gong-3-melody()
SOURCE-BEGIN
(if (not (fboundp 'gong-3)) (load "../demos/pmorales/b1"))
SOURCE-END

Percussion:plight-drum-example()
SOURCE-BEGIN
(if (not (boundp ' *plight-drum-path*))
    (cond ((not (load "../demos/plight/drum.lsp"))
           (princ "COULD NOT FIND DRUM.LSP -- THE PLIGHT-DRUM PACKAGE IS
NOT PART OF THE BASIC NYQUIST DISTRIBUTION, BUT
YOU CAN DOWNLOAD IT")
           nil)))
SOURCE-END

Tones:st-sac(int pitch = 67 (48:96),
                     float dur = 4.0 (0.1:9.9),
		     float offset-entry = 1.25 (0.1:3.9),
                     int num-harmonics = 8 (1:16))
SOURCE-BEGIN
(if (not (fboundp 'st-sac)) (load "../demos/pmorales/b2"))
SOURCE-END


Tones:st-sac-sequence()
SOURCE-BEGIN
(if (not (fboundp 'st-sac)) (load "../demos/pmorales/b2"))
SOURCE-END


Percussion:risset-bell(float amp = 1.0 (0.0:1.0),
		       float dur = 4.0 (0.1:9.9),
		       float frq = 440.0 (50.0:1950.0))
SOURCE-BEGIN
(if (not (fboundp 'risset-bell)) (load "../demos/pmorales/b3"))
SOURCE-END


Percussion:risset-bell-sequence()
SOURCE-BEGIN
(if (not (fboundp 'risset-bell-sequence)) (load "../demos/pmorales/b3"))
SOURCE-END


Tones:starship(float freq = 200.0 (100.0:900.0),
	       float scale = 1000.0 (0.0:4000.0))
SOURCE-BEGIN
(if (not (fboundp 'starship)) (load "../demos/pmorales/b5"))
SOURCE-END


Tones:tibetan(float freq = 110 (25.0:575.0),
              float offset = 0.03 (0.0:0.1),
	      float dur = 10.0 (1.0:29.0),
	      float rise = 1.0 (0.02:4.98),
	      float dec = 4.0 (0.01:19.99))
SOURCE-BEGIN
(if (not (fboundp 'tibetan)) (load "../demos/pmorales/b7"))
SOURCE-END


Tones:tibetan-sequence()
SOURCE-BEGIN
(if (not (fboundp 'tibetan-sequence)) (load "../demos/pmorales/b7"))
SOURCE-END


Percussion:risset-drum(float amp = 1.0 (0.0:1.0),
		       float dur = 1.0 (0.1:9.9),
		       float freq = 100 (25.0:775.0))
SOURCE-BEGIN
(if (not (fboundp 'risset-drum)) (load "../demos/pmorales/b8"))
SOURCE-END


Percussion:risset-drum-sequence()
SOURCE-BEGIN
(if (not (fboundp 'risset-drum-sequence)) (load "../demos/pmorales/b8"))
SOURCE-END


Tones:risset-endless()
SOURCE-BEGIN
(if (not (fboundp 'risset-endless)) (load "../demos/pmorales/b9"))
SOURCE-END


Vocal:buzz-ah[ah](int pitch = 36 (24:72),
		  float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Vocal:buzz-ah[ah](int pitch = 36 (24:72),
		  float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Vocal:buzz-eh[eh](int pitch = 36 (24:72),
		  float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Vocal:buzz-eeh[eeh](int pitch = 36 (24:72),
		    float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Vocal:buzz-ooh[ooh](int pitch = 36 (24:72),
		    float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Vocal:buzz-demo[buzz-demo]()
SOURCE-BEGIN
(if (not (fboundp 'buzz-demo)) (load "../demos/pmorales/buzz"))
SOURCE-END


Tones:tenney(float frandi = 400 (100.0:1900.0),
             float freq = 440 (100.0:1900.0),
   	     float dur = 1 (0.1:9.9))
SOURCE-BEGIN
(if (not (fboundp 'tenney)) (load "../demos/pmorales/c1"))
SOURCE-END


Tones:tenney-demo()
SOURCE-BEGIN
(if (not (fboundp 'tenney-demo)) (load "../demos/pmorales/c1"))
SOURCE-END


Tones:pluck(int pitch = 36 (24:72),
	    float dur = 1 (0.1:9.9))
SOURCE-BEGIN
SOURCE-END


FM:fm-bell(float freq = 150.0 (50.0:350.0),
           float cm-ratio = 0.714286 (0.1:1.9),
	   float imax = 10.0 (3.0:37.0),
	   float dur = 5.0 (0.1:9.9),
	   float amp = 1.0 (0.0:1.0))
SOURCE-BEGIN
(if (not (fboundp 'fm-bell)) (load "../demos/pmorales/e2"))
SOURCE-END


FM:fm-wood-drum[fm-w-d](int pitch = 62 (48:72))
SOURCE-BEGIN
(if (not (fboundp 'fm-w-d)) (load "../demos/pmorales/e2"))
SOURCE-END


FM:fm-brass[fm-br](int pitch = 62 (48:84))
SOURCE-BEGIN
(if (not (fboundp 'fm-br)) (load "../demos/pmorales/e2"))
SOURCE-END


FM:fm-clarinet[fm-c](int pitch = 67 (48:84))
SOURCE-BEGIN
(if (not (fboundp 'fm-c)) (load "../demos/pmorales/e2"))
SOURCE-END


FM:double-carrier(float dur = 1.0 (0.1:9.9),
	          float freq = 440.0 (60.0:1940.0),
		  float cm-ratio = 1.0 (0.1:3.9),
		  float amp = 1.0 (0.0:10.0),
		  float amp-ratio = 0.5 (0.0:10.0),
		  float imax = 3.0 (0.1:3.9),
		  float imin = 1.0 (0.1:3.9),
		  float modulator = 2.0 (0.0:10.0))
SOURCE-BEGIN
(if (not (fboundp 'double-carrier)) (load "../demos/pmorales/e2"))
SOURCE-END


FM:v-fm(int pitch = 67 (48:84),
	float break = 0.3 (0.0:1.0),
	float dur = 3.0 (1.0:10.0),
	float rev = 0.5 (0.0:1.0))
SOURCE-BEGIN
(if (not (fboundp 'double-carrier)) (load "../demos/pmorales/e2"))
SOURCE-END


Tones:bell-sequence()
SOURCE-BEGIN
(if (not (fboundp 'bell-sequence)) (load "../demos/pmorales/partial"))
SOURCE-END


Keyboard:dmhm-organ(int pitch = 70 (48:96))
SOURCE-BEGIN
(if (not (fboundp 'dmhm-organ)) (load "../demos/mateos/organ"))
SOURCE-END


Keyboard:dmhm-organ-test()
SOURCE-BEGIN
(if (not (fboundp 'dmhm-organ)) (load "../demos/mateos/organ"))
SOURCE-END


Percussion:dmhm-gong[dmhm-gong](int pitch = 57 (40:80))
SOURCE-BEGIN
(if (not (fboundp 'dmhm-gong)) (load "../demos/mateos/gong"))
SOURCE-END


Brass:dmhm-tuba(float freq = 70 (30:170))
SOURCE-BEGIN
(if (not (fboundp 'dmhm-tuba)) (load "../demos/mateos/tuba"))
SOURCE-END


Percussion:dmhm-bell(int bell = 31 (24:60))
SOURCE-BEGIN
(if (not (fboundp 'dmhm-bell)) (load "../demos/mateos/bell"))
SOURCE-END


Keyboard:piano[piano-note](float duration = 2 (0.1:9.9), 
	                   int pitch = 70 (60:100),
                           int dynamic = 50 (0:100))
SOURCE-BEGIN
(if (not (boundp '*pianosyn-path*))
    (load "pianosyn"))
SOURCE-END


Music:cellular-automation-demo[cell-aut-demo]()
SOURCE-BEGIN
(if (not (fboundp 'cell-aut-demo)) (load "../demos/allewis/cell_aut"))
SOURCE-END
