// Why Don't We Do It in the Road — The Beatles
// 95 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 5 "vocal echo" pad sweep (copy of ch 4 "vocal" viola)
// note: Full arrangement: all 39 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(95/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// other · electric guitar jazz · "guitar"
const electric_guitar_jazz = note("<~@10 A B C D E F G@3 H I J A B C D E F K@3 L I J M N C O P>".pickRestart({
  A: "f#5 d6 a5 d6@3 a5 d6", B: "f#5 d6 a5 d6@3 a5 ~", C: "c#5 a5 e5 a5@3 e5 a5", D: "b4 g5 d5 g5@2 d5 g5 d5",
  E: "a4@2 f#5@2 c5@2 f#5@4 c5@2 f#5@2 c5 d5", F: "c5 ~@7", G: "a4 f#5 c5 f#5@3 c5 f#5", H: "a4 c5 f#5 c5@2 f#5 c5 a4",
  I: "b4 g5 d5 g5@3 d5 g5", J: "b4 g5 d5 g5@3 g5 b4", K: "[a4,f#5] [f#5,d6] [c5,c6] [f#5,d6]@3 [c5,a5] [f#5,d6]",
  L: "a4 [c5,f#5]!2 [c5,f#5]@2 [a4,f#5] c5 [a4,d5]", M: "[a4,f#5] [f#5,d6] [c5,a5] [f#5,d6]@3 [c#5,a5] [f#5,d6]",
  N: "f#5 d6 a5 d6 a5 d6 a5!2", O: "[b3,d4,f4] ~@7", P: "[a3,c4,d4,f#4] ~@3",
})).s("gm_electric_guitar_jazz").gain(0.64)

// chords · piano
const piano = note("<~@4 A B@3 C@2 B@2 D C B E B@4 C@2 B@2 D C B E B@4 C@2 B@2 D F G>".pickRestart({
  A: "~ d4 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2 [d3,a3,c4,d4,f#4]@2, [d3,a3,c4,f#4] ~@7", // D7
  B: "[d3,a3,c4,d4,f#4]!8", C: "[g2,b3,d4,f4]!8", D: "[a2,a3,c#4,d#4,e4] [a2,a3,c#4,e4]!6 [a2,a3,c#4,d#4,e4]",
  E: "[d3,a3,c4,d4,f#4] ~@7", F: "[g2,b3,d4,f4] ~@7", G: "[d3,c4,d4,f#4] ~@3",
})).s("gm_piano").gain(0.38).pan(0)

// bass · acoustic bass · "bass"
const bass = note("<~@4 A@3 B C@2 B@2 D E A F G H I B J K A@2 L M A F G H I B J K A@2 L N O>".pickRestart({
  A: "d3!7 c3", B: "d3!8", C: "g2!8", D: "a3!7 g#3", E: "g3!6 f3!2", F: "d3 ~@7", G: "d3!6 c3!2",
  H: "d3!2 d4!2 c4!2 a3!2", I: "d3@2 d3@2 ~ d4 c4 a3 g3 f3 d3 ~ c3@2 c#3@2, ~@2 d3 ~@5", J: "g2!7 f2",
  K: "g2!3 f2 g2!3 f2", L: "a2 a3!6 g#3", M: "g3!6 f3 c3", N: "g3 ~@7", O: "d3 ~@3",
})).s("gm_acoustic_bass").gain(0.46).pan(1)

// drums · kick
const kick = s("bd").struct("<~@4 A@10 B ~ A@8 C A B ~ A@8 C B@2>".pickRestart({
  A: "x ~@3 x!2 ~ x", B: "x", C: "x ~@3 x!2 ~@2",
})).gain(0.64).pan(1)

// drums · rim
const rim = s("rim").struct("<[x!8]!3 x ~@35>").gain(0.64).pan(1)

// drums · snare
const snare = s("sd").struct("<A B C D E@10 F G E@7 H I J F K E@7 H I ~@2>".pickRestart({
  A: "~@10 x!2 ~ x!2 ~", B: "~@13 x!2 ~", C: "x ~ x ~ x!2 ~ x ~ x ~ x!3 ~@2", D: "x", E: "~ x ~ x",
  F: "~@4 x ~@3 x!2 ~ x!4 ~", G: "x ~@7 x!2 ~ x!4 ~", H: "~@2 x!2 ~@2 x ~", I: "~@4 x ~ x ~@5 x!3 ~",
  J: "~@4 x ~ x!2 ~ x ~@3 x!2 ~", K: "x ~@11 x!3 ~",
})).gain(0.64).pan(1)

// drums · clap
const clap = s("cp").struct("<~ [x!4]!2 x ~@35>").gain(0.64).pan(1)

// drums · open hat
const open_hat = s("oh").struct("<~@14 [~@3 x ~@4] ~@11 [~@3 x ~@4] ~@11 x>").gain(0.64).pan(1)

// drums · high tom
const high_tom = s("ht").struct("<~@2 [~@7 x] ~@36>").gain(0.64).pan(1)

// drums · ride
const ride = s("rd").struct("<~@4 A@10 B ~ A@7 C@2 A B ~ A@7 C@2 ~@2>".pickRestart({
  A: "x!8", B: "x!3 ~@5", C: "x ~ x ~ x!3 ~ x ~ x ~ x ~ x ~",
})).gain(0.64).pan(1)

stack(electric_guitar_jazz, piano, bass, kick, rim, snare, clap, open_hat, high_tom, ride)