jmcc-strummable-guitar.hs

-- strummable guitar (jmcc) #11
let strummable_guitar_str sc ix =
      let k = constant ix
          x = mouseX kr 0 1 Linear 0.2
          t = abs (hpz1 (x `greater_than` (0.25 + k * 0.1)))
          e = decay t 0.05
          n = pinkNoise ar * e
          dt = 1 / midiCps sc
          s = combL n dt dt 4
      in pan2 s (k * 0.2 - 0.5) 1
    scale = [52,57,62,67,71,76]
    strs = sum (zipWith strummable_guitar_str scale [0..])
in leakDC (lpf strs 12000) 0.995

-- strummable guitar (jmcc) #11 ; id
let strummable_guitar_str sc (ix,z) =
      let k = constant ix
          x = mouseX kr 0 1 Linear 0.2
          t = abs (hpz1 (x `greater_than` (0.25 + k * 0.1)))
          e = decay t 0.05
          n = pinkNoiseId z ar * e
          dt = 1 / midiCps sc
          s = combL n dt dt 4
      in pan2 s (k * 0.2 - 0.5) 1
    scale = [52,57,62,67,71,76]
    strs = sum (zipWith strummable_guitar_str scale (zip [0..] ['α'..]))
in leakDC (lpf strs 12000) 0.995

-- strummable guitar (jmcc) #11 ; event control
let f (_,g,_,y,z,o,_,_,p,_,_) =
      let e = decay (trig g controlDur) 0.05
          n = pinkNoise ar * e
          dt = 1 / unitCps p
          s = combL n dt dt ((y + 1) * 3)
      in pan2 s (o * 2 - 1) (0.5 + latch z g)
in leakDC (lpf (mix (voicer 16 f)) 12000) 0.995 * control kr "gain" 1

-- strummable guitar (jmcc) #11 ; event control ; id
let f (c,g,_,y,z,o,_,_,p,_,_) =
      let e = decay (trig g controlDur) 0.05
          n = pinkNoiseId c ar * e
          dt = 1 / unitCps p
          s = combL n dt dt ((y + 1) * 3)
      in pan2 s (o * 2 - 1) (0.5 + latch z g)
in leakDC (lpf (mix (voicer 16 f)) 12000) 0.995 * control kr "gain" 1