// If You Were There — Wham!
// 127 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 113 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(127/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 · electric guitar clean
const electric_guitar_clean = note(`<
  A@2 B@2 A@2 C@2 A@2 D@2 A@2 D@2 ~@2 E@2 F@2 G H I@2 J K L@2 M N O P Q R O P Q R S@2 E@2 F@2 T U I@2 V K L@2 M N O P Q
  R O P Q R A@2 D@2 A@2 D@2 ~@2 W@4 X H Y Z AA AB AC@2 AD AE O P Q R O P Q AF A@2 D@2 AG@6 AH@2 AG@2 AI@3
>`.pickRestart({
  A: "[[a3,c#4,e4]@8 [a3,c#4,e4]@2 ~@4 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@10]/2", // A C#m G#m7 F#m
  B: "[~@4 [a3,c#4,e4] ~@3 [a3,c#4,e4]@2 [b3,f#4] ~@3 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@10]/2", // A B5 C#m G#m7 F#m
  C: "[[a3,c#4] ~@3 [a3,c#4,e4] ~@3 [a3,c#4,e4]@2 [b3,f#4] ~@3 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@10]/2", // A B5 C#m G#m7 F#m
  D: "[[a3,c#4] ~@3 [a3,c#4,e4] ~@3 [b3,d4,f#4]@2 [c#4,e4,g#4] ~@3 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@10]/2", // A Bm C#m G#m7 F#m
  E: "[~@2 [a3,d4] ~ [d4,f#4] ~@2 [e3,b3]@6 ~@3]/2", // D5 D E5
  F: "[~@4 [a3,c#4]@4 ~@2 [a3,c#4,e4] ~@3 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@10]/2", // A C#m G#m7 F#m
  G: "[a3,d4]@7 ~ [d4,f#4]@2 [d4,f#4,a4] ~@5", H: "~@2 [a3,d4] ~@3 e3@2 [b3,e4]@7 ~",
  I: "[~@4 [f#4,a4]@2 ~@8 [a3,d4]@10 ~@2 [a3,d4] ~@5]/2", J: "~@4 d4@2 ~@2 f#3@2 b3 ~@3 f#4@2", K: "~@2 b3 e4@3 ~@2",
  L: "[[d3,a3]@2 [f#4,a4] ~@4 [d3,a3]@5 ~ [d3,a3] ~@2]/2", M: "~@7 f#4", N: "~@2 f#3@4 a3@4 b3@5 ~",
  O: "[a3,c#4]@4 [f#4,a4] ~@5 [f#4,a4] ~@5", P: "~@4 [e4,g#4] ~@5 [e4,g#4] ~@5", Q: "[f#3,b3]@5 ~@3",
  R: "~@2 [e4,e5]@5 ~ [b3,b4]@7 ~", S: "[~@4 [c#4,e4] ~@5 [c#4,e4] ~@3 [e4,g#4]@7 ~ [c#4,f#4,a4]@10]/2",
  T: "~@2 f#3@2 b3@6 [d4,f#4,a4] ~@5", U: "~@4 [a3,d4] ~ f#3@2 b3@2 [b3,e4]@6",
  V: "~@2 d4 e4 d4@4 b3@2 ~@4 e3@2, ~@2 b4@5 ~@9",
  W: "[~@2 f#3@2 [a3,d4]@2 ~@2 [d4,f#4]@2 ~@4 [e3,b3]@4 [e4,g#4] ~@3 a3@2 [b3,e4]@2 e3@4 c#4@6 [a3,c#4]@4 ~@2 [a3,c#4,e4] ~@3 [c#4,e4,g#4]@4 [f#4,g#4,b4] ~@3 [a3,c#4,f#4]@2 f#3@2 a3@2 ~@2 a3@2, ~@15 f#4]/4", // D5 D E5 E E5 A C#m G#m7 …
  X: "b2@2 f#3@2 [a3,d4]@2 ~@2 [d4,f#4]@2 [d4,f#4] ~@5", Y: "[d3,a3]@4 ~@4 e4 ~ d4 ~@5", Z: "~@4 e4 ~ f#4@3 ~ e4 ~@5",
  AA: "~@2 e4@4 ~@2 e4@2 d4 ~@3 b3@2", AB: "~@2 a3@2 f#3 ~ e3 ~ f#3@6 ~@2",
  AC: "[[d3,a3]@4 [f#4,a4]@2 ~@4 [c#4,f#4]@3 ~ [d3,a3]@10 ~@2 [d3,a3]@2 ~@4]/2", // D5 F#m F#5 D5
  AD: "~@2 d4 e4 d4@3 ~ [e4,b4]@4 d4@2 f#4@2, ~@2 b4@5 ~ d4 ~@7", AE: "~ e5@3, ~@2 b4@13 ~",
  AF: "~ f#3@2 a3 ~@2 f#3@2, ~@8 b3@7 ~",
  AG: "[[g#3,g#4]@4 ~@2 [g#3,g#4]@2 [a3,a4]@2 [b3,b4] ~@3 [b3,b4]@4 [e4,e5] ~@3 [c#4,c#5]@8 ~@2]/2", // G# A B E C#
  AH: "[[g#3,g#4]@4 ~@2 [g#3,g#4]@2 [a3,a4]@2 [b3,b4] ~@3 [b3,b4]@4 [e4,e5] ~@3 [c#4,c#5]@4 [b3,b4]@5 ~]/2", // G# A B E C# B
  AI: "[[g#3,g#4]@4 ~@2 [g#3,g#4]@2 [a3,a4]@2 [b3,b4] ~@3 [b3,b4]@4 [e4,e5] ~@3 c#5@26, ~@11 c#4@12 ~]/3", // G# A B E
})).s("gm_electric_guitar_clean").gain(0.39).pan(0.2)

