// We Can Work It Out — The Beatles
// 102 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: Full arrangement: all 61 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(102/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 · fretless bass · "Fretless E. Bass"
const bass = note(`<
  A B C D E F G H E@2 I D E J K L M N O P Q R S T O U Q R E@2 I D E J K L M N O P Q R S T O U Q R E@2 I D E J V H W X@4
>`.pickRestart({
  A: "[d2,d3]@7 ~@3 d3@6, ~@8 d2@7 ~", B: "~ d3@3 d3 d3@3, d2@15 ~", C: "c3 c3@2 [c2,c3] ~ d3@2 a1, c2@3 ~ d2@3 ~",
  D: "d3@7 ~ d3@2 d3@4 a1@2, d2@13 ~@3", E: "[d2,d3]@7 ~ [d2,d3]@2 [d2,d3]@6",
  F: "[c2,c3] [c2,c3]@2 [c2,c3] [d2,d3]@2 [d2,d3] ~", G: "g2@3 g2 g2@2 ~@2 d2@3 d2 d2@2 ~@2",
  H: "g2@3 g2 g2@2 ~@2 a2@3 a2 a2@2 ~@2", I: "[c2,c3] [c2,c3]@3 [d2,d3] [d2,d3]@2 a1",
  J: "[c2,c3] c3@2 c3 [d2,d3]!3 ~, ~ c2@3 ~@4", K: "g2 ~ g2 ~ d2 ~ d2 ~", L: "g2!3 ~ a2 ~ a2 ~",
  M: "[b2,f#3] [b2,f#3]@3 f#2 f#2@2 f#2", N: "b2@3 b2 a2 a2@2 a2", O: "g2@2 g2@2 d2 d2@2 g2",
  P: "f#2@2 f#2@2 c#2 c#2@3", Q: "b1@7 ~ a1@7 ~", R: "g1@7 ~ f#1@7 ~", S: "b2 ~ b2 ~ f#2!2 a2 a#2",
  T: "b2 ~ b2@2 a2@2 a2@2", U: "f#2 ~ f#2 ~ c#2@2 f#2@2", V: "g2@3 g2 g2@2 ~@2 d2@2 ~@2 d2@2 ~@2",
  W: "[d2,d3]@7 ~ [d2,d3]@7 ~", X: "[[d2,d3]@27 ~@5]/4",
})).s("gm_fretless_bass").gain(0.5)

// chords · accordion · "Accordian"
const accordion = note(`<
  A@2 B A@2 B C D A@2 B A@2 B C D E@4 F G E@4 F G A@2 B A@2 B C D E@4 F G E@4 F G A@2 B A@2 B C D H I@2 ~@2
>`.pickRestart({
  A: "[[d3,f#3,f#4]@8 [e3,g3,g4]@3 [d3,f#3,f#4]@9 [d3,f#3,f#4]@4 [e3,g3,g4]@8]/2", B: "[c3,g3,g4] [d3,f#3,f#4]",
  C: "[g3,g4,b4] [f#3,f#4,a4]", D: "[g3,g4,b4] [a3,a4]",
  E: "[b3@3 [a3,a4] g4@2 ~ [a#3,a#4], b4@7 ~, ~@4 b3@3 ~, ~@3 f#4]/4", // A A#
  F: "~@3 [d5,f#5]@2 [d5,f#5]@3 ~@3 [d5,f#5]@2 [d5,f#5]@3, [b3,b4] [a3,a4]", // D B A
  G: "~@3 [d5,f#5]@2 [d5,f#5]@3 ~@3 [d5,f#5]@2 [d5,f#5]@3, [g3,g4] [f#3,f#4]", // D G F#
  H: "[f#4,a4,d5]@3 [a3,f#4,a4,d5]@2 [d4,f#4,a4,d5]@3 [e4,f#4,a4,d5]@3 [f#4,a4,d5]!2 [g3,f#4,g4,a4,d5]@3, f#3@8 g3@5 ~@3", // D
  I: "[[f#3,f#4,a4,d5]@11 ~@5]/2", // D
})).s("gm_accordion").gain(0.3).pan(1)

