// Angel of Mine — Monica
// 108 bpm, 4/4, key D# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 101 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(108/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, A@4 for four bars: edit a riff to change every repeat.

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  A@2 B@2 C@2 D@4 E@2 F@2 G@4 E@2 F@2 H@3 I J K L@2 E@2 F@2 G@4 E@2 F@6 H@3 I J K L@2 E@2 F@2 G@4 E@2 M@2 N@2 O@3 P L@2
  E@2 F@2 G@4 E@2 F@2 Q@3 I J K A@2 R@2 S@2 T@3
>`.pickRestart({
  A: "[~@30 bb3@3 ~@12 eb4@2 ~, ab2@24 bb2@9 c3@14 ~, eb4@6 bb3@9 ~@3 bb3@7 ~@2 f3@6 ~@6 g3@9, ~@3 f3@10 ~@2 f3@9 d4@15 ~@3 bb3@6, ~@9 eb4@9 ~@3 eb4@7 ~@5 eb4@10 ~@5]/2",
  B: "[~@30 bb3@3 ~@12 eb4@2 ~, ab2@8 [bb2,d4]@3 c3@5, eb4@6 bb3@9 ~@3 bb3@7 ~@17 bb3@6, ~@3 f3@10 ~@2 f3@10 ~@2 f3@6 ~@6 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 eb4@9 ~@6]/2", // Bb
  C: "[~@10 bb3 ~@4 eb4, ab2@8 [bb2,d4]@3 c3@5, eb4@6 bb3@9 ~@3 bb3@7 ~@17 bb3@6, ~@3 f3@10 ~@2 f3@9 ~@3 f3@7 ~@5 g3@9, ~@9 eb4@9 ~@3 eb4@7 ~@5 eb4@9 ~@6]/2", // Bb
  D: "[~@6 d4@3 eb3@6 ~@15 g3@3 c4@6 ~@39 bb3@3 ~@12 eb4@2 ~, d3@3 ~@2 [g2,bb3]@2 ab2@8 ~@17, f4@6 ~@3 g4@17 ~ eb3@11 ~ eb3@9 eb4@7 ~@2 eb4@9 ~@3 eb4@7 ~@5 eb4@10 ~@5, ~@3 bb3@7 ~@8 f3@12 ~@12 g3@8 ~ f3@10 ~@2 f3@9 d4@15 ~@3 bb3@6, ~@21 c4@12 ~@12 c4@5 ~@4 bb3@9 ~@3 bb3@7 ~@2 f3@6 ~@6 g3@9]/4", // Gm
  E: "[~@30 bb3@3 ~@12 eb4@2 ~, eb4@3 bb3@5 ~ bb3@3 d4@4 ~@5 bb3@3, ~@3 f3@10 ~@2 f3@9 ~@3 f3@6 ~@6 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 eb4@9 ~@6]/2",
  F: "[~@10 bb3 ~@4 eb4, eb4@6 bb3@9 ~@3 bb3@7 ~@2 f3@7 ~@5 g3@9, ~@3 f3@10 ~@2 f3@9 d4@8 ~@10 bb3@6, ~@9 eb4@9 ~@3 eb4@7 ~@5 eb4@9 ~@6]/2",
  G: "[~@6 d4@3 ~@21 g3@3 c4@6 ~@39 bb3@3 ~@12 eb4@2 ~, f4@6 ~@3 g4@17 ~ eb3@11 ~ eb3@9 eb4@7 ~@2 eb4@9 ~@3 eb4@7 ~@5 eb4@10 ~@5, ~@3 bb3@7 ~@5 bb3@5 ~ c4@12 ~@12 c4@5 ~@4 bb3@9 ~@3 bb3@7 ~@2 f3@6 ~@6 g3@9, ~@18 f3@12 ~@12 g3@8 ~ f3@10 ~@2 f3@9 d4@15 ~@3 bb3@6]/4",
  H: "[~@2 d4 ~@7 g3 c4@2 ~@2 c4 ~@2 ab3 c4@2 ~@2 c4, f4@6 ~@3 g4@17 ~ eb3@11 ~ eb3@9 ~@3 f3@7 ~@5 f3@9, ~@3 bb3@7 ~@5 bb3@5 ~ c4@12 ~@15 c4@8 ~@16, ~@9 f3@6 ~@6 g3@4 ~@8 ab3@3]/3",
  I: "~@7 d4, d4@2 bb3@3 ~ bb3@2, ~@3 g3@10 ~@2 g3@9, ~@9 d4@10 ~@5",
  J: "~@21 eb4@2 ~, eb4@3 c4@5 ~ c4@3, ~@3 g3@10 ~@2 g3@9, ~@9 eb4@10 ~@5",
  K: "~@21 eb4@2 ~, eb4@8 ~ eb4@11 ~@4, ~@3 f3@7 ~@5 f3@7 ~@2, ~@6 ab3@5 ~@7 ab3@5 ~",
  L: "[~@30 bb3@3 ~@12 eb4@2 ~, eb4@6 bb3@9 ~@3 bb3@7 ~@2 f3@6 ~@6 g3@9, ~@3 f3@10 ~@2 f3@9 d4@15 ~@3 bb3@6, ~@9 eb4@9 ~@3 eb4@7 ~@5 eb4@10 ~@5]/2",
  M: "[~@21 eb4 ~@23 eb4@2 ~, eb4@6 bb3@10 ~@2 bb3@9 ~@3 bb3@9 ~@3 bb3@6, ~@3 g3@11 ~ g3@10 ~@2 g3@10 ~@2 g3@9, ~@9 eb4@10 ~@5 eb4@7 ~@2 eb4@10 ~@5]/2",
  N: "[~@21 eb4 ~@17 g3@3 ~@3 g3@3, eb4@6 bb3@10 ~@2 bb3@9 ~@3 bb3@18, ~@3 g3@11 ~ g3@10 ~@2 g3@10 ~@11, ~@9 eb4@10 ~@5 eb4@7 ~@2 eb4@8 ~ d4@6]/2",
  O: "[~@21 eb4 ~@23 eb4 ~@23 eb4@3, eb4@6 bb3@10 ~@2 bb3@9 ~@3 bb3@10 ~@2 bb3@9 ~@3 c4@10 ~@2 c4@6, ~@3 g3@11 ~ g3@10 ~@2 g3@11 ~ g3@10 ~@2 ab3@10 ~@2 ab3@9, ~@9 eb4@10 ~@5 eb4@7 ~@2 eb4@10 ~@5 eb4@7 ~@2 eb4@9 ~@6]/3",
  P: "~@15 ab3@3 ~@3 ab3@2 ~, g4@6 c4@17 ~, ~@3 ab3@10 ~@11, ~@9 g4@9 f4@5 ~",
  Q: "[~@2 d4 ~@7 g3 c4@2 ~@5 ab3 c4@2 ~@2 c4, f4@6 ~@3 g4@17 ~ eb3@11 ~ eb3@9 c4@8 ~@10 ab3@6, ~@3 bb3@7 ~@5 bb3@5 ~ c4@12 ~@12 c4@5 ~@22, ~@18 f3@12 ~@12 g3@8 ~ f3@7 ~@5 f3@9]/3",
  R: "[~@30 bb3@3 ~@12 eb4@2 ~, ab2@24 [bb2,d4]@9 c3@13 ~@2, eb4@6 bb3@9 ~@3 bb3@7 ~@17 bb3@6, ~@3 f3@10 ~@2 f3@10 ~@2 f3@6 ~@6 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 eb4@9 ~@6]/2", // Bb
  S: "[~@10 bb3 ~@4 eb4, ab2@24 [bb2,d4]@9 c3@13 ~@2, eb4@6 bb3@9 ~@3 bb3@7 ~@17 bb3@6, ~@3 f3@10 ~@2 f3@9 ~@3 f3@7 ~@5 g3@9, ~@9 eb4@9 ~@3 eb4@7 ~@5 eb4@9 ~@6]/2", // Bb
  T: "[~@6 d4@3 eb3@5 ~@7 c4@3 ~ [c4,eb4]@35 ~@12, d3@9 ~@6 [g2,bb3]@6 ab2@43 ~@8, f4@6 ~@3 g4@15 eb3@37 ~@11, ~@3 bb3@7 ~@8 f3@6 [g3,bb3]@39 ~@9]/3", // Cm Gm
})).s("gm_acoustic_guitar_steel").gain(0.22)

// bass · fretless bass
const bass = note(`<
  ~@8 A B C D C E F@2 G H G I G H J@2 K L M N O B C D C E P@2 Q R M S G H G H G H J@2 K L M N O B C D C E P@2 O B C T U
  V W@2 X Y Z AA ~@8 A B C D C E F@2 K L M N ~@9
