// Jealous Guy — Lennon John
// 80 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 69 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(80/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.

// other · synth strings 2
const synth_strings_2 = note("<~@4 A@2 B C D@2 E F G H I J K L M N O@7 P Q@7 ~@15 N R@7 P S@8 T ~>".pickRestart({
  A: "[~@4 d4@2 e4@2 g4 e4@3 d4@2 e4 b3@2 a3@15]/2", B: "~@4 a3@2 b3 d4@3 b3 a3@2 b3@3", C: "g3 e3@15",
  D: "[~@4 e3@2 f#3 g3@3 a3 b3@3 d4 d4@17]/2", E: "~@4 e3@2 f#3 g3@3 a3 b3@3 e4@2", F: "e4 ~",
  G: "~@2 b3@2 d4 b3@3 d4@3 d4 d4@2 c4@2", H: "c4 g3@7", I: "~@2 b3@2 d4 b3@2 d4@7 b3@2", J: "d4 e4@2 f4@9 a#3@2 g3@2",
  K: "~@3 g3 b3 b3@2 a3@4 g3 b3 a3 ~ g3", L: "e3", M: "~ e3 g3 e3 b3 g3@2 g3@9", N: "~@6 d4 e4",
  O: "[g4 e4@3 d4@2 e4 b3@2 a3@15 a3@2 ~@2 a3@2 b3 d4@3 b3 a3@2 b3@3 g3 e3@15 ~@4 e3@2 f#3 g3@3 a3 b3@3 d4 d4@17 ~@4 e3@2 f#3 g3@3 a3 b3@3 e4@2 e4@8]/7",
  P: "~@10 b3@2 d4 b3@3",
  Q: "[d4@3 d4 d4@2 c4@2 c4@2 g3@15 ~ b3@2 d4 b3@2 d4@7 b3@2 d4 e4@2 f4@9 a#3@2 g3@2 ~@3 g3 b3 b3@2 a3@4 g3 b3 a3 ~ g3 e3@16 ~ e3 g3 e3 b3 g3@2 g3@9 ~@8]/7",
  R: "[g4 e4@3 d4@2 e4 b3@2 a3@15 ~@4 a3@2 b3 d4@3 b3 a3@2 b3@3 g3 e3@15 ~@4 e3@2 f#3 g3@3 a3 b3@3 d4 d4@17 ~@4 e3@2 f#3 g3@3 a3 b3@3 e4@2 e4@8]/7",
  S: "[d4@3 d4 d4@2 c4@2 c4@2 g3@15 ~ b3@2 d4 b3@2 d4@7 b3@2 d4 e4@2 f4@9 a#3@2 g3@2 ~@3 g3 b3 b3@2 a3@4 g3 b3 a3 ~ g3 e3@16 ~ e3 g3 e3 b3 g3@2 e3@2 d3 g3@2 ~ b3 g3@2 ~ e3 g3 e3 b3 g3@2 g3@3 b3 g3@2 e3 d3@2 ~ e3 g3 e3 b3 g3@2 e3]/8",
  T: "~ d3 g3@14",
})).s("gm_synth_strings_2").gain(0.31)