// bass · electric bass finger
const bass = note(`<
  ~@7 A B@2 C@2 B@2 C@2 D@2 E@2 D@2 E@2 F G H@2 F G I@2 J K L M N@2 O@2 D@2 P@2 Q@2 E@2 R S H@2 F G I@2 J K L M N@2 O@2
  B@2 C@2 B@2 C@2 D@2 E@2 D@2 E@2 F G T@2 U V W@2 J K L M N@2 O@2 B@2 C@2 X Y C@2 X Z AA@2 X Y AB@3
>`.pickRestart({
  A: "~@3 e2@5", B: "[a1@5 ~@2 a1 b1@2 c#2 ~@3 c#2@7 ~ f#2@7 ~ g#1@2]/2",
  C: "[a1@6 ~ a1 b1@2 c#2 ~@3 c#2@4 e1@2 f1@2 f#1@7 ~ g#1@2]/2",
  D: "[a1@5 ~@2 a1 b1@2 c#2 ~@3 c#2@7 ~ f#2@3 ~ f#1 ~ a1 ~ c#2 f#1]/2",
  E: "[b1@4 ~@2 b1!2 f#2@2 b1 ~@3 e2@6 e2 ~ b1@2 e1@5 ~ g#1@2]/2", F: "d2 ~ b2 ~ a2 ~ b2 d2", G: "~ d2 b2 ~ a2 ~ b2@2",
  H: "[b1@6 d2 e2 f#2@2 b2 ~@3 e2@6 ~@2 e2@3 ~ b1@2 e1@3 ~]/2",
  I: "[b1@6 d2 e2 f#2@2 b2 ~@3 e2@4 e1@3 ~ e1@3 ~ a1@2 g#1@2 a1@2]/2", J: "d2@5 ~ a1!2 a1@3 ~ d2@2 ~@2",
  K: "c#2@5 ~ g#2!3 ~ g#1@3 g#1 c#2 g#1", L: "b1@6 e2 f2 f#2 ~ b2@2 f#2 ~ e2@2", M: "~@2 e1 ~ e1@3 ~ f#1@2 ~@2 g#1@3 ~",
  N: "[d2@5 ~ a2!2 a2@2 d3@2 ~@2 c#3@7 ~ g#2!2 c#2 ~ c#2@2 c2@4]/2",
  O: "[b1@6 e2 f2 f#2 ~ b2@2 f#2 ~ e2@7 ~ e1@2 e1 ~ e1@2 ~@2 g#1@2]/2",
  P: "[b1@4 ~@2 b1!2 f#2@2 b1 ~@3 e2@6 e2 ~ f#2 g2 g#2@4 f#2 ~ e2 ~]/2",
  Q: "[a1@2 ~@2 a1@3 a1 b1@2 c#2 ~@3 c#2@4 e1 ~ f1@2 f#1@5 ~ a1@3 ~]/2", R: "d2@2 ~@2 b2@2 ~@2 a2@2 ~@2 b2 ~ e3@2",
  S: "~@2 d3 ~ b2@2 ~@2 a2 ~ f#2 ~ b1@4", T: "[b1@6 d2 e2 f#2@2 b2 ~@3 e2@6 ~@2 b1!2 e1@4 ~@2 a1 ~]/2",
  U: "d2@2 ~@2 b2@2 ~@2 a2@4 a1 ~ d2@2", V: "~@2 a1 ~ f#1@3 ~ d2@2 ~@2 f#2@4",
  W: "[b1@6 f#2@4 [b2,f#3]@4 e1@8 e1@3 ~ a1@2 g#1@2 a1@2]/2", X: "a1@5 ~@2 a1 b1@2 c#2 ~@3 c#2@2",
  Y: "~@2 e2 ~ f2 ~ f#2@7 ~ g#1@2", Z: "~@2 e2 ~ f2 ~ f#2@7 ~ g#2@2",
  AA: "[a2@6 ~ a2!2 ~ b2 ~ c3 ~ c#3@4 g#2 ~ c#2@2 f#1@2 ~ f#2 c#2@2 f#1@3 ~]/2",
  AB: "[a1@6 ~ a1 b1@2 c#2 ~@3 c#2@4 e1@2 f1@2 f#1@19 ~@7]/3",
})).s("gm_electric_bass_finger").gain(0.52)

