notebook/strudel/heart sounds and breathing.md

setcps(100/60/2)

$:stack(
 s("sbd - sbd -").dec(0.5),
 s("- hh").off(1/16,x=>x.gain(0.1)).sometimes(x=>x.ply(2)),
 ).orbit(1)

$:note("c1 c1").s("supersaw").dec(0.8)
  .lpf(perlin.range(100,1200).slow(5)).ftype(2).lpenv(0.8)
  .orbit(1)


$:note("c1").slow(4)
  .s("white").att(0.3).dec(0.5)
  .lpf(perlin.range(200,1200).slow(7)).lpq(10)
  .sometimesBy(0.15,x=>x.dist("4:0.2:fold")).orbit(2)

$_:note("c2".add(0.07,0.11,0.13)).slow(4)
  .s("saw").att(0.1).dec(0.5).sus(0.1).rel(0.1).penv(0.3)
  .delay(3/4).dt(1/2).dfb(3/4)
  .pan(rand)

$_:note("c3".sometimesBy(0.1,x=>x.add(-7,12))).late(0.75).slow(4)
  .s("sine").fm(sine.range(0.3,2.3).slow(11)).fmh("<2.2 3.2>".slow(4))
  .att(0.2).dec(0.5).sus(0.1).rel(0.1).room(2/3).roomsize(4)
  .orbit(3)

$:note("c4".add(0.05,0.10,0.15)).late(1.5).slow(5)
  .s("tri").fm(2.3).fmh(sine.range(0.3,1.6).slow(7))
  .att(0.5).dec(0.1).sus(0).rel(0).room(2/3).roomsize(4)
  .orbit(4)

all(x=>x.scope({ pos: 0.5 })
  .hush()
   )