do setcps 0.4 let dg = degradeBy shifta p = ((<~) p) shiftb p = ((~>) p) -- all -- $ every 5 (shiftb "0 25 50 25 50 50 25 0 0 25") d1. dg "0.3" $ struct (often (fast 3)"[t(7,12)]") $ n (fmap ([-11, 6, 8, 6]!!) $ markovPat 8 1 [[3,5,2,12], [4,4,2,1], [1,1,1,1], [1,1,1,1]]) # s "midi" # midichan 7 # amp 0.15 d5. dg "0.9" $ n "[[-9 -7 -5, 7]*3.0, 12*0.5 3 2, 19]" # s "midi" # midichan 9 # amp 0.25 d3 . dg "0" $ cat[n (always (fast 2)"[c5(7,12), b4 b4, e5*12]"), n "[c5(6,12), b4 b4 b4 b4 b4 b4, e5*9]"] # s "midi" # midichan 4 --d4 . dg "0.7" $ struct (always (fast 2)"[t(7,12)]") $ n (fmap ([-4,-14, 0]!!) $ markovPat 8 1 [[3,5,2], [4,4,7], [1,1,5]]) # s "midi" # midichan 8 d4 silence d2 . dg "0.5" $ struct (almostAlways (fast 2)"[t t t t]") $ n (fmap ([-24,0, 0, -4 , -4]!!) $ markovPat 24 1 [[20,1,1,1,1], [0,2,1,0,0], [1,0,0,1,0], [1,0,1,0,0], [0,0,1,0,1]]) # s "midi" # midichan 6 d6 $ stack [ dg "0.1" $ ccv "60 60 60 60 55 75 85" # ccn 1 # s "midi" # midichan 4, --snare noise decay dg "0.11" $ ccv "18 19 20 21 22" # ccn 2 # s "midi" # midichan 4, --kick pitch dg "0.1" $ ccv "30? 40? 60? 50? 40 40" # ccn 3 # s "midi" # midichan 4, --hat noise decay dg "0" $ ccv "40 47 60 70 80" # ccn 20 # s "midi" # midichan 6, --LPF Cutoff dg "0.1" $ ccv "60" # ccn 21 # s "midi" # midichan 6, --Amp Release dg "0.0" $ ccn "20" # ccv (range 65 70 $ slow 15 sine) # s "midi" # midichan 9, --Synth 1 LPF Cutoff; notice the syntax reordering here (the only way it works) dg "0.0" $ ccn "21" # ccv 0 # s "midi" # midichan 9, --Synth 1 LFO 1 Amount dg "0.55" $ ccv "20 15 60 60 75 100" # ccn 22 # s "midi" # midichan 8, -- Panning, stereo dg "0.55" $ ccv "5 15 20 25 55" # ccn 21 # s "midi" # midichan 8, --Ratio Multiplier dg "0.15" $ ccv "65" # ccn 00 # s "midi" # midichan 7]--Formant Select

eczem is the computronic music project of Elliott Watson