coarse+seqP

coarse.tidal

setcps 0.53

do
  let p1 = lpf (range 50 6000 (slow 4 sine)) # lpq 0.3
  let p2 = lpf (range 50 6000 (slow 4 sine)) # lpq 0.6
  let p3 = lpf (range 50 6000 (slow 3 saw))  # lpq (range 0.3 0.7 (slow 3.5 saw))
  let shift = (|+ up "<0!4 -3!4>")
  let d10_0 = superimpose (hurry "t")
              $ inside 8  (every 7 (jux ("h" <~)))
              $ s "perc*8"
              # nCountTo "j" 8
              # room 0.5 # size 0.2
              # gain 0.9
  let d10_1 = whenmod 8 7 (# silence)
              $ superimpose (hurry "<t h>")
              $ inside 8  (every 7 (jux ("h" <~)))
              $ s "perc*8"
              # nCountTo "j" 8
              # room 0.5 # size 0.2
              #gain 0.9
  let d11_0  = whenmod 8 7 (# silence)
              $ superimpose (hurry "<t h>")
              $ inside 8  (every 7 (jux ("h" <~)))
              $ s "perc*8"
              # nCountTo "j" 8
              # room 0.5 # size 0.2
              #gain 0.9
  let d13_0 =  whenmod 8 7 (# silence)
              $ superimpose (hurry "<t>")
              $ ply "{1!4 4 1}%4"
              $ degradeBy 0.7
              $ inside 8  (every 7 (jux ("h" <~)))
              $ s "perc*8"
              # nCountTo "j" 8
              # room 0.5 # size 0.2
  let d20_1 = superimpose (hurry "<h>")
              $ ply "{1!4 2}%4"
              $ struct "t(<7 5>,16)"
              $ s "glitch"
              # nCountTo "j" 8
              # leg 0.8
  let d21_0 = whenmod 4 3 (# silence)
              $ superimpose (hurry "<h>")
              $ ply "{1!4 2}%4"
              $ struct "t(<7 5>,16)"
              $ s "glitch"
              # nCountTo "j" 8
              # leg 0.8
  let d21_2 = whenmod 4 3 (# silence)
              $ superimpose (hurry "<t>")
              $ ply "{1!4 2}%4"
              $ struct "t(<7 11>,16)"
              $ s "glitch"
              # nCountTo "j" 8
              # leg 0.8
  let d23_0 = whenmod 4 3 (# silence)
              $ superimpose (hurry "<t>")
              $ ply "{1!4 4}%4"
              $ degradeBy 0.6
              $ struct "t(<7 11>,16)"
              $ s "glitch"
              # nCountTo "j" 8
              # leg 0.8
  let d31_0 = shift
              $ jux (hurry "2")
              $ every 3 rev
              $  struct "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "pad:2" # leg 1
              # room 0.5 # size 0.2
              # coarse (4 * (segment 16 (slow 4 saw)))
  let d31_1 = shift
              -- $ struct (every 2 inv "1101 1101")
              $ inevery 8 7 (juxBy 0.2 (hurry "h"))
              $ jux (hurry "2")
              $ while "1101 1101" (|+ up "[-12]")
              $ every 3 rev
              $  struct "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "pad:2" # leg 1
              # coarse (4 * (segment 16 (slow 4 saw)))
              # room 0.5 # size 0.2
  let d31_2 = (|+ up "<0!4 -3!4>")
              $ struct (every 2 inv "1101 1011")
              $ inevery 8 7 (juxBy 0.2 (hurry "h"))
              $ jux (hurry "2")
              $ while "1101 1101" (|+ up "[-12]")
              $ every 3 rev
              $ struct "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "pad:2" # leg 1
              # coarse (4 * (segment 16 (slow 4 saw)))
              # room 0.5 # size 0.2
  d1 $ qtrigger 1 $ seqP [
    (0,4,  d10_0),
    (4,8,  d10_1),
    (8,24, d11_0),
    (24,32, d11_0),
    (32,40, d11_0 # p1# gain 0.85),
    (40,48, d11_0 # p2 # gain 0.85),
    (48,64, d13_0 # p2 # gain 0.85)
   ]
  d2 $ qtrigger 2 $ seqP [
    (4, 8, d20_1),
    (8,16, d21_0),
    (24,32, d21_0),
    (32,40, d21_0 # p1# gain 0.83),
    (40,48, d21_2 # p2# gain 0.83),
    (48,64, d23_0 # p2 # gain 0.83)
   ]
  d3 $ qtrigger 3 $ seqP [
    (8,16, d31_0),
    (16,24, (|+ up "5") $ while "0<0 1> <1 0>1" (# silence) d31_0 ),
    (24,32, d31_1),
    (32,40,(|+ up "5") $  d31_1),
    (40,48, d31_2),
    (48,56, (|+ up "5") $  d31_2),
    (56,64, d31_2),
    (64,72, (|+ up "5") $ while "0000" (# silence) d31_2)
   ]