Jump to content

Recommended Posts

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

 

  • Like 1

Share this post


Link to post
Share on other sites

very interesting sounds

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

curious to hear what you will come up with

tidalcycles looks interesting, might try it out myself

Share this post


Link to post
Share on other sites

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.  

Share this post


Link to post
Share on other sites
Posted (edited)

 

 

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

Edited by viscosity

Share this post


Link to post
Share on other sites

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.  

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...