diff options
Diffstat (limited to 'lib/instruments.txt')
| -rw-r--r-- | lib/instruments.txt | 249 |
1 files changed, 249 insertions, 0 deletions
diff --git a/lib/instruments.txt b/lib/instruments.txt new file mode 100644 index 0000000..f0f5d09 --- /dev/null +++ b/lib/instruments.txt @@ -0,0 +1,249 @@ +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)) +REQUIRE "../demos/pmorales/a4.lsp" +END-SOUND + +Tones:cheap(float frq-randi = 100 (0.0:1000.0), + int pitch = 69 (48:96), + float dur = 2.0 (0.1:9.9), + float rate = 3.0 (0.1:9.9), + float amount = 1000.0 (100.0:9900.0)) +REQUIRE "../demos/pmorales/a6.lsp" +END-SOUND + +Percussion:gong-1() +REQUIRE "../demos/pmorales/b1.lsp" +END-SOUND + + +Percussion:gong-2() +REQUIRE "../demos/pmorales/b1.lsp" +END-SOUND + + +Percussion:gong-3(int freq = 440 (200:800), + float dur = 5.0 (2.0:10.0)) +REQUIRE "../demos/pmorales/b1.lsp" +END-SOUND + + +Percussion:gong-3-melody() +REQUIRE "../demos/pmorales/b1.lsp" +END-SOUND + +Percussion:plight-drum-example() +LISP-SOURCE +(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))) +SAL-SOURCE +if ! boundp(quote(*plight-drum-path*)) then + if ! #load("../demos/plight/drum.lsp") then + exec princ("COULD NOT FIND DRUM.LSP -- THE PLIGHT-DRUM PACKAGE IS +NOT PART OF THE BASIC NYQUIST DISTRIBUTION, BUT +YOU CAN DOWNLOAD IT") +END-SOUND + +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)) +REQUIRE "../demos/pmorales/b2.lsp" +END-SOUND + + +Tones:st-sac-sequence() +REQUIRE "../demos/pmorales/b2.lsp" +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/b3.lsp" +END-SOUND + + +Percussion:risset-bell-sequence() +REQUIRE "../demos/pmorales/b3.lsp" +END-SOUND + + +Tones:starship(float freq = 200.0 (100.0:900.0), + float scale = 1000.0 (0.0:4000.0)) +REQUIRE "../demos/pmorales/b5.lsp" +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/b7.lsp" +END-SOUND + + +Tones:tibetan-sequence() +REQUIRE "../demos/pmorales/b7.lsp" +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/b8.lsp" +END-SOUND + + +Percussion:risset-drum-sequence() +REQUIRE "../demos/pmorales/b8.lsp" +END-SOUND + + +Tones:risset-endless() +REQUIRE "../demos/pmorales/b9.lsp" +END-SOUND + + +Vocal:buzz-ah[ah](int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Vocal:buzz-ah[ah](int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Vocal:buzz-eh[eh](int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Vocal:buzz-eeh[eeh](int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Vocal:buzz-ooh[ooh](int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Vocal:buzz-demo[buzz-demo]() +REQUIRE "../demos/pmorales/buzz.lsp" +END-SOUND + + +Tones:tenney(float frandi = 400 (100.0:1900.0), + float freq = 440 (100.0:1900.0), + float dur = 1 (0.1:9.9)) +REQUIRE "../demos/pmorales/c1.lsp" +END-SOUND + + +Tones:tenney-demo() +REQUIRE "../demos/pmorales/c1.lsp" +END-SOUND + + +Tones:pluck(int pitch = 36 (24:72), + float dur = 1 (0.1:9.9)) +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +FM:fm-wood-drum[fm-w-d](int pitch = 62 (48:72)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +FM:fm-brass[fm-br](int pitch = 62 (48:84)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +FM:fm-clarinet[fm-c](int pitch = 67 (48:84)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +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)) +REQUIRE "../demos/pmorales/e2.lsp" +END-SOUND + + +Tones:bell-sequence() +REQUIRE "../demos/pmorales/partial.lsp" +END-SOUND + + +Keyboard:dmhm-organ(int pitch = 70 (48:96)) +REQUIRE "../demos/mateos/organ.lsp" +END-SOUND + + +Keyboard:dmhm-organ-test() +REQUIRE "../demos/mateos/organ.lsp" +END-SOUND + + +Percussion:dmhm-gong[dmhm-gong](int pitch = 57 (40:80)) +REQUIRE "../demos/mateos/gong.lsp" +END-SOUND + + +Brass:dmhm-tuba(float freq = 70 (30:170)) +REQUIRE "../demos/mateos/tuba.lsp" +END-SOUND + + +Percussion:dmhm-bell(int bell = 31 (24:60)) +REQUIRE "../demos/mateos/bell.lsp" +END-SOUND + + +Keyboard:piano[piano-note](float duration = 2 (0.1:9.9), + int pitch = 70 (60:100), + int dynamic = 50 (0:100)) +REQUIRE "pianosyn.lsp" +END-SOUND + + +Music:cellular-automation-demo[cell-aut-demo]() +REQUIRE "../demos/allewis/cell_aut.lsp" +END-SOUND |