;
; ""
; by Michael Bechard
;
; 
;
; Generated by blue 0.99.7 (http://csounds.com/stevenyi/blue/index.html)
;

<CsoundSynthesizer>

<CsInstruments>
sr=44100
ksmps=40
nchnls=1







	instr 1	;Synth Piano
; p3 - duration
; p4 - frequency (pch)
; p5 - amplitude

ipitchm	=	cpspch(p4)
ipitchs	=	ipitchm*semitone(14.1)
iamp	=	p5/2

print	ipitchm, ipitchs

kenv1	adsr	0.001, .02, .15, .5
kenv1	=	kenv1*ipitchs
kenv2	oscil	iamp, 1/p3, 7
kenv3	jspline	.01, 10, 12
kenv3	=	kenv3+1

amaster	vco2	kenv2, ipitchm, 10 ;DCO1
aslave	oscilikts	kenv2, (ipitchs+kenv1)*kenv3, 12, amaster, 0 ;DCO2
aslave	dcblock	aslave
atest	oscili	kenv2, ipitchs, 12

aout	=	(amaster*.25)+aslave

out	aout
	endin


</CsInstruments>

<CsScore>

f7 0.0 1025 7 1.0 700.0 0.5 324.0 0.0
;f12 0.0 1024 7 -1.0 1024.0 1.0 0.0 0.0 ;saw-tooth wave
f12 0.0 1024 10 1.0 0.5 0.25 0.127 0.0632 0.0314 0.0  ;saw-tooth wave, more analogue






i1	0.0	1.3333334	8.0	10000	
i1	0.33333334	1.3333334	8.02	10000	
i1	0.6666667	1.3333334	8.04	10000	
e

</CsScore>

</CsoundSynthesizer>