stream-2020-05-02.hs

d1 $ s "bd? bd? bd? bd? bd? bd? bd? bd?"

d1 $ s "bd!!! cp!! [bd!! cp!]"

d1 $ s "bd ~ ~ cp ~ ~ bd bd"

d1 $ s "bd@3 cp@3 bd bd"

d1 $ s "bd bd [s b peri:3]/2 cp"

d1 $ s "[bd cp]!!! s!!!"

d1 $ s "bd*4 s*4"

d1 $ s "bd bd <s b peri:3> cp"

d1 $ s "~ [~ tabla2*3]"

d1 $ s "~ [~ [tabla2 tabla2 tabla2] ]"

d1 $ s "~ [~ tabla2!3]"

d1 $ s "~ [~ tabla2 tabla2 tabla2]"

setcps 0.5

d1 $ s "[peri!2 doru!3] fk!16 [b cp]!4" # n (run 10) # legato 1

d1 $ s "peri*4" # speed "1 2 3 4"

d1 $ ccv "0 127 50!3 30*2" # ccn 20 # s "midi"

d1 $ sound "bd*4" # speed (range 1 3 $ cF 1 "1")


d1 $ s "ahh(3,8)" # legato (range 0.25 1 $ slow 3 rand)

d1 $ s "hour" # legato 1 # begin 0.4  

hush

d1 $ s "ringsurfing" # legato 1 # begin 0.5

d1 $ every 2 rev $ speed "1 2 3 4" # sound "bd bd bd bd bd bd cp cp" 

d1 $ sound "bd*8" # speed "<1 2 0.5 3>" |* speed "1 2 3 4"

d1 $ sound "bd*8"


d1 $ sound "bd*2"

d2 $ ("1s" ~>) $ sound "cp*2"

d2 $ ("1s 0.5" ~>) $ sound "cp*2"

d1 $ s "bd" # speed "2 3"

d1 $ s "bd*8" # speed (choose [1,2,3,4])

d1 $ s "arpy*8" # speed "[1 , 2 3 4 5]"

d1 $ s "bd*16" # gain (range 0 1 $ slow 4 $ tri)


do
  let seg = (1/4)
      period = slow (segment seg $ choose [1,2,3,4,5])
  d1 
    $ pan "0.5*16" 
    # s (period $ (segment seg 
      $ choose ["bd", "cp", "peri:2", "doru:1"])) 
    # gain (range 0 1 $ period $ tri)

do 
  let pat = (
          every 2 (|* 1.5) $ 
            every 3 (|+ 1) $ 
            "1 3 2 4 1.5 3"
        ) :: Pattern Double
  d1 $ s "bd*8" 
    # speed pat 
    # gain (range 0 1 $ pat) 
    # (range 0 1 $ pan pat)

d1 $ s "bd*8" # speed (bite 4 "<0 1 2 3>" $ "1 2 3 4 5")

hush

let bpm160 = (160/240)
    bpm170 = (170/240)

d1 $ s "bd*8" # cps bpm170  

d1 
  $ speed (  "{1@7 4@5 1@10 3@3 2@3 1? 4@7}%<16 8>") 
  # s "k:1"

do
  let pat1 = (s "k(<11 13 9>,16,<0 3 5>)" # n "[3 5 1 7]")
      pat2 = (s "peri*8?" # n (every 2 rev $ run 10) )
      pat3 = (s "[tite peri]*8?" # n (every 3 rev $ run 7))
      pat4 = stack [s "ahh(3,8)" # legato 1, s "k:7*16?"]
      pat5 = cat [ pat1, stack [pat2, pat4], pat3]
      pat6 = cat [pat2, stack [pat3, pat4], pat4, pat1]
  d1 $ cat [pat5, pat6] # cps (180/240)

d1 
  $ every 2 rev 
  $ struct (binaryN 16 "<283942234  234232 337711>") 
  $ s "k:1"

hush


binaryN 16 "283942234"