62 lines
1.5 KiB
Plaintext
62 lines
1.5 KiB
Plaintext
<CsoundSynthesizer>
|
|
<CsLicense>
|
|
@begin:license
|
|
|
|
Copyright (c) 2015-2019, Benjamin Niemann <pink@odahoda.de>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with this program; if not, write to the Free Software Foundation, Inc.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
@end:license
|
|
|
|
Based on http://www.adp-gmbh.ch/csound/instruments/organ01.html
|
|
</CsLicense>
|
|
<CsOptions>
|
|
-d
|
|
</CsOptions>
|
|
<CsInstruments>
|
|
sr = 44100
|
|
kr = 2205
|
|
ksmps = 20
|
|
nchnls = 2
|
|
|
|
instr 1
|
|
ifrq = p5
|
|
|
|
kenv linseg 0, .01, p4, p3-.02, p4, .01, 0
|
|
|
|
a1 oscil 8, 1 * ifrq, 1
|
|
a2 oscil 8, 2 * ifrq, 1
|
|
a3 oscil 8, 2.9966 * ifrq, 1
|
|
a4 oscil 8, 4 * ifrq, 1
|
|
a5 oscil 3, 5.9932 * ifrq, 1
|
|
a6 oscil 2, 8 * ifrq, 1
|
|
a7 oscil 1, 10.0794 * ifrq, 1
|
|
a8 oscil 1, 11.9864 * ifrq, 1
|
|
a9 oscil 4, 16 * ifrq, 1
|
|
|
|
aorgan = kenv* (a1+a2+a3+a4+a5+a6+a7+a8+a9)
|
|
|
|
outs aorgan, aorgan
|
|
endin
|
|
</CsInstruments>
|
|
<CsScore>
|
|
f1 0 8192 10 1 .02 .01
|
|
|
|
i1 0 10 100 440
|
|
e 10.2
|
|
</CsScore>
|
|
|
|
</CsoundSynthesizer>
|