// I Say a Little Prayer — Dionne Warwick
// 138 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 108 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(138/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.

// bass · piano · "drum mix"
const bass = note("<[c#2 ~@3 c#2 ~@3 c#2 ~@3 c#2 ~@3] ~@107>").s("gm_piano").gain(0.2)

// bass · acoustic bass · "bass"
const bass_2 = note(`<
  ~ A B C D A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC@3 AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR
  T AS V W AT Y AU@3 N O P Q R S G H I J K L AV Z AA AB AW AR T U V AX@3 AJ AK AY AZ BA BB BC BD BE BF@2 BD BG BH BD BI
  BC BH BD BI BJ@3 BK
>`.pickRestart({
  A: "g2@4 ~@2 g2 ~@7 d2 e2", B: "g2@5 ~ g2 ~@3 b2 ~@3 c3 ~", C: "d3@4 ~@2 d3 ~@7 a2 b2", D: "d3@4 ~@4 d3@4 b2 ~ a2 ~",
  E: "b2@3 ~@3 b2 ~@7 f#2 a2", F: "b2@4 ~@2 b2@2 ~@2 b1 ~ d#2@2 ~@2", G: "e2 ~@5 e2 ~@7 e2 g2",
  H: "a2 ~@5 a2 ~@3 e2 ~ g2 ~ d2 ~", I: "a2 ~@5 a2 ~@7 a2 ~", J: "d2 ~@3 d2 ~@3 g2 ~@3 g2 ~@3",
  K: "~@2 g2 ~@3 g2 ~ f#2 ~@5 f#2 ~", L: "~@6 f#2 a2 b2 ~@7", M: "b2 ~ a2 ~ f#2 ~ b2 ~ e2 ~@5 e2 ~",
  N: "~@6 e2 g2 a2 ~@5 a2 ~", O: "~@2 e2 ~ g2 ~ d2 ~ a2 ~@5 a2 ~", P: "~@6 a2 ~ d2 ~@3 d2 ~@3",
  Q: "g2 ~@3 g2 ~@5 g2 ~@3 g2 ~", R: "f#2 ~@5 f#2 ~@7 f#2 a2", S: "b2 ~@7 b2 ~ a2 ~ f#2 ~ b2 ~",
  T: "c3 ~ c3 ~ c3 ~ c3 ~ d3 ~ d3 ~ d3 ~ d3 ~", U: "b2@3 ~@3 b2@3 ~ b2 ~ g2@2 ~@2",
  V: "g2@2 ~@2 g2 ~ g2 ~@3 d3 ~ c3 ~ c3 ~", W: "c3 ~ c3 ~ d3 ~ d3 ~ d3 ~ d3 ~ b2@3 ~",
  X: "~@2 b2@3 ~ f#2 ~ g2@2 ~@2 g2@2 ~@2", Y: "g2 ~ g2 ~@3 d3 ~ c3 ~ c3 ~ c3 ~ c3 ~",
  Z: "d3 ~ d3 ~ d3 ~ d3 ~ b2@3 ~@3 b2@2", AA: "~@2 b2 ~ g2@2 ~@2 g2@2 ~@2 g2 ~ g2 ~",
  AB: "~@2 d3 ~ c3 ~ c3 ~ c3 ~ c3 ~ d3 ~ d3 ~", AC: "[d3 ~ d3 ~ b2@32 e2 ~@5 e2 ~@5]/3",
  AD: "~@2 e2 g2 a2 ~@5 a2 ~@3 e2 ~", AE: "g2 ~ d2 ~ a2 ~@5 a2 ~@5", AF: "~@2 a2 ~ d2 ~@3 d2 ~@3 g2 ~@3",
  AG: "g2 ~@5 g2 ~@3 g2 ~ f#2 ~@3", AH: "~@2 f#2 ~@7 f#2 a2 b2 ~@3", AI: "~@4 b2 ~ a2 ~ f#2 ~ b2 ~ e2 ~@3",
  AJ: "~@2 e2 ~@7 e2 g2 a2 ~@3", AK: "~@2 a2 ~@3 e2 ~ g2 ~ d2 ~ a2 ~@3", AL: "~@2 a2 ~@7 a2 ~ d2 ~@3",
  AM: "d2 ~@3 g2 ~@3 g2 ~@5 g2 ~", AN: "~@2 g2 ~ f#2 ~@5 f#2 ~@5", AO: "~@2 f#2 a2 b2 ~@7 b2 ~ a2 ~",
  AP: "f#2 ~ b2 ~ c3 ~ c3 ~ c3 ~ c3 ~ d3 ~ d3 ~", AQ: "d3 ~ d3 ~ b2@3 ~@3 b2@3 ~ b2 ~",
  AR: "g2@2 ~@2 g2@2 ~@2 g2 ~ g2 ~@3 d3 ~", AS: "b2@3 ~@3 b2@3 ~ f#2 ~ g2@2 ~@2",
  AT: "~@2 b2@3 ~ b2 ~ g2@2 ~@2 g2@2 ~@2", AU: "[d3 ~ d3 ~ d3 ~ d3 ~ b2@32 e2 ~@5 e2 ~]/3",
  AV: "b2 ~ a2 ~ f#2 ~ b2 ~ c3 ~ c3 ~ c3 ~ c3 ~", AW: "d3 ~ d3 ~ b2@3 ~@3 b2@3 ~ f#2 ~",
  AX: "[c3 ~ c3 ~ d3 ~ d3 ~ d3 ~ d3 ~ b2@32 e2 ~@3]/3", AY: "~@2 a2 ~@7 e2 ~ d2@4", AZ: "~@2 d2 ~@7 a2 b2 d3@4",
  BA: "~@2 d3@2 ~@2 d3 ~ b2 ~ a2 ~ g2@4", BB: "~@2 g2 ~@5 a#2 ~ b2 ~ g2@4", BC: "~@4 d3@4 b2 ~ a2 ~ g2@4",
  BD: "~@2 g2 ~@3 b2 ~@3 c3 ~ d3@4", BE: "~@2 d3@2 ~@2 d3 ~ e3 ~ d3 ~ g3@4",
  BF: "[~@2 g2 ~@3 b2 ~@3 c3 ~ d3@8 ~@2 g3 e3 d3 e3 d3 b2 g2@4]/2", BG: "~@2 d3@2 ~@2 d3 ~ e3 ~ d3 ~ g2@4",
  BH: "~@2 g2 ~@7 d2 e2 g2@4", BI: "~@2 d3 ~@7 a2 b2 d3@4",
  BJ: "[~@4 d3@4 b2 ~ a2 ~ b2@24 ~@2 b2 ~ d3 ~ g2 ~ e2@2 ~@2]/3", BK: "e2 ~@7",
})).s("gm_acoustic_bass").gain(0.56)