>`.pickRestart({
  A: "ab1@7 ~@2 ab1@6 ab2@3 eb2@3 ab1@2 ~", B: "bb1@6 ~@3 c2@6 c3@3 bb2@3 g2@2 ~",
  C: "ab1@8 ~ ab1@6 ab2@3 f2@3 eb2@2 ~", D: "bb1@7 ~@2 c2@6 c3@4 ~@2 c3@3", E: "bb1@8 ~ c2@5 ~ c2@3 g1@3 c2@2 ~",
  F: "[d2@6 bb1@2 ~ eb2@5 ~ g1@5 ~ ab1@11 ~ ab1@5 ~ ab2@6 eb2@2 ~, ~@15 f1 ~@32]/2", G: "ab1@7 ~@2 ab1@8 ~ f1@5 ~",
  H: "bb1@7 ~@2 c2@5 ~ c3@3 bb2@3 g2@2 ~", I: "bb1@7 ~@2 c2@5 ~ c3@8 ~", J: "[d2@7 ~@2 eb2@5 ~ g1@5 ~ ab1@27]/2",
  K: "f1@23 ~", L: "g1@23 ~", M: "ab1@23 ~", N: "db2@8 ~ db3@9 ab2@6", O: "ab1@6 ~@3 ab1@6 ab2@3 eb2@3 ab1@2 ~",
  P: "[d2@6 bb1@2 ~ eb2@5 ~ g1@5 ~ ab1@11 ~ ab1@5 ~ ab2@6 eb2@2 ~]/2", Q: "ab1@17 ~ ab2@4 ~@2", R: "bb2@8 ~ c3@13 ~@2",
  S: "bb1@8 ~ c2@8 ~ c3@6", T: "bb1@7 ~@2 c2@6 c3@4 ~@2 bb2@3", U: "eb2@7 ~@2 eb2@2 ~ eb2@10 ~@2",
  V: "eb2@7 ~@2 eb2@2 ~ eb2@6 bb1@6", W: "[ab1@8 ~ ab1@2 ~ ab1@9 bb1@9 ~@3 bb1@2 ~ bb1@6 b1@6]/2",
  X: "c2@6 ~@3 c2@2 ~ c2@9 ~@3", Y: "c3@6 g2@6 c2@5 ~ c2@5 ~", Z: "f1@7 ~@2 f1 ~@2 f1@10 ~@2", AA: "bb1 ~",
})).s("gm_fretless_bass").gain(0.39)

// other · string ensemble 2
const string_ensemble_2 = note(`<
  ~@24 A@2 B C D@7 E F@5 ~@7 A@2 B C D@7 E G@4 H@4 G@4 I@2 J@2 K@2 L@2 M@6 N@2 O@2 B C P@2 Q@2 R@2 S@3
