// Temptation — Billy Joel
// 100 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 94 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(100/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 · "Piano 1 Accomp"
const piano = note(`<
  A@2 B@2 C@2 D E F G H I J K H L M N M O P Q R@2 S@2 T@2 U V W X F G H I J K H L M N M O P Q R@2 S@2 T@2 U V W B C Y W
  X Z AA AB AC AD AE AF AG@2 AH AI AJ AK AL R@2 S@2 T@2 U C AM AN V AO AP AQ AR AS AT@4
>`.pickRestart({
  A: "~@2 d4 [c2,c3,c4,e4,g4]@5, [c2,c3]@3 ~@5, d4 ~@3, ~ g4@2 ~@5", // C
  B: "~@2 e4 [g#1,g#2,c4,e4,g#4]@5, [g#1,g#2,b3]@3 ~@5, e4 ~@3, ~ g#4@2 ~@5", // G#aug G#m
  C: "~@2 d4 c4@2 ~@2 g4, [c2,c3]@3 [c2,c3]@5, d4@2 ~ e4@3 e4@2, ~ g4@2 g4@4 ~, ~@5 c4@3", // C
  D: "~@2 e4 c4@2 ~@2 g#4, [g#1,g#2,b3]@3 [g#1,g#2]@5, e4@2 ~ e4@3 e4@2, ~ g#4@2 g#4@4 ~, ~@5 c4@3", // G#m G#
  E: "~@2 e4 [c4,e4,g#4]@3 [d4,g#4,b4]@2, [g#1,g#2,b3]@3 [g#1,g#2]@5, e4 ~@3, ~ g#4@2 ~@5", // Caug G#dim G#m G#
  F: "[f3,f4,a4]@3 f3@3 f3@2, f2, ~@3 [f4,a4]@5", G: "[e2,e3,d4]@3 a2@3 a2@2, ~@3 [a1,e4,g4]@5",
  H: "[d3,a4,d5]@3 d3@3 d3@2, d2, ~@3 [a4,d5]@5", I: "[a2,a3,f4,a4]@3 c5@3 b4@2, ~@3 [g2,g3,g4]@5",
  J: "[f3,c4,d4,g4]@3 [f3,c4,f4,a4]@3 [f1,f2,c4,f4]@2, f2@3 ~", K: "[e1,e2,d4]@3 a2@3 a2@2, ~@3 [a1,e4,g4]@5",
  L: "[a1,a2,f4,a4]@3 [g1,g2,d4,g4,b4]@3 [g1,g2,c4,f4]@2", // Dm G Csus4
  M: "[c4,e4,g4]@6 [e4,g4,c5]@2 [c2,c3,e4,g4,c5]@3 [d2,d3,d4,f4,a4]@2 [e2,e3,c4,e4,g4]@3, [c2,c3] ~", // C Dm C
  N: "[f2,f3]@4 ~@2 c4 a3 [g1,g2]@4 ~@2 [g2,f3,a3,c4]@2, f4@6 f4@2 [b3,d4]@5 g1@3, c4 ~@3 [f1,f2]@4 ~@4 g2@2 ~@2", // F G F Bm F
  O: "[f2,f3,f4,a4]@4 ~ c4 d4 e4 g2@4 g2@2 [g1,g2,a3,c4,f4]@2, c4 ~@3 [f1,f2,f4,a4]@4 [g1,d4,g4,b4]@6 ~@2", // F G
  P: "[c4,e4,g4]@6 [e4,g4,c5]!2 [c2,c3,e4,g4,c5]@3 [d2,d3,d4,f4,a4]@2 [e2,e3,c4,e4,g4]@3, [c2,c3] ~", // C Dm C
  Q: "[f3,f4]@4 ~ c4@3 ~@4 g3@4, f2 [g2,b3,d4], c4 ~@3 [f3,f4]@4 ~@2 d3@6", // F G F
  R: "[~@2 [g3,d4] ~@5 [d2,d3]@3 [d2,d3,b3,d4,g4] [d2,d3,b3,d4,g4]@2 [d2,d3,a3,d4,f#4]@2, a2@3 a2 ~@4, c4@2 ~ a3@5 ~@8, ~ e3@2 e4@4 [d4,f#4,a4]@4 ~@5, ~@5 a4@2 ~@9]/2", // G5 D G D
  S: "[~@4 [g3,d4]@2 ~@14 [g4,b4]@4 [f4,a4]@4 ~@2 c4!2, a2@3 a2 [d2,d3]@2 [f2,f3]@2, c4@2 ~ a3@5 ~ d4@3 ~@2 [b3,b4]@2, ~ e3@2 e4@4 [f#4,a4]@3 ~@6]/2", // G5 G F D F B F#m
  T: "[[e4,g4]@2 [e4,g4]@2 [e4,g4]@2 e4@4 d4@2 c4@2 g2@2 g1@2 ~@4 a3@2 a3@3 g3@2 f3@3, g2@3 g2@4 ~@9, g3@2 g3@5 [b3,d4]@2 ~@7, ~@3 g4@3 ~@10]/2", // Em Bm
  U: "[c1,c2,f3]@3 ~@4 g4, ~@3 [c1,c2,g3]@5, ~@5 g4@2 ~, ~@3 e4", // F5 C5
  V: "~@2 d4 [c4,e4,g4]@3 [c4,e4,g4]@2, [c1,c2]@3 [c1,c2]@5, d4 ~@3, ~ g4@2 ~@5", // C
  W: "g#4 ~ e4 [c4,e4,g#4]@3 [c4,e4,g#4]@2, [g#1,g#2]@3 [g#1,g#2]@5, e4 ~@3, ~ g#4@2 ~@5", // Caug G#
  X: "g#4 ~ e4 [c4,e4,g#4]@3 [b3,e4,g#4]@2, [g#1,g#2]@3 [g#1,g#2]@5, e4 ~@3, ~ g#4@2 ~@5", // Caug E G#
  Y: "~@2 d4 [c4,e4,g4]@3 [c4,e4,g4]@2, [c2,c3]@3 [c2,c3]@5, d4 ~@3, ~ g4@2 ~@5", Z: "[c4,f4,a4]@3 [f4,a4]@5, [f2,f3]",
  AA: "d4@3 ~@2 [e4,g4]@3, [e2,e3] [a1,a2], ~@3 [e4,g4]@2 ~@3", // Em E A Em
  AB: "~@2 a3@2 ~@2 a4 ~@3 [a3,g4]@2 [d4,f4]@4, d3!2, [a4,d5]@6 ~ a4@3 ~@6, ~@2 d4@3 ~@3", // A7 Dm D5
  AC: "~ f3@2 [g2,g3,c5]@3 [g2,g3,b4]@2, [g2,f4]@3 g4@5", // C5 G G7
  AD: "[f2,f3,d4,g4,b4]@3 [f2,f3]@3 [f2,f3]@2, ~@3 [c4,f4,a4]@5", // G7 F
  AE: "[e2,b2,e3,e4,g#4]@6 [a1,a2,e4,g4]@5 ~@2 a4!3, ~@11 a1@5, ~@3 a2", // E A7
  AF: "[a4,d5]@3 a4!3 [d2,d3,f4]@2, [d2,d3]@2 [d2,d3] ~, ~@3 d5@3 ~@2", // D5 Dm D
  AG: "[c4@2 d4@2 e4@2 [d4,g4,b4]@8 ~@8 [e4,g4,c5]@2 [c1,c2,e4,g4,c5]@3 [d1,d2,d4,f4,a4]@2 [e1,e2,c4,e4,g4]@3, [a1,a2,f4,a4]@3 [g1,g2]@5 [c1,c2]@4 ~@4, ~@7 [c4,e4,g4]@4 ~@5]/2", // G C Dm C Dm G C
  AH: "[f1,f2]@4 ~@2 c4 a3 [g1,g2]@4 ~@2 [g2,f3,a3,c4]@2, f4@6 f4@2 [b3,d4]@5 g1@3, c4 ~@3 [f1,f2]@4 ~@4 g2@2 ~@2", // F G F Bm F
  AI: "[c4,e4,g4]@6 [e4,g4,c5]!2 [c1,c2,e4,g4,c5]@3 [d1,d2,d4,f4,a4]@2 [e1,e2,c4,e4,g4]@3, [c1,c2] ~", // C Dm C
  AJ: "[f1,f2,f4,a4]@4 ~ c4 d4 e4 g2@4 g2@2 [g1,g2,c4,f4,a4]@2, c4 ~@3 [f1,f2,f4,a4]@4 [g1,d4,g4,b4]@6 ~@2", // F G
  AK: "[c4,e4,g4]@6 [g4,c5,e5]!2 [c1,c2,g4,c5,e5]@3 [d1,d2,d4,f4,a4]@2 [e1,e2,c4,e4,g4]@3, [c1,c2] ~", // C Dm C
  AL: "[f1,f2,f4]@4 ~ c4@3 ~@4 g3@4, c4 ~@3 [f2,f3,f4]@4 [g2,b3,d4]@8, ~@5 d3@3", // F G
  AM: "~ g#4 [e4,g#4] [d4,g#4] [d4,g#4]@2 [c4,e4,g#4]@2, b3@3 ~, [g#1,g#2]@3 [g#1,g#2]@5, e4 ~@3", // E Ddim Caug G#
  AN: "~@4 e4@2 [e4,g#4,c5]@2 [e4,g#4,c5]@3 [d4,g#4]@2 [c4,g#4]@3, [g#1,g#2,b3]@3 [g#1,g#2]@5, e4 ~@3, ~ g#4@2 ~@5", // Eaug Ddim Fm G#m G#
  AO: "~@2 d4 e4@2 e4 d4 c4, [c1,c2]@3 [c1,c2,g4]@5, d4@2 ~ c4@4 ~, ~ g4@2 ~@5", // C C5
  AP: "~@2 e4 [e4,g#4]!5, b3, [g#1,g#2]@3 [g#1,g#2]@5, e4 ~@3, ~ g#4@2 ~@5", // E G#
  AQ: "~@4 e4@2 [g#1,g#2,e4,g#4,c5]@2 [e4,g#4,c5]@3 [d4,g#4]@2 [c4,g#4]@3, [g#1,g#2,b3]@3 ~ [g#1,g#2]@4, e4 ~@3, ~ g#4@2 ~@5", // G#aug Eaug Ddim Fm G#m G#
  AR: "[f1,f2,d4,g4]@3 [f1,f2,c4,f4,a4]@3 [f1,f2,c4,f4,a4]@2, c4 ~@15", // G7 F
  AS: "[g1,g2,c4,d4,g4]@3 [g1,g2,c4,f4,a4]@3 [g1,g2,c4,f4,a4]@2", AT: "[[c1,c2,c4,e4] ~, g4]/4",
})).s("gm_piano").gain(0.64)

