1<CsoundSynthesizer>
2<CsOptions>
3--env:SSDIR+=../SourceMaterials -o dac
4</CsOptions>
5<CsInstruments>
6sr=44100
7kr=4410
8ksmps=10
9nchnls=2
100dbfs=1
11
12instr 1
13ipos       ftgen      1, 0, 128, 10, 1 ; Initial Shape, sine wave range -1 to 1;
14imass      ftgen      2, 0, 128, -7, 1, 128, 1 ;Masses(adj.), constant value 1
15istiff     ftgen      3, 0, 128, -7, 50, 64, 100, 64, 0 ;Stiffness; unipolar triangle range 0 to 100
16idamp      ftgen      4, 0, 128, -7, 1, 128, 1; ;Damping; constant value 1
17ivel       ftgen      5, 0, 128, -7, 0, 128, 0 ;Initial Velocity; constant value 0
18iamp       =          0.5
19a1         scantable  iamp, 60, ipos, imass, istiff, idamp, ivel
20           outs       a1, a1
21endin
22</CsInstruments>
23<CsScore>
24i 1 0 14
25f 1 1 128 10 1 1 1 1 1 1 1 1 1 1 1
26f 1 2 128 10 1 1 0 0 0 0 0 0 0 1 1
27f 1 3 128 10 1 1 1 1 1
28f 1 4 128 10 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
29f 1 5 128 10 1 1
30f 1 6 128 13 1 1 0 0 0 -.1 0 .3 0 -.5 0 .7 0 -.9 0 1 0 -1 0
31f 1 7 128 21 6 5.745
32</CsScore>
33</CsoundSynthesizer>
34;Example by Christopher Saunders</code>
35