moogLadder.help.hs

-- moogLadder
let o = mix (lfSaw ar (mce2 120 180) 0 * 0.33)
    cf = linExp (lfCub kr 0.1 (0.5 * pi)) (-1) 1 180 8500
in X.moogLadder o cf 0.75

-- moogLadder
let n = dustId 'α' ar 3
in X.moogLadder n 2000 (mouseY kr 0 1 Linear 0.2)

-- moogLadder ; event control
let f (_,g,_,y,z,o,rx,ry,p,_,_) =
      let f0 = unitCps p
          f1 = f0 * (1 + y * 8)
          res = rx + ry
          env = lagUD g 0.05 (2 - y * 2) * (2 - y) * z
      in pan2 (X.moogLadder (lfSaw ar f0 0) f1 res) (o * 2 - 1) env
in mix (voicer 16 f) * control kr "gain" 1

-- moogLadder ; wind (Id)
let mk k = let n = whiteNoiseId k ar
               force = lfNoise2Id k kr 0.25 `in_range` (0.25,0.75)
               freq = pianokey_to_cps (force * 88)
           in X.moogLadder n freq force
in splay (mceFillInt 6 mk) 1 1 0 True

-- moogLadder ; wind (Unsafe)
let mk _ = let n = whiteNoise ar
               force = lfNoise2 kr 0.25 `in_range` (0.25,0.75)
               freq = pianokey_to_cps (force * 88)
           in X.moogLadder n freq force
in splay (mceFill 6 mk) 1 1 0 True