// chords · acoustic guitar nylon · "Rythm Gtr Nylon"
const acoustic_guitar_nylon = note(`<
  A B C A B C D E A B F A B G H I J K L M N@2 J K L M N@2 A B F A B G H I O@2 P Q N@2 O@2 P Q N@2 A B F A B G R S T U@4
>`.pickRestart({
  A: "[a2,d3,a3,d4,f#4]@4 [a2,d3,a3,d4,f#4]@2 [a2,d3,a3,d4,f#4]@2 f#4 g4@3 [a2,d3,a3,d4,f#4]@4, ~@2 [a2,d3,a3,d4] ~", // D D5
  B: "[a2,d3,a3]@4 [a2,d3,a3,d4,f#4]@2 [a2,d3,a3,d4,f#4]@2 ~ g4 [a2,d3,a3,d4,g4]@2 [a2,d3,a3,d4,g4]@2 [a2,d3,a3,d4,g4]@2, ~@4 [a2,d3,a3,d4,f#4] ~@3", // D5 D Dsus4 D
  C: "[c3,e3,g3,c4,g4]@2 [c3,e3,g3,c4,g4]!2 [a2,d3,a3,d4,f#4]@2 [a2,d3,a3,d4,f#4]!2", // C D
  D: "[g2,b2,d3,g3,d4,g4]@3 [g2,b2,d3,g3,d4,g4] [g2,b2,d3,g3,d4,g4]@2 [g2,b2,d3,g3,d4,g4]!2 [a2,d3,a3,d4,f#4]@3 [a2,d3,a3,d4,f#4] [a2,d3,a3,d4,f#4]@2 [a2,d3,a3,d4,f#4]!2", // G D
  E: "[g2,b2,d3,g3,d4,g4]@3 [g2,b2,d3,g3,d4,g4] [g2,b2,d3,g3,d4,g4]@2 [g2,b2,d3,g3,d4,g4]!2 [a2,e3,g3,c#4,e4]@3 [a2,e3,g3,c#4,e4] [a2,e3,g3,c#4,e4]@2 [a2,e3,g3,c#4,e4]!2", // G A7
  F: "[c3,e3,g3,c4,g4] [c3,e3,g3,c4,g4]@2 [c3,e3,g3,c4,g4] [a2,d3,a3,d4,f#4]!4", // C D
  G: "[c3,e3,g3,c4,g4]!4 [a2,d3,a3,d4,f#4]!4", H: "[g2,b2,d3,g3,d4,g4]!4 [a2,d3,a3,d4,f#4]!4",
  I: "[g2,b2,d3,g3,d4,g4]!4 [a2,e3,a3,c#4,e4]!4", // G A
  J: "[b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4] [b2,f#3,b3,d4,f#4]@2 [b2,f#3,b3,d4,f#4]", // Bm
  K: "[b2,f#3,b3,d4]@2 [b2,f#3,b3,d4]@2 [b2,f#3,b3,c#4] [b2,f#3,b3,d4]@2 [b2,f#3,b3,d4]", // Bm Bsus2 Bm
  L: "[g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4] [g2,d3,g3,b3,d4,g4]@2 [g2,d3,g3,b3,d4,g4]", // G
  M: "[f#2,c#3,f#3,a#3,c#4,f#4]@2 [f#2,c#3,f#3,a#3,c#4,f#4]@2 [f#2,c#3,f#3,a#3,c#4,f#4] [f#2,c#3,f#3,a#3,c#4,f#4]@2 [f#2,c#3,f#3,a#3,c#4,f#4]", // F#
  N: "~@3 [f#3,b3,d4]@2 [f#3,b3,d4]@3 ~@3 [f#3,b3,d4]@2 [f#3,b3,d4]@3, b2!2", // Bm
  O: "~@3 [b3,d4] ~@3 [b3,d4], b2!2, ~ f#3@3 ~ f#3@3, ~@3 b3@2 f#4@3 ~@4 d4@2 ~@2, ~@4 d4@2 ~@5 b3@2 f#4@3", // Bm
  P: "~@3 g4 ~@3 g4, g2@5 d4@3 ~@4 b3 d4@3, ~ d3@3 g2@4, ~@3 g3@5 ~@2 d3@6, ~@4 b3@4 ~@3 g3@5",
  Q: "~@3 f#4 ~@3 f#4, f#2@5 c#4@3 ~@4 a#3 c#4@3, ~ c#3@3 f#2@4, ~@3 f#3@5 ~@2 c#3@6, ~@4 a#3@4 ~@3 f#3@5",
  R: "[g2,b2,d3,g3,d4,g4]@3 [g2,b2,d3,g3,d4,g4] [g2,b2]@2 [g2,b2]!2 [a2,d3,a3,d4,f#4]@3 [a2,d3,a3,d4,f#4] a2@2 a2!2, ~ [d3,g3,d4,g4] ~ [d3,a3,d4,f#4]", // G D G5 D
  S: "[g2,b2,d3,g3,d4,g4]@3 [g2,b2,d3,g3,d4,g4] [g2,b2]@2 [g2,b2]!2 [a2,e3,g3,c#4,e4]@3 [a2,e3,g3,c#4,e4] a2@2 a2!2, ~ [d3,g3,d4,g4] ~ [e3,g3,c#4,e4]", // G A7 G5 C#dim
  T: "~@3 [a3,d4,f#4]@2 [a3,d4,f#4]@3 ~@3 [a3,d4,f#4]@2 [a3,d4,f#4]@3, [a2,d3]!2", U: "[[a2,d3,a3,d4,f#4]@27 ~@5]/4",
})).s("gm_acoustic_guitar_nylon").gain(0.35).pan(0.2)

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

// drums · snare
const snare = s("sd").struct("<A@6 B@2 A@6 B@6 ~@2 B@4 ~@2 A@6 B@6 ~@2 B@4 ~@2 A@6 B@2 ~@5>".pickRestart({
  A: "~ x ~ x", B: "x!4",
})).gain(0.59)

// drums · hihat
const hihat = s("hh").struct("<[x!8]!16 ~@12 [x!8]!8 ~@12 [x!8]!8 ~@5>").gain(0.59)

// drums · crash
const crash = s("cr").struct("<~@20 A@2 ~@4 A@2 ~@12 A@2 ~@4 A@2 ~@8 A B ~@3>".pickRestart({
  A: "x!2", B: "x",
})).gain(0.59)

// drums · ride bell
const ride_bell = s("rd").struct("<~@16 A@4 ~@2 A@4 ~@10 A@4 ~@2 A@4 ~@15>".pickRestart({
  A: "x!4",
})).gain(0.52)

// drums · tambourine
const tambourine = s("tb").struct("<A@20 B@2 A@4 B@2 A@12 B@2 A@4 B@2 A@8 C D ~@3>".pickRestart({
  A: "x!16", B: "x ~@4 x ~ x!2 ~@2 x ~ x ~@2", C: "x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2", D: "x",
})).gain(0.39)

// drums · agogo bells
const agogo_bells = s("agogo:4").struct("<~@16 A@4 ~@2 A@4 ~@10 A@4 ~@2 A@4 ~@15>".pickRestart({
  A: "x!4",
})).gain(3.77)

stack(bass, accordion, acoustic_guitar_nylon, kick, snare, hihat, crash, ride_bell, tambourine, agogo_bells)