// 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: 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 M@4 F@2 H@3 I J K L@2 E@2 F@2 G@4 E@2 N@2 O@2 P@3 Q
  L@2 E@2 F@2 G@4 E@2 F@2 H@3 I J K R@2 S@2 T@2 U@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@3 bb3@5 ~ bb3@3 ~@9 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", // 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@10 ~@2 f3@7 ~@5 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 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@6 d4@8 ~@10 bb3@6, ~@3 f3@10 ~@2 f3@10 ~@2 f3@7 ~@5 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 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: "[~@30 bb3@3 ~@12 eb4@2 ~, eb4@6 bb3@9 ~@3 bb3@6 d4@8 ~@10 bb3@6, ~@3 f3@10 ~@2 f3@10 ~@2 f3@7 ~@5 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 eb4@9 ~@6]/2",
  N: "[~@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",
  O: "[~@21 eb4@2 ~@16 g3@3 ~@3 g3@3, eb4@2 bb3@3 ~ bb3@3 ~ bb3@6, ~@3 g3@11 ~ g3@10 ~@2 g3@10 ~@11, ~@9 eb4@10 ~@5 eb4@7 ~@2 eb4@8 ~ d4@6]/2",
  P: "[~@21 eb4 ~@23 eb4 ~@23 eb4@3, eb4@8 ~ eb4@10 ~@5 eb4@7 ~@2 eb4@10 ~@5 eb4@7 ~@2 eb4@9 ~@6, ~@3 g3@10 ~@2 g3@10 ~@2 g3@11 ~ g3@10 ~@2 ab3@10 ~@2 ab3@9, ~@6 bb3@10 ~@2 bb3@10 ~@2 bb3@10 ~@2 bb3@9 ~@3 c4@10 ~@2 c4@6]/3",
  Q: "~@15 ab3@3 ~@3 ab3@2 ~, g4@6 c4@17 ~, ~@3 ab3@10 ~@11, ~@9 g4@9 f4@5 ~",
  R: "[~@30 bb3@3 ~@12 eb4@2 ~, ab2@24 bb2@9 c3@13 ~@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",
  S: "[~@30 bb3@3 ~@12 eb4@2 ~, ab2@23 ~ [bb2,d4]@9 c3@13 ~@2, eb4@3 bb3@5 ~ bb3@3 ~@9 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", // Bb
  T: "[~@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@10 ~@2 f3@7 ~@5 g3@9, ~@9 eb4@10 ~@2 eb4@6 ~@6 eb4@9 ~@6]/2", // Bb
  U: "[~@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 E F G@2 H I J K J L M@2 N O P Q R B C D E F S@2 T U V W J L H L H L M@2 N O P Q R B C D E F S@2 R B C X Y
  Z AA@2 AB AC AD AE ~@8 A B C D E F G@2 N O P Q ~@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: "ab1@7 ~@2 ab1@6 ab2@3 f2@3 eb2@2 ~",
  F: "bb1@8 ~ c2@5 ~ c2@3 g1@3 c2@2 ~",
  G: "[d2@6 bb1@2 ~ eb2@5 ~ g1@5 ~ ab1@11 ~ ab1@5 ~ ab2@6 eb2@2 ~, ~@15 f1 ~@32]/2", H: "ab1@7 ~@2 ab1@8 ~ f1@5 ~",
  I: "bb1@7 ~@2 c2@4 ~@2 c3@3 bb2@3 g2@2 ~", J: "ab1@8 ~ ab1@8 ~ f1@5 ~", K: "bb1@7 ~@2 c2@5 ~ c3@8 ~",
  L: "bb1@7 ~@2 c2@5 ~ c3@3 bb2@3 g2@2 ~", M: "[d2@7 ~@2 eb2@5 ~ g1@5 ~ ab1@27]/2", N: "f1@23 ~", O: "g1@23 ~",
  P: "ab1@23 ~", Q: "db2@8 ~ db3@9 ab2@6", R: "ab1@6 ~@3 ab1@6 ab2@3 eb2@3 ab1@2 ~",
  S: "[d2@6 bb1@2 ~ eb2@5 ~ g1@5 ~ ab1@11 ~ ab1@5 ~ ab2@6 eb2@2 ~]/2", T: "ab1@17 ~ ab2@4 ~@2", U: "bb2@8 ~ c3@13 ~@2",
  V: "ab1@11 ~", W: "bb1@8 ~ c2@8 ~ c3@6", X: "bb1@7 ~@2 c2@6 c3@4 ~@2 bb2@3", Y: "eb2@7 ~@2 eb2@2 ~ eb2@10 ~@2",
  Z: "eb2@7 ~@2 eb2@2 ~ eb2@6 bb1@6", AA: "[ab1@8 ~ ab1@2 ~ ab1@9 bb1@9 ~@3 bb1@2 ~ bb1@6 b1@6]/2",
  AB: "c2@6 ~@3 c2@2 ~ c2@9 ~@3", AC: "c3@6 g2@6 c2@5 ~ c2@5 ~", AD: "f1@7 ~@2 f1 ~@2 f1@10 ~@2", AE: "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@4 J@2 K@2 L@8 M@2 B C N@2 O@2 P@2 Q@3
>`.pickRestart({
  A: "[[f3,ab3,c4]@23 [g3,bb3,d4]@25]/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]@6 ~@42 [ab4,ab5]@4 [g4,g5]@3, ~@47 bb4@43 ~@6, ~@48 bb5@43 ~@5]/4", // Bb C Ab G
  J: "[[f4,f5]@41 [g4,g5]@7]/2", K: "[bb4,bb5]/2",
  L: "[~@137 [ab4,ab5]@3 ~@4 f4@8 [g4,g5]@6 ~ f5 ~@8 bb4@23 ~, [bb4,bb5]@139 ~ g4@3 f5@10 ~@5 [eb4,eb5]@10 ~@24, ~@141 g5@4 ~@22 bb5@23 ~@2]/8", // Ab G Bb Eb
  M: "[[f3,ab3,c4]@23 [g3,bb3,d4]@25, [bb4,bb5]@7 ~]/2", N: "[[bb4,bb5]@7 [c5,c6]]/2",
  O: "[[bb4,bb5]@41 [ab4,ab5]@4 [g4,g5]@3]/2", P: "[[f4,f5]@11 [g4,g5]@5]/2", Q: "[[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: "~@3 x ~@5 x ~ 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: "~@3 x ~@5 x ~ 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: "~@3 x ~@5 x ~ 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)