// Send Me an Angel — Scorpions
// 110 bpm, 4/4, key D# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 124 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(110/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 · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  ~@10 A B A C A B D E ~@8 F@3 G H@3 I J K@2 L M N@2 O P Q R Q S Q T U V@3 W X@3 U Y Z@2 AA AB@3 AC AD@3 AE AF@3 AG AH@2
  AI@2 AJ@4 AK@4 AF@3 AG AL AM@3 AN AO@2 AP AL AQ@4 AR@2 AS AT AU@3 AV@3 AW AX@3 AY AL AZ@2 BA BB@2
>`.pickRestart({
  A: "bb3 b3, [gb3,eb4]", B: "gb3@11 ~ f3@10 ~@2, [ab3,db4]", C: "[ab3,db4], f3@11 ~",
  D: "bb3@12 b3@11 ~, eb4, gb3@11 ~", E: "[f3,ab3,db4]@11 ~", F: "[eb5@47 ~ [gb3,bb3]@12 [b3,gb4]@12, eb4]/3",
  G: "[f3,ab3,db4]", H: "[eb5@4 gb3 gb4, eb4@71 ~, ~@48 bb3@23 ~]/3", I: "[ab3,db4,f4]@23 ~", J: "[c4,f4,ab4]@23 ~",
  K: "[bb3@22 ~@2 c4@23 ~, [eb4,g4]@47 ~]/2", L: "[db4,f4]@5 ~ [eb4,g4]@5 ~, ab4 bb4", M: "[ab4,c5], f4@11 ~",
  N: "[[g4,bb4], eb4@23 ~]/2", O: "[f4,ab4]@12 [bb3,eb4,g4]@11 ~, db4@3 ~@5", P: "c4@11 ~ db4@11 ~, [f4,ab4]@23 ~",
  Q: "[eb4,g4], bb3@11 ~", R: "c4@12 db4@11 ~, [f4,ab4]", S: "c4 db4, [f4,ab4]", T: "c4@11 ~ db4@12, [f4,ab4]",
  U: "[bb3,eb4,g4]@23 ~", V: "[f5@47 ~ [ab3,c4]@12 [db4,ab4]@12, f4]/3", W: "[g3,bb3,eb4]",
  X: "[c5@4 ab3 ab4, f4@71 ~, ~@48 c4@23 ~]/3", Y: "[d4,g4,bb4]", Z: "[c4@11 ~ d4@11 ~, [f4,a4]@47 ~]/2",
  AA: "[eb4,g4]@5 ~ [f4,a4]@5 ~, bb4 c5", AB: "[bb4 a4@2, d5@71 ~, g4@11 ~ f4@23 ~]/3",
  AC: "[g4,bb4] [a4,c5], eb4@10 ~@2 f4@9 ~@3", AD: "[eb5@48 ~ [gb3,bb3]@12 [b3,gb4]@11, eb4]/3",
  AE: "~ [f3,ab3,db4]@23", AF: "[~ eb5@48 gb3@12 gb4@11, ~ eb4@71, ~@49 bb3@23]/3", AG: "~ [ab3,db4,f4]@23",
  AH: "[~ bb3@12 b3@12 bb3@12 gb3@11, ~ [eb4,gb4]@47]/2", // Ebm
  AI: "[~ bb3@12 b3@10 ~@2 [ab3,db4]@21 ~@2, ~ [eb4,gb4]@24 f4@23]/2", // Db5 Ebm
  AJ: "[~ bb3@12 b3@11 ~ bb3@12 gb3@12 bb3@12 b3@10 ~@2 [ab3,db4,f4]@23, ~ [eb4,gb4]@73 ~@22]/4", // Db Ebm
  AK: "[~ eb5@47 ~ [gb3,bb3]@12 [b3,gb4]@12 [f3,ab3,db4]@23, ~ eb4@72 ~@23]/4", AL: "~ [c4,f4,ab4]@23",
  AM: "[~ bb3@22 ~@2 c4@22 ~@2 [db4,f4]@10 ~@2 [eb4,g4,bb4]@11, ~ [eb4,g4]@48 ab4@12 ~@11]/3", // Db Eb
  AN: "~ [f4,c5]@23, ~ ab4@21 ~@2", AO: "[~ [eb4,g4,bb4]@47]/2", AP: "~ [f4,ab4]@12 [bb3,eb4,g4]@11, ~ db4@9 ~@14",
  AQ: "[~ bb3@23 ~ c4@21 ~@3 [db4,f4]@10 ~@2 [eb4,g4]@11 ~ [f4,c5]@23, ~ eb4@48 ~@47, ~ g4@46 ~@2 ab4@12 bb4@12 ab4@21 ~@2]/4", // Db Eb F5
  AR: "[~ [bb4,eb5]@47, ~ g4@45 ~@2]/2", AS: "~ [ab4,db5]@12 [eb4,g4,bb4]@11, ~ f4@10 ~@13",
  AT: "~ [c4,f4]@21 ~@2, ~ ab4@23", // F5
  AU: "[~ bb3@23 ~ c4@22 ~@2 [db4,f4]@10 ~@2 [eb4,g4,bb4]@11, ~ [eb4,g4]@48 ab4@12 ~@11]/3", // Db Eb
  AV: "[~ [f4,ab4]@23 ~ [eb4,g4]@47, ~ c5@71]/3", AW: "~ [f4,ab4]@12 [eb4,g4,bb4]@11, ~ db4@9 ~@14",
  AX: "[~ [f4,ab4]@22 ~@2 [eb4,g4]@47, ~ c5@71]/3", AY: "~ [f4,ab4]@12 [eb4,g4]@11, ~ db4@9 ~@3 bb3@9 ~@2",
  AZ: "[~ bb3@22 ~@2 c4@23, ~ [eb4,g4]@47]/2", BA: "~ [f4,ab4]@12 [bb3,eb4,g4]@11, ~ db4@10 ~@13",
  BB: "[~ [ab3,c4,f4]@25 ~@22]/2", // Fm
})).s("gm_string_ensemble_1").gain(0.4)

// chords · acoustic guitar nylon · "Akk-Guita"
const acoustic_guitar_nylon = note(`<
  ~@2 A B@2 C A B@2 C A B@2 C A B@2 C A D@2 C A D@2 C A E@2 C A E@2 C F G H I F G H I J K@2 L J K@2 L J M@2 L J M@2 L N
  O P Q N O P R S T@8 U@12 V@4 W X Y Z W X Y Z W X Y Z W X Y Z W X Y Z W X Y Z W X Y Z W X Y ~@2
