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