// @title ECHOES OF THE ARCHITECT
// @by John Oestmann
// @license CC0 / Public Domain

setcpm(165/4)

$CHORD: note("<0@0.25 2@0.75 -2@2.5 <-4 0>@0.5>" // Progression
  .add(arrange([8,"60"],
              [24,"48"],
              [128,"48"])) // Root
  .add("<[0, 7, 11, 14]!3 [0, 7, 12, 14]>".slow(4)) // Chord
            )
  ._pianoroll()
.s("gm_fx_echoes")
  //.phaser("0.75")
  .decay("4.5")
  //.release("0.8")
  .room("0.8")
.postgain("0.5")
.orbit("0")

$KICK: s("circuitsdrumtracks_bd")
.beat("0, 10", 16)
  .room("0.2")
.postgain(arrange([32,"0.5"],
                 [8,"0"]))
.orbit("1")

$SNARE: note("<32>")
.s(stack("circuitsdrumtracks_rim"))
  .beat("4, 12", 16)
  .decay("0.18")
  .delay("0.2")
  .room("0.5")
.postgain(arrange([32,"0.5"],
                 [8,"0"]))
.orbit("2")

$HATS: note("<48>")
.s("circuitsdrumtracks_hh")
.beat("2,4,6,8,10,12,14,16", 16)
  .gain("<[1.0 0.8 0.8 0.6 1.0 0.6 0.8 0.6]>")
  .delay("0.2")
  .decay("0.2")
  .lpf("4800")
  .room("0.5")
.postgain(arrange([8,"0"],
                 [8,"0.15"])
          )
.orbit("3")

$BASS: note("<[0 2!15]!3 [0 2!11 5!4]>".slow("2")
           .add(arrange([8,"36"],
              [8,"48"]))
           )
.s(stack("gm_electric_guitar_clean",
        "gm_pad_warm"))
  .seg("<[8]!23 [16]>".fast(4))
  ._pianoroll()
.decay("0.12")
.room("0.4")
.postgain(arrange([32,"0.4"],
                 [8,"0"]))
.orbit("4")

$MELODY: note("<[0 ~ 0 5 7 ~ <7!5 10> <12 12 [12 14] 12 10>]>"
             .add("60") // Root
              .add("<2>")
             )
.s(stack("gm_epiano1",
         "gm_baritone_sax"
        ))
//.decay("2")
  .pan("<[0.3 0.7 0.5]>")
  .delay("0.6")
  .delayfeedback("0.85")
  .room("0.6")
.postgain(arrange([10,"0"],
                 [2,"<0.15 0>"],
                  [4,"0"],
                 [16,"0"])
          )
.orbit("5")

$FX1: note("<[~!4 30 ~!3]>")
.s(stack("circuitsdrumtracks_sh",
               "circuitsdrumtracks_rd")
         )
  .pan("<0.35 0.65>".slow(3))
  .lpf("1600")
  .delay("0.4").delayfeedback("0.9")
  .room("0.5")
.postgain(arrange([1,"0.12"],
                 [15,"0"])
          )
.orbit("6")

$FX2: note("<[-1 0 ~!6]>"
          .add(arrange([8,"60"],
              [8,"48"]))) // Root
.s(stack("sds5_mt"
         ))
  .decay("0.1")
  .pan(arrange([8,"0.65"],
              [8,"0.35"])
       )
  .lpf("1600")
  .delay("0.5").delayfeedback("0.85")
  .room("0.8")
.postgain(arrange([1,"0.32"],
                 [7,"0"])
          )
.orbit("7")

$VOX2: note("<2 0 2 7 5 4 5 2>".fast(2)
           .add("<48>")
            .add("<0 7>")
           )
.s(stack("gm_cello",
        "gm_choir_aahs"))

.pan("<0.7 0.3>")
.postgain(arrange([12,"0"],
                 [4,"0"],
                 [12,"0"],
                 [4,"0.3"])
         )
  .delay("0.5")
  .room("0.4")
.orbit("8")

$POLYM: note("<2 7 9>"
            .add("36")
            .add("<0!6 7!6 12!2>")
            .fast(8))
.s(stack("gm_dulcimer")
         )
.decay("0.2")
.pan("<0.6@0.5 0.7@0.5 0.4@0.5 0.3@0.5>")
  .lpf("1200")
.delay(0.3)
.room(0.7)
.postgain("0.4")
  .orbit("9")