// Pray — Take That
// 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 97 bars on a 16-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 · piano
const piano = note(`<
  ~@24 A B C@2 D B E@2 ~@18 A B C@2 D B E@2 ~@16 A B C@2 D B E@2 A B C@2 D B E@2 A B C@2 D B ~
>`.pickRestart({
  A: "~@4 [d3,d4,f#4] [e3,e4,g4]@2 [f#3,f#4,a4]@3 [e3,e4,a4]@4 [d3,d4,b4]@2", B: "[e3,e4,a4]@3 ~",
  C: "[~@4 [e3,e4,g4]@2 [f#3,f#4,a4]@2 [g3,g4,b4] [f#3,f#4,a4]@5 [e3,e4,g4]@4 [b2,b3,b4]@7 [a2,a3,a4]@7]/2", // Em F#m G F#m Em B A
  D: "[f#3,d4]@3 ~ [d3,d4,f#4] [e3,e4,g4]@2 [f#3,f#4,a4]@3 [e3,e4,a4]@4 [d3,d4,b4]@2", // D Em F#m A5 G
  E: "[~@3 [e3,e4,g4]@3 [f#3,f#4,a4]@2 [g3,g4,b4] [f#3,f#4,a4]@5 [e3,e4,g4]@4 [b2,b3,b4]@7 [a2,a3,a4]@7]/2", // Em F#m G F#m Em B A
})).s("gm_piano").gain(0.05)

// chords · pad sweep
const pad_sweep = note(`<
  A B C@3 B D@2 E F@2 G E F@2 G H I J K H I L@2 A B C@3 B D@2 ~@2 E F@2 G E F@2 G H I J K H I L@2 A B C@3 B D@2 M N O P
  Q R S T A B C@3 B D@2 A B C@3 B D@2 A B C@3 B D@2 A B C@3 B U
>`.pickRestart({
  A: "[d3,a3,d4]", B: "[a3,c#4,e4]", C: "[[e3,b3]@2 [g3,b3] [c#4,e4] [d3,d4]@2, d4 a3]/3",
  D: "[[e3,b3]@2 [g3,b3] [e3,a3,e4], d4@3 ~]/2", E: "[d3,a3,d4,f4]", F: "[d3,g3,c4,e4]/2", G: "[d3,g3,b3,d4]",
  H: "[a#3,d4,a4] [c4,e4,g4]", I: "[a3,d4,a4]", J: "[a3,c4,a4]", K: "[g3,b3,g4]", L: "[b3,d4,a4]", M: "[f4,a4]",
  N: "a4 g4, d4", O: "[c4,g4]", P: "[g3,d4]", Q: "[a#3,d4,f4]", R: "[c4,f4,a4]", S: "[a#3,f4,a4]",
  T: "[b3,e4,g4] [c#4,e4,a4]", U: "[e3,b3,d4]@3 ~",
})).s("gm_pad_sweep").gain(0.3).pan(0.7)

// other · string ensemble 1
const string_ensemble_1 = note(`<
  A B C D A E@2 F G@3 ~@4 H I J K L M N O P A B C D A E@2 F Q R G@3 ~@4 H I J K L M N O P A B C D A E@2 F S T U V W X Y
  Z ~@8 A B C D A E@2 F ~@15
>`.pickRestart({
  A: "a4@3 f#5", B: "e5@3 b5", C: "a5", D: "g5 f#5@2 e5@2 d5 e5@2", E: "[e5@3 a5@2 g5 f#5 e5]/2", F: "d5 e5",
  G: "[d5@3 ~, d6@2 ~]/3", H: "~@5 [a3,a4] [g3,g4] [a3,a4]", I: "[a3,a4]@3 [a3,a4]@2 ~@3 [g3,g4]@3 [g3,g4] ~@4",
  J: "[a3,a4]@3 a4@2 ~@11, ~@3 a3 ~@12", K: "[a3,a4]@2 ~ [a3,a4]@2 ~@11", L: "[g3,g4]@2 ~ [g3,g4]@3 ~@4 a3 ~ g3@2 a3@2",
  M: "[a3,a4]@3 [a3,a4] ~@4 [g3,g4]@3 [g3,g4]@2 ~@3", N: "[a3,a4]@3 [a3,a4]@3 ~@10", O: "[a3,a4]@2 ~ [a3,a4]@3 ~@10",
  P: "[a3,a4] ~@3 [b3,b4] ~@3 [d4,d5] ~@3 [e4,e5] ~@3", Q: "d5", R: "[d4,d5]@4 [d4,d5]@3 ~ [d4,d5]@4 [d4,d5]@3 ~",
  S: "d4@3 d4@3 ~@8 c5@2", T: "a#4@3 a#4 ~@10 g4@2", U: "c5@3 c5@3 ~@8 d5@2", V: "c5@3 c5@2 ~@5 a4@2 g4@2 a4@2",
  W: "f4@3 d4@2 ~@9 e4@2", X: "f4@3 c4@2 ~@9 c4@2", Y: "d4@3 f4@13", Z: "[d5,d6] ~@7 [e5,e6] ~@7",
})).s("gm_string_ensemble_1").gain(0.35).pan(0.6)