// chords · piano
const piano = note(`<
  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 AD AE AF AG AH AI 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 AD AE AF AG AJ AK AL AM@2
>`.pickRestart({
  A: "[g4,b4,d5] b4 g4@2 [g4,b4,d5] b4 g4@2 [g4,b4,e5] b4 g4@2 [g4,b4,e5] f#5 g5@2", // G Em
  B: "[b4,d5,f#5] d5 a4@2 [a4,d5,f#5] d5 a4@2 e4 f#4 d5 f#4 g4 e5 g4 a4", // Bm D
  C: "f#5@2 d5@2 ~@2 f#5 g5 [c5,f#5,a5]@3 d5 b5 d5 [c5,f#5,a5]@2, [a4,c5]@4 ~@2 c5 ~", // F#dim Am
  D: "g5@2 e5@2 ~@4 e5 b4 [e4,g4]@2 f#5 e5 b4 g4, [b4,d5]@4 g4 ~ b4 d4", // Em Bm
  E: "[g4,b4,d5] d4 [g4,b4,d5] d4 [g4,b4,e5] e4 [g4,b4,e5] e4", // G Em
  F: "[f#4,a4,f#5]@2 d5@2 [f#4,a4,f#5]@2 d5@2 [f#4,a4,f#5]@2 d5@2 [a4,d5,g5] e5 g5 a5", // F#m Dsus4
  G: "[f#5,a5,c6]@2 d5@2 [f#5,a5,c6]@2 d5@2 [f#5,a5,c6]@2 d5@2 [d5,f#5,b5] d5 a5 g5", // F#dim Bm
  H: "[g4,b4,e5]@2 e4@2 [g4,b4,e5]@2 e4@2 [e4,a4] b4 g4@3 [g4,b4] c5@2", // Em A5 G
  I: "[e4,g4,c#5]@2 b4@2 [e4,g4,c#5]@2 b4@2 [e4,g4,c#5]@2 b4@2 [g4,e5] c5 b4@2", // C#dim C
  J: "[f#4,d5,f#5] a4 [f#4,d5,f#5] a4 [d4,a4,d5] f#4 [d4,a4,d5] f#4", // D D5
  K: "[e4,g4,b4] g4 e4@2 [e4,g4,b4] g4 e4@2 [e4,g4,b4] g4 e4@2 [g4,b4,f#5] e5 b4@2", // Em Gmaj7
  L: "[e4,g4,c5]@3 [c5,e5,g5,c6] [c5,e5,g5,c6]@3 [g4,c5,e5,g5] [g4,c5,e5,g5]@3 [g5,c6,e6,g6] [g5,c6,e6,g6]@3 [e5,g5,d6]", // C Em7
  M: "[d5,g5,b5,d6]@4 [d4,g4,b4,d5]@4 [d4,f4,a4,d5]@3 [d4,f4,a4,d5] [d4,f4,a4,d5]@4", // G Dm
  N: "[e4,g4,d5]@4 [g4,c5,e5,g5]@4 [a4,c5,d5,g5]@2 [a4,c5,d5,g5]@2 ~ [a4,c5,d5,g5]@2 b4", // Em7 C Am7
  O: "[d4,g4,b4,d5,e5] [d4,g4,b4,d5] [d4,f4,a4,d5]!2", // Em7 G Dm
  P: "[a#4,d5,f5,a#5]@4 f5 d5 [a#4,d5,f5,a#5]@2 f5 d5 [a#4,d5,f5,a#5]@2 [a#4,d5,f5] d5 a#5@2", // A#
  Q: "[g4,b4,d5,f5,g5]@2 [g4,b4,d5,g5] d5 [g4,b4,d5,g5] d5 [g4,b4,d5,g5] d5", // G7 G
  R: "[e4,g4,b4,e5]@2 [e4,g4,b4,e5] b4 [e4,g4,b4,d5]@2 [e4,g4,b4,d5] b4", // Em Em7
  S: "[d4,e4,g4,d5] [c4,e4,g4,c5] [d4,g4,b4,d5]!2", T: "a4 b4 g5 b4 c5 a5 c5 d5 [g4,b4,d5]@2 d4@2 [g4,b4,d5]@2 d4@2",
  U: "[g4,b4,e5] e4 [g4,b4,e5] e4 [f#4,a4,f#5] d5 [f#4,a4,f#5] d5", // Em F#m
  V: "[f#4,a4,f#5]@2 d5@2 [a4,d5,g5] e5 g5 a5 [f#5,a5,c6]@2 d5@2 [f#5,a5,c6]@2 d5@2", // F#m Dsus4 F#dim
  W: "[f#5,a5,c6]@2 d5@2 [d5,f#5,b5] d5 a5 g5 [g4,b4,e5]@2 e4@2 [g4,b4,e5]@2 e4@2", // F#dim Bm Em
  X: "[e4,a4] b4 g4@3 [g4,b4] c5@2 [e4,g4,c#5]@2 b4@2 [e4,g4,c#5]@2 b4@2", // A5 G C#dim
  Y: "[e4,g4,c#5]@2 b4@2 [g4,e5] c5 b4@2 [f#4,d5,f#5]@2 a4@2 [f#4,d5,f#5]@2 a4@2", // C#dim C D
  Z: "[d4,a4,d5]@2 f#4@2 [d4,a4,d5]@2 f#4@2 [e4,g4,b4] g4 e4@2 [e4,g4,b4] g4 e4@2", // D5 Em
  AA: "[e4,g4,b4] g4 e4@2 [g4,b4,f#5] e5 b4@2 [e4,g4,c5]@3 [c5,e5,g5,c6] [c5,e5,g5,c6]@3 [g4,c5,e5,g5]", // Em Gmaj7 C
  AB: "[g4,c5,e5,g5]@3 [g5,c6,e6,g6] [g5,c6,e6,g6]@3 [e5,g5,d6] [d5,g5,b5,d6]@4 [d4,g4,b4,d5]@4", // C Em7 G
  AC: "[d4,f4,a4,d5]@3 [d4,f4,a4,d5] [d4,f4,a4,d5]@4 [e4,g4,d5]@4 [g4,c5,e5,g5]@4", // Dm Em7 C
  AD: "[a4,c5,d5,g5]@2 [a4,c5,d5,g5]@2 ~ [a4,c5,d5,g5]@2 b4 [d4,g4,b4,d5,e5]@4 [d4,g4,b4,d5]@4", // Am7 Em7 G
  AE: "[d4,f4,a4,d5]@4 [d4,f4,a4,d5]@4 [a#4,d5,f5,a#5]@4 f5 d5 [a#4,d5,f5,a#5]@2", // Dm A#
  AF: "f5 d5 [a#4,d5,f5,a#5]@2 [a#4,d5,f5] d5 a#5@2 [g4,b4,d5,f5,g5]@4 [g4,b4,d5,g5]@2 d5@2", // A# G7 G
  AG: "[g4,b4,d5,g5] d5 [g4,b4,d5,g5] d5 [g4,b4,e5]@2 [e4,g4,b4,e5] b4, ~ e4 ~@2", // G Em
  AH: "[e4,g4,b4,d5]@2 [e4,g4,b4,d5] b4 [d4,e4,g4,d5]@2 [c4,e4,g4,c5]@2", // Em7 C
  AI: "[d4,g4,b4,d5]@4 [d4,g4,b4,d5]@4 a4 b4 g5 b4 c5 a5 c5 d5", // G
  AJ: "[e4,g4,b4,d5]@4 [e4,g4,b4,d5]@2 b4@2 [e4,g4,c5,e5] [e4,g4,c5,e5]@7", // Em7 C
  AK: "[g4,b4,d5]@5 d5 g5 d5 [e4,g4,c5,d5,e5] [e4,g4,c5,e5]@7", // G C
  AL: "[g4,b4,d5]@4 [g4,b4,d5] d5 g5 d5 [e4,g4,c5,e5] [e4,g4,c5,e5]@3 [e4,g4,c5,e5]@4", // G C
  AM: "[[g4,b4,d5]@4 [g4,b4,d5] d5 g5 d5 [g4,b4,d5,g5]@16 ~@8]/2", // G
})).s("gm_piano").gain(0.24)

