// Whiter Shade of Pale — Michael Bolton
// 72 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: ch 6 "Strings" named as a string part, played on string ensemble 1 (its pad warm patch is not one)
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 87 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(72/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 · fretless bass · "Bass"
const bass = note(`<
  ~ A B C D E F G H A B C D E F A B C D E F A B C I A B C D E F J K A B C D E F G H A L M N O F A L M N P F A B M Q A L
  M N O F J K A L M N O F G R A L M N O F S T U V W X@3
>`.pickRestart({
  A: "c2@5 ~ c2@2 b1@5 ~ b1@2", B: "a1@6 a1@2 g1@5 ~ g1 ~", C: "f2@5 ~ f2@2 e2@6 e2@2", D: "d2@6 d2@2 c2@5 ~ c2 ~",
  E: "g2@5 ~ g2@2 f2@6 f2@2", F: "e2@5 ~ e2@2 d2@5 ~ d2@2", G: "c2@5 ~ c2@2 f2@5 ~ f2 ~",
  H: "g2@5 ~ g2@2 g1@2 ~ g1 g1@4", I: "d2@6 d2@2 g2@3 g1@3 g1@2", J: "c2@5 ~ c2@2 f1@4 f2@4",
  K: "c2@5 ~ c2@2 g1@4 g2@2 g1@2", L: "a1@5 ~ a1@2 g1@5 ~ g1 ~", M: "f2@5 ~ f2@2 e2@5 ~ e2@2",
  N: "d2@5 ~ d2@2 c2@5 ~ c2 ~", O: "g2@5 ~ g2@2 f2@5 ~ f2@2", P: "g2@5 ~ g2@2 f2@6 f2 ~",
  Q: "d2@5 ~ d2@2 g2@3 g1@3 g1@2", R: "g1@4 g2@4 g1@3 g1@3 g1@2", S: "c2@5 ~ c2@2 f1@5 ~ f1@2",
  T: "c2@5 ~ c2@2 f1@5 ~ f1 ~", U: "f1@4 f2@3 f1 f1@4 ~@2 f1 g1", V: "g#1@6 ~ a#1@2 c2@4 a#1@3", W: "~ c2@10 c2@5",
  X: "[g1@5 c2@20 c1@20 ~@3]/3",
})).s("gm_fretless_bass").gain(0.64)

// chords · rock organ · "Organ"
const rock_organ = note(`<
  ~ A@2 B C D E F G H I J K L M N O P Q R S T U V W X@2 Y Z AA@4 A@2 B C AB E F AC H I J K L M N O P Q R S T U V W X@2 Y
  Z AD@2 AE@2 A@2 AF AG AH AI AJ AK AL@2 Y Z AM@2 AN@2 AO@2 AP@3 ~
>`.pickRestart({
  A: "[c5@4 b4@4 ~ d5 c5 b4 c5 d5 e5 c5, e5@9 ~@7, ~@2 a4 g4]/2", B: "f4@4 ~@2 b5 c6, a5@3 ~, g#5 ~@7 e4@8",
  C: "f5 e5 ~@10 d5@4, d4 c4, ~ f5@5 ~@2", D: "g4@4 ~@2 c6 d6, b5@3 ~, ~ f4",
  E: "g5 f5 ~@8 f5@2 e5@2 f5@2, e4 d4, ~ g5@4 ~@3", F: "f5 e5 d5 c5 ~ a4 b4 c5, c4 [f4,a5]",
  G: "~@2 b4@2 c5@2 d5 ~ f5@2 e5@2 f5@2 d5@2, [g4,g5] [f4,g4,b4], ~@8 d5@5 ~@3", H: "c5 b4, e5", I: "a4 g4, c5",
  J: "f4 e4, a4", K: "[d4,f4]@8 f4@2 g4@2 a4@2 b4 c5, ~ c4", L: "g4 f4, b4", M: "[e4,g4]@8 g4@2 a4@2 b4 c5 d5@2, ~ d4",
  N: "c5@4 ~@2 f5 g5, e5@3 ~, ~ b4", O: "[a4,c6]@2 b5 g5, ~ g4", P: "a5@2 ~@4 d5 e5, f4 e4, ~ c5@2 ~",
  Q: "d4@8 ~@2 g5@2 a5@2 b5 c6, f5@5 ~@3, ~ c4", R: "b5@2 ~@4 e5 f5, g4 f4, ~ d5@2 ~",
  S: "e4@4 ~ b5 c6 d6, g5@5 ~@3, ~ d4", T: "e6 d6 e6 g6 d6 c6 d6 g6, c5 b4", U: "c6 b5 c6 e6 b5 a5 b5 g5, a4 g4",
  V: "f4@4 ~@2 b5 c6, a5@3 ~, ~ e4",
  W: "[a5,d6,f6]@8 [g5,b5,d6,f6]@2 f5 [a4,b4,c5,d5,e5] [a3,b3,c4,d4,e4,f4,g4] [b2,c3,d3,e3,f3,g3] [a2,b2,c3,d3,e3] [f3,g3,a3,b3,c4,d4,e4,f4]", // Dm G7 Am Am7 Cmaj7 Am Fmaj7
  X: "[[g4,a4,b4,c5] ~@7 b5@8 a5@8 g5@7 ~, e6@31 ~, g5@15 ~@17, c6 ~ c6@2]/2", Y: "f5@7 ~ e5@8, [a5,c6]",
  Z: "d5 c5, [f5,a5]", // F
  AA: "[g5@8 f5@7 ~ e5@8 d5@8 ~@6 d5 e5 [a4,f5]@8 e5@8 c5@4 b4@4, b4@32 c5@23 ~ d5@8, d5@15 ~ g4@24 ~@8 g4@16]/4", // Dm
  AB: "g4@4 ~@2 c6 d6, b5@3 ~, a#5 ~@7 f4@8", AC: "~ b4 c5 d5 f5 e5 f5 d5, [g4,g5] [f4,g4,b4], ~@4 d5@3 ~",
  AD: "[g5@8 f5@7 ~ [g4,e5]@8 [g4,d5]@8, b4, d5@15 ~@17]/2", // C G5
  AE: "[~@6 d5 e5 [a4,f5]@8 e5@8 c5@4 b4@4, c5@23 ~ d5@8, g4 ~ g4@2]/2", AF: "f4@4 ~@2 b5 c6, a5@11 ~@5, ~ e4",
  AG: "f6 e6 f6@6 e6@2 c6@2 d6@2 e6@2, d4 c4", AH: "[g4,b5]@4 ~@2 c6 d6, ~ f4",
  AI: "g6 f#6 ~@8 f6@2 e6@2 f6@2, e4 d4, ~ g6@4 ~@3", AJ: "f6 ~ e6@2 d6@2 ~@4 a4@2 b4@2 c5 ~, c4 f4, ~@3 c6@5",
  AK: "c5@2 b4@2 c5@2 d5@2 [d5,g5,b5]@2 [b4,c5] [d4,e4,g4,a4] [f3,g3,a3,b3,c4] [a2,b2,c3,d3,e3] [g2,d3,e3,f3] [g3,a3,b3,c4,d4], g4@7 ~@9", // G Cmaj7 Dsus4 F Am G7 G
  AL: "[[e4,f4,g4] ~@7 b5@8 a5@8 g5@7 ~, e6@31 ~, g5@15 ~@17, c6 ~ c6@2]/2", // Em
  AM: "[g5@8 f5@7 ~ e5@8 d5@8, b4, d5@15 ~ g4@16]/2", AN: "[[e5,g5]@8 [f5,a5]@8 [e5,g5]@7 ~ [f5,a5]@8, c5]/2",
  AO: "[[a5,c6]@15 [g2,a2,b2,c3,d3,e3,f3] [g3,a3,b3,c4,d4,e4] ~@15, c5, ~ [f5,g#5]]/2", // Am G7 Cmaj7 Fm
  AP: "[~@2 f6@9 [e5,e6]@5 [d5,d6]@5 [e5,e6]@20 ~@7, ~ c5@40 ~@7, ~ f5@10 ~@37]/3", // E D E
})).s("gm_rock_organ").gain(0.3).pan(0.6)

// chords · piano
const piano = note(`<
  ~ A B C D E F G H A B C D E I@2 B C D E I@2 B C J A B C D E K@2 L A B C D E F G H A B C D E I@2 B C D E I@2 B C M A B
  C D E K@2 L A B C D E F G N O B C D E P@2 Q R S ~@2 T@2
>`.pickRestart({
  A: "c4 ~@2 c4 b3 ~@2 b3, c3 b2, [e4,g4]!4, ~ c4@2 ~@2 b3@2 ~", // Em
  B: "a3 ~@5 a3@2 g3@2 ~@4 g3@2, a2 g2, [c4,e4]!4, ~ a3@2 ~@2 g3@2 ~", // C
  C: "c4 ~@2 c4 ~@3 c4, f2 e2, [f4,a4]!2 [e4,a4]!2, ~ c4@2 ~@2 c4@2 ~", // F A5
  D: "a3 ~@5 a3@2 ~@6 a3@2, d2 c2, [d4,f4]!2 [c4,f4]!2, ~ a3@2 ~@2 a3@2 ~", // Dm F5
  E: "d4 ~@2 d4 ~@3 d4, g2 f2, [g4,b4]!2 [f4,b4]!2, ~ d4@2 ~@2 d4@2 ~", // G Fdim
  F: "b3 ~@5 b3@2 ~@6 b3@2, e2 d2, [e4,g4]!2 [d4,g4]!2, ~ b3@2 ~@2 b3@2 ~", // Em G5
  G: "c4 ~@5 c4@2 ~@6 c4@2, c2 f2, [e4,g4]!2 [f4,a4]!2, ~ c4@2 ~@2 c4@2 ~", // Em F
  H: "d4@2 ~@4 d4@2 d4@2 ~@4 d4 ~, g2!2, [g4,b4]!2 [f4,b4] [g1,f4,b4], ~ d4@2 ~@2 d4@2 ~", // G Fdim G7
  I: "[b3 ~@5 b3@2 ~@8 c4@2 ~@4 c4@2 b3@2 ~@4 b3@2, e2@4 d2@4 [e4,g4] c4 [e4,g4]@2 [e4,g4]@2 [e4,g4]@2, [e4,g4]!2 [d4,g4] d4@3 ~@2, ~ b3@2 ~@2 b3@2 b3@5 ~ b3@2 ~, ~@3 g4 c3@2 b2@2]/2", // Em G5
  J: "a3 ~@5 a3@2 [d4,g4,b4]@3 [d4,g4,b4]@2 ~ [g4,b4,d5]@2, d2 ~, [d4,f4]!2 ~@2, ~ a3@2 ~@5", // G Dm
  K: "[b3 ~@5 b3@2 ~@8 e4@2 ~@4 e4@2 f4@2 f4@2 f4@2 f4@2, e2@4 d2@4 [g4,c5] e4 [g4,c5]@2 [a4,c5]@2 [a4,c5]@2, [e4,g4]!2 [d4,g4] d4@3 ~@2, ~ b3@2 ~@2 b3@2 b3@5 ~@4, ~@3 g4 c3@2 f2@2]/2", // C5 Am Em G5
  L: "e4 ~ e4@2 [e4,g4,c5]@4 [d4,g4,c5]@3 ~ [d4,g4,b4]@3 ~, c3@8 g2@7 ~, [g4,c5] ~@3", // C Csus2 G C5
  M: "a3 ~@5 a3@2 [d4,g4,b4]@2 ~ [d4,g4,b4]@2 ~ [g4,b4,d5]@2, d2 ~, [d4,f4]!2 ~@2, ~ a3@2 ~@5", // G Dm
  N: "d4 ~ d4@2 d4@2 d4@2 [d4,g4,b4]@3 [d4,g4,b4]@2 ~ [g4,b4,d5]@2, [g2,c5] ~, g4 [g4,b4] ~@2", // G C5 G
  O: "~@3 c4 b3 ~@2 b3, e4 [e4,g4]!3, ~ c4@2 ~ b2@4, ~@5 b3@2 ~", // Em
  P: "[b3 ~@5 b3@2 ~@8 c4@2 c4@2 c4@2 c4@2 c4@2 c4@2 c4@2 c4@2, e2@2 d2@2 [e4,g4]!2 [f4,a4]!2, [e4,g4]!2 [d4,g4] d4@3 ~@2, ~ b3@2 ~@2 b3@2 b3@5 ~@4, ~@3 g4 c3@2 f2@2]/2", // Em F Em G5
  Q: "c4@2 c4@2 c4@2 c4@2 c4 ~ c4@2 c4@2 c4@2, c3 f2, [e4,g4]!2 [f4,a4]!2", // Em F
  R: "[c4,f4,a4]@2 c4 ~ [f4,a4]@2 c4 ~ [f4,a4]@2 c4 ~ [c4,f4] ~ c4 ~, f2@15 ~, ~@4 c4 ~@3 c4 ~@3 a4@2 ~@2", // F F5
  S: "[c4,f4,g#4]@2 c4 ~ [f4,g#4]@2 ~ c4 ~ [f4,g#4]@2 c4 ~ [f4,g#4]@2 c4, f2, ~@4 c4 ~@4 c4 ~@3 c4 ~@2", // Fm
  T: "[~@9 [c2,c3]@20 ~@3]/2", // C
})).s("gm_piano").gain(0.48).pan(0.4)

// chords · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  ~ A B C D E F G E A B C D E F A B C D E F A B C H A B C D E F I@2 A B C D E F G E A B C D E F A B C D E F A B C H A B
  C D E F I@2 A B C D E F G J A B C D E F K@7 ~
>`.pickRestart({
  A: "c4 b3, [e4,g4]", B: "a3 g3, [c4,e4]", C: "f4 e4, [c4,a4]", D: "d4 c4, [a3,f4]", E: "g4 f4, [d4,b4]",
  F: "e4 d4, [b3,g4]", G: "[e4,g4] [f4,a4], c4", H: "[a3,d4,f4] ~",
  I: "[[e4,g4]@7 ~ [f4,a4]@7 ~ [e4,g4]@7 ~ c5@4 b4@4, c5@23 ~ [d4,g4]@7 ~]/2", J: "[d4,g4,b4] ~",
  K: "[[e4,g4]@8 [f4,a4]@8 [e4,g4]@8 a4@24 g#4@17 ~ f4@9 e4@5 d4@5 e4@21 ~@6, c4@65 ~ [c4,g4]@41 ~@5, ~@24 f4@41 ~@47]/7", // Em F Em C5
})).s("gm_string_ensemble_1").gain(0.56).pan(0.6)

// drums · kick
const kick = s("bd").struct(`<
  ~ A@7 B A@5 C A@3 C A D A@3 E A@7 B A@3 C A@3 F A@3 C A C A C A C A@5 G A@7 B A@3 C A@3 E A@9 H I J K ~
>`.pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x ~@2 x ~@4 x ~@7", C: "x ~@5 x ~ x ~@2 x ~@4", D: "x ~@2 x!2 ~@2 x", E: "x!2",
  F: "x ~@2 x ~@4 x ~@2 x ~@4", G: "x ~ x!2", H: "x ~@6 x ~ x ~@2 x ~@3", I: "~ x ~@9 x ~@4", J: "x ~@4 x ~@10",
  K: "~@9 x ~@6",
})).gain(0.69)

// drums · snare
const snare = s("sd").struct(`<
  ~ A@7 B A@15 C A@7 B A@3 D A@3 B A@11 E A@3 C A@7 B A@3 D A@3 C A@7 E A F ~@4
>`.pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "~@4 x!2 ~@10", D: "~@4 x ~@7 x!2 ~@2", E: "~@4 x ~@7 x ~ x!2", F: "~@4 x ~@8 x!2 ~",
})).gain(0.61)

// drums · low tom
const low_tom = s("lt").struct(`<
  A ~@7 B ~@9 C ~@5 D ~@3 A ~@3 E ~@7 B ~@3 C ~@3 C ~ C ~@5 D ~@3 A ~@3 E ~@7 D ~@3 A ~@10
>`.pickRestart({
  A: "~@7 x", B: "~@13 x!2 ~", C: "~@15 x", D: "~@6 x!2 ~@6 x!2", E: "~@14 x!2",
})).gain(0.53)

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

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@10 A B@3 ~@2 A B@3 ~@9 C B ~@11 A B@3 ~@3 B@3 ~@9 C B ~@14 C B ~@8>".pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@6", C: "~@5 x ~ x",
})).gain(0.23)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  A ~ B ~ B ~@3 C ~@5 B ~@3 D ~@5 E ~@3 F ~@3 G ~@3 B ~@3 C ~@3 D ~ B ~ H ~ D ~@5 I ~@3 F ~@3 G ~@3 B ~@3 E ~@3 F ~@5 J
  K ~@3
>`.pickRestart({
  A: "~@10 x ~ x!2 ~@2", B: "~@14 x!2", C: "~@3 x ~ x!2 ~", D: "~@7 x", E: "~@2 x!2 ~@6 x!4 ~@2", F: "~@12 x!2 ~@2",
  G: "~@6 x ~@5 x!2 ~@2", H: "~@13 x!3", I: "~@2 x!2 ~@6 x!2 ~ x ~@2", J: "~@15 x", K: "x",
})).gain(0.53)

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

