;"Veloscilraptor" by Francis Hickey
;Licensed under the GNU public License



<CsoundSynthesizer>
<CsOptions>
</CsOptions>
<CsInstruments>

sr = 44100
ksmps = 4410
nchnls = 2 
	
	instr 101
ifreq = cpspch(p5)
kenv  linen 1, 1, p3, 1
a1	foscil p4, ifreq, 1, 2, 3, 1 
a3	rezzy a1, 500, 1000	
	outs	a3 * kenv, a3*kenv
	endin

	instr 102
ifreq = cpspch(p5)
kenv expseg 0.01, p3*0.25, 1, p3*0.5, 0.01
a2 lfo 6, 6, 1
a3 oscil p4, ifreq + a2, 1
a1 butterlp a3, 400
	outs a1 * kenv, a1*kenv
	endin

	instr 103
ifreq = cpspch(p5)
kenv linen 1, 1, p3, 1
a1 lfo 600, 600, 1
a2 oscil p4, ifreq + a1, 1
k1 expon 1000, p3, 100
a3 rezzy a2, k1, 1000
a4 reverb2 a3, 2.3, .1
	outs (a3 + a4) * kenv, (a3 + a4) * kenv 
	endin
	
	instr 104
ifreq = cpspch(p5)
kenv linen 1, 1, p3, 1
a1 lfo 600, 600, 1
a2 oscil p4, ifreq + a1, 1
k1 expon 100, p3, 1000
a3 rezzy a2, k1, 1000
a4 reverb2 a3, 2.3, .1
	outs (a3 + a4) * kenv, (a3 + a4) * kenv 
	endin  
	
	instr 105
ifreq = cpspch(p5)
kenv expseg 0.01, p3*0.25, 1, p3*0.5, 0.01
a2 lfo 6, 6, 1
a3 oscil p4, ifreq + a2, 1
a1 butterlp a3, 400
a4 distort a1, .6, 1	
	outs a4 * kenv, a4 * kenv
	endin



</CsInstruments>
<CsScore>
f1 0 4096 10 1 1 1 1 1 1 1 1 1
f2 0 4096 10 1 .25 .115 .012

i 101 0 67 5000 6.00 2
i 101 3 57  5000 7.04 2
i 102 10 6 6000 8.07 2
i 102 16 5 6000 8.07 2
i 103 22 8 1000 8.04 2
i 102 28 5 6000 8.00 2
i 104 32 6.2 1000 8.04 2
i 101 35 16 5000 7.06 2
i 105 37 5 6000 8.00 2
i 105 40 5 6000 8.05 2
i 105 43 5 6000 8.04 2
i 104 46 6.2 1000 8.04 2
i 105 51 5 6000 8.05 2
i 105 54 5 6000 8.07 2
i 105 57 5 6000 8.00 2
i 103 60 7 1000 8.04 2
 
</CsScore>
</CsoundSynthesizer>
<MacOptions>
Version: 3
Render: Real
Ask: Yes
Functions: ioObject
Listing: Window
WindowBounds: 994 475 400 140
CurrentView: io
IOViewEdit: On
Options: -b128 -A -s -m167 -R
</MacOptions>
<MacGUI>
ioView background {32125, 41634, 41120}
ioSlider {8, 7} {20, 98} 0.000000 1.000000 0.367347 amp
ioSlider {34, 6} {239, 22} 100.000000 1000.000000 100.000000 freq
ioGraph {8, 112} {265, 116} table 0.000000 1.000000 
ioListing {8, 234} {266, 158}
ioText {34, 37} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Amp:
ioText {74, 37} {70, 24} display 0.000000 0.00100 "amp" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 0.4184
ioText {35, 67} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Freq:
ioText {75, 67} {69, 24} display 0.000000 0.00100 "freq" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 427.6151
ioText {152, 34} {119, 69} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} nobackground border 
ioText {169, 72} {78, 24} display 0.000000 0.00100 "freqsweep" center "DejaVu Sans" 8 {0, 0, 0} {14080, 31232, 29696} background border 999.6769
ioButton {160, 37} {100, 30} event 1.000000 "Button 1" "Sweep" "/" i1 0 10
</MacGUI>