24-aug-08.tidal

setcps(117/120/2)

d1 $ note "c5*4" # s "midi1"

d2 $ s "k*4" # nudge (0.14)



xfadeIn 3 8
$ fast "2 4 8 16"
$ rarely (degrade )
$ note "{gs4 as4 cs5 c5 gs4 as4 ds5 cs5 }(3,8)"
#  s "midi1"
   |+| note "-8 "

  d6 $ note "{ ~ ds4 ~ as3}%1" # s "midi4"
         |+| note "<4>"

do
  d4
    $ loopAt "4"
    $ rarely (degrade )
    $ chop 64
    $ splice 32 "0..31" $ s "lbreak:3"
    #gain 0.8 # speed "[1,1.02]" # nudge (0.21)
    # djf (range 0.33 0.66 $ slow 8 $ sine)
    # phasdp 0.3 #phaserrate (range 0.1 0.2 $ slow 8 $ sine)
    # nudge (0.14)
     #orbit 1 #pan 1
  d7 $  gain "1*<8 16>?"
    #  s "revkit"
    # n (irand 32) # gain 0.92
    # nudge (0.14)
     #orbit 2 # pan 2


do
  let mx = [1, 1]
  d1
    $ rarely (ply 4)
    $ stack [
      note (
        -- off 0.125 (+ "<7 12>")
     "{ ~ ~ fs5 f5  ~ ~ ds5 f5 ~ ~  <ds5 c5> <cs5 ~> <c5 ~> <cs5 ~> <c5 ~> <gs4 ~> }%8") # s "midi3",
      note "{fs3 fs4 ~ ~ gs3 gs4 ~ ~ as3 as4 ~!6 }%8" # s "midi3"
     ]
     |+| note "<4 -8 16 4 >"
     |* gain (mx!!0)
  d2 $ note "{fs4 fs5 ~ ~ gs4 gs5 ~ ~ as4 as5 ~!6 }%8" # s "midi2"
   |+| note "<-8 >"
   |* gain (mx!!1)



  d5
     $ whenmod 24 22 (const $ s "sfe-kd:4*16?" # speed "[1, 1.02]" # shape 0.89 # gain 0.74 #orbit 7 # pan 7 # nudge 0.14)
     $ someCyclesBy 0.1 ( (#accelerate (slow 4 $ range 6 0 $ sine)).(#speed 0.5))
     -- $ ( # fshift (range 10 100 $ slow 16 $ sine))
      $ rarely (ply 4) $ sometimes (chunk 4 (hurry 2))
     $ stack [
         -- whenmod 7 4 (iter 4 ) $ s "~ sfe-sn"  # n (choose [2,3,6]) # legato 2  # orbit 3 # pan 3,
         -- fast 4 $ s "lcp*2" #legato 1  # up (range 24 36$ slow 4 $ sine) # gain 0.78  #orbit 4 # pan 4,
         -- sometimes (fast "2 1") $ s "sfe-kd:2*4"  # speed "[0.6, 0.62]"  # orbit 5 # pan 5,
         loopAt 8 $ splice 32 "0..31" $ s "svlng:3" # gain 1.1 # orbit 6 # pan 6
         ]
         |*| gain 0.8 # nudge (0.14)


  d1 silence