hsc3-0.8: Help/UGen/External/fm7.help.lhs
fm7 ctl mod
fm7, stefan kersten, phase modulation oscillator matrix.
http://darcs.k-hornz.de/repos/skUG/
fm7 implements a 6x6 oscillator matrix, where each
oscillator's phase can be modulated by any of the
other oscillators' output.
The UGen expects two (flattened) matrices: one for
specifying the oscillator parameters frequency
(control rate), phase (initialization only) and
amplitude (control rate):
[ [ 300, 0, 1 ],
[ 400, pi/2, 1 ],
[ 730, 0, 0.5 ],
[ 0, 0, 0 ],
[ 0, 0, 0 ],
[ 0, 0, 0 ] ]
The modulation matrix specifies the amount of
modulation each oscillator output has on another
oscillator's phase. Row i in the matrix refer to
oscillator i's phase input and the columns denote
the amount of phase modulation in radians.
The UGen outputs the six individual oscillator
signals.
> import Sound.SC3
> let { c = [ [xLine KR 300 310 4 DoNothing, 0, 1]
> , [xLine KR 300 310 8 DoNothing, 0, 1]
> , [0, 0, 1]
> , [0, 0, 1]
> , [0, 0, 1]
> , [0, 0, 1] ]
> ; m = [ [line KR 0 0.001 2 DoNothing, line KR 0.1 0 4 DoNothing, 0, 0, 0, 0]
> , [line KR 0 6 1 DoNothing, 0, 0, 0, 0, 0]
> , [0, 0, 0, 0, 0, 0]
> , [0, 0, 0, 0, 0, 0]
> , [0, 0, 0, 0, 0, 0]
> , [0, 0, 0, 0, 0, 0] ]
> ; MCE [l, r, _, _, _, _] = fm7 c m }
> in audition (out 0 (mce2 l r * 0.1))
An algorithmically generated graph courtesy f0.
> let { x = [ [ [ 0.0, -0.33333333333333, -1.0, 0.0 ]
> , [ 0.75, 0.75, 0.0, -0.5 ]
> , [ -0.5, -0.25, 0.25, -0.75 ]
> , [ -0.5, 1.0, 1.0, 1.0 ]
> , [ 0.0, 0.16666666666667, -0.75, -1.0 ]
> , [ 0.5, 0.5, -0.5, 0.33333333333333 ] ]
> , [ [ -0.33333333333333, 0.5, -0.5, -0.5 ]
> , [ 0.5, 0.75, 0.25, 0.75 ]
> , [ -0.83333333333333, 0.25, -1.0, 0.5 ]
> , [ 1.5, 0.25, 0.25, -0.25 ]
> , [ -0.66666666666667, -0.66666666666667, -1.0, -0.5 ]
> , [ -1.0, 0.0, -0.83333333333333, -0.33333333333333 ] ]
> , [ [ 0.25, -0.5, -0.5, -1.0 ]
> , [ -0.5, 1.0, -1.5, 0.0 ]
> , [ -1.0, -1.5, -0.5, 0.0 ]
> , [ 0.5, -1.0, 1.1666666666667, -0.5 ]
> , [ 0.83333333333333, -0.75, -1.5, 0.5 ]
> , [ 0.25, -1.0, 0.5, 1.0 ] ]
> , [ [ 1.0, 0.33333333333333, 0.0, -0.75 ]
> , [ -0.25, 0.0, 0.0, -0.5 ]
> , [ -0.5, -0.5, 0.0, 0.5 ]
> , [ 1.0, 0.75, 0.5, 0.5 ]
> , [ 0.0, 1.5, -0.5, 0.0 ]
> , [ 1.0, 0.0, -0.25, -0.5 ] ]
> , [ [ 0.5, -0.25, 0.0, 0.33333333333333 ]
> , [ 0.25, -0.75, 0.33333333333333, -1.0 ]
> , [ -0.25, -0.5, 0.25, -1.1666666666667 ]
> , [ 0.0, 0.25, 0.5, 0.16666666666667 ]
> , [ -1.0, -0.5, 0.83333333333333, -0.5 ]
> , [ 0.83333333333333, -0.75, -0.5, 0.0 ] ]
> , [ [ 0.0, -0.75, -0.16666666666667, 0.0 ]
> , [ 1.0, 0.5, 0.5, 0.0 ]
> , [ -0.5, 0.0, -0.5, 0.0 ]
> , [ -0.5, -0.16666666666667, 0.0, 0.5 ]
> , [ -0.25, 0.16666666666667, -0.75, 0.25 ]
> , [ -1.1666666666667, -1.3333333333333, -0.16666666666667, 1.5 ] ] ]
> ; y = [ [ [ 0.0, -0.5, 1.0, 0.0 ]
> , [ -0.5, 1.0, 0.5, -0.5 ]
> , [ 0.0, 0.33333333333333, 1.0, 1.0 ] ]
> , [ [ -0.5, 0.5, 1.0, 1.0 ]
> , [ 0.0, 0.33333333333333, 0.0, 1.5 ]
> , [ -0.5, 0.83333333333333, 1.0, 0.0 ] ]
> , [ [ 0.25, -0.66666666666667, 0.25, 0.0 ]
> , [ 0.5, -0.5, -0.5, -0.5 ]
> , [ 0.5, -0.5, -0.75, 0.83333333333333 ] ]
> , [ [ -0.25, 1.0, 0.0, 0.33333333333333 ]
> , [ -1.25, -0.25, 0.5, 0.0 ]
> , [ 0.0, -1.25, -0.25, -0.5 ] ]
> , [ [ 0.75, -0.25, 1.5, 0.0 ]
> , [ 0.25, -1.5, 0.5, 0.5 ]
> , [ -0.5, -0.5, -0.5, -0.25 ] ]
> , [ [ 0.0, 0.5, -0.5, 0.25 ]
> , [ 0.25, 0.5, -0.33333333333333, 0.0 ]
> , [ 1.0, 0.5, -0.16666666666667, 0.5 ] ] ]
> ; cs = map (map (\[f, p, m, a] -> sinOsc AR f p * m + a)) x
> ; ms = map (map (\[f, w, m, a] -> pulse AR f w * m + a)) y
> ; MCE [c1, c2, c3, _, c4, c5] = fm7 cs ms
> ; g3 = linLin (lfSaw KR 0.1 0) (-1) 1 0 (dbAmp (-12))
> ; g5 = dbAmp (-3) }
> in audition (out 0 (mce [c1 + c3 * g3 + c5 * g5, c2 + c4 + c5 * g5]))