diff options
author | Felipe Sateler <fsateler@debian.org> | 2014-01-24 13:54:37 -0300 |
---|---|---|
committer | Felipe Sateler <fsateler@debian.org> | 2014-01-24 13:54:37 -0300 |
commit | bcf06a42deb371baf3deb9f4addb474b08273120 (patch) | |
tree | 4a8c3fb811dd164d4486628d8eff6043ebe8a6c3 /examples/strcmp.csd | |
parent | 3a91171181113761a14bcc36a086a8dda144b77b (diff) |
Imported Upstream version 6.02~dfsg
Diffstat (limited to 'examples/strcmp.csd')
-rw-r--r-- | examples/strcmp.csd | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/strcmp.csd b/examples/strcmp.csd new file mode 100644 index 0000000..c6d4af1 --- /dev/null +++ b/examples/strcmp.csd @@ -0,0 +1,48 @@ +<CsoundSynthesizer> +<CsOptions> +; Select audio/midi flags here according to platform +-odac ;;;realtime audio out +;-iadc ;;;uncomment -iadc if realtime audio input is needed too +; For Non-realtime ouput leave only the line below: +; -o strcmp.wav -W ;;; for file output any platform +</CsOptions> +<CsInstruments> +;modified example from Joachim Heintz +sr = 44100 +ksmps = 32 +nchnls = 2 +0dbfs = 1 + + opcode Triad, iii, S ;define UDO +Sname xin +iMaj strcmp "maj", Sname +iMin strcmp "min", Sname +iPrim = 8.00 ;notes in pitch notattion +iQuint = 8.05 + if iMaj == 0 then +iTer = 8.03 + elseif iMin == 0 then +iTer = 8.02 + endif + xout iPrim, iTer, iQuint + endop + +instr 1 + +Sname strget p4 +ia, ib, ic Triad Sname ;apply UDO + print ia, ib, ic +asig1 pluck 0.7, cpspch(ia), 220, 0, 1 +asig2 pluck 0.7, cpspch(ib), 220, 0, 1 +asig3 pluck 0.7, cpspch(ic), 220, 0, 1 +asig = (asig1+asig2+asig3)*.5 + outs asig, asig + +endin +</CsInstruments> +<CsScore> +i1 0 3 "maj" +i1 4 3 "min" +</CsScore> +</CsoundSynthesizer> + |