// Mother Nature's Son — The Beatles
// 168 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: pitch bends are ignored
// note: Full arrangement: all 117 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(168/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 · acoustic guitar steel · "Mother Natures Son"
const acoustic_guitar_steel = note(`<
  A@6 B C D E F G H I J K L M N O P Q R S T U V W X@2 V Y X@2 J K L M N O P Z S T S@2 V Y X@2 AA AB AC AD AA AB AC AE AF
  AG AH AI AJ AK AL AM AN AO AP AQ AR AS AT AU AV AW AX AY AZ BA BB BC BD BE BF BC BD BE BF AF AG AH AI BG AK AL J K L M
  N O P AT BH BI BJ BK V BL X@2 V BL BM BN@2
>`.pickRestart({
  A: "[~@67 e2@29, ~@4 b3@21 a3@21 g#3@21 ~@29, ~@5 [d4,f#4]@7 [d4,f#4]@7 [d4,f#4]@7 ~@6]/6", // D
  B: "~@2 [a3,d4]!2 [a3,d4,f#4]@2 [a3,d4,f#4]@2, a4@3 ~@5, ~ f#4 ~@2", // D5 D
  C: "g4@2 [b3,d4] d4 [b3,d4,g4]@2 [b3,d4,g4]@2, ~ g4 ~@2", D: "~@2 [b3,d4,g4]@2 b3!2 [b3,d4,g4]@2, e4@11 ~@5",
  E: "g4 ~ d4@2 [a3,d4]@2 [a3,d4]@2, ~@2 f#4@13 ~, ~@2 a3 ~@5", // D5
  F: "e4 ~ [a3,d4] a3 d4 [a3,d4] [a3,d4]@2, ~@2 f#4@11 ~@3", // D5
  G: "f#4 ~ [a3,b3,d4] ~ [a3,b3,d4] [b3,d4] [a3,b3,d4]@2, ~@2 g4@7 ~@7", // Bm7 Bm Bm7
  H: "e4@2 ~@6 [a3,d4]@4 ~@2 e4 ~, ~ f#4@2 f#4@4 ~, ~ [a3,d4] ~ [a3,d4]", // D5
  I: "~@2 [a3,d4]@2 [a3,d4]!2 [a3,d4]@2, e4 ~@3, ~ f#4@7", J: "~@2 [a3,d4]@2 a3!2 [a3,d4]@2, f#4@13 ~@3, ~@2 d4 ~",
  K: "f#4 ~ [b3,d4]@2 [b3,d4]@2 [b3,d4]@2, ~@2 g4@13 ~", L: "d4@2 b3!2 [b3,d4]@2 ~ g4, g4@7 ~, ~ d4 ~ [b3,d4]",
  M: "~ [a3,d4]!2 d4, f#4@7 ~", N: "~@2 [d4,f#4]@2 ~ b3 [b3,d4,f#4]@2, b3@5 ~@3, ~@2 [d4,f#4] ~",
  O: "~ [d4,f#4] f#4 [d4,f#4], a3, ~@4 d4 ~@3", P: "~@2 [d4,f#4]@2 d4!2 [d4,f#4]@2, g#3@15 ~, ~@2 f#4 ~",
  Q: "~@2 [g#3,b3,f#4]@2 g#3!2 [g#3,b3,f#4]@2, e2, ~@2 [b3,f#4] ~", // G#m7 B5
  R: "a2 [a2,a4] ~ [a2,a3,b3,d4,a4], c#4@3 ~, e3@5 e3@3, a3@2 [a2,a3] ~", // A Bm7 A
  S: "~ [e3,a4] d4 [d4,a4], [a2,a3,c#4] [a2,b3]", T: "a2 [a2,e3,a4] d4 [d4,a4], [a3,c#4] [a2,b3]",
  U: "~@2 [e3,a4]@2 d4@2 [d4,a4] ~, [a2,a3,c#4] a2, ~@4 b3@3 ~", // A5 D5 A
  V: "a3@2 [d3,a3]@2 ~ g4 [d3,a3]@2, f#4@5 ~ f#4 ~, ~@2 a3 ~", W: "~@2 [d3,a3]@2 ~ g4 a4 g4, f4@5 ~@3, ~@2 [d3,a3]!2",
  X: "[~@4 [d3,b3]@4 ~@2 a4@2 g4@4 ~@4 [d3,a3]@4 d3@2 d3 ~ [d3,a3]@4, g4@10 ~@6 f#4@15 ~, ~@2 [d3,b3] [d3,b3]@2 ~ a3 ~]/2", // G D5 G
  Y: "~@2 [d3,a3]@2 ~ g4 [d3,a3,a4]@2, f4@5 ~@3, ~@2 [d3,a3] ~", Z: "e2@4 g#2@4 b2@3 ~ e3@3 ~, ~@4 g2 ~@11",
  AA: "[f#4,a4] [a3,d4] d4 [a3,d4], ~ f#4", AB: "[e4,g4] [a3,d4,f#4] [a3,f#4,a4] f#4",
  AC: "~@2 [b3,d4]@2 b3 ~ [b3,d4]@2, [g4,b4]@7 ~ [e4,g4]@6 ~@2", AD: "[f#4,a4]@4 [a3,d4]@4 [a3,d4]@2 d4 ~ [a3,d4]@3 ~",
  AE: "~@2 [f#3,a3,d4]!3 ~ [f#3,a3,d4]@2, f#4@15 ~, a4@5 [f#3,a3,d4,b4] ~@2, ~@11 a4@2 ~@3", // D Bm7
  AF: "[c#4,f#4,a4]@2 [c#4,f#4,a4] [f#4,a4] a4 b4 a4 ~, ~ [c#4,f#4]", // F#m F#5
  AG: "[c4,a4]@4 [c4,a4]@2 a4@2 ~@2 b4 ~ [c4,a4]@4, ~@2 [c4,a4] ~", AH: "[f#4,a4]!2, a3",
  AI: "[b3,d4,g4]@2 g4 g4@2 a4 g4@2, ~ [b3,d4]@3", // G Bm
  AJ: "[a#3,d4,g4]@2 [a#3,d4,g4] [d4,g4] [a#3,d4,g4] a4 g4@2, ~@5 [a#3,d4]@3", // Gm G5 Gm A#
  AK: "~@2 a3!2 [a3,d4]@2 [a3,d4]@2, f#4, ~ d4 ~@2", AL: "~ [f#3,a3,d4]!3, f#4",
  AM: "~ d4 [a3,d4] d4, f#4, ~@4 f#3 ~@3", AN: "~ [b3,d4]!2 [g3,b3,d4], g4, ~@4 g3 ~@3",
  AO: "~@2 [b3,d4] ~ [b3,d4] b3 [b3,d4]@2, g4", AP: "~ [a3,d4] a3 [a3,d4], f#4",
  AQ: "~@2 d4!2 [d4,f#4]@2 [d4,f#4]@2, b3, ~ f#4 ~@2", AR: "~@2 [d4,f#4]@2 d4!2 [d4,f#4]@2, a3, ~@2 f#4 ~",
  AS: "~ [d4,f#4] f#4 [d4,f#4], g#3, ~@4 d4 ~@3", AT: "e2@3 ~ [g2,g#2] ~@3 b2@2 ~@2 e3@2 ~@2",
  AU: "~@3 e3 [f#3,a3] a3 ~ a3, a2@7 ~ a2@8, ~ [a3,c#4] ~ d4", AV: "~ [e3,a3,c#4] [e3,a3] [f#3,a3,d4], a2!2",
  AW: "[e3,a3] a3 ~ a3, [a2,c#4] [a2,b3,d4], ~ e3@2 ~", AX: "e3@2 a4@2 c#4!2 c#4@2, [a2,g3,c#4,e4] [a2,g3,a3,e4]",
  AY: "f#4@4 [a3,d4,f#4]@2 a3@2 ~@3 g4 f#4@4, ~@3 d4@5, ~@6 f#4@5 ~@5, ~@8 a3@7 ~", AZ: "[a3,d4]!3 [a3,d4,a4], f4 ~",
  BA: "~@4 b3@2 b3@2 [g3,b3,d4]@3 a4 [g3,b3,d4,g4]@4, g4@5 ~@3, ~ [g3,d4] ~@2", BB: "~ [a3,d4]!3, f#4",
  BC: "[a3,f#4,a4] a3 [d4,f#4] a3", BD: "[e4,g4] a3 [f#4,a4] a3", BE: "[g4,b4] b3 [d4,g4] b3",
  BF: "[d4,f#4,a4]@4 a4@2 a4@2 a4@2 b4 ~ [d4,f#4,a4]@4, a3@3 ~, ~ [d4,f#4]!2 ~", // D
  BG: "[a#3,d4,g4]@2 [a#3,d4,g4] ~ [a#3,d4,g4] a4 g4@2, ~@5 [a#3,d4]@3", BH: "[c#4,e4] a3 [b3,d4] a3, a2!2",
  BI: "~@2 [g3,b3] e3, a2!2, [a3,c#4]@3 ~@5, ~@4 e3@7 ~@5", BJ: "[a2,f#3,a3] a2 [a2,e3,g3] a2",
  BK: "[a2,d3,f#3] ~ [c#3,e3] a2, ~ a2@2 ~", BL: "~ [d3,a3] ~ [d3,a3], f4@5 g4 ~@2, ~@8 [d3,a3]@3 a4@5",
  BM: "~@2 [d3,b3]@2 ~ a4 [a#3,g4]@2, g4@5 ~@3, ~@2 [d3,b3] ~", BN: "[c3@5 ~@3, f#4@17 ~@15]/2",
})).s("gm_acoustic_guitar_steel").gain(0.48)