>`.pickRestart({
  A: "~@2 bb4 ~@3 bb4 gb4, eb4@11 ~ b3@12, ~ eb5@2 gb4@2 eb5@2 ~",
  B: "[~@6 ab4@3 ~@9 ab4@3 f4@3 ~@6 bb4@2 ~@10 bb4@3 gb4@3, db4@12 bb3@12 ~@9 gb4@8 ~@7, ~@3 db5@11 ~ db5@11 ~ eb5@7 ~@5 eb5@6 ~@3, ~@3 gb4@2 ~@3 eb4@4 b3@4]/2",
  C: "~ f4 ab4 ~@2 f4 ab4 f4, db4@23 ~, ~@9 f4@5 ~@10, ~@6 db5@5 ~",
  D: "[~@6 bb4@3 ~@9 bb4@3 gb4@3 ~@6 bb4@2 ~@10 bb4@3 gb4@3, bb3@12 gb3@12 ~@9 gb4@8 ~@7, ~@3 eb5@11 ~ eb5@11 ~ eb5@7 ~@5 eb5@6 ~@3, ~@3 gb4@2 ~@3 eb4@4 b3@4]/2",
  E: "[~@6 bb4@3 ~@9 bb4@3 ~ gb4 ~ eb5@3 ~@15 bb4@3 gb4@3, bb3 gb3 eb4 b3, ~@3 eb5@11 ~ eb5@9 ~@3 eb5@5 ~ gb4@8 ~@7, ~@9 gb4@6 ~@6 [eb4,gb4]@2 bb4@7 bb4@7 ~@2 eb5@6 ~@3]/2", // Ebm
  F: "~@6 ab4@3 ~@3 f5@3 c5@3 ab4@2 ~ c5@3, f3@23 ~, ~@3 f4@5 ~ f4@13 ~@2",
  G: "~@6 g4@3 ~@3 bb4@6 g4@5 ~, eb3@23 ~, ~@3 eb4@5 ~ eb4@11 ~@4", H: "~ c4 eb4 ~ c5 g4 eb4 g4, c3, ~@9 c4@10 ~@5",
  I: "f4 ab3 db4 ab4 g4 bb3 eb4 g4, db3@12 eb3@11 ~", J: "~@2 c5 ~@3 c5 ab4, f4@11 ~ db4@12, ~ f5@2 ab4@2 f5@2 ~",
  K: "[~@6 bb4@3 ~@9 bb4@3 g4@3 ~@6 c5@2 ~@10 c5@3 ab4@3, eb4@12 c4@12 ~@9 ab4@8 ~@7, ~@3 eb5@11 ~ eb5@11 ~ f5@7 ~@5 f5@6 ~@3, ~@3 ab4@2 ~@3 f4@4 db4@4]/2",
  L: "~ g4 bb4 ~@2 g4 bb4 g4, eb4@23 ~, ~@9 g4@5 ~@10, ~@6 eb5@5 ~",
  M: "[~@6 c5@3 ~@9 c5@3 ab4@3 ~@6 c5@2 ~@10 c5@3 ab4@3, c4@12 ab3@12 ~@9 ab4@8 ~@7, ~@3 f5@11 ~ f5@11 ~ f5@7 ~@5 f5@6 ~@3, ~@3 ab4@2 ~@3 f4@4 db4@4]/2",
  N: "~@6 bb4@3 ~@3 g5@3 d5@3 bb4@2 ~ d5@3, g3@23 ~, ~@3 g4@5 ~ g4@13 ~@2",
  O: "~@6 a4@3 ~@3 c5@6 a4@5 ~, f3@23 ~, ~@3 f4@5 ~ f4@11 ~@4", P: "~ d4 f4 ~ d5 a4 f4 a4, d3, ~@9 d4@10 ~@5",
  Q: "g4 bb3 eb4 bb4 a4 c4 f4 a4, eb3@12 f3@11 ~", R: "g4 bb3 eb4 bb4 a4 c4 f4 c4, eb3@12 f3@11 ~",
  S: "~@6 bb4@3 ~@10 bb4@3 gb4@2, eb4@11 ~ b3@12, ~@3 eb5@6 gb4@7 eb5@6 ~@2",
  T: "[~@7 ab4@3 ~@9 ab4@3 f4@3 ~@6 bb4@2 ~@10 bb4@3 gb4@3 ~@3 f4@3 ab4@3 ~@6 f4@3 ab4@3 f4@3 ~@6 bb4@3 ~@9 bb4@3 gb4@2, ~ db4@12 bb3@12 ~@9 gb4@8 ~@16 f4@5 ~@10 eb4@11 ~ b3@11, ~@4 db5@11 ~ db5@11 ~ eb5@7 ~@5 eb5@6 ~@15 db5@10 ~@5 eb5@6 ~@6 eb5@6 ~@2, ~@10 gb4@6 ~@9 eb4@12 b3@12 db4@23 ~@10 gb4@7 ~@7]/4",
  U: "[~@7 bb4@3 ~@9 bb4@3 gb4@3 ~@6 bb4@2 ~@10 bb4@3 gb4@3 ~@3 f4@3 ab4@3 ~@6 f4@3 ab4@3 f4@3 ~@6 bb4@3 ~@9 bb4@3 gb4@2, ~ bb3@12 gb3@12 ~@9 gb4@8 ~@16 f4@5 ~@10 eb4@11 ~ b3@11, ~@4 eb5@11 ~ eb5@11 ~ eb5@7 ~@5 eb5@6 ~@15 db5@10 ~@5 eb5@6 ~@6 eb5@6 ~@2, ~@10 gb4@6 ~@9 eb4@12 b3@12 db4@23 ~@10 gb4@7 ~@7]/4",
  V: "[~@7 bb4@3 ~@9 bb4@3 gb4@3 ~@6 bb4@2 ~@10 bb4@3 gb4@3 ~@3 f4@3 ab4@3 ~@6 f4@3 ab4@3 f4@3 ~@6 ab4@3 ~@3 f5@3 c5@3 ab4@2 ~ c5@2, ~ bb3@12 gb3@12 ~@9 gb4@8 ~@16 f4@5 ~@13 f4@5 ~ f4@13 ~, ~@4 eb5@11 ~ eb5@11 ~ eb5@7 ~@5 eb5@6 ~@15 db5@10 ~@25, ~@10 gb4@6 ~@9 eb4@12 b3@12 db4@23 ~ f3@23]/4",
  W: "~@7 g4@3 ~@3 bb4@6 g4@5, ~ eb3@23, ~@4 eb4@5 ~ eb4@11 ~@3",
  X: "~@4 c4@3 eb4@3 ~@3 c5@3 g4@3 eb4@3 g4@2, ~ c3@23, ~@5 c4@5 ~@2",
  Y: "~ f4@3 ab3@3 db4@3 ab4@3 g4@3 bb3@3 eb4@3 g4@2, ~ db3@12 eb3@11",
  Z: "~@7 ab4@3 ~@3 f5@3 c5@3 ab4@2 ~ c5@2, ~ f3@23, ~@4 f4@5 ~ f4@13 ~",
})).s("gm_acoustic_guitar_nylon").gain(0.35)

// other · distortion guitar · "Solo-Guit"
const distortion_guitar = note("<~@13 A@2 B C@2 ~@48 D E F G H I J@2 K ~@30 L@4 M@3 ~ N O P@6 Q R@2>".pickRestart({
  A: "[~@9 db5@14 ~]/2", B: "~@9 gb5 ~@2 gb5@12", C: "[~ eb5@28 ~@19]/2", D: "eb5@20 ~ bb5 ~ b5",
  E: "~ db6@2 ~@2 b5@3 bb5@3 ~ ab5@3 ~ bb5@3 ~ b5@3 ~", F: "bb5@13 ~@2 db6@4 ~ db6@4", G: "~ db6@18 ab5@5",
  H: "~ eb5@20 ~ bb5 b5", I: "~ db6@3 ~ b5@3 ~ bb5@3 ~ ab5@4 bb5@3 ~ b5@3",
  J: "[~ bb5@14 ~ db6@5 db6@11 ~@2 db6 b5 ~ bb5@2 ~ b5@3 ab5@3 b5@2]/2", K: "~ bb5@18 ~@5",
  L: "[~@22 c6@30 ~@18 c6@21 ~@5]/4", M: "[~@22 c6@16 ~@2 c6 ~@2 eb6 ~@2 eb6@23 ~@3]/3", N: "~@4 bb5@19 ~",
  O: "~@4 bb5@4 ab5 ~ f5 ab5 ~ bb5@9 ab5@2",
  P: "[~ bb5@8 ~ bb5@3 c6@3 bb5@2 ~ c6@2 ~ eb6@6 c6@2 ~ bb5@2 ~ c6@3 bb5@3 ab5@2 ~ f5@2 ~ ab5@6 ~@12 bb5@4 ab5 ~ f5 ab5@16 ~ f5 ~@2 ab5 ~@2 bb5@6 ab5@3 bb5@2 ~ c6@3 eb6@3 f6@3 g6@2 ~ ab6@6 g6@2 ~ f6@3 eb6@2 ~@12]/6",
  Q: "~@4 bb6@4 ab6 ~ bb6 ab6 ~ f6 ab6 ~ f6 eb6 ~ c6 eb6 ~ f6 eb6", R: "[~ c6 b5 ~ bb5 ab5 ~ f5@19 ~@22]/2",
})).s("gm_distortion_guitar").gain(0.4).pan(0.6)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@26 A B A C A D E F G H I J K L I J M N M O M P Q R S T M U S V Q W X G Y Z AA AB Y Z AC@2 AD ~ AE@2 AF@2 AG AH AG AI
  AG AJ AK AL AM AH AG AI AM AJ AK AN AO AP AQ AR AS AT AQ AR AO AP AQ AR AS AT AQ AR AO AP AQ AR AS AT AQ AR AO AP AQ
  AR AS AT AQ AR AU@2
>`.pickRestart({
  A: "eb3@11 ~ b2@11 ~", B: "bb2@6 gb2@5 ~", C: "db3@23 ~", D: "bb2@12 gb2@11 ~", E: "eb3@10 ~@2 b2@11 ~",
  F: "db3@19 ~@2 f2 ~@2", G: "f2@23 ~", H: "eb2@23 ~", I: "c2@11 ~", J: "db2@11 ~ eb2@10 ~@2", K: "f2@11 ~",
  L: "eb2@21 c2 ~@2", M: "f2@11 ~ db3@11 ~", N: "eb3@11 ~ c3@11 ~", O: "eb3@11 ~",
  P: "eb3@11 ~@10 f2 ~@2, ~@12 c3@11 ~", Q: "f2@10 ~@2 db3@11 ~", R: "eb3@7 ~", S: "f3@11 ~ db3@11 ~",
  T: "c3@6 ab2@5 ~", U: "eb3@23 ~", V: "c3@12 ab2@11 ~", W: "eb3@19 ~@2 g2 ~@2", X: "g2@23 ~", Y: "d2@11 ~",
  Z: "eb2@11 ~ f2@10 ~@2", AA: "g2@11 ~", AB: "f2@21 d2 ~@2", AC: "[eb2@3 ~]/2", AD: "~ eb2@16 ~@7",
  AE: "[~ eb2@38 ~@7 eb2 ~]/2", AF: "[~ eb2@43 ~@4]/2", AG: "~ eb3@11 ~ b2@11", AH: "~ bb2@12 gb2@10 ~", AI: "~ db3@23",
  AJ: "~ bb2@12 gb2@11", AK: "~ eb3@10 ~@2 b2@11", AL: "~ db3@19 ~@2 eb2 ~", AM: "~ eb2@11 ~ b2@11",
  AN: "~ db3@19 ~@2 f2 ~", AO: "~ f2@23", AP: "~ eb2@23", AQ: "~ c2@22 ~", AR: "~ db2@11 ~ eb2@10 ~", AS: "~ f2@22 ~",
  AT: "~ eb2@21 c2 ~", AU: "[~ f1@25 ~@22]/2",
})).s("gm_electric_bass_finger").gain(0.4)

