viscosity Posted May 20, 2019 Share Posted May 20, 2019 I'll post some audio experiments here. This was sequenced with Tidalcycles. I'd like to do more with it, but I'll probably build on what I've learned in another track. Here's the code if anyone's curious: 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)] Link to comment Share on other sites More sharing options...
dingformung Posted May 23, 2019 Share Posted May 23, 2019 very interesting sounds Link to comment Share on other sites More sharing options...
viscosity Posted May 24, 2019 Author Share Posted May 24, 2019 Thanks, I like your work, that track in your sig sounds vary jazzy. I got more coming, but I need to figure out why I'm getting these MIDI drop outs to Reaper. I've eliminated allot of Xruns by increasing the latency in Jack, but now I see these in Jack's log: [31mERROR: [0ma2j_process_incoming: threw away MIDI event - not reserved at time 141156560 jack_midi_event_reserve: time parameter is earlier than last reserved event I could tone things down, but it sounds good aside from the unwanted glitchiness. Link to comment Share on other sites More sharing options...
dingformung Posted May 24, 2019 Share Posted May 24, 2019 curious to hear what you will come up with tidalcycles looks interesting, might try it out myself Link to comment Share on other sites More sharing options...
Plarkreluke Banloboh Posted May 25, 2019 Share Posted May 25, 2019 Great sound design. Reminds me of like a cello made out of a malleable material played with some kind of spiraling drill-bow mechanism. The beats sound like a tumbling downhill fist fight that got out of hand. Link to comment Share on other sites More sharing options...
viscosity Posted May 28, 2019 Author Share Posted May 28, 2019 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) ] Link to comment Share on other sites More sharing options...
Plarkreluke Banloboh Posted June 1, 2019 Share Posted June 1, 2019 Tape-like warping and reverses set up the hectic atmosphere for the manic beats. I really like the way the crowd samples stutter in and out to the rapid-fire rhythm. Link to comment Share on other sites More sharing options...
viscosity Posted June 16, 2019 Author Share Posted June 16, 2019 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) ] Link to comment Share on other sites More sharing options...
Mozex Posted June 16, 2019 Share Posted June 16, 2019 I listened a bit to IMUCOV but I think you need to check volume levels, the volume is very low in my opinion Link to comment Share on other sites More sharing options...
viscosity Posted June 16, 2019 Author Share Posted June 16, 2019 Yeah I noticed that too. Have to reupload Link to comment Share on other sites More sharing options...
dingformung Posted June 16, 2019 Share Posted June 16, 2019 On 5/29/2019 at 1:24 AM, viscosity said: Reveal hidden contents 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) ] this is pretty good btw Mozex' advice should be taken with a grain of salt, he's a beginner still (but a strong believer in Jesus Christ so maybe he's right?) Link to comment Share on other sites More sharing options...
viscosity Posted June 17, 2019 Author Share Posted June 17, 2019 thanks dude. it was actually mixed low, I've increased it since Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.