> Sound.SC3.UGen.Help.viewSC3Help "PMOsc"
> :t pmOsc

# composite
sinOsc r cf (sinOsc r mf mp * pm)

> import Sound.SC3.ID

Random parameters, linear modulation index motion over n seconds
> let pmi n = let {cf = rand 'a' 0 2000
>                 ;mf = rand 'b' 0 800
>                 ;pme = rand 'c' 0 12
>                 ;l = rand 'd' (-1) 1
>                 ;pm = line KR 0 pme n DoNothing}
> in linPan2 (pmOsc AR cf mf pm 0) l 0.05

> audition (out 0 (pmi 2))

PM textures
> import qualified Sound.SC3.Lang.Control.OverlapTexture as L
> L.overlapTextureU (0,1,5,maxBound) (pmi 1)
> L.overlapTextureU (6,6,6,maxBound) (pmi 12)