// chords · piano
const piano = note(`<
  ~ A B C D A B C D E@2 F ~@4 G H ~@5 I ~@9 J K L ~@5 M ~@5 N O ~@8 P Q R ~@5 S ~@5 T H ~@9 U V@2 ~@12 W X Y Z W X Y Z U
  AA AB
>`.pickRestart({
  A: "~@4 [b5,d6,g6] ~@3 [b5,d6,f#6] ~ [b5,d6,g6] ~@5", B: "~@2 [b5,d6,g6] ~@3 [b5,d6,f#6]@5 ~ [b5,d6,g6] ~@3",
  C: "[c6,e6,a6]@3 ~@3 [c6,e6,a6] ~@9", D: "[c6,e6,b6] ~ [c6,e6,a6] ~@3 [c6,e6,g6]@5 ~ [c6,e6,a6] ~@3",
  E: "[~@6 b6@14 [b5,d#6,f#6] ~ [b5,d#6,f#6]@3 ~ [b5,d#6,g6] ~ [b5,d#6,a6] ~@3, b5@5 ~@3, ~ d#6@9 ~@6, ~ f#6@4 ~@3]/2", // B Baug B7
  F: "[b5,e6,g6] ~@15", G: "~@12 b4 c5 b4 a4", H: "b4@2 a4@2 f#4@3 ~@9", I: "~@4 b4 c5 b4 a4 b4@2 a4@2 f#4@3 ~",
  J: "~@2 [d#6,b6] [c6,a6]", K: "[b5,g6] [a5,f#6] [g5,e6] [f#5,d#6]", L: "[e5,c6] [e5,g5,b5]@2 ~",
  M: "b4 c5 b4 a4 b4@2 a4@2 f#4@3 ~@5", N: "~@8 b4 c5 b4 a4 b4@2 a4@2", O: "f#4@3 ~@13", P: "~@3 [d#6,b6]",
  Q: "[c6,a6] [b5,g6] [a5,f#6] [g5,e6]", R: "[f#5,d#6] [e5,c6] [e5,g5,b5]@2",
  S: "~@2 f#4@2 b4 c5 b4 a4 b4@2 a4@2 f#4@3 ~", T: "~@10 f#4@2 b4 c5 b4 a4", U: "[d#6,b6] [c6,a6] [b5,g6] [a5,f#6]",
  V: "[[g5,e6] [f#5,d#6] [e5,c6] [e5,g5,b5]@2 ~@3]/2", W: "[b5,d6,g6] ~@3 [b5,d6,f#6] ~ [b5,d6,g6] ~@7 [b5,d6,g6] ~",
  X: "~@2 [b5,d6,f#6]@5 ~ [b5,d6,g6] ~@3 [c6,e6,a6]@3 ~", Y: "~@2 [c6,e6,a6] ~@9 [c6,e6,b6] ~ [c6,e6,a6] ~",
  Z: "~@2 [c6,e6,g6]@5 ~ [c6,e6,a6] ~@7", AA: "[g5,e6]@2 [f#5,d#6]@2 [e5,c6]@2 [e4,e5,g5,b5,e6] ~",
  AB: "[e4,e5,g5,b5,e6] ~@7", // Em
})).s("gm_piano").gain(0.48).pan(0.7)