// drums · high tom
const high_tom = s("ht").struct("<~@28 A ~@3 A ~@27 A ~@3 A ~@11 A ~@10>".pickRestart({
  A: "~@5 x ~@2",
})).gain(0.61)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~@3 A ~ A ~@3 A ~ A ~@2 B A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@3 A ~ A ~ A ~ A ~ A ~@2 C A ~ A ~ A
  ~ A ~ A ~ A ~ A ~ A B A ~ A ~ A ~ A ~ A ~ D E F ~
>`.pickRestart({
  A: "x", B: "x!2", C: "x ~ x!2", D: "~ x ~@9 x ~@4", E: "x ~@4 x ~@10", F: "~@7 x!3 ~@6",
})).gain(0.46)

// drums · crash · soft notes
const crash_soft = s("cr").struct("<~@84 [~@15 x] [x!7 ~@9] ~>").gain(0.15)

// drums · ride
const ride = s("rd").struct(`<
  ~ A B A C A C A D ~@16 A C A C ~@4 A C A C A C A D ~@16 A C A C ~@4 A C A C A C A ~ A C A C ~@2 A C A E ~@4
>`.pickRestart({
  A: "~ x!7", B: "x!7 ~", C: "x!8", D: "x!3 ~@5", E: "x ~ x ~ x ~@2 x ~ x ~ x ~ x ~ x",
})).gain(0.46)

stack(
  bass, rock_organ, piano, string_ensemble_1, kick, snare, low_tom, hihat, hihat_soft, mid_tom, open_hat, high_tom,
  crash, crash_soft, ride
)