dwgFlute.help.hs

-- dwgFlute
let freq = control_m kr "freq" 440 (220,880,"exp")
    att = 0.01
    amp = control_m kr "amp" 0.25 (0,1,"amp")
    endr = 0.5
    jetr = control_m kr "jetr" 0.24 (0,1,"lin")
    jetRa = control_m kr "jetRa" 0.33 (0,1,"lin")
    gate_ = control_m kr "gate" 1 (0,1,"switch")
    release = 0.01
    noisegain = control_m kr "noisegain" 12 (1,36,"lin")
    pan = control_m kr "pan" 0 (-1,1,"lin")
    vib = sinOsc kr 4 0 + (0.001 * noisegain * whiteNoiseId 'α' ar)
    pm = envGen ar gate_ 1 0 1 DoNothing (envAsr att 1 0.2 (EnvNum 1)) * (1.1 + (amp * 0.2)) * vib
    signal = X.dwgFlute ar freq pm endr jetr jetRa 1 release
in pan2 (hpf (lpf signal 6000) 200) pan (0.2 * amp)

-- dwgFlute ; event control
let f (c,g,x,y,z,o,rx,ry,_,_,_) =
      let freq = midiCps (x * 25 + 42)
          vib = sinOsc kr 4 0 + (0.01 * z * whiteNoiseId c ar)
          pm = k2a ((0.1 + z) * vib * g)
          endr = linLin ry 0 1 0.35 0.65
          jetr = linLin y 0 1 0.65 0.85 * lagUD g 0.001 0.25
          jetRa = linLin rx 0 1 0.25 0.85 * lagUD g 0.001 0.25
          signal = X.dwgFlute ar freq pm endr jetr jetRa 1 0.01
      in pan2 (hpf (lpf signal 6000) 200) (o * 2 - 1) 1
in mix (voicer 16 f) * control kr "gain" 0.25