// chords · string ensemble 2 · "strings"
const string_ensemble_2 = note(`<
  ~ A@2 B@2 A@2 B@2 C D E F@2 G@7 H I D J K@4 L M@5 N@3 O@8 P@4 Q@2 R@4 S T@6 H I D E F@2 U@4 V@4 W@2 X Y Z@2 AA@7 AB@8
  AC@8 AD AE
>`.pickRestart({
  A: "[[g4,b4,d5,g5]@31 ~]/2", B: "[[d4,c5,e5,g5]@31 ~]/2", C: "[b4,d#5,f#5]@15 ~", D: "[a4,b4,d#5,f#5]@15 ~",
  E: "[b4,e5,g5]@15 ~", F: "[[a4,c5,e5]@31 ~]/2",
  G: "[[a4,d5,f#5]@8 [b4,d5,g5]@15 ~ [a4,c#5,e5,f#5]@15 ~ [a4,b4,d#5,f#5]@15 ~ [b4,e5,g5]@15 ~ [a4,c5,e5]@31 ~ [a4,d5,f#5]@8]/7", // D G F#m7 B7 Em Am D
  H: "[b4,d5,g5]@15 ~", I: "[a4,c#5,e5,f#5]@15 ~", J: "[c5,e5,g5,g6] [a4,d5,f#5,a6]",
  K: "[a6@6 b6@6 d6@3 ~ d6@3 ~ [c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,c6]@8 [a4,d5,f#5,d6]@8 d6@6 d6@6 [b4,d5,g5,d6]@8, [b4,d5,f#5]@11 ~ [b4,d5,g5]@7 ~@3 d6@8 ~@14 [b4,d5,f#5]@11 ~@9]/4", // Am G D C D G Bm G …
  L: "[c5,e5,a5] ~ [b4,d5,g5,d6]@4 ~@2 [c5,e5,g5,g6]@8, e6 ~@2 [a4,d5,f#5,d6]@2 ~@3", // Am G C D
  M: "[[a4,d5,f#5,a6]@8 a6@6 b6@6 d6@3 ~ d6@3 ~ [c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,g6]@8 [a4,d5,f#5,a6]@8 [b4,b6]@28, ~@8 [b4,d5,f#5]@11 ~ [b4,d5,g5]@7 ~@3 d6@8 ~@42]/5", // D Am G D C D B Bm …
  N: "[~@4 [b4,e5,g5]@15 ~ [a4,c5,e5]@28]/3", // Em Am
  O: "[~@4 [a4,d5,f#5]@8 [b4,d5,g5]@15 ~ [a4,c#5,e5,f#5]@15 ~ [a4,b4,d#5,f#5]@15 ~ [b4,e5,g5]@15 ~ [a4,c5,e5]@31 ~ [a4,d5,f#5]@8 [b4,d5,g5]@12]/8", // D G F#m7 B7 Em Am D G
  P: "[~@4 [a4,c#5,e5,f#5]@15 ~ [a4,b4,d#5,f#5]@15 ~ [c5,e5,g5,g6]@8 [a4,d5,f#5,a6]@8 a6@6 b6@6, ~@52 [b4,d5,f#5]@11 ~]/4", // F#m7 B7 C D Bm
  Q: "[d6@3 ~ d6@3 ~ [c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,c6]@8 [a4,d5,f#5,d6]@8, [b4,d5,g5]@7 ~@3 d6@8 ~@14]/2", // Am G D C D G
  R: "[d6@6 d6@6 [b4,d5,g5,d6]@8 [c5,e5,a5] ~ [b4,d5,g5,d6]@4 ~@2 [c5,e5,g5,g6]@8 [a4,d5,f#5,a6]@8 a6@6 b6@6 d6@3 ~ d6@3 ~, [b4,d5,f#5]@11 ~@9 e6@2 ~@4 [a4,d5,f#5,d6]@4 ~@14 [b4,d5,f#5]@11 ~ [b4,d5,g5]@7 ~]/4", // G Am G C D Bm D Bm …
  S: "[c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,g6]@8, ~ d6@4 ~@3", // Am G D C
  T: "[[a4,d5,f#5,a6]@8 b4@32 [b4,e5,g5]@15 ~ [a4,c5,e5]@31 ~ [a4,d5,f#5]@8, ~@2 b6@7 ~@15]/6", // D Em Am D
  U: "[[a4,d5,f#5]@8 [b4,d5,g5]@15 ~ [a4,c#5,e5,f#5]@15 ~ [a4,b4,d#5,f#5]@15 ~ [c5,e5,g5,g6]@8]/4", // D G F#m7 B7 C
  V: "[[a4,d5,f#5,a6]@8 a6@6 b6@6 d6@3 ~ d6@3 ~ [c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,c6]@8 [a4,d5,f#5,d6]@8 d6@6 d6@6, ~@8 [b4,d5,f#5]@11 ~ [b4,d5,g5]@7 ~@3 d6@8 ~@14 [b4,d5,f#5]@11 ~]/4", // D Am G D C D Bm G …
  W: "[[b4,d5,g5,d6]@8 [c5,e5,a5] ~ [b4,d5,g5,d6]@4 ~@2 [c5,e5,g5,g6]@8 [a4,d5,f#5,a6]@8, ~@4 e6 ~@2 [a4,d5,f#5,d6]@2 ~@7]/2", // G Am G C D
  X: "a6@3 b6@3 [b4,d5,g5,d6]@2, [b4,d5,f#5]@11 ~@5", // G Bm
  Y: "d6@3 ~ [c5,e5,a5,e6] ~ [b4,d5,g5]@3 ~ [a4,d5,f#5]@2 [c5,e5,g5,g6]@4, ~@3 d6@4 ~", // Am G D C
  Z: "[~ [a4,d5,f#5,a6]@2 [b4,b6]@5]/2", // D B
  AA: "[~@12 [b4,e5,g5]@15 ~ [a4,c5,e5]@31 ~ [d4,c5,e5,g5]@31 ~ [g4,b4,d5,f#5,g5]@20]/7", // Em Am C Gmaj7
  AB: "[~@4 [d4,c5,e5,g5]@7 ~ [g4,b4,d5,f#5,g5]@15 ~ [d4,c5,e5,g5]@15 ~ [g4,b4,d5,f#5,g5]@15 ~ [d4,c5,e5,g5]@15 ~ [g4,b4,d5,f#5,g5]@15 ~ [d4,c5,e5,g5]@15 ~ [g4,b4,d5,g5]@20]/8", // C Gmaj7 C Gmaj7 C Gmaj7 C G
  AC: "[~@12 [d4,c5,e5,g5]@31 ~ [g4,b4,d5,g5]@31 ~ [d4,c5,e5,g5]@31 ~@5 [d#6,b6]@4 [c6,a6]@4 [b5,g6]@4 [a5,f#6]@4, ~@27 b4@5]/8", // C G C G#m F Em D
  AD: "[g5,e6]@2 [f#5,d#6]@2 [e5,c6]@2 [e4,g4,b4,e5] ~", AE: "[e4,g4,b4,e5] ~@7",
})).s("gm_string_ensemble_2").gain(0.32)

