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

# pmOsc is a composite of sinOsc, ie. 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 'α' 0 2000
>                 ;mf = rand 'β' 0 800
>                 ;pme = rand 'γ' 0 12
>                 ;l = rand 'δ' (-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,8,maxBound) (pmi 1)
> L.overlapTextureU (1,2,7,maxBound) (pmi 2)
> L.overlapTextureU (6,6,6,maxBound) (pmi 12)