>`.pickRestart({
  A: "[[f3,ab3,c4]@23 ~ [g3,d4]@24, ~@23 bb3@24 ~]/2", B: "[ab3,c4,eb4]@23 ~", C: "[f3,ab3,db4,eb4]@23 ~",
  D: "[[bb4,bb5]@54 ~ [g4,g5], ~@162 [ab4,ab5]@5 ~]/7", E: "[f4,f5]@7 [eb4,eb5]@17", F: "[eb5@29 ~, eb4@13 ~@2]/5",
  G: "[bb4,bb5]/4", H: "[[g4,g5]@15 [f4,f5]]/4", I: "[[bb4,bb5]@41 [c5,c6]@7]/2",
  J: "[[bb4,bb5]@14 ~ [g4,g5], ~@42 [ab4,ab5]@5 ~]/2", K: "[[f4,f5]@41 [g4,g5]@7]/2", L: "[bb4,bb5]/2",
  M: "[~@47 g5, [bb4,bb5]@69 ab5@2 ~, ~@137 ab4@3 g4@4]/6", // Bb
  N: "[~@8 [g4,g5]@6 ~ eb5@8 ~ bb4@23 ~, [f4,f5]@5 ~@2 eb4@5 ~@12, ~@15 f5 ~@7 bb5@23 ~@2]/2", // G F
  O: "[[f3,ab3,c4]@23 ~ [g3,d4]@24, [bb4,bb5]@7 ~, ~@23 bb3@24 ~]/2", P: "[[bb4,bb5]@7 [c5,c6]]/2",
  Q: "[[bb4,bb5]@41 [ab4,ab5]@4 [g4,g5]@3]/2", R: "[[f4,f5]@11 [g4,g5]@5]/2", S: "[[bb4,bb5]@49 ~@23]/3",
})).s("gm_string_ensemble_2").gain(0.14)

// drums · kick
const kick = s("bd").struct(`<
  ~@8 A B A B A@5 B A B A@5 B A B A@5 B A B ~@4 A B A B A B A B A B A B A@5 B A B A@5 B A B A@5 B A B A@5 B A B A@5 B A
  B ~@9
>`.pickRestart({
  A: "x ~@4 x ~@2", B: "x ~@4 x ~ x",
})).gain(0.35)

// drums · rim
const rim = s("rim").struct(`<
  ~@7 A B@5 C B D B@5 C B D B@5 C B D B@4 ~@4 B@13 C B D B@5 C B D B@5 C B D B@5 C B D B@5 C B D B@4 ~@9
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@2 x ~@3 x!2", D: "~@6 x ~@11 x ~@4 x",
})).gain(0.31)

// drums · clap
const clap = s("cp").struct(`<
  ~@7 A B@5 C B D B@5 C B D B@5 C B D B@4 ~@3 A B@13 C B D B@5 C B D B@5 C B D B@5 C B D B@5 C B D B@4 ~@9
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@2 x ~@3 x!2", D: "~@6 x ~@11 x ~@4 x",
})).gain(0.31)

// drums · snare
const snare = s("sd").struct(`<
  ~@7 A B@5 C B D B@5 C B D B@5 C B D B@4 ~@3 A B@13 C B D B@5 C B D B@5 C B D B@5 C B D B@5 C B D B@4 ~@9
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@2 x ~@3 x!2", D: "~@6 x ~@11 x ~@4 x",
})).gain(0.31)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~@8 [x ~@2 x ~ x!2 ~@2 x ~@2 x ~@2 x ~@2 x ~@2 x ~ x]!84 ~@9>").gain(0.23)

// drums · bell tree
const bell_tree = s("marktrees:0").struct("<~@7 [~@3 x] ~@93>").gain(1.14)

stack(acoustic_guitar_steel, bass, string_ensemble_2, kick, rim, clap, snare, pedal_hat, bell_tree)