// bass · slap bass 2
const bass = note(`<
  A B C D A B C E F@2 G H F G@2 H I J E K I J L M A B C D A B C M N O F@2 G H F G@2 H I J E K I J L M A B C D A B C M P
  Q R S T U V ~ W X C D W Y C M A B C D A B C M A B C D A B C M A B C D A B Z
>`.pickRestart({
  A: "d1@2 ~ d1@2 ~ d1@8 f#1@2", B: "b1@3 b1@2 ~ b1@6 a1@2 b1@2", C: "e1@3 e1@2 ~ e1@6 f#1@2 g1@2",
  D: "a1@3 a1@3 a1@4 b1@2 a1@2 b1@2", E: "a1@3 a1@3 a1@10", F: "d1@3 d1@3 c2@2 d2@2 d2@5 ~",
  G: "d1@3 d1@3 c2@2 d2@2 d2@3 ~ c1@2", H: "d1@3 d1@3 c2@2 d2@2 d2@3 ~ a1@2", I: "a#1@3 a#1@4 ~ g1@3 g1@4 ~",
  J: "f#1@3 f#1@3 f#1@10", K: "g1@3 g1@3 g1@8 a1@2", L: "e1@3 e1@3 e1@8 e1@2", M: "a1@3 a1@3 a1@8 a1@2", N: "d1@7 c1",
  O: "d1@3 d1@8 ~ c2@4", P: "d1@3 d1@3 c1@2 d1@2 d1 ~ d1@2 c2@2", Q: "a#1@3 a#1@3 a#1@8 g1@2",
  R: "c2@3 c2@3 c2@4 a#1 ~ g1@2 d1@2", S: "c1@3 c1@3 c1@4 g1 ~ a1@2 c2@2", T: "g1@3 g1@3 g1@4 d2 ~ g2@2 g1@2",
  U: "a1@3 a1@3 a1@6 f2@2 a1@2", V: "a#1@3 a#1@3 a#1@10", W: "d1@2 ~ d1@2 ~ d1@8 d2@2", X: "d1@3 d1@2 ~ d1@6 d1@2 d2@2",
  Y: "d1@3 d1@2 ~ d1@6 d1@2 d1@2", Z: "e1@3 e1@2 ~ e1@6 f#1@2 ~@2",
})).s("gm_slap_bass_2").gain(0.52)

// other · string ensemble 2
const string_ensemble_2 = note(`<
  A B C D A E@2 D F@8 ~@8 A B C D A E@2 D G@2 F@8 ~@8 A B C D A E@2 D H@2 I J K@2 L D M@8 A B C D A E@2 D A B C D A E@2
  D A B C D A N@2
>`.pickRestart({
  A: "a5@3 f#6", B: "e6@3 b6", C: "a6", D: "d6 e6", E: "[e6@3 a6@2 g6 f#6 e6]/2", F: "[d4@63 ~]/4", G: "d5/2",
  H: "d6/2", I: "d6", J: "c6", K: "[f6@7 g6]/2", L: "f6", M: "[~@9 g6 f#6 e6 d6@2 e6@2, a5 ~@15, ~ a6@31]/4",
  N: "[e6@3 a6@2 g6 f#6 ~]/2",
})).s("gm_string_ensemble_2").gain(0.35).pan(0.4)

// chords · epiano1
const epiano1 = note(`<
  A B C D A B C D ~@16 A B C D A B C D ~@18 A B C D A B C D ~@8 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 E
>`.pickRestart({
  A: "[e4,f#4,a4]@3 [f#4,a4]@2 ~ [e4,f#4,a4]@7 ~ [e4,f#4,a4] ~, ~@3 e4 ~@12", // F#m7 F#m F#m7
  B: "[a4,c#5,e5]@3 [a4,c#5,e5]@2 ~ [a4,c#5,e5]@7 ~ [a4,c#5]@2, ~@14 e5 ~", // A
  C: "[g4,b4,d5]@3 [g4,b4,d5]@2 ~ [g4,b4,d5]@7 ~ [g4,b4,d5] ~", D: "[g4,b4,d5]@3 [g4,b4,d5]@2 ~ [a4,c#5,e5]@8 ~@2",
  E: "[g4,b4,d5]@3 [g4,b4,d5]@2 ~ [g4,b4,d5]@7 ~@3", // G
})).s("gm_epiano1").gain(0.3).pan(0.3)

