Lines Matching refs:dur
10 \ violin ( start dur freq amp keyword-args -- )
11 \ fm-violin ( start dur freq amp keyword-args -- )
15 \ pluck ( start dur freq amp :optional weighting lossfact -- )
16 \ vox ( start dur freq amp ampfun freqfun freqscl ... -- )
17 \ fofins ( start dur freq amp vib f0 a0 f1 a1 f2 a2 :optional ae ve -- )
18 \ fm-trumpet ( start dur keyword-args -- )
19 \ pqw-vox ( start dur freq spacing-freq amp ampfun freqfun ... -- )
20 \ stereo-flute ( start dur freq flow keyword-args -- )
21 \ fm-bell ( start dur freq amp :optional amp-env index-env index -- )
22 \ fm-insect ( start dur freq amp amp-env ... -- )
23 \ fm-drum ( start dur freq amp index :optional high degr dist rev-amt -- )
24 \ gong ( start dur freq amp -- )
25 \ attract ( start dur amp c -- )
26 \ pqw ( start dur sfreq cfreq amp ampfun indexfun parts -- )
27 \ tubebell ( start dur freq amp :optional base --)
28 \ wurley ( start dur freq amp -- )
29 \ rhodey ( start dur freq amp :optional base -- )
30 \ hammondoid ( start dur freq amp -- )
31 \ metal ( start dur freq amp -- )
32 \ drone ( start dur freq amp ampfun synth ampat ampdc ... -- )
33 \ canter ( start dur pitch amp ampfun ranfun skewfun ... -- )
35 \ reson ( start dur pitch amp indxfun skewfun ... -- )
36 \ cellon ( start dur pitch0 amp ampfun betafun ... -- )
38 \ gran-synth ( start dur freq grain-dur interval amp -- )
40 \ spectra ( start dur freq amp :optional ... -- )
41 \ two-tab ( start dur freq amp :optional ... -- )
42 \ lbj-piano ( start dur freq amp -- )
43 \ resflt ( start dur driver ... -- )
45 \ pins ( file start dur keyword-args -- )
46 \ zc ( start dur freq amp len1 len2 feedback -- )
47 \ zn ( start dur freq amp len1 len2 feedforward -- )
48 \ za ( start dur freq amp len1 len2 fb ffw -- )
49 \ clm-expsrc ( start dur in-file exp-ratio src-ratio amp :optional ... -- )
50 \ exp-snd ( file start dur amp :optional ... -- )
51 \ expfil ( start dur hopsecs rampsecs steadysecs file1 file2 -- )
52 \ graph-eq ( file start dur keyword-args -- )
53 \ anoi ( fname start dur :optional fftsize amp-scaler R -- )
55 \ bes-fm ( start dur freq amp ratio index -- )
69 : (jc-reverb-simple) { flts allpasses combs volume dur -- }
72 dur run-reverb ( in-val )
82 dur run-reverb ( in-val )
92 : (jc-reverb-env) { envA flts allpasses combs volume dur -- }
95 dur run-reverb ( in-val )
105 dur run-reverb ( in-val )
115 : (jc-reverb-fir) { flt envA flts allpasses combs volume dur -- }
118 dur run-reverb ( in-val )
129 dur run-reverb ( in-val )
155 *reverb* ws-framples samples->seconds *decay-time* f+ { dur }
173 :envelope amp-env :scaler volume :duration dur make-env { envA }
176 envA flts allpasses combs volume dur (jc-reverb-fir)
178 envA flts allpasses combs volume dur (jc-reverb-env)
181 flts allpasses combs volume dur (jc-reverb-simple)
187 instrument: violin <{ start dur freq amp :key
205 :envelope amp-env :scaler amp :duration dur make-env { ampf }
206 :envelope index-env :scaler index1 :duration dur make-env { indf1 }
207 :envelope index-env :scaler index2 :duration dur make-env { indf2 }
208 :envelope index-env :scaler index3 :duration dur make-env { indf3 }
213 start dur
225 : violin-test <{ :optional start 0.0 dur 1.0 -- }>
227 now@ dur 440 0.5 violin
228 dur 0.2 f+ step
232 instrument: fm-violin <{ start dur freq amp :key
304 :envelope amp-env :scaler amp :duration dur :base base make-env { ampf }
322 :duration dur make-env to indf1
325 :duration dur make-env to indf2
328 :duration dur make-env to indf3
333 :duration dur make-env { frqf }
361 start dur
385 start dur
415 start dur
434 : fm-violin-test <{ :optional start 0.0 dur 1.0 -- }>
436 now@ dur 440 0.5 fm-violin
437 dur 0.2 f+ step
486 instrument: pluck <{ start dur freq amp :optional
513 start dur #{ :degree 90.0 random } run-instrument
522 : pluck-test <{ :optional start 0.0 dur 1.0 -- }>
524 now@ dur 330 0.3 0.95 0.95 pluck
525 dur 0.2 f+ step
571 instrument: vox <{ start dur freq amp ampfun freqfun freqscl voxfun index
591 :envelope ampfun :scaler amp :duration dur make-env { ampf }
592 :envelope f1 :duration dur make-env { frmf1 }
593 :envelope f2 :duration dur make-env { frmf2 }
594 :envelope f3 :duration dur make-env { frmf3 }
596 :duration dur
603 start dur #{ :degree 90.0 random } run-instrument
670 : vox-test <{ :optional start 0.0 dur 1.0 -- }>
677 now@ dur 170 0.4 amp-env frq-env 0.1 examp1 0.05 0.1 vox
678 dur 0.2 f+ step
679 now@ dur 300 0.4 amp-env frq-env 0.1 examp2 0.02 0.1 vox
680 dur 0.2 f+ step
688 instrument: fofins <{ start dur freq amp vib f0 a0 f1 a1 f2 a2 :optional
693 :envelope ae :scaler amp :duration dur make-env { ampf }
695 :envelope ve :scaler vib :duration dur make-env { vibenv }
712 start dur #{ :degree 90.0 random } run-instrument
717 : fofins-test <{ :optional start 0.0 dur 1.0 -- }>
719 now@ dur 270 0.2 0.001 730 0.6 1090 0.3 2440 0.1 fofins
720 dur 0.2 f+ step
726 instrument: fm-trumpet <{ start dur :key
756 vibatt dur f/ 100.0 f* 45.0 fmin
758 1.0 vibdec dur f/ f- 100.0 f* 55.0 fmax stretch-envelope
760 :duration dur make-env { per-vib-f }
763 1.0 0.01 dur f/ f- 100.0 f* 75.0 fmax { dec-01 }
766 frqatt dur f/ 100.0 f* 25.0 fmin
770 :duration dur make-env { frq-f }
771 ampatt1 dur f/ 100.0 f* 25.0 fmin { ampattpt1 }
772 1.0 ampdec1 dur f/ f- 100.0 f* 75.0 fmax { ampdecpt1 }
773 ampatt2 dur f/ 100.0 f* 25.0 fmin { ampattpt2 }
774 1.0 ampdec2 dur f/ f- 100.0 f* 75.0 fmax { ampdecpt2 }
777 :duration dur make-env { mod1-f }
782 :duration dur make-env { car1-f }
785 :duration dur make-env { mod2-f }
790 :duration dur make-env { car2-f }
791 start dur #{ :degree 90.0 random } run-instrument
805 : fm-trumpet-test <{ :optional start 0.0 dur 1.0 -- }>
807 now@ dur fm-trumpet
808 dur 0.2 f+ step
824 instrument: pqw-vox <{ start dur
832 :envelope ampfun :scaler amp :duration dur make-env { ampf }
835 :duration dur :offset freq
872 :envelope phones i array-ref :duration dur make-env
879 start dur #{ :degree 90.0 random } run-instrument
932 : pqw-vox-test <{ :optional start 0.0 dur 1.0 -- }>
951 now@ dur 300 300 0.5 ampfun freqfun 0.00
953 dur 0.2 f+ step
954 now@ dur 200 200 0.5 ampfun freqramp 0.10
956 dur 0.2 f+ step
957 now@ dur 100 314 0.5 ampfun freqramp 0.10
959 dur 0.2 f+ step
960 now@ dur 200 314 0.5 ampfun freqramp 0.01
962 dur 0.2 f+ step
963 now@ dur 100 414 0.5 ampfun freqramp 0.01
965 dur 0.2 f+ step
969 instrument: stereo-flute <{ start dur freq flow :key
987 :duration dur decay f- make-env { flowf }
998 start dur #{ :degree 90.0 random } run-instrument
1018 : flute-test <{ :optional start 0.0 dur 1.0 -- }>
1020 now@ dur 440 0.55 :flow-envelope #( 0 0 1 1 2 1 3 0 ) stereo-flute
1021 dur 0.2 f+ step
1025 instrument: fm-bell <{ start dur freq amp :optional
1040 :envelope amp-env :scaler amp :duration dur make-env { ampf }
1041 :envelope index-env :scaler index :duration dur make-env { indf }
1043 start dur #{ :degree 90.0 random } run-instrument
1060 : fm-bell-test <{ :optional start 0.0 dur 1.0 -- }>
1062 now@ dur 440.0 0.5 fm-bell
1063 dur 0.2 f+ step
1068 instrument: fm-insect <{ start dur freq
1076 :envelope amp-env :scaler amp :duration dur make-env { ampf }
1079 :duration dur make-env { indf }
1082 :duration dur make-env { modfrqf }
1085 start dur #{ :degree 90.0 random } run-instrument
1092 : fm-insect-test <{ :optional start 0.0 dur 1.0 -- }>
1120 instrument: fm-drum <{ start dur freq amp index :optional
1136 :duration dur make-env { glsf }
1143 then 100.0 f* dur f/ { atdrpt }
1148 100.0 dur 0.2 f- dur f/ 100.0 f* f-
1151 :duration dur make-env { ampf }
1156 100.0 dur 0.1 f- dur f/ 100.0 f* f- { indxpt }
1159 :duration dur
1163 :duration dur
1170 100.0 dur 0.05 f- dur f/ 100.0 f* f-
1172 :duration dur
1179 start dur
1194 : fm-drum-test <{ :optional start 0.0 dur 1.0 -- }>
1196 now@ dur 55 0.3 5 fm-drum
1197 dur 0.2 f+ step
1198 now@ dur 66 0.3 4 #t fm-drum
1199 dur 0.2 f+ step
1205 instrument: gong <{ start dur freq amp :key
1216 100 0.002 dur f/ f* { atdur }
1223 :duration dur make-env { ampfun }
1226 :duration dur :offset indx01 make-env { indxfun1 }
1229 :duration dur
1233 :duration dur
1239 start dur
1250 : gong-test <{ :optional start 0.0 dur 1.0 -- }>
1252 now@ dur 261.61 0.6 gong
1253 dur 0.2 f+ step
1259 instrument: attract <{ start dur amp c -- }>
1265 start dur #{ :degree 90.0 random } run-instrument
1274 : attract-test <{ :optional start 0.0 dur 1.0 -- }>
1276 now@ dur 0.5 2.0 attract
1277 dur 0.2 f+ step
1287 instrument: pqw <{ start dur sfreq cfreq amp ampfun indexfun parts :key
1298 :envelope ampfun :scaler amp :duration dur make-env { amp-env }
1299 :envelope indexfun :duration dur make-env { ind-env }
1306 start dur
1318 : pqw-test <{ :optional start 0.0 dur 1.0 -- }>
1320 now@ dur 200 1000 0.2
1322 dur 0.2 f+ step
1331 instrument: tubebell <{ start dur freq amp :optional base 32.0 -- }>
1336 :envelope #( 0 0 0.005 1 dur 0.006 fmax 0 )
1338 :duration dur make-env { ampenv1 }
1339 :envelope #( 0 0 0.001 1 dur 0.002 fmax 0 )
1341 :duration dur make-env { ampenv2 }
1345 start dur #{ :degree 90.0 random } run-instrument
1358 : tubebell-test <{ :optional start 0.0 dur 1.0 -- }>
1360 now@ dur 440 0.2 32 tubebell
1361 dur 0.2 f+ step
1365 instrument: wurley <{ start dur freq amp -- }>
1371 :envelope #( 0 0 1 1 9 1 10 0 ) :duration dur make-env { ampenv }
1372 :envelope #( 0 0 0.001 1 0.15 0 dur 0.16 fmax 0 )
1373 :duration dur make-env { indenv }
1374 :envelope #( 0 0 0.001 1 0.25 0 dur 0.26 fmax 0 )
1375 :duration dur make-env { resenv }
1378 start dur #{ :degree 90.0 random } run-instrument
1393 : wurley-test <{ :optional start 0.0 dur 1.0 -- }>
1395 now@ dur 440 0.2 wurley
1396 dur 0.2 f+ step
1400 instrument: rhodey <{ start dur freq amp :optional base 0.5 -- }>
1405 :envelope #( 0 0 0.005 1 dur 0.006 fmax 0 )
1406 :base base :duration dur make-env { ampenv1 }
1407 :envelope #( 0 0 0.001 1 dur 0.002 fmax 0 )
1408 :base base 1.5 f* :duration dur make-env { ampenv2 }
1411 :duration dur make-env { ampenv3 }
1413 start dur #{ :degree 90.0 random } run-instrument
1424 : rhodey-test <{ :optional start 0.0 dur 1.0 -- }>
1426 now@ dur 440 0.2 0.5 rhodey
1427 dur 0.2 f+ step
1431 instrument: hammondoid <{ start dur freq amp -- }>
1436 :envelope #( 0 0 0.005 1 dur 0.006 fmax 0.008 f- 1 dur 0 )
1437 :duration dur make-env { ampenv1 }
1438 :envelope #( 0 0 0.005 1 dur 0.006 fmax 0 )
1439 :duration dur make-env { ampenv2 }
1443 start dur #{ :degree 90.0 random } run-instrument
1456 : hammondoid-test <{ :optional start 0.0 dur 1.0 -- }>
1458 now@ dur 440 0.2 hammondoid
1459 dur 0.2 f+ step
1463 instrument: metal <{ start dur freq amp -- }>
1468 :envelope #( 0 0 0.001 1 dur 0.002 fmax 0.002 f- 1 dur 0 )
1469 :duration dur make-env { ampenv0 }
1470 :envelope #( 0 0 0.001 1 dur 0.002 fmax 0.011 f- 1 dur 0 )
1471 :duration dur make-env { ampenv1 }
1472 :envelope #( 0 0 0.010 1 dur 0.020 fmax 0.015 f- 1 dur 0 )
1473 :duration dur make-env { ampenv2 }
1474 :envelope #( 0 0 0.030 1 dur 0.040 fmax 0.040 f- 1 dur 0 )
1475 :duration dur make-env { ampenv3 }
1477 start dur #{ :degree 90.0 random } run-instrument
1488 : metal-test <{ :optional start 0.0 dur 1.0 -- }>
1490 now@ dur 440 0.2 metal
1491 dur 0.2 f+ step
1496 <{ start dur freq amp ampfun synth ampat ampdc rvibamt rvibfreq -- }>
1500 ampat dur f/ 100.0 f*
1502 100.0 ampdc dur f/ 100.0 f* f- stretch-envelope
1503 :scaler amp 0.25 f* :duration dur make-env { ampenv }
1506 start dur #{ :degree 90.0 random } run-instrument
1512 instrument: canter <{ start dur pitch amp
1519 100.0 atdr dur f/ f* { atpt }
1520 100.0 100.0 dcdr dur f/ f* f- { dcpt }
1546 :duration dur make-env { tampfun }
1548 :duration dur
1551 :duration dur make-env { tranfun }
1553 :duration dur make-env { tidxfun }
1562 start dur #{ :degree 90.0 random } run-instrument
1585 : drone/canter-test <{ :optional start 0.0 dur 1.0 -- }>
1665 : (nrev-one) { flts combs allpasses allpass4 low volume dur -- }
1667 dur run-reverb ( in-val )
1677 : (nrev-two) { flts combs allpasses allpass4 low volume dur -- }
1681 dur run-reverb ( in-val )
1692 : (nrev-quad) { flts combs allpasses allpass4 low volume dur -- }
1698 dur run-reverb ( in-val )
1768 *reverb* ws-framples samples->seconds *decay-time* f+ { dur }
1781 flts combs allpasses allpass4 low volume dur (nrev-one)
1784 flts combs allpasses allpass4 low volume dur (nrev-two)
1786 flts combs allpasses allpass4 low volume dur (nrev-quad)
1798 instrument: reson <{ start dur pitch amp
1806 skewat dur f/ 100.0 f*
1808 100.0 skewdc dur f/ 100.0 f* f- stretch-envelope
1810 :duration dur make-env { frqf }
1824 frmdat 3 object-ref dur f/ 100.0 f* { ampat }
1825 100.0 frmdat 4 object-ref dur f/ 100.0 f* f- { ampdc }
1828 frmdat 7 object-ref dur f/ 100.0 f* { indxat }
1829 100.0 frmdat 8 object-ref dur f/ 100.0 f* f- { indxdc }
1849 :duration dur make-env rs swap reson-indfs!
1852 :duration dur make-env rs swap reson-ampfs!
1857 start dur #{ :degree 90.0 random } run-instrument
1874 : reson-test <{ :optional start 0.0 dur 1.0 -- }>
1879 now@ dur 440 0.5 #( 0 0 100 1 ) #( 0 0 100 1 )
1881 dur 0.2 f+ step
1885 instrument: cellon <{ start dur pitch0 amp ampfun
1901 ampat dur f/ 100.0 f*
1906 1.0 ampdc dur f/ f- 100.0 f*
1911 glissat dur f/ 100.0 f*
1916 1.0 glissdc dur f/ f- 100.0 f*
1921 betaat dur f/ 100.0 f*
1926 1.0 betadc dur f/ f- 100.0 f*
1931 pvibat dur f/ 100.0 f*
1936 1.0 pvibdc dur f/ f- 100.0 f*
1942 :duration dur make-env { pvibenv }
1945 :duration dur make-env { rvibenv }
1948 :duration dur make-env { glisenv }
1951 :duration dur make-env { amplenv }
1955 :duration dur make-env { betaenv }
1957 start dur #{ :degree 90.0 random } run-instrument
1966 : cellon-test <{ :optional start 0.0 dur 1.0 -- }>
1969 now@ dur 220 0.5
1979 dur 0.2 f+ step
1995 *reverb* ws-framples samples->seconds decay f+ { dur }
1997 dur run-reverb ( in-val )
2005 dur run-reverb ( in-val )
2016 instrument: gran-synth <{ start dur freq grain-dur interval amp -- }>
2018 :duration grain-dur make-env { grain-env }
2020 grain-dur interval fmax mus-srate f* fceil f>s { grain-size }
2025 start dur #{ :degree 90.0 random } run-instrument
2030 : gran-synth-test <{ :optional start 0.0 dur 1.0 -- }>
2032 now@ dur 100 0.0189 0.02 0.4 gran-synth
2033 dur 0.2 f+ step
2059 : touch-tone-test <{ :optional start 0.0 dur 1.0 -- }>
2062 dur 7 ( digits ) f* 0.2 f+ step
2066 instrument: spectra <{ start dur freq amp :optional
2075 :envelope ampenv :scaler amp :duration dur make-env { ampf }
2079 start dur
2087 : spectra-test <{ :optional start 0.0 dur 1.0 -- }>
2094 now@ dur 440 2.0 p-a4 #( 0 0 1 1 5 0.9 12 0.5 25 0.25 100 0 ) spectra
2095 dur 0.2 f+ step
2102 instrument: two-tab <{ start dur freq amp :optional
2116 :envelope ampenv :scaler amp :duration dur make-env { ampf }
2117 :envelope interpenv :duration dur make-env { interpf }
2121 start dur
2131 : two-tab-test <{ :optional start 0.0 dur 1.0 -- }>
2133 now@ dur 440 0.5 two-tab
2134 dur 0.2 f+ step
2632 instrument: lbj-piano <{ start dur freq amp :key
2638 dur *clm-piano-attack-duration* *clm-piano-realease-duration*
2639 f+ f+ to dur
2640 dur *clm-piano-realease-duration* f- { env1dur }
2663 start dur
2678 : lbj-piano-test <{ :optional start 0.0 dur 1.0 -- }>
2680 now@ dur 440 0.5 lbj-piano
2681 dur 0.24 f+ 0.2 f+ step
2686 instrument: resflt <{ start dur driver
2706 :duration dur make-env { ampf }
2708 start dur
2719 :duration dur make-env { frqf }
2722 :duration dur make-env { ampf }
2724 start dur
2735 : resflt-test <{ :optional start 0.0 dur 1.0 -- }>
2737 now@ dur #f \ start dur driver
2744 dur 0.2 f+ step
2745 now@ dur #t \ start dur driver
2752 dur 0.2 f+ step
2774 file mus-sound-duration { dur }
2787 start dur #{ :degree 90.0 random } run-instrument
2824 : scratch-test <{ :optional start 0.0 dur 1.0 -- }>
2826 start "fyow.snd" dur 1.5 fmin #( 0 0.5 0.25 1 ) scratch-ins
2833 instrument: pins <{ start dur file amp :key
2840 doc" start dur \"fyow.snd\" 1.0 :time-scaler 2.0 pins."
2847 dur time-scaler f/ { sdur }
2894 start dur #{ :degree 90.0 random } run-instrument
3107 : pins-test <{ :optional start 0.0 dur 1.0 -- }>
3109 now@ dur "fyow.snd" 1.0 :time-scaler 2.0 pins
3110 dur 0.2 f+ step
3114 instrument: zc <{ start dur freq amp len1 len2 feedback -- }>
3121 :duration dur make-env { zenv }
3122 start dur #{ :degree 90.0 random } run-instrument
3127 : zc-test <{ :optional start 0.0 dur 1.0 -- }>
3129 now@ dur 100 0.4 20 100 0.95 zc
3130 dur 0.2 f+ step
3131 now@ dur 100 0.4 100 20 0.95 zc
3132 dur 0.2 f+ step
3140 instrument: zn <{ start dur freq amp len1 len2 feedforward -- }>
3147 :duration dur make-env { zenv }
3148 start dur #{ :degree 90.0 random } run-instrument
3153 : zn-test <{ :optional start 0.0 dur 1.0 -- }>
3155 now@ dur 100 0.5 20 100 0.95 zn
3156 dur 0.2 f+ step
3157 now@ dur 100 0.5 100 20 0.95 zn
3158 dur 0.2 f+ step
3162 instrument: za <{ start dur freq amp len1 len2 fb ffw -- }>
3170 :duration dur make-env { zenv }
3171 start dur #{ :degree 90.0 random } run-instrument
3176 : za-test <{ :optional start 0.0 dur 1.0 -- }>
3178 now@ dur 100 0.3 20 100 0.95 0.95 za
3179 dur 0.2 f+ step
3180 now@ dur 100 0.3 100 20 0.95 0.95 za
3181 dur 0.2 f+ step
3194 instrument: clm-expsrc <{ start dur in-file exp-ratio src-ratio amp :optional
3214 start dur run
3222 start dur run
3229 start dur run
3235 start dur run
3243 : clm-expsrc-test <{ :optional start 0.0 dur 1.0 -- }>
3245 now@ dur "oboe.snd" 2.0 1.0 1.0 clm-expsrc
3246 dur 0.2 f+ step
3250 instrument: exp-snd <{ file start dur amp :optional
3275 then :duration dur make-env { expenv }
3280 then :duration dur make-env { lenenv }
3308 then :duration dur make-env { srenv }
3314 :envelope rampdata :duration dur make-env { rampenv }
3328 then :duration dur make-env { hopenv }
3368 :duration dur make-env { ampe }
3391 start dur #{ :degree 90.0 random } run-instrument
3420 : exp-snd-test <{ :optional start 0.0 dur 1.0 -- }>
3422 "fyow.snd" now@ dur 1.0 #( 0 1 1 3 ) 0.4 0.15
3424 dur 0.2 f+ step
3425 "oboe.snd" now@ dur 1.0 #( 0 1 1 3 ) 0.4 0.15
3427 dur 0.2 f+ step
3440 instrument: expfil <{ start dur hopsecs rampsecs steadysecs file1 file2 -- }>
3476 start dur #{ :degree 90.0 random } run-instrument
3561 : expfil-test <{ :optional start 0.0 dur 1.0 -- }>
3563 now@ dur 0.2 0.01 0.1 "oboe.snd" "fyow.snd" expfil
3564 dur 0.2 f+ step
3577 \ "dur" as ""standard"" in my instruments, when dur = 0 it will take the
3597 instrument: graph-eq <{ file start dur :key
3618 :duration dur
3633 :duration dur
3648 :duration dur
3664 start dur #{ :degree 90.0 random } run-instrument
3680 : graph-eq-test <{ :optional start 0.0 dur 1.0 -- }>
3682 "oboe.snd" now@ dur :amplitude 50.0 graph-eq
3683 dur 0.2 f+ step
3694 instrument: anoi <{ fname start dur :optional
3725 start dur #{ :degree 90.0 random } run-instrument
3755 : anoi-test <{ :optional start 0.0 dur 1.0 -- }>
3757 "fyow.snd" now@ dur 128 2.0 anoi
3758 dur 0.2 f+ step
3788 dur #f
3795 : fullmix-test <{ :optional start 0.0 dur 1.0 -- }>
3800 : set-fullmix-matrix { outn mx inp outp in-chans out-chans dur -- envs }
3815 :envelope outn :duration dur make-env
3830 dur #f
3843 dur number? unless
3849 then f/ to dur
3875 in-chans out-chans dur
3888 \ ws-info ( start dur local-vars -- start dur )
3893 start dur local-variables ws-info ( start dur )
3895 ( dur ) seconds->samples { samps }
3910 start dur run
3934 start dur run
3952 : fullmix-test <{ :optional start 0.0 dur 1.0 -- }>
3954 :envelope #( 0 0 1 1 ) :duration dur :scaler 0.5 make-env { en }
3956 "pistol.snd" now@ dur fullmix
3957 dur 0.2 f+ step
3958 "oboe.snd" now@ dur 0 #( #( 0.1 en ) ) fullmix
3959 dur 0.2 f+ step
3965 instrument: bes-fm <{ start dur freq amp ratio index -- }>
3971 :duration dur make-env { ampenv }
3972 start dur #{ :degree 90.0 random } run-instrument
3979 : bes-fm-test <{ :optional start 0.0 dur 1.0 -- }>
3981 now@ dur 440.0 10.0 1.0 4.0 bes-fm
3982 dur 0.2 f+ step
3987 : bes-fm-test <{ :optional start 0.0 dur 1.0 -- }>
4148 : clm-ins-test <{ :optional start 0.0 dur 1.0 }>
4150 now@ dur violin-test
4151 now@ dur fm-violin-test
4152 now@ dur pluck-test
4153 now@ dur vox-test
4154 now@ dur fofins-test
4155 now@ dur fm-trumpet-test
4156 now@ dur pqw-vox-test
4157 now@ dur flute-test
4158 now@ dur fm-bell-test
4159 now@ dur fm-insect-test
4160 now@ dur fm-drum-test
4161 now@ dur gong-test
4162 now@ dur attract-test
4163 now@ dur pqw-test
4164 now@ dur tubebell-test
4165 now@ dur wurley-test
4166 now@ dur rhodey-test
4167 now@ dur hammondoid-test
4168 now@ dur metal-test
4169 now@ dur drone/canter-test
4170 now@ dur reson-test
4171 now@ dur cellon-test
4172 now@ dur gran-synth-test
4173 now@ dur touch-tone-test
4174 now@ dur spectra-test
4175 now@ dur two-tab-test
4176 now@ dur lbj-piano-test
4177 now@ dur resflt-test
4178 now@ dur scratch-test
4179 now@ dur pins-test
4180 now@ dur zc-test
4181 now@ dur zn-test
4182 now@ dur za-test
4183 now@ dur clm-expsrc-test
4184 now@ dur exp-snd-test
4185 now@ dur expfil-test
4186 now@ dur graph-eq-test
4187 now@ dur anoi-test
4188 now@ dur fullmix-test
4189 now@ dur bes-fm-test