// I Hung My Head — Sting
// 105 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 114 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(105/4)

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

// other · electric guitar clean · "git"
const electric_guitar_clean = note(`<
  ~@2 A B C B A B C B A B C B A B C B D C E A B C A B A B A B C B A B C B D C E A B C A B A B A B C B A B C B A B C B A
  B C B D C E A B C A B A B A B C B A B C B A B C B D C E A B C A B A B A B C B A B A B A B A B A B A B A B A B
>`.pickRestart({
  A: "a2 e3 a3 b3 c#4 b3 a3 e3", B: "d3 a3 d4 e4 f#4 e4 d4 a3", C: "f#3 c#4 f#4 g#4 a4 g#4 f#4 c#4",
  D: "b2 f#3 b3 c#4 d4 c#4 b3 f#3", E: "e3 b3 e4 f#4 g#4 f#4 e4 b3",
})).s("gm_electric_guitar_clean").gain(0.11)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@2 A B C D A B C D A B C D A B C D E F G A B C H I H I A B C D A B C D E F G A B C H I H I A B C D A B C D A B C D A
  B C D E F G A B C H I H I A B C D A B C D A B C D E F G A B C H I H I A B C D H I H I H I H I H I H I H I H I
>`.pickRestart({
  A: "a1@11 ~ a1@2 f#1@2", B: "d2@11 ~ d2@2 c#2@2", C: "f#1@11 ~ f#1@2 a1@2", D: "d2@11 ~ a1@2 f#1@2",
  E: "b1@11 ~ f#1@2 a1@2", F: "[f#1,f#2]@11 ~ f#1@2 f#1@2", G: "e1@11 ~ f#1@2 g#1@2", H: "a1@2 a1@2 a1@11 ~",
  I: "d2@2 d2@2 d2@11 ~",
})).s("gm_electric_bass_finger").gain(0.72)

// chords · drawbar organ · "Organ"
const drawbar_organ = note(`<
  ~@2 A B C B A B C B A B C B A B C B D C E A B C F G F G A B C B A B C B D C E A B C F G F G A B C B A B C B A B C B A
  B C B D C E A B C F G F G A B C B A B C B A B C B D C E A B C F G F G A B C B F G F G F G F G F G F G F G F G
>`.pickRestart({
  A: "[a3,b3,c#4,e4]@15 ~", B: "[d4,e4,f#4,a4]@15 ~", C: "[f#3,g#3,a3,c#4]@15 ~", D: "[b3,d4,f#4]@15 ~",
  E: "[c#4,e4,g#4,a4]@15 ~", F: "c#5@2 c#5@3 ~ c#5@5 ~@5, [a3,b3,c#4,e4]@15 ~",
  G: "c#5@2 c#5@3 ~ c#5@5 ~@5, [d4,e4,f#4,a4]@15 ~", // D
})).s("gm_drawbar_organ").gain(0.11)

// other · tenor sax · "sax"
const tenor_sax = note("<~@46 A B C D A B C D ~@60>".pickRestart({
  A: "f#5@11 ~ e5@2 f#5@2", B: "c#5 b4 a4@11 ~ a4@2", C: "c#5@11 ~ c#5@4", D: "a4@11 ~@5",
})).s("gm_tenor_sax").gain(0.72)

// other · woodblock · "sax"
const woodblock = note(`<
  ~@54 A B C D A B C D E F G A B C H I H I ~@4 A B C D A B C D E F G A B C H I H I ~@20
>`.pickRestart({
  A: "f#4@11 ~ f#4@2 d4@2", B: "b4@11 ~ b4@2 a4@2", C: "d4@11 ~ d4@2 f#4@2", D: "b4@11 ~ f#4@2 d4@2",
  E: "g#4@11 ~ d4@2 f#4@2", F: "[d4,d5]@11 ~ d4@2 d4@2", G: "c#4@11 ~ d4@2 e4@2", H: "f#4@2 f#4@2 f#4@11 ~",
  I: "b4@2 b4@2 b4@11 ~",
})).s("gm_woodblock").gain(0.72)

// other · baritone sax · "sax"
const baritone_sax = note("<~@72 A B C D ~@18 A B C D E F E F E F E F E F E F E F E F>".pickRestart({
  A: "f#5@11 ~ e5@2 f#5@2", B: "c#5 b4 a4@11 ~ a4@2", C: "c#5@11 ~ c#5@4", D: "a4@11 ~@5", E: "f#4@2 f#4@2 f#4@11 ~",
  F: "b4@2 b4@2 b4@11 ~",
})).s("gm_baritone_sax").gain(0.72)

// other · drawbar organ · "organ2"
const drawbar_organ_2 = note(`<
  ~@46 A B C D A B C D E F G F E F G F H G I E F G E F E F ~@4 E F G F E F G F H G I E F G E F E F ~@4 E F E F E F E F E
  F E F E F E F
>`.pickRestart({
  A: "f#5@11 ~ e5@2 f#5@2", B: "c#5 b4 a4@11 ~ a4@2", C: "c#5@11 ~ c#5@4", D: "a4@11 ~@5",
  E: "a3 e4 a4 b4 c#5 b4 a4 e4", F: "d4 a4 d5 e5 f#5 e5 d5 a4", G: "f#4 c#5 f#5 g#5 a5 g#5 f#5 c#5",
  H: "b3 f#4 b4 c#5 d5 c#5 b4 f#4", I: "e4 b4 e5 f#5 g#5 f#5 e5 b4",
})).s("gm_drawbar_organ").gain(0.22)

// drums · high tom
const high_tom = s("ht").struct("<~@24 [x!2]!4 ~@14 [x!2]!72>").gain(0.72)

// drums · tambourine
const tambourine = s("tb").struct("<[~@4 x ~@6 x ~@4] [~@2 x ~@6 x ~@6] ~@8 [~ x ~ x]!104>").gain(0.72)

stack(
  electric_guitar_clean, bass, drawbar_organ, tenor_sax, woodblock, baritone_sax, drawbar_organ_2, high_tom, tambourine
)