// drums · kick
const kick = s("bd").struct(`<
  ~@50 A B A@4 B A B A B A B A B A@2 C D@2 C D C D C D C D C D C D C D C D C D C D C D C D C D C D C D C D C D C D C D C
  D C D C D C D C D C D C D@2 ~
>`.pickRestart({
  A: "x", B: "x ~@6 x", C: "~ x ~@20 x ~", D: "~ x ~@22",
})).gain(0.64)

// drums · rim
const rim = s("rim").struct("<[x!2] [x!4] ~@122>").gain(0.64)

// drums · snare
const snare = s("sd").struct("<~@59 A ~ A ~ A ~ A ~@4 B@52 ~@2>".pickRestart({
  A: "~ x", B: "~@13 x ~@10",
})).gain(0.64)

// drums · low tom
const low_tom = s("lt").struct("<~@121 [~@11 x] ~@2>").gain(0.64)

// drums · hihat
const hihat = s("hh").struct("<~@70 [~ x ~@5 x ~@5 x ~@5 x ~@4]!52 ~@2>").gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct("<~@121 [~@16 x ~@2 x ~@4] ~@2>").gain(0.64)

// drums · high tom
const high_tom = s("ht").struct("<~@121 [~@10 x ~@2 x ~@10] ~@2>").gain(0.64)

// drums · crash
const crash = s("cr").struct("<~@70 A ~@19 A ~@15 A ~@7 A ~@7 A ~>".pickRestart({
  A: "~ x ~@22",
})).gain(0.64)

stack(
  string_ensemble_1, acoustic_guitar_nylon, distortion_guitar, bass, kick, rim, snare, low_tom, hihat, mid_tom,
  high_tom, crash
)