// chords · acoustic guitar steel · "Mother Natures Son" · soft notes
const acoustic_guitar_steel_2 = note(`<
  ~@6 A B C D E F ~@5 G ~ H ~@6 I ~@3 I J ~@5 G ~ H ~ K ~@4 I J ~@3 L M N ~ L M ~ O P Q ~ R ~@2 S T U C ~@2 H K V W ~@3
  X ~@10 O P Q ~ Y ~@5 G ~ H ~ K ~@4 I J ~@2 I J ~@3
>`.pickRestart({
  A: "~@5 f#3 ~@2", B: "~@3 b3 ~@4", C: "~@2 d4 ~", D: "~@7 a3 ~@8", E: "~@3 d4 a3 ~@3", F: "~@3 [a3,b3,d4] ~ a3 ~@2",
  G: "~@3 a3", H: "~@5 d4 ~@2", I: "~@2 d3 ~", J: "~@11 g#4@2 ~@3", K: "~@4 f#2 ~@11", L: "~@3 [a3,d4]",
  M: "~@5 b3 ~@2", N: "~@10 a3 ~@5", O: "~@3 c#4 ~@4", P: "~@3 c4 ~@4", Q: "~ d4", R: "~@3 a#3 ~@4",
  S: "~@2 [f#3,a3]@2 ~ f#3 [f#3,a3]@2", T: "~@2 g3@2 ~ g3 ~@2", U: "~@3 [b3,d4] ~ d4 ~@2", V: "~@5 f#3@3",
  W: "[e3,a3] ~@3", X: "~@10 g4!2 g#4 ~@3", Y: "~@3 [a#3,d4,g4] ~@4",
})).s("gm_acoustic_guitar_steel").gain(0.32)