// other · trumpet
const trumpet = note(`<
  ~@4 A ~@18 B ~@4 A ~@4 C ~@15 B ~@4 A ~@3 D E F G H I J K L M N O P M N ~@5 A ~@7 A ~@7 A ~@2
>`.pickRestart({
  A: "d5 b4 a4 b4 a4@2 ~@10", B: "a4 ~@3 b4 ~@3 d5 ~@3 e5 ~@3", C: "~@8 d5 b4 a4 b4 a4 b4 a4 f#4",
  D: "d4@2 ~ d4@3 ~@8 c5@2", E: "a#4@3 a#4 ~@10 g4@2", F: "c5@3 c5@3 ~@8 d5@2", G: "c5@3 c5 ~@6 a4@2 g4@2 a4@2",
  H: "f4@3 d4@2 ~@9 e4@2", I: "f4@3 c4@2 ~@9 c4@2", J: "d4@3 f4@13", K: "b4 ~@3 c#5 ~@3, e4 ~@7 e4 ~@7",
  L: "[a4,f#5]@2 ~ [a4,f#5]@3 ~@10", M: "[a4,e5]@3 [a4,e5]@2 ~@11", N: "[g4,b4]@3 [g4,b4]@2 ~@11",
  O: "~@2 [f#4,d5] [g4,e5]", P: "d5 b4 a4 [a4,b4] a4 ~@11, [a4,f#5]@2 ~ f#5@3 ~@10",
})).s("gm_trumpet").gain(0.45).pan(0.8)

// other · music box
const music_box = note(`<
  A B C@2 A B C@2 ~@16 A B C@2 A B C@2 ~@18 A B C@2 A B C@2 ~@8 A B C@2 A B C@2 A B C@2 A B C@2 A B C@2 A B C@2 A B C@2
  A B C
>`.pickRestart({
  A: "~@4 d4 ~@3", B: "~@4 a4 ~@3", C: "~@8 g4@3 ~@5",
})).s("gm_music_box").gain(0.46).pan(0.2)

// other · overdriven guitar
const overdriven_guitar = note("<~@66 A@4 B C D E F ~@22>".pickRestart({
  A: "[a3@12 f#4@2 e4@12 a3@2 b4@2 a4 a5@15 a3@10 [d4,d5]@4 [e4,e5]@4]/4", B: "[f#4,f#5]@15 [d4,d5]",
  C: "[e4,e5]@7 [f#4,f#5]", D: "[g4,g5]@2 [f#4,f#5]@4 [e4,e5]@5 ~ [b3,b4]@4", E: "[b3,b4] [a3,a4] [d4,d5] [e4,e5]",
  F: "[d4,d5]@9 ~@7", // D
})).s("gm_overdriven_guitar").gain(0.51).pan(0.6)

// drums · kick
const kick = s("bd").struct(`<
  [x ~@2 x ~@2 x ~@3 x ~@3 x ~]!64
  [x ~@2 x ~@2 x ~@9]
  ~
  [x ~@2 x ~@2 x ~@3 x ~@3 x ~]!30
  [x ~@2 x ~@2 x ~@3 x ~@5]
>`).gain(0.43)

// drums · snare
const snare = s("sd").struct("<[~ x ~ x]!64 [~ x ~@2] ~ [~ x ~ x]!31>").gain(0.38)

// drums · hihat
const hihat = s("hh").struct(`<
  A B A C A@3 C A B A C A@3 C A B A C A@3 C A B A C A@3 C A C A B A C A@3 C A B A C A@3 C A B A C A@3 C A B A C A@2 D ~
  A B A C A@3 C A B A C A@3 C A B A C A@3 C A B A C A@2 C
>`.pickRestart({
  A: "x ~ x ~@3 x ~ x ~ x!2 ~@2 x ~", B: "x ~ x ~@3 x!3 ~ x ~@5", C: "x ~ x ~@3 x ~ x ~ x!2 ~@4", D: "x!2 ~ x ~@4",
})).gain(0.19)

// drums · open hat
const open_hat = s("oh").struct(`<
  A B A B A@3 B A B A B A@3 B A B A B A@3 B A B A B A@3 B A B A B A B A@3 B A B A B A@3 B A B A B A@3 B A B A B A@2 C ~
  A B A B A@3 B A B A B A@3 B A B A B A@3 B A B A B A@3
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@3 x!2", C: "~ x ~@2",
})).gain(0.19)

// drums · tambourine
const tambourine = s("tb").struct(`<
  [x ~ x!3 ~ x ~@3 x ~@3 x ~]!64
  [x ~ x!3 ~ x ~@9]
  ~
  [x ~ x!3 ~ x ~@3 x ~@3 x ~]!30
  [x ~ x!3 ~ x ~@3 x ~@5]
>`).gain(0.29)

stack(
  piano, pad_sweep, string_ensemble_1, bass, string_ensemble_2, epiano1, trumpet, music_box, overdriven_guitar, kick,
  snare, hihat, open_hat, tambourine
)