// Imaginary Lover — Atlanta Rhythm Section
// 110 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: metre changes (2/4 at bar 32, 4/4 at bar 33, 2/4 at bar 48, 4/4 at bar 48, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: Full arrangement: all 87 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(110/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 · electric bass finger · "Staff-3"
const bass = note(`<
  A B C D E B C D E B C D E B F@3 B C D E G F@3 H I@7 J K L M N O@3 P Q R S T Q U V W D X Y W D Z AA B C D AB B C D E G
  F@3 H AC@7 AD@4 AE AF L AG AH ~
>`.pickRestart({
  A: "~@3 e2", B: "a2@5 ~ a2@2 e2@7 ~", C: "a2@5 ~ a2@2 e2@3 ~ a2@2 g2@2", D: "f2@5 ~ f2@2 c2@7 ~",
  E: "f2@5 ~ f2@2 c2@3 ~ g2@2 f2@2", F: "[a2@5 ~ a2@2 a2@2 d2@2 eb2@2 e2@29 ~ e2@3 ~]/3",
  G: "a2@2 a2@3 ~ a2@2 a2@5 ~ a2@2", H: "a2@7 ~ a2@2 a2@3 ~ a2 b2",
  I: "[c3@7 ~ c3@2 c3@2 e3@2 d3@9 ~ d3@2 d3@2 e3@2 f3@4 f3@2 f3@2 f3@2 e3@2 e3@2 e2@2 a2@7 ~ a2@2 a2@2 a2@2 b2@2 c3@9 ~ c3@2 c3@2 e3@2 d3@9 ~ d3@2 d3@2 e3@2 f3@9 ~ a2@5 ~ a2@2]/7",
  J: "e2@7 ~ a2@5 ~ a2@2", K: "e2@3 ~ a2@2 g2@2 f2@5 ~ f2@2", L: "c2@7 ~ f2@5 ~ f2@2",
  M: "c2@3 ~ g2@2 f2@2 a2@2 a2@3 ~ a2@2", N: "a2@5 ~ a2@2 a2@5 ~ a2@2", O: "[a2@2 d2@2 eb2@2 e2@29 ~ e2@3 ~ a2@7 ~]/3",
  P: "a2@2 a2@3 ~ a2 b2 c3@7 ~", Q: "c3@2 c3@2 e3@2 d3@9 ~", R: "d3!2 e3 f3@2 f3!3", S: "e3@2 e3@2 e2@2 a2@7 ~ a2@2",
  T: "a2@2 a2@2 b2@2 c3@9 ~", U: "d3@2 d3@2 e3@2 f3@9 ~", V: "a2@5 ~ a2@2 e2@5 ~ e2@2", W: "a2@5 ~ a2@2 a2@3 ~ g2@3 ~",
  X: "f2@5 ~ f2@2 c2@3 ~ f2@2 g2@2", Y: "a2@5 ~ a2@2 e2@3 ~ e2@3 ~", Z: "f2!8", AA: "f2@2 f2@2 f2@2 f2@2 f2@7 ~",
  AB: "f2@5 ~ f2@2 c2@3 ~ g2@3 ~",
  AC: "[c3@7 ~ c3@2 c3@2 e3@2 d3@9 ~ d3@2 d3@2 e3@2 f3@4 f3@2 f3@2 f3@2 e3@2 e3@2 e2@2 a2@7 ~ a2@2 a2@2 a2@2 b2@2 c3@9 ~ c3@2 c3@2 e3@2 d3@9 ~ d3@2 d3@2 e3@2 f3@17 ~]/7",
  AD: "[a2@3 ~ a2@5 ~ a2@2 b2@2 c3@9 ~ c3@2 c3@2 e3@2 d3@9 ~ d3@2 d3@2 e3@2 f3@9 ~ a2@5 ~ a2@2]/4",
  AE: "e2@5 ~ e2@2 a2@5 ~ a2@2", AF: "a2@3 ~ g2@3 ~ f2@5 ~ f2@2", AG: "c2@3 ~ f2@2 g2@2 a2@5 ~ a2@2",
  AH: "e2@3 ~ e2@3 ~@9",
})).s("gm_electric_bass_finger").gain(0.56)

