fix cracks + add tune

repl/src/tunes.mjs

@@ -865,3 +865,33 @@ export const bornagain = `stack(
   .jux(rev)
   .out()
   .stack(s("bd(3,8),hh*4,~ sd").webdirt())`;
+
+export const meltingsubmarine = `samples({
+  clubkick: 'clubkick/2.wav',
+  sd: ['808sd/SD0010.WAV','808sd/SD0050.WAV'],
+  hh: 'hh/000_hh3closedhh.wav',
+  clak: 'clak/000_clak1.wav',
+  jvbass: ['jvbass/000_01.wav','jvbass/001_02.wav','jvbass/003_04.wav','jvbass/004_05.wav','jvbass/005_06.wav']
+}, 'https://raw.githubusercontent.com/tidalcycles/Dirt-Samples/master/');
+stack(
+  "<clubkick*2>,[~ <sd!3 sd(3,4,2)>],hh(3,4)".s().n("<0 1 2>").speed(perlin.range(.7,.9)),
+  "<a1 b1*2 a1(3,8) e2>"
+  .off(1/8,x=>x.add(12).degradeBy(.5))
+  .add(perlin.range(0,.5))
+  .n().decay(.15).sustain(0).s("sawtooth")
+  .superimpose(x=>x.add(.08)).gain(.4)
+  .cutoff(sine.slow(7).range(300,5000)),
+  "<Am7!3 <Em7 E7b13 Em7 Ebm7b5>>".voicings().superimpose(x=>x.add(.04))
+  .add(perlin.range(0,.5))
+  .n().s('sawtooth')
+  .gain(.16)
+  .cutoff(500)
+  .attack(1),
+  "a4 c5 <e6 a6>".struct("x(5,8)")
+  .superimpose(x=>x.add(.04))
+  .add(perlin.range(0,.5)).n()
+  .decay(.1).sustain(0).s('triangle')
+  .degradeBy(perlin.range(0,.5)).echoWith(4,.125,(x,n)=>x.gain(.15*1/(n+1)))
+)
+  .out()
+  .slow(3/2)`;