// drums · kick
const kick = s("bd").struct(`<
  ~ A@3 B A@6 C@12 D C E F C G H I J K L ~ J C@12 K M D C E F C G H N ~ O C@13 I J K M D C E F C ~ P C@13 Q@3 R Q@4 ~ P
  S
>`.pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x ~@2 x!3 ~@2", C: "x!4", D: "x ~ x ~ x ~ x!2", E: "x ~@2 x ~@2 x ~", F: "x ~ x ~ x!3 ~",
  G: "~ x ~@2 x ~ x ~", H: "x ~ x!3 ~ x ~", I: "x ~ x ~ x ~@2 x", J: "~ x!3", K: "x!3 ~ x ~ x ~", L: "x!2 ~@2",
  M: "x ~ x ~@2 x ~@2", N: "x!3 ~", O: "~@2 x!2", P: "~@3 x", Q: "~ x!2 ~@3 x ~", R: "~ x!3 ~@2 x ~", S: "x",
})).gain(0.56)

// drums · snare
const snare = s("sd").struct(`<
  ~ A@9 B A@12 C A D E@2 F A@2 G E H I J E@11 K J L A@2 D E@2 F A M ~ N A@14 G E L A@2 D E@2 ~ O E@21 ~ O ~
>`.pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@2 x!2 ~", C: "~@4 x ~@3 x!2 ~ x!2 ~ x ~", D: "~@2 x ~@2 x ~@2", E: "x!2",
  F: "x ~@2 x ~@2 x ~", G: "~ x ~@2 x ~@3", H: "x", I: "~@7 x", J: "x!2 ~@2 x ~@3", K: "x ~@7 x ~@3 x!2 ~ x",
  L: "x ~@3 x ~@2 x", M: "~ x ~@2", N: "~ x!3 ~@2 x ~", O: "~@3 x!3 ~@2",
})).gain(0.56)