// chords · string ensemble 2
const string_ensemble_2 = note(`<
  A B C D A B C D E F D G H I H J K L G M N@8 O P Q@3 R@2 A B C D E F D G H I H J K L G M N@8 O P Q@3 S T@2 U ~
>`.pickRestart({
  A: "[g4,b4,d5] [g4,b4,e5]", B: "[f#4,a4,d5]", C: "[f#4,a4,c5,d5]", D: "[g4,b4,e5]", E: "[g4,b4,c5,e5]",
  F: "[a4,d5,f#5]", G: "[g4,c5,e5]", H: "[g4,b4,d5] [a4,d5,f5]", I: "[g4,c5,e5] [a4,c5,d5,f#5]", J: "[a#4,d5,f5]",
  K: "[g4,b4,d5]", L: "[g4,b4,e5] [g4,b4,d5,e5]", M: "[g4,b4,d5]!2",
  N: "[[g4,b4,e5] [f#4,a4,d5]@2 [f#4,a4,c5,d5]@2 [g4,b4,e5]@2 [g4,b4,c5,e5]@2 [a4,d5,f#5]@2 [g4,b4,e5]@2 [g4,c5,e5]@2 [g4,b4,d5]]/8", // Em D D7 Em Cmaj7 D Em C …
  O: "[a4,d5,f5] [g4,c5,e5]", P: "[a4,c5,d5,f#5] [g4,b4,d5]", Q: "[[a4,d5,f5] [a#4,d5,f5]@2 [g4,b4,d5]@2 [g4,b4,e5]]/3",
  R: "[[g4,b4,d5,e5] [g4,c5,e5]@2 [g4,b4,d5]]/2", S: "[g4,b4,d5,e5] [g4,c5,e5]", T: "[g4,b4,d5] [g4,c5,e5]",
  U: "[g4,b4,d5] ~", // G
})).s("gm_string_ensemble_2").gain(0.18)