// bass · fretless bass
const bass = note(`<
  A@2 B@2 A@2 B@2 C D E F G D E H I J I K I L M N M O P Q A@2 B@2 C D E F G D E H I J I K I L M N M O P Q A@2 B@2 A@2
  B@2 C R S T U V W X I J I K I Y M N M O P Q A@2 B@2 A@2 B Z U AA AB@2 ~@2
>`.pickRestart({
  A: "c2@3 c2@5", B: "g#1@3 g#1@5", C: "f2", D: "e2@3 a1@5", E: "d2", F: "a2@3 g2@5", G: "f2@3 f2", H: "a1@3 g1@3 g1@2",
  I: "c2@8 c2@3 d2@2 e2@3", J: "f2@4 f2@4 g1@4 ~ g1@3", K: "f2@2 f2@2 g1@3 g1", L: "f2 g2", M: "a2@3 a2",
  N: "d2@3 d2 d2@2 d2@2", O: "d2 f2", P: "g2@3 g2@4 g2", Q: "g1 ~@7", R: "e2 a1", S: "d2!2", T: "g2@3 g2@3 g2@2",
  U: "f2@3 f2@3 f2@2", V: "e2@6 a1@5 a1@5", W: "d2@2 d2!2", X: "a1@3 g1@5", Y: "f2!2 g2@2", Z: "g#1@3 g#1 g#1@4",
  AA: "g1@3 g1@3 g1@2", AB: "c2/2",
})).s("gm_fretless_bass").gain(0.4)

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

// drums · rim
const rim = s("rim").struct("<~@3 A B@12 ~@12 B@12 ~@12 B@3 C B@12 ~@12 B C B D B@3 D ~@6>".pickRestart({
  A: "~@8 x ~ x ~@3 x!2", B: "~ x ~ x", C: "~@4 x ~@3 x ~ x ~@3 x!2", D: "~@4 x ~@6 x ~@4",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct(`<
  ~@16 A B A B A B@5 C D ~@12 A B A B A B@5 C D ~@16 A B A B A B@5 C D ~@8 B@2 ~@4
>`.pickRestart({
  A: "~@4 x ~@6 x ~@4", B: "~ x ~ x", C: "~@2 x ~ x ~@7 x ~@2 x", D: "x",
})).gain(0.4)

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

// drums · open hat
const open_hat = s("oh").struct("<~@3 [~@3 x] ~@51 [~@3 x] ~@25 [~@3 x] ~@12>").gain(0.4)

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

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

stack(piano, bass, kick, rim, snare, hihat, open_hat, crash, ride)