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