// @title DISCOVERY SQUAD
// @by John Oestmann
// @license CC0 / Public Domain

setcpm(140/4)

// Lead
$: arrange([8,"~"],
           [32,

stack(s("tri"),
        s("gm_fx_echoes").gain(0.5),
        s("gm_fx_crystal").gain(0.2)
        ).note("<0 5 <7 14> 12>".add(48)
        // Gaps
        .add("<0 ~>"))
  .beat("0,4,9,12,13,14",16)
            ])
  .pan("0.25 0.75".fast(6))
  .release(0.1)
     ._pianoroll()
  .delay("0.7")
  .room(0.5)
  .postgain(0.5)
  .orbit("4")

// Harmonic
$: note("<<~[0 0@3]!3> 0 [0@3 0]> <[~ 0] [~@3 0]>"//.add("[0@2 5]")
        .add("0, 7, 10, 12, 17".add("<62!2 58@1.5 57@0.5>")
             .sub("10")
             .sub("<0@7 ~>").add("<0@24 ~@8>"))) // Gaps
  ._pianoroll()
  .sound("gm_epiano1")
  .lpenv(14).lpf(200).ftype("2").lpdecay(0.38)
  .postgain("0.4")
  .pan("<0.4 0.6>")
  .delay("0.6")
  .room(0.3)
  .orbit("1")

// Bass
$: note("0 <0 [12 12] 0 0> <~ [12 12] ~ ~> 0 [~ 0] ~ 0 [~ 0]".add("<60!2 56!2>").sub("22"))
  .sound("gm_acoustic_bass")
  .release(0.3)
  ._pianoroll()
  .room(0.6)
  .postgain(0.7)
  .orbit("2")

// Perc
$: arrange([4,"~"],
           [16,
stack(
  sound("bd").bank("9000").beat("0, 1, 3, <~ 6.5 7>",8),
  sound("sd").bank("bossdr110").beat("4, <12!7 [10, 14,15]>",16),
  sound("hh!16").bank("bossdr110").gain("[0.05 <0.05 0.015!3> 0.03 0.015]".fast(4)),
  arrange([16,"~"],
          [8,
           arrange([1,sound("cp!16").bank("bossdr110").gain("0.4 0.03!10 0.01!5 0.0!16")],
                  [1,"~"],
                   [1,sound("cp!16").bank("bossdr110").gain("0.0!8 0.4 0.03!10 0.01!5 0.0!8")],
                  [1,"~"],
                   [1,sound("cp!16").bank("bossdr110").gain("0.4 0.03!10 0.01!5 0.0!16")],
                  [1,"~"],
                  [1,sound("cp!16").bank("bossdr110").gain("0.4 0.03!5 0.4 0.03!4 0.01!5 0.0!2")],
                  [1,"~"])
           ]))
            ])
            ._punchcard()
  .delay(0.3).room(0.1)
.postgain(0.6)
.orbit("3")

// ARP
$: arrange([1,note("[<0 2!3> 7 <9 12!3> 16] 17  ~@2".add("50").add("<0 -12 0>"))],
          [3,"~"])
  .sound("gm_fx_brightness")
  ._pianoroll()
  .release(4)
  .tremolo(8).tremolodepth(0.8)
  .pan("<0.3 0.7>*16")
  .delay(0.4)
  .room(1.4).dry(0.5)
.postgain(0.4)
.orbit("5")


// Digibeeps
$: arrange([20,"~"],
  [16, note("~ <10 7 <9 5> 10> ~ <<<12 16> 15> 14 17 <19 16>>".add("62").fast(2))
   .sound("gm_electric_guitar_jazz")]
          )
  .seg("<16!2 32>".fast(4))
  .decay("<0.1!3 0.05>".fast(4))
  ._pianoroll()
  .pan("0.2 0.8".fast(2))
  .delay(0.7)
  .room(0.8)
.postgain(0.2)
.orbit("6")