PLUTTE

do -- YEQEEQ
resetCycles
let dr = every 3 rev $ foldEvery [2,5,6] (0.5 ~>) $ run 8
    pr = (# nudge "[0 0.07]*4").(# speed 0.9).(# pan "<0.5 0.3 0.2 0.6>")
    a =    
     [stack [pr $ (# n (dr + "111 90 50 78")) $ "808(3,8)" # comb "<0.1 0.9>", slow 8 $ slice 5 "5 4 3 2 1" $ "mri" # sustain "<0.1>" # speed "<1.5 2>" # comb 0.5]
     ,stack [pr $ (# n (dr + "124 24 11 200")) $ "808(3,7)" # comb "<0.8 0.2>", slow 16 $ slice 10 "5 4 3 2 1" $ "mri" # sustain "<0.1>" # speed "<2 1.5>" # comb 0.5]
     ,stack [pr $ (# n (dr + "0 289 59 178")) $ "808(2,5)" # comb "<0.3 0.7>"] --slow 4 $ slice 15 "5 4 3 2 1" $ "mri" # sustain "<0.1>" # speed "<1.5 2>" # comb 0.5]
     ,note (scale "hexSus" $ "1 3 . 4 8 5" + "<0 1 -2 -3>" + "<0 -1 2>") # s "m1" -5
     ]
    b =
     [n "<124 43>" # "808(2,5)" --0
     ,fast 2 $ n "<153 124>" # "808(3,4)" --1
     ,n "<24 4>" # "808(3,5,2)" --2
     ,every 3 (fast 2) $ n "<214 54>" # "808(3,7)" --3
     ,n "<219 14>" # "808(3,8)" --4
     ,n "<12 9>" # "808(4,7)" --5
     ,every 2 (fast 2) $ n "<192 270>" # "808(4,9)" --6
     ,n "<239 97>" # "808(4,9)" --7
     ,note (scale "hexSus" $ "1 2 . 3 4 5" + "<0 1 -2 3>" + "<0 1 2>") # s "m1" --8
         ,note (scale "hexSus" $ "3 8 3 . 4 2" + "<1 -2 3>" + "<2 3 -1>") # s "m1" --9
         ,note (scale "hexSus" $ "4 . 3 9" + "<4 2 3>" + "<3 2>") # s "m1" --10
     ,(# legato "<0.7 0.8 1>") $ slice "<24 44>" "2 9 10 11" $ "cha" --11
     ,(# legato "<0.7 0.8 1>") $ slice "<24 44>" "2 9 10 11" $ "bla" --12
     ]
    c =
     fast 5
     $ every 3 (striate 2)
     $ squeeze (fmap ([0..2]!!)
     $ markovPat 64 0
     -- 0   1   2   3
     [[0.6,0.2,0.2] --0
     ,[0.4,0.3,0.3] --1
     ,[0.2,0.6,0.2] --1
     ]) a
    d =
     slow 4
     $ striate 4
     $ squeeze 3 a
    e =
     fast 4 $ (# cut 0) $ squeeze (fmap ([0..7]!!) $
     markovPat 64 0
     [[0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.2, 0]
     ,[0.1, 0.2, 0.1, 0, 0.2, 0.1, 0.2, 0.1]
     ,[0.1, 0.1, 0.2, 0.1, 0.2, 0.1, 0.1, 0.1]
     ,[0.1, 0.2, 0, 0.1, 0.1, 0.2, 0.2, 0.1]
     ,[0.3, 0.1, 0.1, 0.1, 0.2, 0.2, 0, 0]
     ,[0.3, 0, 0.1, 0.1, 0.1, 0.2, 0.1, 0.1]
     ,[0.1, 0.2, 0.1, 0, 0.2, 0.2, 0.2, 0]
     ,[0.1, 0.2, 0.1, 0, 0.2, 0.1, 0.2, 0.1]
     ]) b
    f =
     striate 4 $ slow 1 $ squeeze "8" b
    h =
     [e --0
     ,stack [e,f] --1
     ,stack [append (e) (c),f] --2
     ,append (stack [e,f]) (stack [c,d]) --3
     ,stack [c,append (f) (d)] --4
     ,stack [c,d] --5
     ,d --6
     ]
--d1 $ foldEvery [3,4,5] (striate 2) $ squeeze "5" h
    i =  seqP [
     (0, 120, squeeze (slow 120 $ listToPat $ foldr (++) [] (map (replicate 20) [1..6])) h),
     (100, 120, struct "t*128" $ ccv (trigger 1 $ range 32 0 $ slow 20 envL) # ch 1 # ccn 55 # "m1"), --output
     (0, 120, struct "t*128" $ ccv (trigger 1 $ range 96 32 $ slow 120 envL) # ch 2 # ccn 94 # "m1"), --freq
     (0, 120, struct "t*128" $ ccv (trigger 1 $ range 96 32 $ slow 120 envL) # ch 2 # ccn 21 # "m1"), --tune1
     (0, 60, struct "t*128" $ ccv (trigger 1 $ range 96 64 $ slow 60 envL) # ch 2 # ccn 20 # "m1") --tune2moddepth
     ]
d1 $ foldEvery [3,4,5] (striate 2) $ seqP [ (0,120, outside 120 rev i), (120,240, i)]

YEQEEQ

VDEERA

IMUCOV

ovitus

Popular tracks