Document


        ksmps=64 
        nchnls = 2
        0dbfs = 1

        gifn	ftgen	0,0, 257, 9, .5,1,270
              
              
              
        instr 1

        kpwm = chnget:k("pwm")

        kres = lfo:k(chnget:k("lfoRange") , chnget:k("lfo") ) + 0.5
        kres2 = lfo:k(chnget:k("lfoRange") * 0.5 , chnget:k("lfo")*0.5 ) + 0.5

        asig1 vco2 0.01, cpsmidinn(48), 4,  (0.7*(1-kpwm)) +0.05
        asig2 vco2 0.01, cpsmidinn(55),4,  (0.7*(1-kpwm)) +0.05
        asig3 vco2 0.007, cpsmidinn(52)*semitone(1*chnget:k("distort")/4),4,(0.7*(1-kpwm)) +0.05
        asig4 vco2 0.01, cpsmidinn(62), 4,  (0.7*(1-kpwm)) +0.05
        asig5 vco2 0.005*chnget:k("pwm"), cpsmidinn(36), 8
        asig = (asig1+asig2+asig3+asig4+asig5)/5
        asig	distort	asig+ (asig*0.2)*(chnget:k("distort")), chnget:k("distort")*0.39, gifn
        asig butterlp asig + (asig*0.9)*((1-chnget:k("pwm"))*(1-(chnget:k("distort")*0.3))) , chnget:k("filter") 
        asig = asig*kres
        asigL, asigR pan2 asig*chnget:k("mute") , kres2
        outs asigL*10, asigR*10

        aoutL, aoutR reverbsc asigL*0.7, asigR*0.7, 0.95, 13000
        outs aoutL*10, aoutL*10

        endin