miRings.help.hs

-- MiRings ; basics ; 0=MODAL_RESONATOR
X.miRings ar (impulse ar 1 0) 0 60 0.25 0.5 0.7 0.25 (X.miRings_mode "MODAL_RESONATOR") 1 0 0 0

-- MiRings ; basics ; 0=MODAL_RESONATOR ; event control
let f (_,g,x,y,z,o,rx,ry,_,_,_) =
      let tr = trig1 g controlDur
          md = X.miRings_mode "MODAL_RESONATOR"
      in X.miRings ar 0
         tr (x * 24 + 36) (latch o tr * 0.75 + 0.25) (y * 0.65 + 0.15) (0.7 - latch rx tr) (0.25 + latch ry tr)
         md 1 0 0 0 * z
in mix (voicer 16 f) * control kr "gain" 4

-- MiRings ; basics
X.miRings ar (pinkNoiseId 'α' ar * 0.05) 0 40 0.25 0.5 0.7 0.25 (X.miRings_mode "MODAL_RESONATOR") 1 0 0 0

-- MiRings ; using theId 'trig' input to excite the resonator ; 1=SYMPATHETIC_STRING
X.miRings ar 0 (dustId 'α' kr 0.7) 33 0.25 0.5 0.7 0.25 (X.miRings_mode "SYMPATHETIC_STRING") 1 0 0 0 * 0.2

-- MiRings ; basics ; 1=SYMPATHETIC_STRING ; event control
let f (_,g,x,y,z,o,rx,ry,_,_,_) =
      let tr = trig1 g controlDur
          md = X.miRings_mode "SYMPATHETIC_STRING"
      in X.miRings ar 0
         tr (x * 24 + 36) (latch o tr * 0.75 + 0.25) (y * 0.65 + 0.15) (0.7 - latch rx tr) (0.25 + latch ry tr)
         md 1 0 0 0 * z
in mix (voicer 16 f) * control kr "gain" 2

-- MiRings ; using theId 'pit' input to set midi pitch and excite the resonator
X.miRings ar 0 0 (range 30 50 (lfNoise0Id 'α' kr 2)) 0.25 0.5 0.7 0.25 (X.miRings_mode "SYMPATHETIC_STRING") 1 0 0 0 * 0.2

-- MiRings ; 2=MODULATED/INHARMONIC_STRING
X.miRings ar 0 0 (range 30 50 (lfNoise0Id 'α' kr 2)) 0.25 0.5 0.7 0.25 (X.miRings_mode "MODULATED/INHARMONIC_STRING") 1 0 0 0 * 0.2

-- MiRings ; basics ; 2=MODULATED/INHARMONIC_STRING ; event control
let f (_,g,x,y,z,o,rx,ry,_,_,_) =
      let tr = trig1 g controlDur
          md = X.miRings_mode "MODULATED/INHARMONIC_STRING"
      in X.miRings ar 0
         tr (x * 24 + 36) (0.25 + latch o tr * 0.15) (0.25 + y * 0.5) (0.7 - latch rx tr * 0.15) (0.25 + latch ry tr * 0.15)
         md 1 0 0 0 * z
in mix (voicer 16 f) * control kr "gain" 2

-- MiRings ; sympathetic strings
let tr = dustId 'α' kr 1
    pit = roundE (range 30 60 (latch (whiteNoiseId 'β' kr) tr))
    struct = range 0 1 (lfNoise2Id 'γ' kr 0.4)
in X.miRings ar 0 0 pit struct 0.5 0.7 0.25 (X.miRings_mode "SYMPATHETIC_STRING") 4 0 0 0 * 0.25

-- MiRings ; inharmonic string
let tr = dustId 'α' kr 3
    trPit = dustId 'β' kr 0.5
    pit = range 30 60 (latch (whiteNoiseId 'γ' kr) trPit)
    struct = range 0.1 1 (latch (pinkNoiseId 'δ' kr) tr)
in X.miRings ar 0 tr pit struct 0.5 0.8 0.25 (X.miRings_mode "MODULATED/INHARMONIC_STRING") 4 0 0 0 * 0.25

-- MiRings ; simple vibrato
let tr = dustId 'α' kr 0.5
    pit = range 36 48 (latch (whiteNoiseId 'β' kr) tr)
    vib = sinOsc kr 3 0
in X.miRings ar 0 0 (pit + vib) 0.2 0.5 0.7 0.25 (X.miRings_mode "MODAL_RESONATOR") 1 0 0 0

-- MiRings ;Id 'intern_exciter' OFF
X.miRings ar (pinkNoiseId 'α' ar * 0.1) (impulse kr 1 0) 60 0.25 0.5 0.7 0.25 (X.miRings_mode "MODAL_RESONATOR") 2 0 0 0 * 0.25

-- MiRings ;Id 'intern_exciter' ON
X.miRings ar (pinkNoiseId 'α' ar * 0.1) (impulse kr 1 0) 60 0.25 0.5 0.7 0.25 (X.miRings_mode "MODAL_RESONATOR") 2 1 0 0 * 0.25

-- MiRings ; intern_exciter ON
let input = crackle ar 1.999 * 0.2
    tr = dustId 'α' ar 0.7
    bright = range 0.1 0.8 (lfNoise1Id 'β' kr 0.4)
    pos = range 0 1 (lfNoise2Id 'γ' kr 0.1)
in X.miRings ar input tr 56 0.1 bright 0.6 pos (X.miRings_mode "MODAL_RESONATOR") 3 1 0 0 * 0.35

-- MiRings ; 5=STRING_AND_REVERB --> spacey ; forceId 'internal exciter'
let md = X.miRings_mode "STRING_AND_REVERB"
    input = pinkNoiseId 'α' ar * 0.2
    tr = dustId 'β' kr 0.7
    struct = range 0 1 (lfNoise1Id 'γ' kr 0.4)
    pos = range 0 1 (lfNoise2Id 'δ' kr 0.1)
in X.miRings ar input tr 60 struct 0.5 0.7 pos md 4 1 0 0 * 0.25

-- MiRings ; easter egg --> drone ; set damp to 1.0 to get a sustaining sound that doesn't need to be triggered
let struct = range 0 1 (lfNoise2Id 'α' kr 0.2)
    brightness = range 0 1 (lfNoise1Id 'β' kr 0.5)
in X.miRings ar 0 0 40 struct brightness 1 0.9 (X.miRings_mode "MODULATED/INHARMONIC_STRING") 2 0 1 0 * 0.25