// chords · electric guitar jazz · "Staff-4"
const electric_guitar_jazz = note(`<
  ~ A B C@2 A B D@2 E@2 F@2 G H@2 I J@2 K@2 L M@2 ~ N O P@4 Q@3 R@2 S T@3 U@4 V@4 W X Y Z W X AA AB AC AD@2 AE@2 AF@2
  AG@2 AH M@2 ~ N O AI@4 AJ@2 AK@2 AL@2 AM AN AO AP AQ ~
>`.pickRestart({
  A: "~@2 [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [a4,c5] [c4,e4,g4,b4]", B: "~ [c4,e4,g4,a4]@7",
  C: "[~@2 [c4,f4,a4]@2 [c4,b4] ~ [c4,a4,c5] [c4,f4,a4]@7 ~@2, ~@2 g4 ~@5]/2", // F Cmaj7 F
  D: "[~@2 [c4,f4,a4]@2 [c4,g4,b4]@2 [c4,a4,c5] [c4,f4,a4]@7 ~@2]/2", // F Cmaj7 F
  E: "[[a3,c4,e4]@2 [c4,e4,a4] [c4,e4,g4,b4]@2 [e4,c5]@2 [d4,b4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] ~]/2", // Am Cmaj7 C G Am
  F: "[[a3,c4,e4] [c4,e4,a4]@2 [c4,e4,g4,b4]@4 [c4,e4,a4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] [a3,e4]]/2", // Am Cmaj7 Am A5
  G: "[a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] [e4,a4,c5] [e4,a4,c5]@3", // Am
  H: "[[d4,b4] [e4,c5] [d4,b4] [c4,a4]@2 d4 eb4 e4@5 [d4,b4]@4]/2", I: "[e4,c5] [f4,d5]",
  J: "[[a3,c4,e4] [c4,e4,a4]@3 [c4,e4,g4,b4]@2 [e4,c5] [d4,b4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] ~]/2", // Am Cmaj7 C G Am
  K: "[[a3,c4,e4] [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [c4,e4,g4,c5]@2 [c4,e4,a4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] e4]/2", // Am Cmaj7 C Am
  L: "[a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] [e4,c5] [e4,c5]@2 [e4,c5]", // Am C
  M: "[[d4,b4] [e4,c5] [d4,b4] [c4,a4]@2 d4 eb4 e4@9]/2", N: "~@2 [a3,c4,e4]@3 [a3,c4,e4]@2 ~",
  O: "[c4,e4]@2 [a3,c4,e4]@3 [c4,e4]@2 ~", // C Am C
  P: "[~@2 [a3,c4,e4]@3 [c4,e4]@2 ~@2 e5!3 [ab4,b4,e5]@2 [ab4,b4,e5] [e4,a4,d5]@2 [e4,a4,c5] [e4,a4,c5]@4 b4 c5@3 [c4,e4,a4]@3 [c4,e4,a4]@3, ~@7 [a3,c4,f4]@5 ~@20]/4", // Am C E Dsus2 Am F
  Q: "[~@2 [a3,c4,e4]@3 [a3,c4,e4]!2 [a3,c4,f4]@2 f3 [a3,c4] [a3,c4,e4]!2 [c4,e4] [c4,e4,a4] [c4,e4,g4,b4]@3 [e4,c5] [d4,b4]@3 [e4,a4,c5] [c4,e4,a4]]/3", // Am F Am C Am Cmaj7 C G …
  R: "[~ [e4,a4,c5] [c4,e4,a4] ~ [a3,c4,e4] [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [c4,e4,g4,c5]@2 [c4,e4,a4]@3 [e4,a4,c5] [c4,e4,a4]]/2", // Am Cmaj7 C Am
  S: "~ [e4,a4,c5] [c4,e4,a4] ~ [a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4]", // Am
  T: "[[e4,c5] [e4,c5]@2 [e4,c5] [d4,b4] [e4,c5] [d4,b4] [c4,a4]@2 d4 eb4 e4@9 ~@4]/3", // C G C G F
  U: "[~@6 [a3,c4,e4]@3 [a3,c4,e4]@2 ~ [c4,e4]@2 [a3,c4,e4]@3 [c4,e4]@2 ~@3 [a3,c4,e4]@3 [c4,e4]@2 [a3,c4,f4]@2 e5!3]/4", // Am C Am C Am C F
  V: "[[ab4,b4,e5]@2 [ab4,b4,e5] [e4,a4,d5]@2 [e4,a4,c5] [e4,a4,c5]@4 b4 c5@3 [c4,e4,a4]@3 [c4,e4,a4]@3 ~@2 [a3,c4,e4]@3 [a3,c4,e4]!2 [a3,c4,f4]@2 f3 [a3,c4] [a3,c4,e4]]/4", // E Dsus2 Am F Am
  W: "[c4,e4,a4]@2 [e4,a4,c5]@2 [c4,e4]@3 [e4,a4]", X: "~ [c4,e4,a4]@3 [d4,f4]@2 [c4,e4]@2",
  Y: "[a3,c4,f4]@2 [e4,a4,c5]@2 [c4,e4]@3 [e4,a4]", Z: "~ [e4,a4,c5]@3 [e4,g4]@2 [c4,e4]@2",
  AA: "[a3,c4,f4] [e4,a4,c5] [c4,e4] [e4,a4]", AB: "[a4,c5,e5] [b4,d5,g5]", AC: "[c5,e5,a5] [d5,g5,b5]",
  AD: "[~@2 [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [a4,c5] [c4,e4,g4,b4]@2 [c4,e4,g4,a4]@7]/2", // Am Cmaj7 Am Cmaj7 Am7
  AE: "[~@2 [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [a4,c5] [c4,e4,a4]@9]/2", // Am Cmaj7 Am
  AF: "[[a3,c4,e4]@2 [c4,e4,a4] [c4,e4,g4,b4]@3 [e4,c5] [d4,b4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] ~]/2", // Am Cmaj7 C G Am
  AG: "[[a3,c4,e4] [c4,e4,a4]@2 [c4,e4,g4,b4]@2 [c4,e4,g4,c5]@2 [c4,e4,a4]@3 [e4,a4,c5] [c4,e4,a4] ~ [e4,a4,c5] [c4,e4,a4] ~]/2", // Am Cmaj7 C Am
  AH: "[a3,c4,e4] [a3,c4,e4]@2 [a3,c4,e4] [e4,c5]@3 [e4,c5]", // Am C
  AI: "[~@2 [a3,c4,e4]@3 [c4,e4]@2 [a3,c4,f4]@2 e5!3 [ab4,b4,e5]@2 [ab4,b4,e5] [e4,a4,d5]@2 [e4,a4,c5] [e4,a4,c5]@4 b4 c5@3 [c4,e4,a4]@3 [c4,e4,a4]@3]/4", // Am C F E Dsus2 Am
  AJ: "[~@2 [a3,c4,e4]@3 [a3,c4,e4]!2 [a3,c4,f4]@2 [a4,c5,e5]!2 [b4,e5,ab5]@2 e5 d5 c5, ~@7 [e4,ab4]]/2", // Am F Am E
  AK: "[[e4,a4]@2 [e4,a4]@3 a3 b3 c4@3 [c4,e4,a4]@3 [c4,e4,a4]@3]/2", // A5 Am
  AL: "[~@2 [a3,c4,e4]@3 [a3,c4,e4]!2 [a3,c4,f4]@2 f3 [a3,c4] [a3,c4,e4] [c4,e4,a4]@2 [e4,a4,c5]@2]/2", // Am F Am
  AM: "[c4,e4]@3 [e4,a4] ~ [c4,e4,a4]@3", AN: "~ e5 d5 c5 [a3,c4,f4]@2 [e4,a4,c5]@2, [d4,f4] [c4,e4] ~@2",
  AO: "[c4,e4]@3 ~ c5@4, ~@3 [e4,a4]@5", AP: "[c4,e4,a4] [c4,e4,g4,b4]@3 [c4,e4,a4]@2 [e4,a4,c5]@2",
  AQ: "[c4,e4]@3 [e4,a4] ~@4", // C A5
})).s("gm_electric_guitar_jazz").gain(0.48)

