viscosity

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)]

do --VDEERA

resetCycles;
let a = "1(<2,3,1>,<7>,<0 2>)"
     -- 0   1   2   3
    m1 = [[0.4,0.2,0.2,0.2] --0
     ,[0.4,0.1,0.2,0.3] --1
     ,[0.2,0.3,0.2,0.3] --2
     ,[0.2,0.3,0.4,0.1] --3
     ]
    m2 = -- 4   9
     [[0.8,0.2] --4
     ,[0.2,0.8] --9`
     ]
    p1 = [id --0
     ,(# nudge "[0 0.16]*16") --1
     ,(# nudge "[0 0.32]*32") --2
         ,superimpose (# comb (slow 2 $ range 0.5 1 sine)) --3
     ,(# speed 0.7) --4
     ,(# comb 0.5) --5
     ,every 4 (stutWith 2 (1/3) (# speed 0.5)) --6
     ,striate 2 --7
     ]
    s1 = [struct a $ "9b:50 8s:5 9s:40" --0
     ,struct (inv a) $ "9h:10 8h:10" --1
     ,struct (foldEvery [3,4,5] inv a) $ "9h:12 9h:18 9h:20" --2
     ,(# legato "{0.9 0.5 1.2 0.3 0.8}%7") $ slice "<23 24 25 26 27 28 29 30>" "{1 3 9 12 23}%7" $ "bel" # orbit 1 --3 --07026100 bel
     ,pickF "<0 1 2>" p1 $ euclid "<2,3,1>" "7" $ (scale "yu" $ "-4 2 . -5 3" + "<2 4 -2>" - "<0 -2>") # s "m1" --4
     ,pickF "[7,<0 1 2>]" p1 $ squeeze "[0,1,2,3]" s1 --5
     ,pickF "[3,4,5,7,<0 1 2>]" p1 $ squeeze "[0,1,2,3]" s1 --6
     ,every 8 (rev.(# comb 0.5)) $ slow 2 $ euclid "<2,3,1>" "7" $ squeeze "[6]" s1 --7
     ,inside 2 rev $ squeeze "7" s1 --8
     ,foldEvery [1,3] ((slow 2).(stutWith 2 (1/4)) (striate 2)) $ squeeze "4" s1 --9
     ,(# legato "{0.9 0.5 1.2 0.3 0.8}%7") $ slice "<23 24 25 26 27 28 29 30>" "{1 3 9 12 23}%7" $ "hol" # orbit 1 --10 --07044019 hol
     ,slow 2 $ squeeze (fmap ([5..8]!!) $ markovPat 64 0 m1) s1 --11
     ,slow 2 $ squeeze (fmap ([4,9]!!) $ markovPat 64 0 m2) s1 --12
     ,slow 2 $ squeeze (fmap ([14..17]!!) $ markovPat 64 0 m1) s1 --13
     ,pickF "[7,<0 1 2>]" p1 $ squeeze "[0,1,2,10]" s1 --14
     ,pickF "[3,4,5,7,<0 1 2>]" p1 $ squeeze "[0,1,2,10]" s1 --15
     ,every 8 (rev.(# comb 0.5)) $ slow 2 $ euclid "<2,10,1>" "7" $ squeeze "[6]" s1 --16
     ,inside 2 rev $ squeeze "16" s1 --17
         ,struct "t*128" $ ccv (range 15 100 $ slow 10 sine) # ch 5 # ccn 15 # "m1" --head1 18
         ,struct "t*128" $ ccv (range 20 80 $ slow 9 sine) # ch 5 # ccn 16 # "m1" --head2 19
         ,struct "t*128" $ ccv (range 70 20 $ slow 8 sine) # ch 5 # ccn 17 # "m1" --head3 20
         ,struct "t*128" $ ccv (range 60 30 $ slow 12 sine) # ch 5 # ccn 18 # "m1" --head4 21
         ,struct "t*128" $ ccv (range 0 60 $ slow "<1 2 3 4>" saw) # ch 5 # ccn 42 # "m1" --speed (ips) 22
     ]
d1 $ seqP
     [(0,1, ccv 0 # ch 3 # ccn 25 # "m2" # cps 0.1) --outputgain1
     ,(0,25, (# cps (trigger 1 $ rangex 0.1 1 $ slow 25 envL)) $ stack
         [squeeze "[12,18,19,20,21,22]" s1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 127 64 $ slow 25 envL) # ch 1 # ccn 32 # "m1" --env1 release
         ,struct "t*128" $ ccv (trigger 1 $ rangex 127 64 $ slow 25 envL) # ch 1 # ccn 38 # "m1" --env2 release
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 64 $ slow 25 envL) # ch 2 # ccn 21 # "m1" --osc tune1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 64 0.1 $ slow 25 envL) # ch 5 # ccn 25 # "m1" --modamt 1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 20 0.1 $ slow 25 envL) # ch 5 # ccn 26 # "m1" --modamt 2
         ,struct "t*128" $ ccv (trigger 1 $ rangex 40 0.1 $ slow 25 envL) # ch 5 # ccn 27 # "m1" --modamt 3
         ,struct "t*128" $ ccv (trigger 1 $ rangex 80 0.1 $ slow 25 envL) # ch 5 # ccn 28 # "m1" --modamt 4
         ])
     ,(0,25, degradeBy (trigger 1 $ range 1 0 $ slow 25 envL) $ squeeze "11" s1)
     ,(25,50, squeeze "[11,12]" s1)
     ,(50,56, striate (trigger 1 $ round <$> (rangex 1 25 $ slow 6 envL)) $ squeeze  "[12]" s1)
     ,(50,56, (# cps (trigger 1 $ rangex 1 0.5 $ slow 6 envL)) $ stack
         [squeeze "[11,18,19,20,21]" s1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 64 $ slow 6 envL) # ch 3 # ccn 25 # "m2"--outputgain1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 64 30 $ slow 6 envL) # ch 2 # ccn 21 # "m1" --osc tune1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 64 $ slow 6 envL) # ch 5 # ccn 25 # "m1" --modamt 1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 20 $ slow 6 envL) # ch 5 # ccn 26 # "m1" --modamt 2
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 40 $ slow 6 envL) # ch 5 # ccn 27 # "m1" --modamt 3
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 80 $ slow 6 envL) # ch 5 # ccn 28 # "m1" --modamt 4
         ])
     ,(56,75, stack
         [squeeze "[11,12]" s1
         ,ccv 0 # ch 5 # ccn 25 # "m1" --modamt 1
         ,ccv 0 # ch 5 # ccn 26 # "m1" --modamt 2
         ,ccv 0 # ch 5 # ccn 27 # "m1" --modamt 3
         ,ccv 0 # ch 5 # ccn 28 # "m1" --modamt 4
         ])
     ,(75,76, s "bel" # begin 0.33 # orbit 2)     
     ,(75,81, (# cps (trigger 1 $ rangex 0.5 0.1 $ slow 6 envL)) $ stack
         [squeeze "[18,19,20,21]" s1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 30 0.1 $ slow 6 envL) # ch 2 # ccn 21 # "m1" --osc tune1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 64 $ slow 6 envL) # ch 5 # ccn 25 # "m1" --modamt 1
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 20 $ slow 6 envL) # ch 5 # ccn 26 # "m1" --modamt 2
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 40 $ slow 6 envL) # ch 5 # ccn 27 # "m1" --modamt 3
         ,struct "t*128" $ ccv (trigger 1 $ rangex 0.1 80 $ slow 6 envL) # ch 5 # ccn 28 # "m1" --modamt 4
         ])
     ,(75,81, slicepat 5 "2*3 3/2 4 5*2" $ squeeze "[13,12]" s1 # speed (trigger 1 $ rangex 1 0.5 $ slow 6 envL))
     ,(81,85, stack
         [slicepat 5 "2*3 3/2 4 5*2" $ squeeze "[13,12]" s1 # speed 0.5
         ,ccv 0 # ch 5 # ccn 25 # "m1" --modamt 1
         ,ccv 0 # ch 5 # ccn 26 # "m1" --modamt 2
         ,ccv 0 # ch 5 # ccn 27 # "m1" --modamt 3
         ,ccv 0 # ch 5 # ccn 28 # "m1" --modamt 4
         ])
     ,(85,95, slicepat 5 "2*3 3/2 4 5*2" $ squeeze "12" s1 # speed 0.5)
     ]

do --UMUCOV
setcps 1
resetCycles;
    --  0   1   2   3   4   5
let mc = [[0.1,0.3,0.0,0.3,0.1,0.2] --0
         ,[0.4,0.1,0.1,0.2,0.2,0.0] --1
         ,[0.2,0.1,0.0,0.2,0.2,0.3] --2
         ,[0.3,0.1,0.2,0.1,0.1,0.2] --3
         ,[0.0,0.1,0.3,0.2,0.1,0.3] --4
         ,[0.1,0.3,0.3,0.2,0.0,0.1] --5
     ]
    --  0   1
let mb = [[0.8,0.2] --0
         ,[0.3,0.7] --1
     ]
let pr = [(# nudge "[0 0.9]*11") --0
     ,(# nudge "[0 0.34]*34") --1
     ,(# nudge "[0 0.89]*9") --2
     ,(# comb "0.5") --3
     ,(# comb "0.75") --4
     ,(# comb "0.25") --5
     ,(pickF (fmap ([0..5]!!) $ markovPat 64 0 mc) pr) --6
     ,stutWith 1 (1/8) ((spaceOut (map (1/) [1,1.5..10])).(# speed 0.5)) --7
     ,striate' 2 0.3 --8
     ,(pickF (fmap ([7..8]!!) $ markovPat 64 0 mb) pr) --9
     ]
let ko = "1(<4,2,5>,<7>,<0 3>)"
let sr = [struct ko $ "9s 8t 9b:3 8h:11/2 8h:14/2 [8cp:23 9s:12]/2" --0
     ,struct (inv ko) $ "[[8h:19 8h:13]/2 8co:20]/2 9r:2 9t:33" --1
     ,struct (foldEvery [3,6,2] inv ko) $ "8m:9 [9cp:8 8s:24]/2 8cl:4" --2
     ,struct (foldEvery [3,1,4] inv ko) $ "8m:9 [9b:3 8h:24 [[9cp:9 8cy:14]/2 8b:34]/2]" --3
     ,euclid "<4,2,5>" "<7>" $ (scale "dorian" $ "2 -2 5" + "-3 3" + "-2 4") # s "m1" -30 --4
     ,euclid "<4,2,5>" "<7>" $ (scale "dorian" $ "8 3 -5 . 2 -1" + "-1 2" + "2 3 . 4") # s "m1" --5
     ,euclid "<4,2,5>" "<7>" $ (scale "dorian" $ "9 . -4 2 . -2" + "3 . -2 4" + "<4 2>") # legato 4 # s "m1" -10 --6
     ,struct "t*128" $ ccv (range 100 29 $ slow 3 sine) # ch "1" # ccn (listToPat $ [25..30]) # "m1" --7
     ,struct "t*128" $ ccv (range 40 99 $ slow 3 sine) # ch "2" # ccn (listToPat $ [20..30]) # "m1" --8
     ]
let ok = "1(<4,2,5>,<7>,<0 3>)"
let em = "[0,3] [1,4,6] [2,5] [6 2 ~ [0,5] 2]/5 7"
let iv = "[1,2] 6 [3,4] 5"
    --  0   1   2   3   4
    ma = [[0.1,0.3,0.2,0.3,0.1] --0
         ,[0.4,0.1,0.1,0.2,0.2] --1
         ,[0.2,0.2,0.2,0.2,0.2] --2
         ,[0.5,0.1,0.2,0.1,0.1] --3
         ,[0.1,0.3,0.3,0.2,0.1] --4
     ]
let pi = [(# nudge "[0 0.12]*12") --0
     ,(# nudge "[0 0.17]*17") --1
     ,(# nudge "[0 0.23]*23") --2
     ,(# comb "0.5") --3
     ,(# comb "0.75") --4
     ,(# comb "0.25") --5
     ,striate "<2 3 4>" --6
     ,id --7
     ,pickF (fmap ([0..4]!!) $ markovPat 64 0 ma) pi --8
     ,slow 4 . stutWith 2 (1/3) (# sustain (slow 4 $ range 0.8 2 sine)) --9
     ,striate' "<3 2>" 0.4 . superimpose ((mask (inv ok)).(# speed 2)) . mask ok . pickF "8" pi --10
     ,(# pan (range 0.33 0.66 $ slow 1 saw)) --11
     ,(# pan (range 0.80 0.20 $ slow 2 isaw)) --12
     ,(# pan (range 0.25 0.75 $ slow 3 sine)) --13
     ,(# pan (range 0.90 0.10 $ slow 4 sine)) --14
     ,spaceOut [0.1,0.2..1] --15
     ,euclid "<4,2,5>" "<7>" --16
     ]
let sq = [s "8b" --0
     ,struct ok $ "[8b:48 9b:23]/2 9h:13 8h:24" # orbit 0 --1
     ,pickF 11 pi $ struct (inv ok) $ "8h:38 8h:20 8h:34" # orbit 1 --2
     ,pickF 12 pi $ struct (foldEvery [3,5,2] inv ok) $ "9s:8 8h:23 9cp:2" # orbit 2 --3
     ,pickF 11 pi $ struct (foldEvery [1,6,4] inv ok) $ "8s:8 9h:23 8cp:2" # orbit 3 --4
     ,pickF 12 pi $ struct ok $ "[9b:48 8b:23]/2 8h:13 9h:24" # orbit 4 --5
     ,pickF 11 pi $ struct (inv ok) $ "9h:38 9h:20 9h:34" # orbit 5 --6
     ,squeeze (fmap ([1..5]!!) $ markovPat 64 0 ma) sq --7
     ,pickF em pi $ squeeze iv sq --8
     ,pickF iv pi $ squeeze em sq --9
     ,pickF (rev iv) pi $ squeeze em sq --10
     ,slow 2 $ pickF "<0 1 2>" pi $ euclid "<4,2,5>" "<7>" $ (scale "spanish" $ "2 -4 1 . 9 -3" + "<-2 -5 . 7>" + "<-2 -1>") # s "m1" # legato 4 --11
     ,slow 2 $ pickF "<2 1 0>" pi $ euclid "<4,2,5>" "<7>" $ (scale "spanish" $ "4 -2 8 . -3" + "1 . 5 4" + "<2 3>") # s "m1" # legato 3 --12
     ,slow 2 $ pickF "<2 1 6>" pi $ euclid "<4,2,5>" "<7>" $ (scale "spanish" $ "4 -2 8 . -3" + "1 . 5 4" + "<2 3>") # s "m1" # legato 3 --13
     ,struct "t*128" $ ccv (range 30 90 $ slow 7 isaw) # ch "1" # ccn (listToPat $ [20..34]) # "m1" --osc tune1 14
     ,struct "t*128" $ ccv (range 85 35 $ slow 7 saw) # ch "2" # ccn (listToPat $ [20..34]) # "m1" --osc tune1 15
     ,whenmod 25 20 ((# up (perlin - 0.5)).(striate 2).(# speed (perlin +1))) $ stack [squeeze "[14,15]" sq, slow 2 $ pickF "[10/3 9/2]" pi $ squeeze "[<8 9 10>,<11 12>]" sq] --16
     ,foldEvery [2,3,5] (# speed "0.75") $ pickF "6 7 8 9" pr $ pickF "<0 1 2>" pr $ squeeze "[0,1,2,3,<4 5 6>,7,8]" sr --17
     ,slow 2 $ sew "t(<4,2,5>,<7>,<0 3>)" (squeeze "17" sq) (squeeze "16" sq) --18
     ,pickF 16 pi $ slow 8 $ (scale "aeolian" $ "-3 4 . 1 2" + "<-2 -3 1>" + "<-1 . 4 2 0>") # legato 8 # s "m2" --19
     ,foldEvery [2,4,3] (stutWith 3 (1/3) (striate' 2 ("0.7 0.3" + "<0.1 -0.1 0>"))) $ slice ("<19 14 23 12>" + "<3 1 -2>") ("{2 . 9 5 . 4}%7" + "<1 -1 0>") "aus" # legato ("2 . 1 0.4" + "<0.5 0.8 0>") # speed ("0.9 1.1 0.7" + "<0.1 0>") # gain 0.4 # orbit 6 --20
     ,foldEvery [2,3] (striate' 4 0.7) $ slice "<9>" "{1 2 3 . 9 8 . 6}%7" $ "wel" # speed ("<0.9 1 0.8>" + "<0.1 0>") # gain 0.4 # orbit 7 --21
     ]
let satin = --Heads
         [struct "t*128" $ ccv (range 90 20 $ slow 3 isaw) # ch 5 # ccn 42 # "m1" --Speed ips 0
--
         ,struct "t*128" $ ccv (range 90 20 $ slow 11 cosine) # ch 5 # ccn 15 # "m1" --Distance1 1
         ,struct "t*128" $ ccv (range 80 10 $ slow 7 cosine) # ch 5 # ccn 16 # "m1" --Distance2 2
         ,struct "t*128" $ ccv (range 60 30 $ slow 10 cosine) # ch 5 # ccn 17 # "m1" --Distance3 3
         ,struct "t*128" $ ccv (range 25 55 $ slow 9 cosine) # ch 5 # ccn 18 # "m1" --Distance4 4
--
         ,struct "t*128" $ ccv (range 90 20 $ slow 9 cosine) # ch 5 # ccn 29 # "m1" --Mod Rate1 5
         ,struct "t*128" $ ccv (range 80 10 $ slow 10 cosine) # ch 5 # ccn 30 # "m1" --Mod Rate2 6
         ,struct "t*128" $ ccv (range 60 30 $ slow 7 cosine) # ch 5 # ccn 31 # "m1" --Mod Rate3 7
         ,struct "t*128" $ ccv (range 25 55 $ slow 11 cosine) # ch 5 # ccn 32 # "m1" --Mod Rate4 8
--
         ,struct "t*128" $ ccv (range 88 0 $ slow 50 cosine) # ch 5 # ccn 25 # "m1" --Mod Amt1 9
         ,struct "t*128" $ ccv (range 89 0 $ slow 50 cosine) # ch 5 # ccn 26 # "m1" --Mod Amt2 10
         ,struct "t*128" $ ccv (range 100 0 $ slow 50 cosine) # ch 5 # ccn 27 # "m1" --Mod Amt3 11
         ,struct "t*128" $ ccv (range 127 0 $ slow 50 cosine) # ch 5 # ccn 28 # "m1" --Mod Amt4 12
--
         ,struct "t*128" $ ccv (range 54 74 $ slow 5 cosine) # ch 5 # ccn 33 # "m1" --Balance1 13
         ,struct "t*128" $ ccv (range 74 54 $ slow 6 cosine) # ch 5 # ccn 34 # "m1" --Balance2 14
         ,struct "t*128" $ ccv (range 74 54 $ slow 7 cosine) # ch 5 # ccn 35 # "m1" --Balance3 15
         ,struct "t*128" $ ccv (range 54 74 $ slow 8 cosine) # ch 5 # ccn 36 # "m1" --Balance4 16
--
         ,struct "t*128" $ ccv (range 127 0 $ slow 100 cosine) # ch 5 # ccn 22 # "m1" --Level2 17
         ,struct "t*128" $ ccv (range 127 0 $ slow 100 cosine) # ch 5 # ccn 23 # "m1" --Level3 18
         ,struct "t*128" $ ccv (range 127 0 $ slow 100 cosine) # ch 5 # ccn 24 # "m1" --Level4 19
         ]
let synth = --Synth1
     [struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 0 # ch 6 # "m1" --orbit0 vol 0
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 1 # ch 6 # "m1" --orbit1 vol 1
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 2 # ch 6 # "m1" --orbit2 vol 2
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 3 # ch 6 # "m1" --orbit3 vol 3
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 4 # ch 6 # "m1" --orbit4 vol 4
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 5 # ch 6 # "m1" --orbit5 vol 5
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 6 # ch 6 # "m1" --orbit6 vol 6
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 7 # ch 6 # "m1" --orbit7 vol 7
     ,struct "t*128" $ ccv (range 64 0 $ slow 10 cosine) # ccn 8 # ch 6 # "m1" --orbit7 vol 8
     ,struct "t*128" $ ccv (range 32 0 $ slow 25 saw) # ch 2 # ccn 82 # "m1" --Voice1 9
     ,ccn (listToPat [0..6]) # ccv 64 # ch 6 # "m1" --ALL 10
     ,struct "t*128" $ ccv (range 0 127 $ slow 9 saw) # ch 2 # ccn 80 # "m1" --Glide 11
     ,struct "t*128" $ ccv (range 32 0 $ slow 9 saw) # ch 2 # ccn 82 # "m1" --Voice1 12
     ]
let trans =
     [(# cps (trigger 1 $ rangex 0.1 1 $ slow 25 envL)) --0
     ,degradeBy (trigger 1 $ rangex 0.1 1 $ slow 23 envL) --1
     ,(# speed (trigger 1 $ rangex 1 0.5 $ slow 23 envL)) --2
     ,(# speed (trigger 1 $ rangex 1.5 1 $ slow 5 envL)) --3
     ,degradeBy (trigger 1 $ rangex 0.1 1 $ slow 10 envL) --4
     ,(# cps (trigger 1 $ rangex 0.1 1 $ slow 1 envL)) --5
     ,(# speed (trigger 1 $ rangex 0.5 1 $ slow 1 envL)) --6
     ,(# speed (trigger 1 $ rangex 1 0.5 $ slow 5 envL)) --7
     ,(# speed (trigger 1 $ rangex 1 0.75 $ slow 50 envL)) --8
     ,(# speed (trigger 1 $ rangex 0.75 0.5 $ slow 25 envL)) --9
     ]
d1 $ rotL 0 $ seqP
     [(0,25, squeeze (listToPat [0..16]) satin)
     ,(0,50, squeeze (listToPat [17..19]) satin)
     ,(0,25, pickF 0 trans $ squeeze "[19,20,21]" sq)
     ,(25,48, pickF 1 trans $ pickF 2 trans $ squeeze 17 sq)
     ,(25,51, squeeze 9 synth)
     ,(50,75, pickF 3 trans $ squeeze 18 sq)
     ,(75,95, pickF 7 trans $ squeeze 18 sq)
     ,(50,55, squeeze 0 synth)
     ,(55,60, squeeze 1 synth)
     ,(60,65, squeeze 2 synth)
     ,(65,70, squeeze 3 synth)
     ,(70,75, squeeze 4 synth)
     ,(75,80, squeeze 5 synth)
     ,(90,100, squeeze "[11,12]" synth)
     ,(100,101, pickF 5 trans $ pickF 6 trans $ squeeze 10 synth)
     ,(100,150, pickF 8 trans $ pickF 15 pi $ squeeze 16 sq)
     ,(150,151, squeeze (listToPat [0..16]) satin)
     ,(150,151, squeeze (listToPat [17..19]) satin)
     ,(150,151, pickF 0 trans $ slicepat 5 "4 2/2 [1 3] 5" $ squeeze "[19,20,21]" sq)
     ]