// I Feel Fine — The Beatles
// 190 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: Full arrangement: all 112 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Overdrive Gtr, Gtr Harmonics.
setcpm(190/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 · rock organ · "Rock Organ Lead"
const rock_organ = note(`<
  ~@12 A@5 ~ B@2 C ~ A@5 ~ B@2 C ~ D E F G D E H@7 ~ B@2 I J ~@14 A@5 ~ B@2 C ~ D E F G D E H@7 ~ B@2 C ~ B@2 C K J ~@2
  K J ~@2 K J ~@2 K J ~@3
>`.pickRestart({
  A: "[d5@4 f5@4 c5@4 b4@3 c5@5 b4@3 c5@4 c5@4 d5@4 f5@4 c5@4 b4@4 c5@5 b4@3 c5@4 c5@4 d5@5 d5@4 ~@8]/5",
  B: "[[d5,f#5,a5]@4 [d5,f#5,a5]@4 [d5,f#5,a5]@4 [d5,f#5,a5]@3 [c5,e5,g5]@5 [c5,e5,g5]@3 [a#4,d5,f5]@4 [c5,e5,g5] [a#4,d5,f5]@4]/2", // D C A# C A#
  C: "[g4,b4,d5]", D: "[b4,d5,g5]!2", E: "d5@3 d5, [b4,f#5]", F: "c5@4 ~@4 d5@3 e5@4 d5, g5, ~ c5@3",
  G: "e5@3 d5@13, [a4,f#5]", // D
  H: "[[c5,e5]@3 ~@4 a4@5 g4@3 ~@9 b4@3 c5@4 d5@5 f5@4 c5@4 b4@3 c5@5 b4@3 c5@4 c5@4 d5@4 f5@4 c5@4 b4@4 c5@5 b4@3 c5@4 c5@4 d5@5 d5@4 ~@8, g5@15 f#4@9 ~@88, ~@3 c5@13 [a4,f#5]@16 ~@80]/7", // C D
  I: "[b4,d5]@15 c5, g4@3 ~", J: "d5", K: "~@15 c5",
})).s("gm_rock_organ").gain(0.68).pan(0.4)

// other · electric guitar muted · "Muted Gtr Lead 1"
const electric_guitar_muted = note(`<
  A@4 B@2 C@2 D@8 B@2 E@4 D@4 B@2 F@4 G H I J G H K L D@4 B@2 F@4 M@4 N@2 B@2 C@2 D@8 B@2 F@4 G H I J G H K L D@4 B@2
  F@4 O@2 D@18
>`.pickRestart({
  A: "[~@13 a2@51]/4", B: "[d3@4 d4@4 d4@3 c4 a3@3 g4@4 f#4@4 e4@4 f#4 e4@4]/2",
  C: "[c3@4 c4@4 c4@3 a#3 g3@3 f4@4 e4@4 d4@4 e4 d4@4]/2", D: "[g2@4 g3@4 g3@3 f3 d3@3 c4@4 b3@4 a3@4 b3 a3@4]/2",
  E: "[d3@3 ~ d4@3 ~ a3@7 [c3,g3,c4,e4]@5 [c3,g3,c4,e4]@4 c3@3 f3@3 ~ g2@5 g3@7 f3 d3@3 c4@4 b3@4 a3@4 b3 a3@4]/4", // C
  F: "[d3@3 ~ d4@3 ~ a3@7 [c3,g3,c4,e4]@5 [c3,g3,c4,e4]@4 c3@3 f3@3 ~ g2@5 g3@4 g3@3 f3 d3@3 c4@4 b3@4 a3@4 b3 a3@4]/4", // C
  G: "g2@4 g3@3 d3 g2@3 b3 ~@4", H: "b2@4 b3@3 f#3 b2@3 b3 ~@4", I: "c3@4 g3@3 e3 b3@3 b3 ~@4",
  J: "d3@4 a3@3 f#3 d3@3 a3 ~@4", K: "~@4 [a2,e3,a3]@4 [a2,e3,a3]@3 [a2,e3,a3]@4 [a2,e3,a3]",
  L: "[d3,f#3,c4,d4]@4 [d3,f#3,c4,d4]@3 [d3,f#3,c4,d4] [d3,f#3,c4,d4]@3 [d3,f#3,c4,d4] ~@4", // D7
  M: "[g2@4 g3@4 g3@3 f3 d3@3 c4@4 b3@4 a3@4 b3 a3@3 b3]/2", N: "[d3@4 d4@4 d4@3 f#4@4 g4@4 f#4@4 a3@4 a3 a3@3 a3]/2",
  O: "[d3@4 [a3,d4]@4 [a3,d4]@3 [a3,d4,f#4] ~@3 [c3,g3,c4]@5 [c3,g3,c4]@4 e4@3 [g3,c4]@3 ~ d3]/2", // D5 D C5
})).s("gm_electric_guitar_muted").gain(0.45).pan(1)

// chords · electric guitar muted · "Muted Gtr Lead 2"
const electric_guitar_muted_2 = note(`<
  ~@4 A B C@2 D@4 E F E F G H G I D@2 E F E F G H G I D@2 J K L M J K L M E F E F G H G I N@2 O P O P Q@2 R@2 S@2 D@4 E
  F E F G H G I D@2 J K L M J K L M E F E F G H G I T@2 G I T@2 U@16
>`.pickRestart({
  A: "d3@3 [d3,a3]", B: "~@7 a3@4 d4@5", C: "[c3@4 [c3,g3]@7 [c3,g3] c3@3 [g3,a#3]@4 [g3,a#3]@9 [g3,a#3]@4]/2",
  D: "[d3@4 d3@7 ~ g2@3 f3@4 f3@4 d3@4 f3 d3@4, g2@11 d3@4 ~@17]/2",
  E: "[g2,d3,f3,b3]@4 [g2,d3,f3,b3]@4 [g2,d3,f3,b3]@3 [g2,d3,f3,b3]@4 [g2,d3,f3,b3]", // G7
  F: "[g2,d3,f3,b3]@4 [g2,d3,f3,b3]@4 [g2,d3,f3,b3]@3 [g2,d3,f3,b3] [g2,d3,f3,b3]@3 [g2,d3,f3,b3]", // G7
  G: "[d3,a3,c4,f#4]@4 [d3,a3,c4,f#4]@4 [d3,a3,c4,f#4]@3 [d3,a3,c4,f#4]@4 [d3,a3,c4,f#4]", // D7
  H: "[d3,a3,c4,f#4]@4 [d3,a3,c4,f#4]@4 [d3,a3,c4,f#4]@3 [d3,a3,c4,f#4] [d3,a3,c4,f#4]@3 [d3,a3,c4,f#4]", // D7
  I: "[c3,g3,a#3,e4]@4 [c3,g3,a#3,e4]@4 [c3,g3,a#3,e4]@3 [c3,g3,a#3,e4] [c3,g3,a#3,e4]@3 [c3,g3,a#3,e4]", // C7
  J: "[g2,d3,g3,b3,d4,g4]@4 [g2,d3,g3,b3,d4,g4]@3 [g2,d3,g3,b3,d4,g4]@4 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@3 [g2,d3,g3,b3,d4,g4]", // G
  K: "[b2,f#3,b3,d4,f#4]@4 [b2,f#3,b3,d4,f#4]@3 [b2,f#3,b3,d4,f#4]@4 [b2,f#3,b3,d4,f#4] [b2,f#3,b3,d4,f#4]@3 [b2,f#3,b3,d4,f#4]", // Bm
  L: "[c3,g3,c4,e4,g4]@4 [c3,g3,c4,e4,g4]@3 [c3,g3,c4,e4,g4]@4 [c3,g3,c4,e4,g4] [c3,g3,c4,e4,g4]@3 [c3,g3,c4,e4,g4]", // C
  M: "[d3,a3,d4,f#4,a4]@4 [d3,a3,d4,f#4,a4]@3 [d3,a3,d4,f#4,a4]@4 [d3,a3,d4,f#4,a4] [d3,a3,d4,f#4,a4]@3 [d3,a3,d4,f#4,a4]", // D
  N: "[d3@4 d3@7 ~ g2@3 f3@4 f3@4 d3@4 f3 d3@3 c4, g2@11 d3@4 ~@17]/2", O: "d4 f4 e4 g4, ~@8 d4 ~@7",
  P: "d4@4 f4@3 d4 c4@3 a#3 g3@3 ~, c4 ~@15",
  Q: "[~@4 d4@4 d4@3 ~@4 g4@4 f#4@4 e4@4 ~ e4@3 f#4, d3@11 c4@4 ~@12 f#4@4 ~, ~@12 a3@15 ~@5]/2",
  R: "[~@4 a3@4 ~@7 c4@4 ~@4 a3@4 [a3,c4] [a3,c4]@4, d3@12 d3@11 ~@9, ~@8 a3@7 ~@4 c4@8 ~@5]/2", // Am
  S: "[~@4 c4@7 ~@4 a#3@4 ~@4 g3@4 [g3,a#3] [g3,a#3]@4, c3@11 c4@4 ~@4 a#3@8 ~@5, ~@12 c3@11 ~@9]/2", // Gm
  T: "[d3@4 d3@7 ~ g2@3 f3@4 f3@4 d3@4 ~ d3@4, g2@11 d3@4 ~@12 f3@5]/2", U: "~@4 g3@4 ~@3 c3 d3@3 f3, g2 ~",
})).s("gm_electric_guitar_muted").gain(0.35).pan(0)

// bass · fretless bass · "Fretless E. Bass"
const bass = note(`<
  ~@9 A B@6 C@3 D B@6 C@3 D B E@2 F G H E F I J B@4 K L M N B O B@4 P@2 Q@2 ~@4 B@6 C@3 D B E@2 F G H E F I J B@4 K L M
  N B R M N S@2 ~@16
>`.pickRestart({
  A: "~@11 a2 d3@4", B: "g2@6 ~ g2 d2@6 ~ d2", C: "d2@6 ~ d2 a2@6 ~ d2", D: "c2@6 ~ c2 g2@6 ~ c2",
  E: "g2@6 ~ g2 d2@7 ~", F: "b1@6 ~ b1 f#1@7 ~", G: "c2@6 ~ c2 g1@6 ~ c2", H: "d2@6 ~ d2 a1@7 ~",
  I: "a1@6 ~ c2 e2@6 ~ c2", J: "d2@6 ~ d2 a1@2 ~@2 d2@2 ~@2", K: "d2@6 ~ d2 a1@6 ~ a1",
  L: "d2@6 ~ d2 g2@2 ~ a2 c3@2 ~ d3", M: "d2@6 ~ d2 a2@6 ~ a2", N: "c2@6 ~ c2 g2@6 ~ g2",
  O: "g1@6 ~ g1 c2@2 ~ d2 f2@2 ~ g2", P: "d2 ~ a2 ~", Q: "[d2@15 ~]/2", R: "g2@6 ~ g2 d2@4 g2@4", S: "[[d2,g2]@15 ~]/2",
})).s("gm_fretless_bass").gain(0.44).pan(0.6)

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

// drums · rim
const rim = s("rim").struct("<~@10 A@22 B@8 A@16 ~@6 A@12 B@8 A@12 ~@18>".pickRestart({
  A: "~@3 x", B: "~ x ~ x",
})).gain(0.45)

// drums · snare
const snare = s("sd").struct("<~@9 A B@22 C@8 B@16 ~@4 D E B@12 C@8 B@12 ~@18>".pickRestart({
  A: "~@11 x!2 ~@3", B: "~@3 x", C: "~ x ~ x", D: "~@4 x ~@6 x ~@4", E: "x ~@6 x ~@4 x ~@3",
})).gain(0.4)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@10 A B A B A B A B A B A B A B A B A B A B A B ~@7 C A B A B A B A B A B A B A B A@2 ~@6 A B A B A B A B A B A B ~@7
  C A B A B A B A B A B A B ~@18
>`.pickRestart({
  A: "~@4 x ~@2 x ~@8", B: "~@3 x!2 ~@2 x ~@8", C: "~@3 x",
})).gain(0.36)

// drums · crash
const crash = s("cr").struct("<~@10 A ~@29 A ~@9 A ~@3 A ~ A ~@5 A ~ A ~@7 A ~@9 A ~@11 A ~@17>".pickRestart({
  A: "x",
})).gain(0.36)

// drums · ride bell
const ride_bell = s("rd").struct(`<
  ~@10 A B C D C D C D C D C D C D C D C D C D C D@8 E A D C D C D C D C D A D C D A D ~@6 A D A D C D C D C D A D@8 E A
  D C D C D C D C D C D ~@18
>`.pickRestart({
  A: "~@4 x ~@2 x!2 ~@2 x!2 ~@3", B: "x ~@2 x!2 ~@2 x!2 ~@2 x!2 ~@3", C: "x ~@3 x ~@2 x!2 ~@2 x!2 ~@3",
  D: "x ~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2 x", E: "x ~@2 x!2 ~@2 x ~@8",
})).gain(0.31)

stack(rock_organ, electric_guitar_muted, electric_guitar_muted_2, bass, kick, rim, snare, mid_tom, crash, ride_bell)