// chords · brass section
const brass_section = note("<~@30 A@4 B C@2 B D E F ~@5 G H I G ~@27 G H I G ~@4 J@3 K L M N O@2 ~@23>".pickRestart({
  A: "d4/4", B: "[a3,d4,f#4]", C: "[b3,d4,g4]/2", D: "[b3,f#4]", E: "[a3,b3,f#4]", F: "[g#3,b3,f#4]", G: "[d4,f#4]",
  H: "[d4,f4]", I: "[d4,g4]", J: "d5/3", K: "d5", L: "c#5", M: "c5", N: "b4 a4", O: "[g4@31 ~]/2",
})).s("gm_brass_section").gain(0.1)

// chords · trombone · "Matthew Johnson"
const trombone = note(`<
  ~@41 A B@3 C D@4 E F G H E F G I J K@2 L M N@2 O P@2 Q R S T@2 U@3 V D@4 E F G H W X Y Z J AA@2 AB AC AD@2 ~@16 AE@3
  AF ~
>`.pickRestart({
  A: "e2 ~ g#2 ~ b2 ~ e3 ~, ~@4 f#2 ~@11", B: "[a3,c#4] [a3,d4]", C: "[a3,c#4]@8 d4@7 ~", D: "d2/4",
  E: "[f#4,a4] [d4,f#4], d2 ~@7 d2@2 ~@6", F: "[e4,g4] [f#4,a4], d2 ~@3 d2 ~@3", G: "[g4,b4] [e4,g4], d2 ~@3 d2 ~@3",
  H: "d2 ~@3 d2 ~@3, [f#4,a4]", I: "[d4,f#4,a4]", J: "[c#4,f#4,a4]", K: "[c4, f#4@15 ~, a4@7 ~]/2", L: "[g3,b3]",
  M: "[g3,a#3]", N: "[d3,f#3,a3]/2", O: "[d4,f#4]", P: "[d4,g4]", Q: "[d4,f#4]@3 ~", R: "[b3,d4,f#4]", S: "[a3,d4,f#4]",
  T: "[g#3@16 e2 ~@3 g#2 ~@3 b2@2 ~@2 e3 ~@3, [d4,f#4]@19 ~@13]/2", U: "[c#4,e4] [d4,f#4]", V: "[c#4,e4,g4]",
  W: "[f#4,a4]@2 a4 g4, d2 ~@7 [d4,f#4]@8, ~@4 d2 ~@3", X: "[e4,f#4] e4 d4 [f#4,b4], g4 a4, d2 ~@3 d2 ~@3",
  Y: "d2 ~ a4@2 b4@2 g4@2, g4 e4, ~@4 d2 ~@3", Z: "d2 ~@3 d2 ~@3, [d4,f#4,a4]",
  AA: "[c4@2 ~ f#4, [f#4,a4]@3 ~, ~ d4]/2", AB: "[b3,d4]", AC: "[a#3,d4]", AD: "[[a3,d4,f#4,a4]@27 ~@5]/2", AE: "d4/3",
  AF: "[a3,c4]", // Am
})).s("gm_trombone").gain(0.53)

