oteyPianoStrings.help.hs

-- oteyPianoStrings
let k = control kr
    freq = k "freq" 440
    gate_ = k "gate" 1
    amp = k "amp" 0.5
    rho = k "rho" 1
    env = envGen ar gate_ 1 0 1 RemoveSynth (envAsr 0 1 0.1 EnvLin)
    loc = linLin freq (midiCps 36) (midiCps 90) (-0.75) 0.75
    s = X.oteyPianoStrings ar freq amp 0 0.35 2 4 8 1 0.07 1.4 (-4) 4 rho 1 1 0 1 0.2 1 1 0.142 1 0.0003 1
in X.oteySoundBoard (pan2 (s * env) loc 0.1) 20 20 0.8