;---------------------------------------------------------
; Copter
; Coded by Hans Mikelson April 2001
;---------------------------------------------------------
sr	=	44100			; Sample rate
kr	=	4410			; Kontrol rate
ksmps	=	10			; Samples/Kontrol period
nchnls	=	2			; Normal stereo
	zakinit	50,50			; Initialize the zak system


;---------------------------------------------------------
; Copter
;---------------------------------------------------------
        instr   10

idur	=	p3		; Duration
iamp	=	p4		; Amplitude
irtab	=	p5		; Rate table
ifcd	=	p6		; Fco depth
iphf	=	p7		; Fco phase
iphs	=	p8		; Separation phase
iq	=	p9		; Resonance
imode	=	p10		; Low pass/High pass
ibf	=	p11		; Base frequency

anz     pinkish    1

kamp	linseg	0, idur*.25, iamp, idur*.5, iamp, idur*.25, 0	; Amp envelope

krt	oscili	1, 1/idur, irtab			; Controls modulation frequency
asin1l  oscili  1, krt, 1, .5+iphf			; Sine 1 is for filter Fco
asin2l  oscili  1, krt/2, 1				; Sine 2 is for amplitude modulation
arezl   rezzy   anz, (asin1l+1)*ifcd*krt+ibf, iq, imode	; Make sine positive add base fqc
aoutl   =       arezl*asin2l*2				; Modulate amplitude

asin1r  oscili  1, krt, 1, .25+iphf			; Controls modulation frequency
asin2r  oscili  1, krt/2, 1, .25			; Sine 1 is for filter Fco
arezr   rezzy   anz, (asin1r+1)*ifcd*krt+ibf, iq, imode	; Make sine positive add base fqc
aoutr   =       arezr*asin2r*2				; Modulate amplitude

        outs    aoutl*kamp, aoutr*kamp			; Output the result

        endin