// chords · string ensemble 1 · "Staff-5"
const string_ensemble_1 = note(`<
  ~ A@2 B@2 A@2 B@2 A@2 B@2 A@2 C@2 A@2 B@2 A@2 C@2 D@7 E@6 F@6 G@4 A@2 B@2 A@2 H@2 I A@2 B@2 A@2 B@2 A@2 C@2 D@7 J@8
  K@3
>`.pickRestart({
  A: "[e3,a3,c4]/2", B: "[f3,a3,c4]/2", C: "[e3,ab3,b3,d4]/2",
  D: "[[e3,a3,c4]@7 [e3,g3,a3,c4]@8 [e3,a3,c4]@8 [c3,f3,a3]@5 [b2,e3,ab3]@3 [e3,a3,c4]@8 [e3,g3,a3,c4]@8 [e3,a3,c4]@9]/7", // Am Am7 Am F E Am Am7 Am
  E: "[~ [e3,a3,c4]@4 [f3,a3,c4]@4 [e3,a3,c4]@3]/6", // Am F Am
  F: "[~@4 [e3,ab3,b3,d4]@16 [e3,a3,c4]@7 [e3,g3,a3,c4]@8 [e3,a3,c4]@8 [c3,f3,a3]@5]/6", // E7 Am Am7 Am F
  G: "[[b2,e3,ab3]@3 [e3,a3,c4]@8 [e3,g3,a3,c4]@8 [e3,a3,c4]@13]/4", H: "[[f3,a3,c4]@3 [g3,b3,d4]]/2",
  I: "[f3,a3,c4] [g3,b3,d4]", // F G
  J: "[~@4 [e3,ab3,b3]@3 [e3,a3,c4]@8 [e3,g3,a3,c4]@8 [e3,a3,c4]@13 [e3,a3,c4]@16 [f3,a3,c4]@12]/8", // E Am Am7 Am F
  K: "[~ [e3,a3,c4]@4 ~]/3", // Am
})).s("gm_string_ensemble_1").gain(0.48)