// bass · electric bass finger
const bass = note(`<
  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 AD AE AF AG AH AI 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 AD AE AF AG AJ AK AL AM@2
>`.pickRestart({
  A: "g2@2 g2 f#2 e2@4", B: "d2@15 a1", C: "[d2,f#2]@4 d2@3 a1 d2@3 a1 d2@2 d2@2", D: "e2@6 e2 f#2",
  E: "g2@7 d3 e3@6 a2@2", F: "d3@6 d3!2 d3@2 d3@3 d3 d3@2", G: "d3@7 a2 d3@2 d3@4 d3!2", H: "e3@6 g3@2 e3@4 b2@3 b2",
  I: "e2@6 b2 d3 e3@2 e3@5 e3", J: "d3@6 d3 a2 d3@2 d3@4 d3@2", K: "e3@3 g2 a2 g2 f#3 e3", L: "c3@6 c3!3 c3@2 c3!5",
  M: "g2@3 g2 f2@3 f2", N: "c3@3 c3 d3!3 e3", O: "g2@3 f2 f2@3 f2", P: "a#2@3 f2 a#2@2 a2@2", Q: "g2 f#2", R: "e2 d3",
  S: "c3@4 ~ c3 b2 a2 e2@6 e2!2", T: "e2@2 g2@2 d3@2 d2@2 g2@7 d3", U: "e3@6 a2@2 d3@6 d3!2",
  V: "d3@2 d3@3 d3 d3@2 d3@7 a2", W: "d3@2 d3@4 d3!2 e3@6 g3@2", X: "e3@4 b2@3 b2 e2@6 b2 d3",
  Y: "e3@2 e3@5 e3 d3@6 d3 a2", Z: "d3 d3@2 d3 e3@3 g2", AA: "a2@2 g2@2 f#3@2 e3@2 c3@6 c3!2",
  AB: "c3 c3@2 c3!5 g2@6 g2@2", AC: "f2@3 f2 c3@3 c3", AD: "d3!3 e3 g2@3 f2", AE: "f2@3 f2 a#2@3 f2", AF: "a#2 a2 g2@2",
  AG: "f#2 e2", AH: "d3@8 c3@4 ~ c3 b2 a2", AI: "e2@6 e2!2 e2@2 g2@2 d3@2 d2@2", AJ: "d3@4 c3@3 d3",
  AK: "g2@6 g2 b2 c3@6 d3 g2", AL: "g2@6 a2 b2 c3@4 c3 b2 a2@2", AM: "[g2 e2@2 ~]/2",
})).s("gm_electric_bass_finger").gain(0.32)

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

// drums · rim
const rim = s("rim").struct("<[x!2] [x!3 ~] ~@67>").gain(0.26)

// drums · snare
const snare = s("sd").struct("<~ [~@3 x] [~ x ~ x]!65 [~@2 x ~ x ~@2 x] ~>").gain(0.36)

// drums · low tom
const low_tom = s("lt").struct("<~@11 A ~@14 B ~@15 A ~@14 B ~@11>".pickRestart({
  A: "~@6 x!2 ~@8", B: "~@14 x!2",
})).gain(0.36)

// drums · hihat
const hihat = s("hh").struct("<~@2 A@9 B A@14 C D A@14 E A@14 C D A@8 F ~>".pickRestart({
  A: "x!2 ~ x!3 ~ x", B: "x ~ x ~ x ~ x!2", C: "x!2 ~ x!2 ~ x ~", D: "x ~ x ~ x!2 ~ x", E: "x!4", F: "x!2 ~ x ~@4",
})).gain(0.31)

// drums · mid tom
const mid_tom = s("mt").struct("<~@11 A ~@14 B ~@15 A ~@14 B ~@11>".pickRestart({
  A: "x!2 ~@14", B: "~@8 x!2 ~@6",
})).gain(0.36)

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

// drums · crash
const crash = s("cr").struct("<~@11 A ~@15 B ~@14 A ~@15 B ~@8 C ~>".pickRestart({
  A: "~@3 x", B: "~ x ~@2", C: "~@7 x",
})).gain(0.31)

stack(synth_strings_2, piano, string_ensemble_2, bass, kick, rim, snare, low_tom, hihat, mid_tom, open_hat, crash)