// chords · piano
const piano = note(`<
  A@2 B@2 A@2 B@2 C@2 D@2 C@2 D@2 C@2 E@2 C@2 E@2 F@2 G H I@2 J K L M N@2 L M N@2 C@2 E@2 C@2 E@2 F@2 G O I@2 J K L M
  N@2 L M N@2 C@2 D@2 C@2 D@2 C@2 E@2 C@2 E@2 F@2 G H I@2 J K L M N@2 L M N@2 C@2 D@2 C@2 D@2 C@2 P@2 C@2 Q@3
>`.pickRestart({
  A: "[[a3,c#4,e4]@4 [b2,b3,c#4,e4] [c#4,g#4] ~ [b3,e4,g#4]@2 c#2@2 [f#2,f#3,a3,c#4]@5, a2@10 [c#3,e4] ~@3 c#3@7 ~@11]/2", // A C#m7 C#5 E F#m C#m
  B: "[[a3,c#4,e4]@8 [b2,b3,c#4,e4]@2 [c#4,g#4]@2 e4 ~ [b3,e4,g#4]@4 c#2@2 ~@2 f#2@4 f#2@5 ~, a2@10 [c#3,e4] ~@3 c#3@7 ~ [f#3,a3,c#4]@10, ~@18 b4 ~@13]/2", // A C#m7 C#5 E C#m F#m
  C: "[[a3,c#4,e4]@8 [b2,b3,d4]@2 [c#3,e4] ~@7 c#2@4 [f#2,f#3,a3,c#4]@10, a2@5 c#4 ~ [c#3,b3,e4,g#4]@4 ~@5]/2", // A Bm C#m F#m C#m7
  D: "[[a3,c#4,e4]@8 [b2,b3,d4]@2 [c#3,e4] ~@3 g#4@4 [g#4,b4] ~@7 f#1@4 g#1@2, a2@5 c#4 ~ [c#3,b3,e4]@4 [f#2,f#3,a3,c#4]@5]/2", // A Bm C#m G#m C#m7 F#m
  E: "[[b3,d4]@3 ~ [a3,d4]@3 ~@3 [a3,d4]@2 ~@2 [e3,a3]@4 [e3,g#3]@4 e3@2 [b3,e4]@2 e3@2 g#3@4, b2@14 e4@7 ~@11]/2", // Bm D5 A5 E E5
  F: "[~@4 [f#4,a4,c#5]@2 ~@4 [a3,f#4]@2 [b3,g#4] ~ [d4,f#4,a4]@4 ~@2 [e4,g#4] ~ [d4,f#4]@3 ~ d3@4 ~@2, d2@3 ~@13]/2", // F#m D E D E D
  G: "~@2 [b3,d4] ~ [a3,d4,f#4]@3 ~@3 [a3,d4,f#4]@2 ~@2 [f#4,a4]@2, b2@5 ~@3", // Bm D F#m
  H: "~@2 [e4,g#4]@3 ~ [d4,f#4]@4 [e4,g#4]@5 ~", // E D E
  I: "[~@4 [f#4,a4,c#5]@2 ~@4 [a3,f#4]@2 [b3,g#4] ~ [c#4,f#4,a4]@4 ~@2 [e4,g#4] ~ [d4,f#4]@3 ~ d3@4 c#3@2, d2@3 ~@13]/2", // F#m D E F#m E D
  J: "~@2 [b3,d4] ~ [d4,f#4,a4]@4 [b2,f#4,a4]@2 [d4,b4]@3 ~ [d4,f#4,a4]@2, b2@3 ~@5", // Bm D B7 G D
  K: "~@2 [d4,f#4,a4]@2 ~@2 [d4,f#4]@4 [e4,g#4]@5 ~", L: "~@4 [c#4,f#4,a4]@3 ~@3 [c#4,f#4,a4]@3 ~ b2@2, d2@7 ~@9",
  M: "~@2 [b3,e4,g#4]@3 ~ [g#3,b3]@6 ~@4, c#3@7 ~@9", // E G#m
  N: "[~@4 [d4,f#4,a4]@4 ~@2 [b3,d4,f#4]@3 ~ [c#4,e4,a4]@4 e3@4 [b3,e4,a4]@4 e3@4 ~@2, b2@3 ~@13]/2", // D Bm A Esus4
  O: "~@2 [e3,g#3]@3 ~ [d3,f#3]@4 [e3,g#3]@5 ~", // E D E
  P: "[[a3,c#4,e4]@8 [b2,b3,d4]@2 [c#3,e4] ~@3 g#4@4 [g#4,b4] ~@9 f#1@2 ~@2, a2@5 c#4 ~ [c#3,b3,e4]@4 [f#2,f#3,a3,c#4]@5]/2", // A Bm C#m G#m C#m7 F#m
  Q: "[[a3,c#4,e4]@8 [b2,b3,d4]@2 [c#3,e4] ~@3 [c#3,b3,e4,g#4]@4 [g#3,f#4]@2 ~@2 [f#2,f#3,a3,c#4,a4]@22 ~@4, a2@5 c#4 ~@3 b4@2 ~@13, ~@18 e3 ~@29]/3", // A Bm C#m C#m7 G#7 F#m
})).s("gm_piano").gain(0.41).pan(0.3)