// chords · acoustic guitar steel
const acoustic_guitar_steel_3 = note("<~@96 A B@2 C D E F G H I J K L@2 M N O P Q R ~>".pickRestart({
  A: "f#3 a3 f#3 a3", B: "g3 a3 g3 a3", C: "f#3@2 ~@2 [g#3,a3]@2 ~@2 d4@5 ~@3", D: "[b4,d5]@7 ~ [b4,d5]@7 ~",
  E: "[a4,c#5]@6 ~@2 [a4,c#5]@3 ~ [g#4,b4]@2 ~@2, ~@8 d5 ~@7", F: "[g#4,b4]", G: "e2 ~ g#2 ~ b2 ~ e3 ~",
  H: "e4 a3 d4 a3", I: "~ a3 b3 a3, c#4@7 ~@9", J: "a3@4 ~@4 g3@5 ~@3",
  K: "f#3@5 ~@3 [e3,f#3]@2 [d3,g3]@2 [b2,f#3]@2 [a2,e3]@2", // Esus2 G5 B5 A5
  L: "[~@4 a2@2 ~@3 f#3@2 ~ [a2,a3]@2 ~@2 [d4,f4,a4]@4 a2@2 ~@2 [a3,f4]@5 ~@3, d3@4 ~@3 a2@3 ~ a2@3 ~@2, ~@24 d4@3 ~@5]/2", // A Dm
  M: "[d4,g4,b4]@4 ~@4 [b3,e4,g4]@3 ~@5, g2@7 ~ a2@6 ~@2, ~@8 g#2 ~@7", N: "[f#4,a4,d5]@9 ~@7, d2@15 ~",
  O: "a3@2 [d3,a3]@2 ~ g4 [d3,a3]@2, d2, f#4@5 ~ f#4 ~, ~@2 a3 ~", // D5
  P: "~ [d3,a3] ~ a3, f2, f4@5 g4 ~@2, ~@8 [d3,a3]@3 a4@5", // D5
  Q: "~@2 [d3,b3]@2 ~ a4 [d3,b3,g4]@2, e2, g4@5 ~@3, ~@2 [d3,b3] ~", R: "[d2,a3,f#4]",
})).s("gm_acoustic_guitar_steel").gain(0.36).pan(0.9)

// chords · acoustic guitar steel · soft notes
const acoustic_guitar_steel_4 = note("<~@101 A ~@5 B C ~ D ~ E F ~@3>".pickRestart({
  A: "~@7 [b4,c#5] ~@8", B: "~@4 [d3,d#3] ~@3", C: "~@6 a2@2 [d#3,e3] ~@7", D: "~@7 g2 ~@8", E: "~@2 d3 ~",
  F: "~@3 d3, ~@11 g#4@2 ~@3",
})).s("gm_acoustic_guitar_steel").gain(0.2).pan(0.9)

// drums · kick
const kick = s("bd").struct("<~@50 A@7 B@7 ~@17 A@7 B@3 C B@3 D ~@21>".pickRestart({
  A: "x!2", B: "x", C: "x!2 ~@2", D: "x!2 ~ x ~ x!2 ~",
})).gain(0.25)

// drums · bongos
const bongos = s("bongo:4").struct("<~@65 [~ x]!7 ~@45>").gain(0.8)

// drums · congas
const congas = s("conga:13").struct("<~@42 [x!4]!4 ~@3 [x!4]!9 ~@23 [x!4]!8 ~@28>").gain(0.97)

// drums · congas
const congas_2 = s("conga:33").struct("<~@14 [~ x]!24 ~@53 [~ x!3]!4 ~@22>").gain(0.97)

// drums · woodblocks
const woodblocks = s("woodblock:4").struct("<~@88 [~ x!3] [x!4]!2 ~@26>").gain(0.37)

stack(
  acoustic_guitar_steel, acoustic_guitar_steel_2, brass_section, trombone, acoustic_guitar_steel_3,
  acoustic_guitar_steel_4, kick, bongos, congas, congas_2, woodblocks
)