> import Data.List {- base -}
> import Sound.SC3 {- hsc3 -}

Play a little rhythm

> g_01 =
>     let d = dseq 'α' dinf (mce [0.1, 0.2, 0.4, 0.3])
>     in tDuty AR d 0 DoNothing 1 0

Amplitude changes

> g_02 =
>     let d0 = dseq 'α' dinf (mce [0.1, 0.2, 0.4, 0.3])
>         d1 = dseq 'β' dinf (mce [0.1, 0.4, 0.01, 0.5, 1.0])
>     in ringz (tDuty AR d0 0 DoNothing d1 1) 1000 0.1

Mouse control.

> g_03 =
>     let d = dseq 'α' dinf (mce [0.1, 0.4, 0.01, 0.5, 1.0])
>         x = mouseX KR 0.003 1 Exponential 0.1
>     in ringz (tDuty AR x 0 DoNothing d 1) 1000 0.1 * 0.5

Note that the 440 is the shorter pitch, since gap is set to false

> g_04 =
>     let d0 = dser 'α' 12 (mce [0.1, 0.3])
>         d1 = dser 'β' 12 (mce [440, 880])
>         t = tDuty AR d0 0 RemoveSynth d1 0
>     in sinOsc AR (latch t t) 0 * 0.1

Abstraction

> g_05 =
>     let bp n d act = let (e,t) = unzip d
>                          mk z l = dser z n (mce l)
>                          sq = tDuty AR (mk 'α' t) 0 act (mk 'β' e) 0
>                      in latch sq sq
>         bp' d = bp (genericLength d) d
>         tm m = let f (e,t) = (e,t * m) in map f
>         f1 = midiCPS (bp 35 (tm 0.125 [(60,1),(63,1),(67,2),(68,1),(62,1)]) RemoveSynth)
>         f2 = midiCPS (bp' [(60,1),(63,0.5),(67,0.5),(68,1),(62,1)] DoNothing)
>     in sinOsc AR (mce2 f1 f2) 0 * 0.1