// other · overdriven guitar · "Staff-2"
const overdriven_guitar = note(`<
  ~@14 A@3 ~@5 A@3 B C@7 ~@5 D@6 E@4 F G H I J G K L M N@2 O ~@6 A@3 B P@7 Q@4 ~@6
>`.pickRestart({
  A: "[~@10 d3@2 eb3@2 e3@33 ~]/3", B: "~@4 a2@10 a2 b2",
  C: "[c3@13 ~ d3@16 f2@9 ~ g2@5 ~ a2@13 ~ b2@2 c3@15 ~ d3@15 ~ f2@9 ~@9]/7",
  D: "[~@2 d3@2 eb3@2 e3@33 ~@5 a2@10 a2 b2 c3@13 ~ d3@16 f2@9 ~]/6",
  E: "[g2@5 ~ a2@13 ~ b2@2 c3@15 ~ d3@15 ~ f2@9 ~]/4", F: "~@2 c4@2 a3 g3 e3 c4",
  G: "~@2 a3@4 g3 a3 c4 a3 c4@2 a3@2 g3@2", H: "~@4 c4@3 ~ a3@2 g3@2 e3@2 d4@2",
  I: "~@2 c4@3 ~ g3 a3 c4 a3 c4@2 a3@2 g3@2", J: "~@4 c4@3 ~ a3@2 g3@2 e3@2 c4@2", K: "~@4 c4@3 ~ a3@2 g3@2 d4@2 c4@2",
  L: "a4 b4", M: "c5 d5", N: "[[c5,e5]@23 ~@3 e4@2 d4@2 c4@2]/2", O: "a3@15 ~",
  P: "[c3@13 ~ d3@16 f2@9 ~ g2@5 ~ a2@13 ~ b2@2 c3@15 ~ d3@15 ~ f2@9 ~ e2@7 ~]/7",
  Q: "[a2@10 a2@2 b2@2 c3@15 ~ d3@15 ~ f2@9 ~@9]/4",
})).s("gm_overdriven_guitar").gain(0.56)

