INTERFACE 800; 220
VSTVARS 6

VSTVAR 0, 0, "Dry/Wet", "", 0, 1, 1
VSTVAR 1, .1875, "Delay", "BARS", 0.001, 2, 3
VSTVAR 2, 1, "Drive", "", .1, 20, 0
VSTVAR 3, 1000, "Center", "Hz", 300, 3000, 0
VSTVAR 4, .5, "Greyness", "", 0, 1, 1
VSTVAR 5, .98, "Mid Feedback", "", .5, .98, 1

TOOLTIP "Dry/Wet control.", 0
TOOLTIP "Delay in BARS.", 1
TOOLTIP "Drive of the TANH saturator on the feedback.", 2
TOOLTIP "Center frequency of the grey signal.", 3
TOOLTIP "Amount of attenuation of low and high frequencies with rising Wetness.", 4
TOOLTIP "Feedback of the Mid component.", 5

UIMOD 2,245,23,48,900

POST
WET=MCC600^2
DRY=1-WET
GRAYNESS=WET*(MCC604*.9+.1)
FCINF=GRAYNESS*MCC603*.95
FCSUP=GRAYNESS*MCC603*1.05+(1-GRAYNESS)*15000
I5=.5*MCC605
IF MCC600<.001 GOTO NOFILT
OUT=DRY*FILT(3,FILT(7,OUT,FCINF,.5),FCSUP,.5)
LABEL NOFILT
OUT=OUT+WET*PPDELAY2D(OUT*(1+10*WET),-MCC601,I5,MCC605,I5,FCINF,FCSUP,MCC602)

