// @title Disc II
// @by John Oestmann
// @license CC0 / Public Domain

setcpm(100/4)

// Harmonic
$: note(`<[48@4 55 59] [48@2 55@3 59]>,
     <62 64 - - - ->*2
     <- - - 67 - >,
     <- - - - 71 - >*0.5`.add("<0!5 12>*2").add("<0!3 -5>"
                              .add("<0!8 -7!8 -4!7 ~>")))
  .sound("gm_fx_echoes, gm_electric_guitar_muted")
  .vibmod("0.3:0.25")
  ._punchcard({labels: 1})
.lpf(saw.range(500,5000).fast(2))
.attack(0.4)
  .release(0.4)
.delay(0.5).pan("0.25 0.75")
.room(1.5).rsize(8)
.postgain(0.5)

// Perc
$: s("<<[bd!2] ~ bd ~> <cp [hh!2] ~> [oh!2] ~ <~ ~ bd> <bd [hh!4] ~ [cp!4]>>*[3,6]")
  .bank("compurhythm1000").orbit(2)
  .pan("<0.4 0.6 0.5>*8")
  .hpf(300)
  .lpf(800)
  .adsr("0.01:0.02:0:0")
  .room(2).rsize(8)
  .gain("<<1 0.3 0.8> 0.1 <0.4 0.25> 0.1>*8")
  //.delay(1)
.postgain(0.24)

// White Noise
$: s("<white>").orbit(3)
  .lpf(2000)
  .tremolosync(0.125).tremoloshape("sine").tremolophase("0.35")
  .room(4)
  .postgain(0.03)