// Planet Caravan — Pantera
// 86 bpm, 4/4, key D# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 81 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Guitar Fill.
setcpm(86/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// chords · acoustic guitar nylon · "Rhythm Guitar"
const acoustic_guitar_nylon = note("<A@7 B@72 C ~>".pickRestart({
  A: "[~@8 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 eb3@4, eb2@19 ~@13 db3@12 bb3@16 ab3@23 ~@17 f3@10 ~@6 f3@8 ab3@23 ~@9 eb3@18 ~@10 gb3@4 ab3@23 ~@13, ~@4 bb2@15 ~@9 eb3@18 ~@2 db3@15 ~ eb2@19 ~@25 bb3@19 ~@37 f3@10 ~@6 f3@11 ~@5 bb2@15 ~@13, ~@36 f3@10 ~@6 f3@11 ~@5 bb2@15 ~@13 db3@14 ~@2 db3@15 ~ eb2@19 ~@25 bb3@19 ~@33, ~@56 gb3@7 ~@29 eb3@18 ~@10 gb3@7 ~@5 bb2@15 ~@13 db3@14 ~@2 db3@15 ~ eb2@19 ~@13]/7", // Ebm
  B: "[~@8 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 ~@12 gb3@4 ~@28 gb3@4 [gb3,bb3,eb4]@7 ~ [f3,gb3,bb3,eb4]@8 eb3@4, db3@12 bb3@16 ab3@23 ~@17 f3@10 ~@6 f3@8 ab3@23 ~@9 eb3@18 ~@10 gb3@4 ab3@23 ~@9 eb3@18 ~@10 gb3@4 ab3@23 ~@13, ~@4 f3@10 ~@2 db3@15 ~ eb2@19 ~@25 bb3@19 ~@37 f3@10 ~@6 f3@11 ~@5 bb2@15 ~@13 db3@14 ~@2 db3@15 ~ eb2@19 ~@13, ~@20 f3@11 ~@5 bb2@15 ~@13 db3@14 ~@2 db3@15 ~ eb2@19 ~@25 bb3@19 ~@37 f3@10 ~@6 f3@11 ~@5 bb2@15 ~@13, ~@24 gb3@7 ~@29 eb3@18 ~@10 gb3@7 ~@5 bb2@15 ~@13 db3@14 ~@2 db3@15 ~ eb2@19 ~@25 bb3@19 ~@33]/8", // Ebm
  C: "~@2 gb3 ~@4 ab3, db3@12 bb3@19 ~, ~@4 f3@10 ~@2 db3@15 ~, ~@20 f3@11 ~, ~@24 gb3@7 ~",
})).s("gm_acoustic_guitar_nylon").gain(0.4)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@2 A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B A B A B A B A B A B A B A B A B A B C
>`.pickRestart({
  A: "eb2@6 eb2@4 eb2@2 ab2 bb2 db3@2", B: "db2@2 ~ db2 ab2 a2 ab2 gb2", C: "eb2@3 ~",
})).s("gm_electric_bass_finger").gain(0.3)

// other · electric guitar jazz · "Lead Guitar"
const electric_guitar_jazz = note("<~@54 A B C D E F G H@2 I J K L M@2 N@2 O P Q R S T U V W X>".pickRestart({
  A: "f3@6 db3@2 eb3@7 ~",
  B: "~@4 eb3@2 gb3@2 ab3@2 ~@5 gb3@2 ~ ab3@2 gb3@2 ~@2 gb3@4 eb3@2 db3@2, ~@6 ab3!2 ~@8, ~@13 a3@2 ~@17",
  C: "eb3@3 db3 eb3 gb3 f3 db3 eb3@7 ~", D: "db3!2 db3@2 gb3@4 ab3@4 ab3@4 ab3@4 gb3@4 eb3@2 gb3@2 eb3@4",
  E: "gb3@2 f3@2 eb3@10 ~@5 [gb3,bb3] [eb4,f4]@2 gb4@2 f4@2 eb4@2 f4@2 db4@2", // Gb Ebsus2
  F: "c4@2 db4@2 c4@2 db4@2 ab3@2 f3@10 ~@10 gb3 [bb3,db4]", G: "f4 gb4 f4 eb4 ab4@2 f4 gb4 f4 eb4 ab4@2 db4 f4 gb4 f4",
  H: "[eb4@4 f4@2 f4@2 gb4@2 f4@2 eb4@2 db4@2 c4@2 db4@2 db4@2 c4@2 bb3@3 ~@11 eb3@10 ~@2 bb3@2 gb4@10 ~@2, ~@27 c4@2 gb3@2 gb3@2 gb3@2 db3@2 db3@2 ~@25, ~@14 ab3!2 f3!3 ~@13]/2",
  I: "gb3 ab3@2 ab3 a3 ab3!2 a3 ab3 gb3 ab3 gb3 eb3@4", J: "gb3@4 ab3@2 a3@2 db4@2 eb4 ~ gb4 ab4@3 eb4@8 eb4@2 ab4@6",
  K: "gb4 eb4 ab4 eb4 gb4 ab4 a4 ab4 eb4 ab4 gb4 ab4!2 gb4 ab4@2",
  L: "gb4@8 db5 ~@2 db5 c5 bb4 gb4 ~ c5 ~@2 c5 b4 ab4 f4 ~ b4 ~@2 b4 bb4 ab4 f4 ~",
  M: "[bb4@8 ~@6 gb4 [bb4,db5] eb5 ~@2 f5@2 ~ gb5 ~@2 ab5@2 ~ bb5@15 ~ bb5@13 gb5 f5 eb5 db5 gb5 ~ db5]/2", // Bbm
  N: "[eb5@16 ~@2 gb4 [ab4,bb4] db5@2 bb4@2 ab4@2 gb4@12 ~@2 c4@2 db4@2 c4@4 f4@2 gb4@2 f4@2 gb4@2 f4@4 gb4@4]/2", // Absus2
  O: "f4@8 c4 db4 c4 bb3 c4 ab3 gb3 f3", P: "gb3 ab3 bb3 gb3 ab3 gb3 a3 ab3 gb3 db4@6 gb4",
  Q: "db4 bb3 eb4 bb3 eb4 gb4 eb4 ab4 eb4 gb4 ab4 a4 bb4 a4 bb4 a4 bb4 a4 ab4 gb4 ab4 a4 eb5 db5 bb4 a4 ab4 gb4 db4@4",
  R: "eb5@2 db4@4 eb5@2 f4@4 eb5@2 f4@4 eb5@2 db4@10 bb4 [d5,gb5]", // D
  S: "ab5 a5 bb5 gb5 f5 eb5 db5@7 ~ bb4 [db5,gb5] ab5@2 g5 gb5 eb5 ab5 eb5 db5 bb4 a4 gb4 eb4 ab4 eb4 ~ [bb3,d4]", // Gb5 Bb
  T: "f5 gb5@7 eb5@2 ~ db5@2 eb5@2 db5 eb5@8 a4@2 bb4@2 c5 db5@3, ~@5 gb5 ~@10", U: "bb4 ab4@2 gb4 ab4@8 eb4 ab4 db4@2",
  V: "ab4 gb4 f4 gb4 f4 eb4 db4 c4 db4 c4 bb3 ab3 gb3 eb3 db3 eb3 db3 eb3 e3 f3 gb3 db3 eb3 ab3 bb3 db4 d4 eb4@2 ~ bb3 [db4,f4]", // Db
  W: "bb4@28 ~@2 bb4 [db5,gb5]", X: "ab5 a5 bb5 gb5 f5 eb5 db5@2 eb5@24",
})).s("gm_electric_guitar_jazz").gain(0.4)

// other · acoustic guitar nylon · "Background FX"
const acoustic_guitar_nylon_2 = note(`<
  ~@27
  [eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6]!4
  ~@9
  [eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6 eb5 gb5 bb5 eb6]!2
  ~@39
>`).s("gm_acoustic_guitar_nylon").gain(0.13)

// drums · congas
const congas = s("conga:18").struct(`<
  ~ A B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B F D E B
  F D E B C G E B F D E B C D E H C D E B F ~
>`.pickRestart({
  A: "~@10 x!6", B: "~@2 x!3 ~@5 x!3 ~@3", C: "~@2 x!3 ~@5 x!6", D: "~@2 x!3 ~@11", E: "x!3 ~@7 x!6",
  F: "~@4 x ~ x ~ x ~@9 x!3 ~ x ~ x ~ x ~ x ~ x ~", G: "~@2 x!3 ~@3 x ~ x ~@5", H: "~@4 x ~ x ~ x ~@9 x!3 ~ x ~ x ~@7",
})).gain(1.54)

// drums · congas
const congas_2 = s("conga:33").struct(`<
  ~@2 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C E A B C F G
  B C H A B I H A B C D J B C D A B C H A B K
>`.pickRestart({
  A: "x ~@2 x ~@3 x", B: "x ~@2 x!2 ~@3", C: "x ~@2 x ~ x!3", D: "~@2 x!3 ~@3", E: "~@4 x ~ x ~ x!2 ~@2 x!3 ~",
  F: "~@8 x ~@3 x ~@3 x ~@13 x!2", G: "x!2 ~ x ~@3 x", H: "~@8 x ~@3 x ~@3 x ~@2 x!2 ~@11", I: "x!2 ~ x!5",
  J: "x ~@11 x ~@15 x ~ x!2", K: "x",
})).gain(1.54)

stack(acoustic_guitar_nylon, bass, electric_guitar_jazz, acoustic_guitar_nylon_2, congas, congas_2)