685 B
685 B
setcps(136/60/2) //cycles per minute
const smpl = wchoose(["hh:0",8], ["oh:<1 2>",3], ["cr",1])
const smpl2 = wchoose(["sd:<0 1>",3], ["sd:<3 2>",3], ["sd:<5 6>",3])
$_:sound("bd:6").struct("1 0 1 0").gain("<1 1.2>".fast(2))
$_:sound(smpl).struct("1 1 1 1").degradeBy(0.2).decay(0.2).gain(0.6)
.sometimesBy(0.6,x=>x.stut(3,1/4,1/8))
.rarely(x=>x.dist("8:0.2"))
._punchcard()
$_:sound(smpl2).struct("1 1 1 1").degradeBy(0.4).gain(0.3)
.room(0.2).pan("0.1 0.9")
$_:note("- c3".off(1/32,x=>x.add(0,0.1,0.2))).fast(2).sound("saw").decay(0.3)
.lpf(800).lpq("<0 20>").mask("0 1".slow("<2 4 3>"))
.dist("4:0.2").delay(0.3)
.postgain(0.3)._scope()