20200823.tidal

setcps (170/60/4)

resetCycles

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

do -- pulse --------------------------------------------------------------------
  let myRate = 64
  let attackMod = range 0.3 0.6 (slow (myRate) $ cosine)
  -- let attackMod = range 0.9 0.2 (slow (myRate) $ rand)
  -- let speedMod = (range 0.5 0.5 (slow myRate (cosine)))
  -- let sustainMod = (range 1.2 0.4 (slow myRate (sine)))
  -- let sustainMod = (range 1.8 0.4 (slow myRate (sine)))
  -- let sustainMod = (range 2 3 (slow myRate (sine)))
  let sustainMod = (range 0.6 1 (slow myRate (cosine)))
  -- let slowMod = 0.25
  let slowMod = 1
  let subMulti = 2
  -- let samples = "[msp808*8]"
  let samples = "msp808"
  --
  p "pulse-sub"
    $ slow 3
    $ seqPLoop [
    (08, 16, struct "1 0 0 0 1" $ sound samples),
    (16, 32, struct "1 0 0 0 0 1" $ sound samples),
    (32, 48, struct "0 1 0 0 0 0 1 0" $ sound samples)
    ]
    -- $ sound samples
    # freq "60"
    |+ freq (range "-1" 1 (slow myRate (sine)))
    -- $ struct "0 1 0 1 1 1/4 1/5 1/3"
    -- $ sound "[msp808*8]"
    # pF "mAttackTime" attackMod
    -- # pF "mAttackTime" "[0.1 0.6]*4"
    # pF "mFilterDuration" "0.01"
    # pF "mSnap" "100"
    # speed "1"
    -- # speed speedMod
    # sustain (sustainMod * subMulti)
    -- # sustain "5"
    -- # voice (range 0.3 0.01 (slow myRate (sine)))
    -- # shape (range 0.05 0.5 (slow (myRate) (sine)))
    -- # lpf (range 30 60 (slow (myRate) (cosine)))
    -- # lpf 320
    -- # hpf 350
    # gain (range 1.2 0.8 (slow (myRate/2) (sine)))
    -- # gain "1.2"
    # orbit out2

p "pulse-sub" $ silence

solo "pulse-sub"
unsolo "pulse-sub"


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

