20190530.tidal

setcps (175/60/4)

-- PULSE =======================================================================

unsolo "pulse-sub"

unmute "pulse-synth"

do -- pulse --------------------------------------------------------------------
  let myRate = 32
  let attackMod = range 0.5 0.2 (slow (myRate) $ rand)
  -- let attackMod = range 0.9 0.2 (slow (myRate) $ rand)
  let speedMod = (range 4 0.65 (slow myRate (rand)))
  let sustainMod = (range 1.2 0.4 (slow myRate (sine)))
  -- let sustainMod = (range 1.8 0.4 (slow myRate (sine)))
  -- let sustainMod = (range 4 0.4 (slow myRate (rand)))
  -- let sustainMod = (range 0.05 0.1 (slow myRate (rand)))
  -- let slowMod = 0.25
  let slowMod = 4
  let subMulti = 0.5
  --
  p "pulse-sub"
    $ slow (slowMod/1)
    $ sound "[msp808]"
    -- SWEEP
    # pF "att" attackMod
    # speed speedMod
    # sustain (sustainMod * subMulti)
    # voice (range 0.6 0.3 (slow myRate (sine)))
    # shape (range 0.05 0.5 (slow (myRate) (sine)))
    # lpf (range 3000 50 (slow (myRate*4) (cosine)))
    -- # lpq 0.3
    -- MAX MIX for test
    -- # speed 0.5
    -- # sustain 1
    -- # voice 1
    -- # shape 0.6
    -- # resonance 0.5
    # gain 0.8
    # orbit out2
  p "pulse-synth"
    $ slow slowMod
    -- $ struct "1 0 1 1"
    $ sometimesBy 0.1 (|+ n 2)
    $ sometimesBy 0.1 (rev)
    $ sound "[mspsuperpwm]"
    -- *| n ("<g3 f4? [~ g3]? a4>" |+ "<'m9'6>")
    *| n ("<g3 f4 [g3] a4>" |+ "<'m9'6>")
    -- *| n ("<g3 f4 [~ g3] a4>" |+ "<'m9'6>")
    -- *| n (scale "chromatic" "<g3 f4 [~ g3] a4>" |+ "<'m9'6>") --default scale
    -- *| n (scale "egyptian" ("<g3 f4 [~ g3] a4>" |+ "<'m9'6>"))
    # pF "att" attackMod
    # sustain sustainMod
    # voice (range 0.2 0.5 (slow myRate (sine)))
    # distort (range 0.05 0.1 (slow (myRate) (sine)))
    # resonance 0.05
    # lfo (range 0.2 1 (slow (myRate) (sine)))
    # rate (range 1 0.1 (slow (myRate) (sine)))
    -- # pitch1 9
    -- # semitone 16
    # gain 0.9
    # orbit out5

p "pulse-sub" $ silence

p "pulse-synth" $ silence

-- MAIN ========================================================================