// drums · low tom
const low_tom = s("lt").struct("<~@8 [~@5 x!3] ~@95 [~@3 x!3 ~@2] ~@3>").gain(0.64)

// drums · hihat
const hihat = s("hh").struct(`<
  ~ A@3 B A@3 B A B C A B A D@2 E D A E C@2 A@10 F ~ G H A I J@2 K J A K A H@2 A@9 L ~ M D A E C@2 B C A B A D@2 E A@8 N
  ~ O J A K J A K A J A K A J A@4 K A@3 P ~@3
>`.pickRestart({
  A: "x!8", B: "x!7 ~", C: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!2", D: "x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~", E: "x!3 ~ x!4",
  F: "x!2 ~@6", G: "~@2 x!6", H: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~", I: "x ~ x!6", J: "x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~",
  K: "x!5 ~ x!2", L: "x!4 ~@4", M: "~@4 x!4", N: "x!6 ~@2", O: "~@6 x!2", P: "x!5 ~@3",
})).gain(0.48)

// drums · mid tom
const mid_tom = s("mt").struct("<~@8 [~@3 x ~@4] ~@95 [~ x ~@6] ~@3>").gain(0.64)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@4 A ~@3 A ~ A ~@2 A ~@3 B ~@2 B ~@17 C ~@2 D ~@2 D ~@17 B ~@2 A ~@2 A ~@3 B ~@13 D ~@2 D ~@3 D ~@6 D ~@3 D ~@3
>`.pickRestart({
  A: "~@7 x", B: "~@3 x ~@4", C: "~ x ~@6", D: "~@5 x ~@2",
})).gain(0.56)

// drums · high tom
const high_tom = s("ht").struct("<~@8 [~ x ~@6] ~@94 [~@7 x] ~@4>").gain(0.56)

// drums · crash
const crash = s("cr").struct(`<
  ~@4 A B ~@5 C ~@11 A C ~@4 D ~@2 E@2 ~@14 F ~@4 G ~@2 D@2 ~@14 D ~@5 C ~ G@2 ~@18 H C ~@2 G ~ G C
>`.pickRestart({
  A: "~@7 x", B: "x!2 ~@2", C: "x", D: "~ x", E: "~ x ~@2", F: "~ x!2 ~@5", G: "~@3 x", H: "~@5 x!2 ~",
})).gain(0.48)

// drums · congas
const congas = s("conga:18").struct(`<
  ~@11 A B A@2 C D E D E F D A B ~@11 G C G@2 ~ H I H I H@2 G C ~@11 C D E F D A B A B A@2 C D J ~@11 H I H ~@21
>`.pickRestart({
  A: "~@3 x!2 ~@3", B: "~@5 x ~@2", C: "~@7 x", D: "x", E: "~ x ~@5 x", F: "x ~@6 x", G: "~@5 x!2 ~", H: "~ x!2 ~@5",
  I: "~@3 x ~@4", J: "~ x ~@6",
})).gain(1.79)

// drums · congas
const congas_2 = s("conga:33").struct(`<
  ~@11 A B A@2 C D E D E@2 D A B ~@11 F G F@2 H I J I J I@2 K G ~@11 E D E@2 D A B A B A@2 C D ~@11 L I J M ~@21
>`.pickRestart({
  A: "~ x!2 ~@5", B: "~ x ~ x ~@4", C: "~ x ~ x ~ x!2 ~", D: "~@5 x ~ x", E: "~@5 x!2 ~", F: "~@3 x!2 ~@3",
  G: "~@3 x ~ x ~@2", H: "~@3 x ~ x ~ x", I: "x ~@6 x", J: "~ x ~@5 x", K: "~ x ~ x!2 ~@3", L: "~@7 x", M: "x",
})).gain(1.79)

stack(
  bass, bass_2, piano, string_ensemble_2, kick, snare, low_tom, hihat, mid_tom, open_hat, high_tom, crash, congas,
  congas_2
)