p "main" -----------------------------------------------------------------------
  $ every 32 (skip)
  $ every 127 (# speed "-1")
  $ sometimesBy 0.02 (# speed 0.05)
  --
  -- $ skip
  -- $ skip
  -- $ skip
  -- standard
  -- $ slow 2
  $ struct "1/2 0 0 0 0 0 1/8 0 0 0 0 0 1/16 0 0"
  --
  -- $ sound "bd:4(<3 3 3 3 3 3 3 3 3 3 3 3 3 3 5 3 3 3 3 3 3 3 3 1 3 3 3 3 3 3 <3 2 5> <4 8>>, 8, <0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1>)"
  $ sound "feel:6"
  -- $ sound "feel:6(3, 8)"
  # speed "0.7 0 0 0 0 0.75 0 0 0 0 0 0.9 0 0 0.7"
  |+ speed 0.5
  -- # speed (range 0.7 0.75 $ slow 2 $ rand)
  # begin 0
  -- # end "0.15 0 0 0 0 0.15 0 0 0 0 0 0 0 0 0"
  # end "0.25 0 0 0 0 0.15 0 0 0 0 0 0.15 0 0.15 0.15"
  -- # accelerate (-1)
  -- # distort (range 0 0.05 $ slow 3 $ cosine)
  -- # gain "0.8 0.7 0.4"
  -- |+ gain 0.1
  # gain (range 1 0.5 (slow (myRate/2) (sine)))
  -- # lpf "20000 60 20000"
  -- # hpf "80"
  # orbit out1

p "main" $ silence

solo "main"
unsolo "main"

p "clicker" --------------------------------------------------------------------
  $ every 14 (fast 4)
  $ struct "1 1 1 1"
  -- $ fix (|- gain 0.3) (sound "e")
  $ slow 1
  -- $ sometimesBy 0.6 (fast 4)
  $ sometimesBy 0.5 (|- speed 1.5)
  $ sound "[click, e]*4"
  # n (irand 3)
  # vowel "<a e i a i>"
  # speed (range 5.2 0.8 (slow 16 (cosine)))
  -- # speed 5
  # shape (range 0.1 0.6 (slow 128 (cosine)))
  # hpf (range 2000 50 (slow 24 (saw)))
  # gain 0.75
  -- # pan (choose [0.3,0.7])
  # orbit out3

p "clicker" silence

solo "clicker"
unsolo "clicker"

p "east-perc" ------------------------------------------------------------------
  $ fast 2
  $ sometimesBy 0.4 (slow 2)
  -- $ sound "[east([6 3 6]/3, 6, <0 1 2>)]"
  $ sound "[east([8 7 8]/3, 8, <0 1 2>)]"
  # n (irand 3)
  # djf (range 0.2 0.8 $ slow 3 rand)
  # sustain (range 0.01 0.14 (slow (myRate) (cosine)))
  # speed (range 0.45 0.65 (slow (myRate*2) (cosine)))
  |+ speed 1.3
  -- # gain (range 0.6 0.5 (slow (myRate*2) (cosine)))
  # gain "0.8 0.3"
  |+ gain 0.05
  # shape 0.3
  # distort (range 0 0.3 (slow (myRate*2) (cosine)))
  # pan (choose [0.45,0.55])
  # orbit out5

p "east-perc" $ silence

solo "east-perc"
unsolo "east-perc"

p "hat-half" -------------------------------------------------------------------
  $ struct "0 0 1/2 0"
  $ sound "mspsuperhat"
  -- # hpf (range 8000 14000 (slow 6 (cosine)))
  -- # lpf (range 1000 3900 (slow 3 (sine)))
  # accelerate "3.01"
  -- # sustain (range 0.3 1.2 (slow 16 (cosine)))
  # attack 1.5
  # sustain 2
  -- # pan (choose [0.1,0.9])
  # shape 0.4
  # gain 0.95
  # orbit out4

solo "hat-half"

p "hat-half" $ silence

unsolo "hat-half"

p "hat-fast" -------------------------------------------------------------------
  $ struct "1/4 1/3 0 1 0 1 1/2 1"
  -- $ struct "0 0 0 0 0 0 0 1"
  $ sometimesBy 0.05 (fast 2)
  $ sound "[mspsuperhat]*8"
  # hpf 10000
  -- # hpf (range 20500 15000 (slow 3 (cosine)))
  # sustain (range 0.05 0.08 (slow 3 (cosine)))
  |+ sustain 0.05
  -- # sustain 0.4
  -- # pan (choose [0.1,0.9])
  # shape 0.6
  # gain (range 0.35 0.55 (slow 3 (cosine)))
  |+ gain 0.75
  # accelerate 3
  # orbit out4

p "hat-fast" $ silence

solo "hat-fast"
unsolo "hat-fast"

do -- snares-170 ---------------------------------------------------------------
  let probability = "<0.0 0.01 0.08 0.2>"
  p "snares-170" ---------------------------------------------------------------
    $ sometimesBy probability (fast 2)
    -- $ sound "~ ~ sn:2/3 ~ ~ ~ iris-hits:8 ~"
    $ seqPLoop [
    (0, 16, sound "~ ~ sn:2 ~ ~ ~ iris-hits:8 ~"),
    (17, 33, sound "~ ~ sn:2 ~ ~ ~ iris-hits:8/2 ~"),
    (34, 50, sound "~ ~ sn:2/3 ~ ~ ~ iris-hits:9 ~"),
    (51, 67, sound "iris-hits:13/6 ~ iris-hits:9 iris-hits:11/2 ~ ~ iris-hits:10 iris-hits:10/4"),
    (68, 70, sound "~ ~ sn:2 ~ ~ ~ iris-hits:8 ~"),
    (71, 89, sound "iris-hits:13/4 ~ iris-hits:9 iris-hits:11/2 ~ ~ iris-hits:10 iris-hits:10/4")
    ]
    # distort "0 0 0.1 0 0 0 0.05 0"
    # end (range 0.25 1 $ slow 3 (cosine))
    # speed "<0.1 0.8 0.8 0.8 0.8> 0 0.8 0 0 0 0.85 -1"
    |+ speed (range 0 0.15 $ rand)
    # accelerate 0.8
    # gain "0.5 0.5 0.47 0.5 0.5 0.5 0.42 0.4"
    |+ gain 0.4
    # orbit out12

p "snares-170" $ silence

solo "snares-170"
unsolo "snares-170"

p "hard-snares" ----------------------------------------------------------------
  $ every 8 (const
    -- $ sound "sn:4(<1 1 1 1 1 1 2>, 7)"
    $ sound "sn(<1 1 1 1 1 1 2>, 7)"
    # n (irand 30)
    # speed "0.5"
    # shape 0.7
    # distort (choose [0.1, 0.2, 0.4, 0.5, 0.8])
    # gain 0.5
    # pan (choose [0.2, 0.8])
    # orbit out7
  )
  $ sound "~"
  # orbit out7

p "hard-snares" $ silence

unsolo "hard-snares"

p "live-snares" ----------------------------------------------------------------
  $ sometimesBy 0.04 (fast 2)
  $ every 1 (const
    $ every 16 (skip)
    $ skip
    -- $ skip
    $ sound "~ <mspdxkSd3*2 mspdxkSd3*3 ~ mspdxkSd3> ~ [sd:2, mspdxkSd3]/5"
    -- $ sound "~ mspdxkSd3 ~ [mspdxkSd3]"
    -- # shape 0.4
    # distort "<0.1 0 0.1>"
    # pF "basefreq" "~ 160 ~ 175"
    -- # pF "basefreq" (wchoose [(50,0.1),(250,0.5), (260,0.5), (450,0.2),(850,0.1)])
    -- # pF "len" "~ 0.5 ~ 0.3"
    # pF "tone" "1.5"
    -- # pF "tone" "~ 0.4 ~ 0.9"
    -- # pF "rq" (range 0.05 0.3 $ slow myRate $ cosine)
    # gain "0.5 0.7 0.5 0.75"
    |- gain 0.28
    # pan (slow 3 $ rand) -- why does this not pan?!
    # orbit out14
  )
  $ sound "~"
  # orbit out14

p "live-snares" $ silence

solo "live-snares"
unsolo "live-snares"

do -- breakz -------------------------------------------------------------------
  let output = out6
  let numCycles = "<2 2 4>"
  -- let numCycles = "1"
  p "breakz-1"
    $ every numCycles (const
      $ every 3 (skip)
      $ every 2 (fast 2)
      -- $ sometimesBy 0.1 (# accelerate "<4 -8>")
      -- $ sound "[[feel:5*8], feelfx*4?]"
      -- $ sound "[[feel(6, 8, 0 0 0 3 0 0 0 2)]]"
      -- $ sound "[[[<feel:8/3 feel:7/4> feel:1/3 <feel:3 feel:4/3> < ~ feel:0/3 feel:1>]*2 ]]"
      $ sound "[[[<feel:7/4> ~ <feel:3 feel:4/3> < ~ feel:0/3 ~>]*2 ]]"
      -- # n (irand 30)
      |- n 2
      # speed (range 2.15 2.5 (rand))
      |+ speed 0.8
      # sustain (range 0.15 0.45 (rand))
      # hpf 250
      # pan (choose [0.4, 0.5])
      -- # crush 8
      # gain 0.88
      # orbit output
    )
    $ sound "~"
    # orbit output

p "breakz-1" silence

unsolo "breakz-1"

do -- soundboi -----------------------------------------------------------------
  p "soundboi"
    -- $ swingBy (0.38) 4
    $ sometimesBy 0.15 (fast 2)
    $ sometimesBy 0.1 (slow 2)
    $ every 15 (rev)
    $ every 16 (# speed "2 2 2 -3")
    $ sometimesBy 0.1 (# crush 4)
    $ fix ((# gain 0.5)) ("feel:8")
    $ fix ((# gain 0.4)) ("feel:1")
    -- $ fix ((# speed 5.4)) (s "amencutup")
    -- $ fix ((# end 0.2)) (s "amencutup")
    -- $ slow 2
    $ degradeBy 0.05
    -- $ sound "[[[feel:5*4, amencutup*2] feel:3*8], [amencutup*8, sid*16?]]"
    -- $ sound "[[[feel:5*4, amencutup*2] feel:3*8], [amencutup*8]]"
    -- $ sound "[[[feel:5*4, amencutup*2] feel:3*4], [Xamencutup*8]]"
    -- $ sound "[[[feel*4, sd] feel:3*4], [Xamencutup*8]]"
    $ sound "[[[<feel:8/3 feel:7/4> feel:1/3 <feel:3 feel:4/3> < ~ feel:0/3 feel:1>]*2 ]]"
    -- <feel:2 feel:3 feel:5> feel:1/2 <feel:3 feel:4>
    -- $ sound "feel:8 feel:0"
    -- # n (choose [0,1,2,3,4,5,7,8])
    # speed "0.5 1.5 1.5 1.5"
    |+ speed (range 0.95 1.05 (fast 3 sine))
    |+ speed 0.2
    -- # distort 0.05
    -- # orbit out13
    -- # accelerate 0.4
    -- # shape 0.2
    # gain "1 0.9"
    |- gain 0.1
    # orbit out13

p "soundboi" silence

unsolo "soundboi"

-- HYPNO / FX ==================================================================

do -- riser --------------------------------------------------------------------
  let rateMult = 8
  --
  p "riser"
    -- $ every 4 (0.25 <~)
    -- $ every 9 (0.5 <~)
    $ fast 2
    -- $ fast (range 1.8 2 (slow (myRate*rateMult) $ cosine))
    $ sound ("m-sweep arpy:3 ~ ~")
    -- # accelerate "24 -8 24 -10"
    # accelerate "4 -1 ~ ~"
    |+ accelerate (range 1 8 (slow (myRate*rateMult) $ cosine))
    # speed "0.5 0.3 ~ ~"
    |+ speed (range 0.1 0.8  (slow (myRate*rateMult) $ cosine))
    # hpf 5000
    # phaserrate 0.9
    # phaserdepth 0.9
    # gain 0.8
    # legato 1
    # orbit out10

p "riser" silence

solo "riser"
unsolo "riser"

do -- choral -------------------------------------------------------------------
  -- let len = 5
  -- let len = 5.6
  let len = (range 2 5 (slow 16 (cosine)))
  let samples = "avgrain foo/48"
  let silence = "~"
  p "choral" -------------------------------------------------------------------
    -- $ spin 4
    -- $ fast 11
    $ sometimesBy 0.05 (# pF "buf" "2312")
    $ every 16 (# pF "buf" "2311")
    $ sometimesBy 0.2 (|+ pF "rate" 0.2)
    $ sometimesBy 0.05 (|+ pF "rate" 0.4)
    $ sometimesBy 0.06 (|- pF "rate" 0.15)
    $ seqPLoop [
      (00, 08, sound samples),
      (08, 16, sound silence),
      (16, 32, sound samples),
      (32, 48, sound silence)
    ]
    -- # pF "buf" "2309 2038 2309"
    -- Buffer(2309, 264960, 2, 44100, /data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/vocals/00-chorus1.wav)
    -- Buffer(2310, 277954, 2, 44100, /data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/vocals/01-chorus1.wav)
    -- Buffer(2311, 216688, 2, 44100, /data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/vocals/02-chorus1.wav)
    -- Buffer(2312, 562294, 1, 48000, /data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/vocals/03-chorus-high.aiff)
    -- Buffer(2313, 35584, 2, 44100, /data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/vocals/04-StabVowel.wav)
    # pF "buf" "2309"
    -- # pF "buf" (slow 16 $ 2295 + run 23)
    # pF "time" len
    # pF "offset" (range 0 1 (slow 64 (cosine)))
    # pF "amp" 0.95
    # pF "rate" (range 0.3 0.33 (slow 64 (cosine)))
    |+ pF "rate" 0.2
    -- # pF "rate" 0.7
    -- # shape 0.5
    -- # distort 0.7
    -- # accelerate 0.6
    -- # lpf 50
    # sustain len
    -- # pan (choose [0.2,0.8])
    -- # pan (slow 32 (cosine))
    # gain 0.85
    # orbit out8

p "choral" silence

solo "choral"
unsolo "choral"

do -- grains -------------------------------------------------------------------
  -- let len = 3
  let len = (range 3 6 (slow 16 (cosine)))
  p "grains" -------------------------------------------------------------------
    $ every 1 (const
      -- $ fast 11
      -- $ sometimesBy 0.2 (|+ pF "rate" 0.2)
      -- $ sometimesBy 0.05 (|+ pF "rate" 0.4)
      -- $ sometimesBy 0.06 (|- pF "rate" 0.15)
      $ sound "avgrain"
      -- Buffer(2315, 267608, 1, 44100.0, /System/Volumes/Data/Dropbox-spatial/Dropbox/spatial/music/AudioSources/oily-cart-awu-samples/atmos/01-noiseatmos.aif)
      # pF "buf" "<2315>"
      # pF "time" len
      # pF "offset" (range 0 1 (slow 64 (cosine)))
      # pF "amp" 0.95
      # pF "rate" (range 0.01 0.02 (slow 16 (cosine)))
      |+ pF "rate" 1.4
      -- # distort 0.03
      -- # lpf 1000
      # sustain len
      # pan (choose [0.2,0.8])
      -- # pan (slow 32 (cosine))
      # gain 0.85
      # orbit out15
    )
    $ sound "~"
    # orbit out15

p "grains" silence

solo "grains"
unsolo "grains"

do -- spectral-001 -------------------------------------------------------------
  p "spectral-001" -------------------------------------------------------------
    $ slow 8
    $ sound "spectral-001"
    # n (irand 5)
    # speed (range 0.2 3 (slow myRate (rand)))
    # djf (range 0.9 0.1 $ fast 4 $ rand)
    # orbit out9

p "spectral-001" silence

do -- spectral-002 -------------------------------------------------------------
  p "spectral-002" -------------------------------------------------------------
    $ slow 16
    $ sound "spectral-001"
    # n 5
    # speed (range 0.2 0.5 (slow myRate (rand)))
    # shape (range 0 0.2 (slow myRate (rand)))
    # distort (range 0 0.1 (slow myRate (rand)))
    # djf (range 0.9 0.1 $ fast 4 $ rand)
    # orbit out9

p "spectral-002" silence


-- SYNTHS ======================================================================

p "sq-bass" --------------------------------------------------------------------
  $ slow 9
  $ sometimesBy 0.05 (# speed (- 0.25))
  $ sometimesBy 0.12 (# speed (- 0.5))
  $ sometimesBy 0.1 (|+ n 2)
  -- $ every 15 (|+ sustain "2 1 1.5")
  $ sometimesBy 0.1 (rev)
  $ struct "1 0 0 0 0 0 0"
  $ sound "[mspplucklead]"
  *| n (scale "chromatic" "<[f2, g3] [f2, f3] [f3, g3]>")
  # pF "mAttackTime" (range 10 1000 $ slow 32 $ cosine)
  # pF "mDecayTime" (range 100 500 $ slow 32 $ cosine)
  # pF "mReleaseTime" (range 1000 500 $ slow 32 $ cosine)
  # speed (range (0.98) 1.01 $ slow 16 $ cosine)
  # sustain (range 0.5 3.8 $ slow 16 $ rand)
  # octave 4
  # begin (range 0 0.03 (slow 16 (rand)))
  -- # crush 6
  # distort (choose [0.3, 0.2, 0.1, 0])
  |- distort 0.05
  # gain 0.85
  # orbit out11


p "sq-bass" $ silence

solo "sq-bass"
unsolo "sq-bass"


do -- stabfx -------------------------------------------------------------------
  let myRate = 256
  -- let myRate = 128
  let positionMod = range 0 0.1 (slow (myRate) $ cosine)
  let lengthMod = range 0.25 0.45 (slow (myRate) $ cosine)
  -- let lengthMod = 0.3
  -- let lengthDiv = 2 --1..4 START
  let lengthDiv = 0.1
  -- let lengthDiv = (wchoose [(1,0.35),(2,0.55),(3,0.25),(4,0.15)])
  p "stabfx"
    $ every 16 (const
      $ sometimesBy 0.1 (fast 2)
      $ fast 1
      $ struct "0 0 0 0 1 1? 0 0"
      $ sometimesBy 0.3 (|+ speed 0.1)
      $ sometimesBy 0.1 (|- speed 0.1)
      $ sound "segments*4"
      # n "[3, 4]"
      # speed "2.3"
      |+ speed (range 0.05 3 $ slow (myRate/4) $ cosine)
      # accelerate "0"
      |+ accelerate (range 4 0 $ slow (myRate/8) $ cosine)
      # begin positionMod
      # end (positionMod + (lengthMod / lengthDiv)) --variable length
      -- # enhance 0.2
      -- # djf (range 0.3 0.75 $ rand)
      # gain 0.6
      # orbit out9
    )
    $ sound "~"
    # orbit out9

p "stabfx" silence

solo "stabfx"
unsolo "stabfx"

p "waves" ----------------------------------------------------------------------
  -- $ sometimesBy 0.25 (fast 2)
  -- $ sometimesBy 0.5 (fast 4)
  -- $ sometimesBy 0.75 (slow 8)
  -- $ slow "<1 7 2 3 4>"
  $ striate 3
  -- $ fix (# gain 0.5) (s "superwavemechanics")
  -- $ n (scale "messiaen2" ("<a4 f5 ff5 g3>" |+ "<'major7'6>"))
  $ n (scale "messiaen2" ("<f5>" |+ "<'major7'4>"))
  -- # octave 5
  # sound "[mspWaves]"
  -- # sound "[superwavemechanics, mspWaves]"
  -- # sound "[mspVibSawPlucker]"
  -- # pF "detune" "<0.2 0.1 0.3>"
  # speed (range 1.01 0.98 $ slow 6 $ cosine)
  # pF "detune" "<0.4>"
  # pF "mAttackTime" (range 0.01 0.8 (slow 16 cosine))
  -- # pF "mAttackTime" 0.3
  # pF "mDecayTime" 0.1
  -- # pF "mHoldTime" (range 0.9 0.3 (slow 16 rand))
  # pF "mHoldTime" 0.3
  # pF "mReleaseTime" 1
  -- Always set sustain as using slow will override it!
  # sustain "<3 3 4 3 5>"
  -- # sustain "<6>"
  # enhance 0.1
  -- # lpf (range 500 20000 (slow myRate cosine))
  -- # djf (range 0.1 0.9 (slow 4 rand))
  # hpf (range 2200 18000 $ slow 12 $ rand)
  -- # triode 1
  # distort 0.05
  -- # shape 0.5
  -- # accelerate 0.9
  -- # pan (range 0 1 $ slow 6 $ rand)
  # orbit out15
  # gain 1.1


unsolo "waves"

p "waves" silence


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











p "synth-fx" -------------------------------------------------------------------
  $ every 3 (const
    $ every 15 (rev)
    -- $ slow 4
    -- $ sound "<form-msp5:5(<3 5 3 4>, 8, <0 2 0 4>)>"
    $ sound "~ form-msp5:5"
    -- $ sound "<form-msp5:4(<3 5 3 4>, 8, <0 2 0 4>)>"
    -- $ sound "<form-msp5:8(<3 5 3 4>, 8, <0 2 0 4>)>" --acidy
    -- $ sound "<form-msp5:8(<3>, 8, <0 2 0 4>)>"
    -- $ sound "<form-msp5:9(<3>, 8, <0 2 0 4>)>"
    -- $ sound "<form-msp6:2(<3>, 8, <0 2 0 4>)>"
    -- $ sound "<form-msp8:8(<3>, 8, <0 2 0 4>)>"
    -- $ sound "<form-msp8:11(<3>, 8, <0 2 0 4>)>"
    # sustain (range 0.15 0.25 $ slow 16 $ rand)
    -- |+ sustain 0.1
    # djf (range 1 0 $ fast 4 $ rand)
    # begin (range 0.8 0.95 $ rand)
    -- # speed "2"
    # speed (choose [0.7, 2, 1.75, 0.73, -0.72])
    # distort 0.3
    -- # octave "<4 9 2 4>"
    # octave "<6 5 6>"
    -- # legato 1
    -- # scram (range 1 0 $ slow 16 $ cosine)
    -- # binshift (range 0.8 0.01 $ slow 16 $ cosine)
    -- # lbrick (range 0.85 0.1 $ slow 16 $ cosine)
    -- # enhance 0.6
    -- conformer
    -- # real 0.9 # imag 0.3
    -- # xsdelay 0.2 # tsdelay 0.4
    # gain "0.7 0.6"
    |+ gain 0.3
    -- # accelerate 0.6
    # orbit out9
  )
  $ sound "~"
    # orbit out9

p "synth-fx" silence

unsolo "synth-fx"

p "pulse-synth"
  $ every 6 (fast 2)
  $ every 3 (skip)
  $ sometimesBy 0.05 (|- n 4)
  $ sometimesBy 0.06 (|- n 2)
  $ sometimesBy 0.05 (rev)
  $ sometimesBy 0.2 (|+ octave 1)
  $ sound "mspsupergong(2,8)"
  -- *| n ("c3 d5 <f3 ff3> d5 f3 ef5 f3" |+ "'ritusen")
  # n ("a5 g4" |+ "'ritusen")
  # octave 5
  # pF "att" (3 / 2)
  -- # pF "att" 0.2
  -- # sustain (1 / sustainMod)
  # djf (range 1 0 $ fast 16 $ rand)
  -- # sustain "0.45 <0.2*3 <0.5 0.3 0.5>>"
  -- # decay sustainMod
  -- # decay 0.01
  # gain 0.7
  # orbit out5

p "pulse-synth" silence

p "spectral-play" --------------------------------------------------------------
    $ every 2 (const
      $ slow 4
      -- $ slow 8
      $ every 15 (rev)
      -- 5 note maj pentatonics
      -- $ n (scale "egyptian" "0..12")
      -- $ n (scale "ritusen" "0..12") -- 5 note maj pentatonic
      -- $ n (scale "majPent" "6..12") -- 5 note maj pentatonic
      $ n (scale "majPent" "6..12") -- 5 note maj pentatonic
      -- END 5 note maj pentatonics
      -- $ n ((scale "egyptian" "<c5>") |+ "<'minor5>")
      -- $ n (scale "ritusen" ("<b4 d5 ef5>" |+ "<'minor7'6>"))
      -- # sound "mspsupertron"
      # sound "[superwavemechanics, Xsupergrind]"
      -- # pF "att" (range 0.3 0.5 $ slow 8 $ cosine)
      -- # sustain (range 8 11 $ slow 12 $ cosine)
      # sustain (range 4 6 $ slow 12 $ cosine)
      -- # release (range 3 1 $ slow 12 $ cosine)
      -- # release 3
      -- # voice (range 0.8 0.1 $ slow 7 $ cosine)
      -- # djf (range 1 0 $ fast 4 $ rand)
      # speed (range 1 0.95 $ fast 48 $ cosine)
      -- # octave "<4 4 4 4 5>"
      |+ octave 5
      -- # scram (range 0.3 0 $ slow 16 $ cosine)
      -- # binshift (range 0.3 0.1 $ slow 16 $ cosine)
      -- # lbrick (range 0.85 0.1 $ slow 16 $ cosine)
      -- # enhance 0.6
      -- conformer
      -- # real 0.9 # imag 0.3
      -- # xsdelay 0.9 # tsdelay 0.8
      # hpf 100
      -- # distort 0.1
      -- # accelerate 0.8
      -- # freq (880)
      -- # detune 2
      -- # voice 0.5
      -- # resonance 0.6
      # gain "0.7 0.6"
      -- |- gain 0.15
      |+ gain 0.3
      # orbit out16
    )
  $ sound "~"
  # orbit out16

p "spectral-play" silence

unsolo "spectral-play"

-- $ note
--   (
--     -- mask ("1 ~ 1 ~ ")
--     -- mask ("1 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ 1 1 ~")
--     -- (scale "hexPhrygian"
--     -- (scale "minor"
--     (scale "ritusen"
--       -- $ snowball 8 (+) (slow 3)
--       $ snowball 5 (+) (slow 3)
--       $ "a4 f5"
--       -- $ run "<5 2 6 2>"
--       -- $ run "10"
--       -- $ run "<20 5 10 20>"
--     )
--   )

p "stabsXX" ----------------------------------------------------------------------
  -- $ 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 "stabsXX" $ silence

unsolo "stabsXX"

d1
$ slow 1
$ sometimesBy 0.03 (# n 4)
$ sound "odx"
*| n "0*3 1 2"
# binshift 0.6

d1 silence


# orbit out1





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

d1 silence

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)

d3 silence

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