// chords · percussive organ
const percussive_organ = note(`<
  ~@7 A B@2 C@2 D@2 C@2 E@2 F@2 E@2 F@2 G@2 H@2 G@2 H@2 I@2 J@2 I@2 J@2 E@2 F@2 E@2 F@2 G@2 H@2 G@2 H@2 I@2 J@2 I@2 J@2
  B@2 C@2 D@2 C@2 E@2 F@2 E@2 F@2 G@2 H@2 G@2 H@2 I@2 J@2 I@2 J@2 B@2 C@2 D@2 C@2 D@2 C@2 D@2 K@3
>`.pickRestart({
  A: "~@12 [d2,e2,f2,g2,a2] [b2,c3,d3] [e3,f3,g3] [a3,b3,c4]", B: "[d4 e4 ~@12 b6@8 a6@10, g#6@7 ~@9]/2",
  C: "[[g#6,c#7]@7 [b6,e7]@4 [e6,a6,c#7]@5]/2", D: "[[c#6,e6,g#6]@7 [e6,b6,e7]@4 [a6,c#7]@5]/2",
  E: "[[e6,g#6,c#7]@7 [e6,g#6,b6]@4 [a6,c#7,e7]@5]/2", F: "[[f#6,b6]@7 [g#6,b6,e7]@9]/2", G: "[d6,a6,c#7]/2",
  H: "[[f#6,a6,d7]@7 [b6,e7]@9]/2", I: "[[f#6,a6]@13 ~ [e6,g#6]@18]/2", J: "[[c#6,f#6,a6]@7 [e6,a6]@9]/2",
  K: "[[g#6,c#7]@7 [b6,e7]@4 [e6,a6,c#7]@10 ~@3]/3", // C#5 E5 A
})).s("gm_percussive_organ").gain(0.26).pan(0.6)

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

// drums · rim
const rim = s("rim").struct("<[x!4]!8 ~@105>").gain(0.64)

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

// drums · clap
const clap = s("cp").struct("<~@8 [~ x ~ x]!102 [~ x ~@2] ~@2>").gain(0.72)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@87 [~@7 x] ~@25>").gain(0.64)

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

// drums · crash
const crash = s("cr").struct(`<
  ~@8 A ~@3 A ~ B ~ A ~@7 A ~@5 A ~@3 A ~@3 A ~ A ~@7 A ~@5 A ~@3 A ~@3 A ~ A ~@3 A ~ B ~ A ~@7 A ~@5 A ~@3 A ~@3 A ~ A
  ~@3 A ~@3 A ~@3 A ~@2 C ~
>`.pickRestart({
  A: "x", B: "~ x ~@2", C: "~@3 x ~@4",
})).gain(0.56)

stack(electric_guitar_clean, bass, piano, percussive_organ, kick, rim, snare, clap, hihat, mid_tom, open_hat, crash)