p "main" -----------------------------------------------------------------------
  $ degradeBy 0
  -- $ skip
  -- $ skip
  -- $ skip
  -- $ skip
  $ sometimesBy 0.2 (# n (irand 6))
  $ sound "[bd:1(<3 3 3 3 3 3 3 2>, 8, <0 0 0 2 0 0 0 3>)]"
  -- $ sound "[bd:1(<2 4 2 4 3>, 8, 0)]" -- use with 0 or 2 skips!
  # speed (range 1 0.8 $ slow 2 $ rand)
  # distort (range 0 0.1 $ slow 3 $ cosine)
  # gain "1 0.9 0.9 0.7 0.5 0.5 0.5"
  # orbit out1

p "main" $ silence

unsolo "main"

p "clicker" --------------------------------------------------------------------
  $ fix (|- gain 0.3) (sound "e")
  $ slow 1
  $ sometimesBy 0.6 (fast 2)
  $ sound "[click, e]*4"
  # n (irand 8)
  # speed (range 0.8 0.8 (slow 16 (cosine)))
  # shape (range 0.9 0.2 (slow 32 (cosine)))
  # hpf (range 1000 500 (slow 4 (saw)))
  # gain 1
  # pan (choose [0.3,0.7])
  # orbit out3

p "clicker" silence

unsolo "clicker"

p "metro" ----------------------------------------------------------------------
  $ sound "e*4"
  # n (irand 8)
  # hpf (range 1000 5000 (slow 3 (rand)))
  # sustain "[0.2 0.1 0.4]*7"
  # orbit out4
  # gain (range 0.6 0.4 (slow (myRate*2) (sine)))

p "metro" $ silence

unsolo "metro"

p "hat-fx" ---------------------------------------------------------------------
  $ stack [
    sound "~"
    -- ,sound "superhat*8" # hpf (range 5000 9000 (slow 3 (sine))) #accelerate 0.2 #sustain (range 0.4 0.1 (slow 32 (rand))) # gain 0.55
    ,sound "[haw:5 ~ ~ ~ ~ ~ haw:3/2 ~ ~]*2"
      # speed (range 0.8 1.3 (slow 16 cosine))
      # distort 0.8
      # hpf (range 200 2000 (slow 3 (sine)))
      # gain (range 0.50 0.3 (slow (myRate*2) (sine)))
    ,sound "<[<psr rave> ~]*2 ~ ~>/1" # n (irand 20) # bpf 2000 # shape 0.8 # speed 0.5 # gain 0.45
  ]
  # sustain "[0.2 0.1 0.4]*7"
  # pan (choose [0.1,0.9])
  # orbit out4

p "hat-fx" $ silence

unsolo "hat-fx"

p "hat-175" --------------------------------------------------------------------
  $ sound "superhat*8"
  # hpf (range 5000 9000 (slow 3 (sine)))
  # accelerate 0.2
  # sustain (range 0.4 0.1 (slow 32 (rand)))
  -- # sustain "[0.2 0.1 0.4]*7"
  # pan (choose [0.1,0.9])
  # gain 0.45
  # orbit out4

p "hat-175" $ silence

unsolo "hat-175"

p "snares" ---------------------------------------------------------------------
  $ sometimesBy 0.2 (fast 2)
  -- $ sometimesBy 0.05 (fast 3)
  -- $ every 3 (const
  $ every 3 (const
  -- $ every 1 (const
  -- $ degradeBy 0
  -- $ degradeBy 0.2
    $ sound "mspdxkSd3(<3 3 1 3 5 0 8>, 8 , <0 0 3 0>)"
    -- $ sound "mspdxkSd3(<8 8 1 3 5 0 8>, 8 , <0 0 3 0>)"
    -- $ sound "mspdxkSd3*8"
    # shape 0.6
    # pF "basefreq" 150
    # pF "len" (range 0.3 0.2 $ slow 4 $ rand)
    # pF "tone" (range 0.1 3 $ slow 16 $ cosine)
    # pF "rq" (range 0.05 0.3 $ slow myRate $ cosine)
    # gain "0.3 0.6 0.7"
    |- gain 0.13
    -- # pan (slow 3 $ rand) -- why does this not pan?!
    # orbit out4
  )
  $ sound "~"
  # orbit out4

p "snares" $ silence

unsolo "snares"

p "stabs" ----------------------------------------------------------------------
  -- $ skip
  -- $ skip
  -- $ skip
  $ sometimesBy 0.1 (|+ n 2)
  $ sometimesBy 0.05 (|- n 1)
  $ every 7 (|+ sustain "1 0.5 0.6")
  $ every 7 (0.25 <~)
  -- $ struct "1 0 <1 0 1> 1/2 1 1 <1 0> <1 [1 1] 0>"
  $ struct "t(<3 1 3 1 5 1 2 3>, 8, <0 0 0 2 0 0 0 3>)"
  -- $ struct "t(3,8)"
  $ sound "[mspsupertron]"
  *| n (scale "chromatic" "<[~ g3] [~ f4] [~ g3] a4>" |+ "<'m9'8>")
  -- # pF "att" (attackMod * 2)
  # pF "att" 0.8
  -- # sustain (sustainMod)
  # sustain 2
  # release 1
  # voice (range 1 0 (slow myRate (rand)))
  # detune (range 0 3 (slow (myRate) (cosine)))
  # djf (range 0.75 0.8 (slow 4 rand))
  # octave 6
  # gain 1.0
  -- # orbit out7

p "stabs" $ silence

unsolo "stabs"

p "sq-bass" --------------------------------------------------------------------
  $ sometimesBy 0.08 (fast 2)
  $ sometimesBy 0.05 (slow 3)
  $ sometimesBy 0.05 (# speed (- 0.25))
  $ sometimesBy 0.02 (# speed (- 0.5))
  $ sometimesBy 0.1 (|+ n 2)
  $ every 15 (|+ sustain "2 1 1.5")
  $ every 5 (# begin "0.02 0 0.01")
  $ every 3 (0.25 <~)
  $ sometimesBy 0.1 (rev)
  $ struct "t(<3 <2 4> 3 <5 3> 3 5 2 3>, 8, <0 0 0 2 0 0 0 3>)"
  -- $ struct "t(<3 2 4>, 8)"
  $ sound "[mspplucklead]"
  *| n (scale "chromatic" "<g2 f3 [~ g2] a3>")
  # speed (0.5)
  # sustain (range 1 0.5 (slow myRate (rand)))
  # begin (range 0 0.03 (slow 16 (rand)))
  # gain 0.95
  # orbit out7

p "sq-bass" $ silence

unsolo "sq-bass"


-- HYPNO =======================================================================

p "scales" ---------------------------------------------------------------------
  $ every 1 (const
    $ slow 2
    $ every 15 (rev)
    -- $ n (scale "dorian" "0..12")
    -- 5 note maj pentatonics
    -- $ n (scale "egyptian" "0..12")
    $ n (scale "ritusen" "0..12") -- 5 note maj pentatonic
    -- $ n (scale "majPent" "0..12") -- 5 note maj pentatonic
    -- END 5 note maj pentatonics
    -- $ n (scale "chromatic" "0..12")
    # sound "<mspwob>"
    # sustain (range 0.7 3 $ slow 12 $ cosine)
    -- # sustain 0.3
    # djf (range 1 0 $ fast 4 $ rand)
    # speed (range 1 0.99 $ fast 48 $ cosine)
    # octave 6
    # gain "0.7 0.6"
    # orbit out6
  )
  $ sound "~"
    # orbit out6

p "scales" silence

unsolo "scales"


-- SYNTHS / ANA4 ===============================================================

--------------------------------------------------------------------------------
-- RECYCLE BIN -----------------------------------------------------------------
--------------------------------------------------------------------------------
--
--













d1
$ sound "odx"
*| n "0*3 1 2"


d1
  $ slow 2
  -- $ every 7 (slow 3)
  -- $ every 7 (rev)
  $ fix (# gain 0.7) (s "donk")
  $ fix (# gain 0.8) (s "plucklead")
  $ fix (# gain 0.8) (s "vibsawpluck")
  $ fix (# gain 1) (s "808bd")
  $ note
    (
      -- mask ("1 ~ 1 ~ ")
      -- mask ("1 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 1 1 ~")
      (scale "hexPhrygian"
      -- (scale "minor"
        $ snowball 8 (+) (slow 3)
        -- $ "e5 g3 c3"
        $ run "<5 2 6 2>"
        -- $ run "<20 30 10 20>"
      )
    )
  -- # sound "[vibsawpluck(<4 2 3 1 0>, 8), donk(<0 1 3 2>, 8)]"
  -- # sound "[vibsawpluck(<4 2 3 1 0>, 8)]"
  -- # sound "[vibsawpluck, donk]"
  -- # sound "[[X808sd:1(4,8)], [X808bd:1(3,8)]/4, vibsawpluck(<4 2 3 1 0>, 8), Xdonk(<0 1 4 2>, 8)]"
  # sound "[mspplucklead(<0 1 2 3 4>, 8)]"
  -- # octave "<5 5 8 0>"
  # sustain (range 1 3 $ slow 64 $ cosine)
  # speed (range 1 0.98 $ slow 6 $ cosine)
  -- # cps (range 0.5 5 $ slow 2 $ cosine)
  -- # cps (range 0.5 8 $ rand)
  # cps 2
  # orbit out1


  d1 $ sound "bd"
  # cps (range 0.5 16 $ rand)

d2
  $ fix (# gain 0.7) (s "donk")
  -- $ sometimesBy 0.1 (|+ n 10)
  -- $ sometimesBy 0.1 (|- n 2)
  -- $ sometimesBy 0.05 (fast 2)
  -- $ sometimesBy 0.1 (slow 2)
  -- $ sometimesBy 0.3 (rev)
  $ n
    (
      -- mask ("1 ~ ~")
      -- mask ("1 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 1 1 ~")
      (
        scale "<major>"
        (
          snowball 8 (+) (slow 3)
          -- $ "e5 g3 c3"
          -- $ (run "5")
          -- $ (run "<5 3 6 2 3>")
          -- $ (run "3")
          -- (run "3")
          -- "0 2 6*2 10"
          "2 4 2 0 5"
        )
      )
    )
  -- |+ n 12
  -- # sound "[plucklead(<3>, 8)]"
  # sound "[plucklead, donk]"
  -- # sound "[sawpluck, donk]"
  -- # sound "[sawpluck]"
  # sustain (range 0.7 2 $ slow 12 $ cosine)
  # speed (range 1 0.8 $ fast 24 $ cosine)
  -- # gain 0.8
  -- # pF "freq" 220
  -- # ring (range 0 0.6 $ slow 16 sine)
  -- # ringf 440
  -- # ringdf 10
  --



d1
  $ slow 2
  $ n (toScale [0,2,3,5,7,8,10] "0 1 2 3 4 5 6 7")
  # sound "superpiano"

d3
  $ slow 4
  $ every 5 (fast 2)
  $ every 3 (rev)
  -- $ n "c4*2 d4 e5 g3"
  $ s "ana4"
  -- # midichan "0 2"
  # midichan "2"
  -- # cps (range 0.2 1.5 $ slow 10 cosine)

deconstruct 24 "[<1 2 3>]"
--