// chords · acoustic guitar steel · "Staff-7"
const acoustic_guitar_steel = note("<~@23 A@2 ~@13 B@3 ~@26 A@2 ~@18>".pickRestart({
  A: "[~ a3 b3 ~ [a3,b3] gb3 [ab3,b3,d4]@10, ~@3 d4@2 ~@11]/2", // Asus2 Abdim
  B: "[~@5 a3 b3 ~ [a3,b3] gb3 [ab3,b3,d4]@10 ~@4, ~@7 d4@2 ~@15]/3", // Asus2 Abdim
})).s("gm_acoustic_guitar_steel").gain(0.48)

// other · rock organ · "Staff-8"
const rock_organ = note(`<
  ~@8 A B@2 C@2 D E@2 ~ F@2 C@2 G H@2 I J K L M@2 K N O@2 P@2 Q R@2 S T@2 U V W@2 X Y ~@12 A Z@2 C@2 AA E@2 AB AC I N
  M@2 K AD@2 AE K AF N ~@6
>`.pickRestart({
  A: "~@7 e5", B: "[e5@2 a5 b5@2 c6@2 b5@2 a5@5 ~@2]/2", C: "[e5 a5@2 b5@2 c6@2 a5@5 ~@4]/2", D: "e5 e5@2 e5 c6 c6@3",
  E: "[b5 c6 b5 a5@2 d5 eb5 e5@5 ~@4]/2", F: "[e5 a5@2 b5@3 c6 b5@2 a5@3 ~@4]/2", G: "e5 e5@2 e5 c6@3 c6",
  H: "[b5 c6 b5 a5@3 eb5 e5@5 ~@4]/2", I: "~ e6 d6 c6 d6@2 e6 d6", J: "~ c6 a5@14", K: "~@6 e6 d6",
  L: "~ c6 a5@6 ~@2 c6 d6 c6@4", M: "[~ e6!3 ab6 e6!2 d6@2 c6 c6@6]/2", N: "~ c6 a5@6 ~@8",
  O: "[~@4 e5!2 a5 b5@3 c6 b5@2 a5@3]/2", P: "[~@4 e5 a5@2 b5@2 c6@2 a5@5]/2", Q: "~@3 e5 b5 c6@3",
  R: "[d6@2 c6 b5@2 c6 b5 a5@2 d5 eb5 e5@5]/2", S: "~@5 e6 d6 c6",
  T: "[d6@2 c6@2 e6@2 d6@3 c6 a5@14 ~@2 e6@2 d6@2 c6@2]/2", U: "d6@4 e6@2 d6@3 c6 a5@6", V: "~@5 e6!3",
  W: "[ab6 e6!2 d6@2 c6 c6@6 ~@4]/2", X: "~@4 e6@2 d6@3 c6 a5@6", Y: "~@2 e6@2 e6@2 d6@3 c6 a5@6",
  Z: "[e5@2 a5 b5@3 c6 b5@2 a5@3 ~@4]/2", AA: "e5 e5@2 e5 c6@3 ~", AB: "~@4 d6@2 c6@2 d6@2 c6@2 e6 d6@3",
  AC: "d6 c6 a5@14", AD: "[~ c6 a5@6 ~@2 e6@2 e6@2 d6@4 e6@2 e6@2 ab6@4 e6@2 d6@2 c6@2]/2", AE: "d6 c6 c6@6",
  AF: "~ c6 a5@6 ~@2 e6@2 e6@2 d6@2",
})).s("gm_rock_organ").gain(0.48).pan(0.3)

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

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

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

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

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

stack(
  bass, electric_guitar_jazz, string_ensemble_1, overdriven_guitar, acoustic_guitar_steel, rock_organ, kick, snare,
  hihat, open_hat, crash
)