sr=44100
kr=44100
ksmps=1
nchnls=2
zakinit 30, 30


; These are for Lyon's reverb
gifeed init .5
gilp1  init 1/10
gilp2  init 1/23
gilp3  init 1/41
giroll init 3000


instr 10
idur = p3		; Duration
iamp = p4		; Amplitude
ifqc =cpspch(p5) 	; Frequency
iwave = p6		; Selected wave form 1=Saw, 2=Square/PWM, 3=Tri/Saw-Ramp-Mod
	
imaxd = 1/ifqc
ivibdepth = 0.005
ibw = 100
iv	=	3.16
iq	=	25

if1=100
if2=115
if3=134
if4=156
if5=181
if6=210
if7=243
if8=282
if9=327
if10=380
if11=441
if12=511
if13=593
if14=688
if15=798
if16=926
if17=1074
if18=1246
if19=1445
if20=1676
if21=1944
if22=2255
if23=2616
if24=3035
if25=3520
if26=4084
if27=4737
if28=5495
if29=6374
if30=7393

kenv  linseg    0, p3*0.15, 1,p3*0.55, 1,p3*0.20, 0
kvibenv	linseg	0, .2, 0, .2, 1
kmod  linseg    0, 2, 6
kvib	oscil	ifqc*ivibdepth, 5, 1	; 5 cps vibrato

kfqc1	= ifqc+(kvib*kvibenv)
kfqc2	= ifqc*2+1+(2*kvib*kvibenv)
kfqc3	= ifqc*3+2+(3*kvib*kvibenv)
kfqc4	= ifqc*4-1+(4*kvib*kvibenv)
kfqc5	= ifqc*5+1+(5*kvib*kvibenv)
kfqc6	= ifqc*6+5+(6*kvib*kvibenv)
kfqc7	= ifqc*7+2+(7*kvib*kvibenv)
kfqc8	= ifqc*8+8+(8*kvib*kvibenv)

asig1	vco iamp, kfqc1, iwave, 0.05, 1, imaxd

  
asig2	vco iamp/2, kfqc1, iwave, 0.05, 1, imaxd

  
asig3	vco iamp/3, kfqc2, iwave, 0.05, 1, imaxd

  
asig4	vco iamp/4, kfqc3, iwave, 0.05, 1, imaxd

  
asig5	vco iamp/5, kfqc4, iwave, 0.05, 1, imaxd

  
asig6	vco iamp/6, kfqc5, iwave, 0.05, 1, imaxd

  
asig7	vco iamp/7, kfqc6, iwave, 0.05, 1, imaxd

  
asig8	vco iamp/8, kfqc7, iwave, 0.05, 1, imaxd

  


asig	=	asig1 +asig2+asig3+asig4+asig5+asig6+asig7+asig8
asig	= asig/8
asig	= asig*kenv

af1   pareq asig, if1, iv, iq
af2   pareq asig, if2, iv, iq
af3   pareq asig, if3, iv, iq
af4   pareq asig, if4, iv, iq
af5   pareq asig, if5, iv, iq
af6   pareq asig, if6, iv, iq
af7   pareq asig, if7, iv, iq
af8   pareq asig, if8, iv, iq
af9   pareq asig, if9, iv, iq
af10   pareq asig, if10, iv, iq
af11   pareq asig, if11, iv, iq
af12   pareq asig, if12, iv, iq
af13   pareq asig, if13, iv, iq
af14   pareq asig, if14, iv, iq
af15   pareq asig, if15, iv, iq
af16   pareq asig, if16, iv, iq
af17   pareq asig, if17, iv, iq
af18   pareq asig, if18, iv, iq
af19   pareq asig, if19, iv, iq
af20   pareq asig, if20, iv, iq
af21   pareq asig, if21, iv, iq
af22   pareq asig, if22, iv, iq
af23   pareq asig, if23, iv, iq
af24   pareq asig, if24, iv, iq
af25   pareq asig, if25, iv, iq
af26   pareq asig, if26, iv, iq
af27   pareq asig, if27, iv, iq
af28   pareq asig, if28, iv, iq
af29   pareq asig, if29, iv, iq
af30   pareq asig, if20, iv, iq

aout	=	af1+af2+af3+af4+af5+af6+af7+af8+af9+af10
aout	=	aout+af11+af12+af13+af14+af15+af16+af17+af18+af19+af20
aout	=	aout+af21+af22+af23+af24+af25+af26+af27+af28+af29+af30

aout	=	aout/30
aout 	balance aout, asig
aout	tone aout, 8000
aout	atone aout, ifqc*2

;display aout, 0.1  

outs aout, aout 	; Ouput and amplification



        zawm    aout, 1
        zawm    aout, 2

		endin

;---------------------------------------------------------------------------
; Reverb Based on Lyon's Reverb
;---------------------------------------------------------------------------
         instr  46
inputdur =      p3
iatk     =      .01
idk      =      .01
idecay   =      .01

;data for output envelope
ioutsust =      p3-idecay
idur     =      inputdur-(iatk+idk)
isust    =      p3-(iatk+idur+idk)
izin1    init   p6
izin2    init   p7
igain    =      p6

;ksweep   oscil  1,1/p3,p5
ksweep	 =		.5
korig    =      1-ksweep
krev     =      ksweep

kclean   linseg  0,iatk,igain,idur,igain,idk,0,isust,0
kout     linseg  1,ioutsust,1,idecay,0
ain1     zar     izin1
ain2     zar     izin2
ain1     =       ain1*kclean
ain2     =       ain2*kclean
ajunk    alpass  ain1,1.7,.1
aleft    alpass  ajunk,1.01,.07
ajunk    alpass  ain2,1.5,.2
aright   alpass  ajunk,1.33,.05
kdel1    =       .01
addl1    delayr  .3
afeed1   deltapi kdel1
afeed1   =       afeed1 + gifeed*aleft
         delayw  aleft

kdel2    =       .012
addl2    delayr  .3
afeed2   deltapi kdel2
afeed2   =       afeed2 + gifeed*aright
         delayw  aright

;GLOBAL REVERB

        aglobin = (afeed1+afeed2)*.05
        atap1 comb aglobin,3.3,gilp1
        atap2 comb aglobin,3.3,gilp2
        atap3 comb aglobin,3.3,gilp3
        aglobrev alpass atap1+atap2+atap3,2.6,.085
        aglobrev tone aglobrev,giroll

        kdel3  =  .05
        addl3 delayr .2
        agr1 deltapi kdel3
        delayw aglobrev

        kdel4  =  .06
        addl4 delayr .2
        agr2 deltapi kdel4
        delayw aglobrev

        arevl = agr1+afeed1
        arevr = agr2+afeed2
        aoutl = (ain1*korig)+(arevl*krev)
        aoutr = (ain2*korig)+(arevr*krev)
            
              outs  aoutl*kout, aoutr*kout
              zacl  0, 30

              endin