1<CsoundSynthesizer>
2<CsOptions>
3--env:SSDIR+=../SourceMaterials -o dac
4</CsOptions>
5<CsInstruments>
6;Example by Joachim Heintz
7sr = 44100
8ksmps = 32
9nchnls = 2
100dbfs = 1
11
12giSine    ftgen     0, 0, 2^10, 10, 1
13
14instr 1 ;master instrument
15inumparts =         p4 ;number of partials
16ibasfreq  =         200 ;base frequency
17ipart     =         1 ;count variable for loop
18;loop for inumparts over the ipart variable
19;and trigger inumpartss instanes of the subinstrument
20loop:
21ifreq     =         ibasfreq * ipart
22iamp      =         1/ipart/inumparts
23          event_i   "i", 10, 0, p3, ifreq, iamp
24          loop_le   ipart, 1, inumparts, loop
25endin
26
27instr 10 ;subinstrument for playing one partial
28ifreq     =         p4 ;frequency of this partial
29iamp      =         p5 ;amplitude of this partial
30aenv      transeg   0, .01, 0, iamp, p3-0.1, -10, 0
31apart     poscil    aenv, ifreq, giSine
32          outs      apart, apart
33endin
34
35</CsInstruments>
36<CsScore>
37;         number of partials
38i 1 0 3   10
39i 1 3 3   20
40i 1 6 3   2
41</CsScore>
42</CsoundSynthesizer>
43