1<CsoundSynthesizer>
2<CsOptions>
3--env:SSDIR+=../SourceMaterials -odac
4</CsOptions>
5<CsInstruments>
6sr     = 44100
7ksmps  = 32
8nchnls = 2
90dbfs  = 1
10
11 instr   1
12; boundary conditions 1=fixed 2=pivot 3=free
13kbcL    =               1
14kbcR    =               1
15; stiffness
16iK      =               p4
17; high freq. loss (damping)
18ib      =               p5
19; scanning frequency
20kscan   rspline         p6,p7,0.2,0.8
21; time to reach 30db decay
22iT30    =               p3
23; strike position
24ipos    random          0,1
25; strike velocity
26ivel    =               1000
27; width of strike
28iwid    =               0.1156
29aSig    barmodel        kbcL,kbcR,iK,ib,kscan,iT30,ipos,ivel,iwid
30kPan	rspline	        0.1,0.9,0.5,2
31aL,aR   pan2            aSig,kPan
32	outs             aL,aR
33 endin
34
35</CsInstruments>
36
37<CsScore>
38;t 0 90 1 30 2 60 5 90 7 30
39; p4 = stiffness (pitch)
40
41#define gliss(dur'Kstrt'Kend'b'scan1'scan2)
42#
43i 1 0     20 $Kstrt $b $scan1 $scan2
44i 1 ^+0.05 $dur >     $b $scan1 $scan2
45i 1 ^+0.05 $dur >     $b $scan1 $scan2
46i 1 ^+0.05 $dur >     $b $scan1 $scan2
47i 1 ^+0.05 $dur >     $b $scan1 $scan2
48i 1 ^+0.05 $dur >     $b $scan1 $scan2
49i 1 ^+0.05 $dur >     $b $scan1 $scan2
50i 1 ^+0.05 $dur >     $b $scan1 $scan2
51i 1 ^+0.05 $dur >     $b $scan1 $scan2
52i 1 ^+0.05 $dur >     $b $scan1 $scan2
53i 1 ^+0.05 $dur >     $b $scan1 $scan2
54i 1 ^+0.05 $dur >     $b $scan1 $scan2
55i 1 ^+0.05 $dur >     $b $scan1 $scan2
56i 1 ^+0.05 $dur >     $b $scan1 $scan2
57i 1 ^+0.05 $dur >     $b $scan1 $scan2
58i 1 ^+0.05 $dur >     $b $scan1 $scan2
59i 1 ^+0.05 $dur >     $b $scan1 $scan2
60i 1 ^+0.05 $dur $Kend $b $scan1 $scan2
61#
62$gliss(15'40'400'0.0755'0.1'2)
63b 5
64$gliss(2'80'800'0.755'0'0.1)
65b 10
66$gliss(3'10'100'0.1'0'0)
67b 15
68$gliss(40'40'433'0'0.2'5)
69e
70</CsScore>
71</CsoundSynthesizer>
72; example written by Iain McCurdy
73