// Take Me Home Country Roads — John Denver
// 84 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 63 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(84/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 · "Bass"
const bass = note(`<
  ~@2 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR AS AT AU
  AV AW AP AQ AR AS AX AU AV AY AZ BA BB BC
>`.pickRestart({
  A: "d2@4 a1@4 d2@3 ~ a1@3 ~", B: "b1@4 f#1@3 ~ b1@3 ~ b1@4", C: "a1@3 ~ e1@4 a1@3 ~ e1 ~ a1 ~",
  D: "g2@3 ~ g2 ~ e2 ~ d2@4 a1@4", E: "d2@3 ~ a1@4 d2@4 a1@4", F: "d2@3 ~ a1 ~ f#2 ~ b1@3 ~ f#2@3 ~",
  G: "b1@3 ~ b1@3 ~ a1@4 e2@3 ~", H: "a1@3 ~ e2 ~ a1 ~ g1@4 f#2 ~ e2 ~", I: "d2@3 ~ a1@3 ~ d2@3 ~ a1@4",
  J: "d2@3 ~ f#2 ~ a2 ~ a1@3 ~ e2@3 ~", K: "a1@4 e2@3 ~ b1@3 ~ f#2@4", L: "b1@3 ~ b1 ~ f#2 ~ g2@3 ~ d2@4",
  M: "g2@3 ~ g2 ~ e2 ~ d2@3 ~ a1@4", N: "d2@4 f#2 ~ g2 ~ a2@3 ~ e2@4", O: "a2@3 ~ e2 ~ f#2 ~ g2@3 ~ d2@3 ~",
  P: "g2@4 f#2 ~ e2@2 d2@3 ~ a1@4", Q: "d2@4 a1@3 ~ d2@3 ~ a1@3 ~", R: "d2@4 a1@3 ~ b1@3 ~ f#2@4",
  S: "b1@3 ~ d2 ~ b1 ~ a1@3 ~ e2@3 ~", T: "a1@4 e2 ~ a1 ~ g1@3 ~ f#2 ~ e2 ~", U: "d2@4 a1@3 ~ d2@4 a1@3 ~",
  V: "d2@3 ~ a1@3 ~ d2@3 ~ a1 ~ f#2 ~", W: "b1@4 f#2@3 ~ b1@4 f#2 ~ b1 ~", X: "a1@4 e2@3 ~ a1@4 e2 ~ a1 ~",
  Y: "g1@4 f#2 ~ e2 ~ d2@4 a1@3 ~", Z: "d2@3 ~ a1@3 ~ d2@4 f#2 ~ g2@2", AA: "a2@3 ~ e2@3 ~ a2@3 ~ f#1 ~ a1 ~",
  AB: "b1@3 ~ f#2@3 ~ b1@3 ~ f#2 ~ a2 ~", AC: "g2@3 ~ d2@4 g2@3 ~ g2 ~ e2 ~", AD: "d2@4 a1@3 ~ d2@3 ~ f#2 ~ g2 ~",
  AE: "a2@3 ~ e2@4 a2@3 ~ e2 ~ a2 ~", AF: "g2@4 d2@3 ~ g2@4 f#2 ~ e2 ~", AG: "d2@3 ~ a1@3 ~ d2@4 a1 ~ a#1 ~",
  AH: "b1@3 ~ f#2 ~ b1 ~ a1@3 ~ a1@3 ~", AI: "d2@3 ~ a2@3 ~ d2@4 e2 ~ f#2 ~", AJ: "g2@3 ~ g2@3 ~ d2@3 ~ d2 ~ f#2 a2",
  AK: "a1@3 ~ e2@4 a2@3 ~ a1 ~ a#1 ~", AL: "b1@3 ~ b1@3 ~ c2@4 e2 ~ g2 ~", AM: "g2@3 ~ f#2 ~ e2 ~ d2@3 ~ d2@3 ~",
  AN: "a2@3 ~ e2@4 a2@3 ~ e2 ~ e2 ~", AO: "a2@3 ~ e2@3 ~ a2@8", AP: "d2@3 ~ a1@4 d2@3 ~ f#2 ~ a2 ~",
  AQ: "a1@3 ~ e2@3 ~ a1@4 e2@3 ~", AR: "b1@3 ~ f#2@4 b1@3 ~ b1 ~ f#2 ~", AS: "g2@3 ~ d2@4 g2@3 ~ g2 ~ e2@2",
  AT: "d2@3 ~ a1@4 d2@3 ~ f#2 ~ g2 ~", AU: "a2@3 ~ e2@4 a2@3 ~ e2 ~ f#2 ~", AV: "g2@3 ~ d2@3 ~ g2@4 f#2 ~ e2@2",
  AW: "d2@3 ~ a1@4 d2@4 a1@3 ~", AX: "d2@3 ~ a1@4 d2@4 f#2 ~ g2 ~", AY: "d2@3 ~ a1@4 d2 ~ d2 ~ c#2 ~ b1 ~",
  AZ: "a1@3 ~ e2@4 a2 ~ a1 ~ b1 ~ c#2 ~", BA: "d2@4 a2@3 ~ d2 ~ d2 ~ c#2 ~ b1 ~",
  BB: "a1@3 ~ e2@3 ~ a1 ~ a1 ~ b1 ~ c#2 ~", BC: "d2@3 ~ a1@4 d2 ~ a1 ~ d2@3 ~",
})).s("gm_electric_bass_finger").gain(0.25)

// other · electric guitar jazz · "Guitar"
const electric_guitar_jazz = note(`<
  ~@19 A@3 B C@4 D E F G H@2 I@2 ~ J K L M N O@2 D E F G H@2 I@2 P Q R@3 S T@2 U@2 V W
>`.pickRestart({
  A: "[~@4 a5@4 f#5@11 ~ f#5@14 ~ [d5,f#5] [c#5,e5]@2 [c5,d#5]@2 [b4,d5]@8]/3", B: "d5",
  C: "[a4@12 d5@2 a4@11 ~@3 d5@15 ~ c#5@14 ~@2 d5@2 e5@2]/4", D: "f#5@11 ~ f#5@3 d5", E: "e5@11 ~ f#5@4",
  F: "d5@11 ~ e5@2 a5 ~", G: "a5@11 ~ b5@4", H: "[d6@10 ~@2 f#5@2 d5 e5@12 ~ f#5@4]/2",
  I: "[d5@11 ~ d5@2 e5 d5@15 ~@2]/2", J: "~@3 d6", K: "b5@13 ~@3", L: "a5@4 a5@7 ~ a5@4", M: "f#5@9 ~@3 b5@3 ~",
  N: "d6", O: "[c#6@13 ~@3]/2", P: "~@2 f#5@5 ~", Q: "~@4 f#5@3 d5@8 ~", R: "[~@2 f#5@2 d5@5 ~ b5@2 d6@5 ~@7]/3",
  S: "~@4 f#5@11 ~", T: "[~@2 b5@2 g5@5 ~@7]/2", U: "[~@4 f#5@3 d5 e5@10 ~@2 f#5@4 d5@8]/2", V: "~@4 f#5@3 d5 d5@8",
  W: "~ f#5 ~@2",
})).s("gm_electric_guitar_jazz").gain(0.25).pan(0.8)

// chords · acoustic guitar steel · "Guitar"
const acoustic_guitar_steel = note(`<
  ~@2 A B C D@2 E F G A H I@2 J H G J A E K L A@2 B C J A C B M A C M A K A J C N O C P A C B M A C Q A@2 C B M A C M A
  C A C R
>`.pickRestart({
  A: "~@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2", // D
  B: "~@2 [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [b3,d4,f#4]@2", // Bm
  C: "~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2", // A
  D: "[~@2 [b3,d4,g4]@3 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@4 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2]/2", // G D
  E: "~@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [b3,d4,f#4]@2", // D Bm
  F: "~@2 [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [a3,c#4,e4]@4 [a3,c#4,e4]@2", // Bm A
  G: "~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@3 ~ [b3,d4,g4]@3 ~ [b3,d4,g4]@2", // A G
  H: "~@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2", // D A
  I: "[~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@3 ~ [b3,d4,f#4]@3 ~ [b3,d4,f#4]@4 [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [b3,d4,g4]@3 ~ [b3,d4,g4]@2]/2", // A Bm G
  J: "~@2 [b3,d4,g4]@3 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2", // G D
  K: "~@2 [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2", // Bm A
  L: "~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@2 ~@2 [b3,d4,g4]@3 ~ [b3,d4,g4]@2", // A G
  M: "~@2 [b3,d4,g4]@3 ~ [b3,d4,g4]@3 ~ [b3,d4,g4]@3 ~ [b3,d4,g4]@2", // G
  N: "~@2 [b3,d4,f#4]@3 ~ [b3,d4,f#4]@3 ~ [g3,c4,e4]@3 ~ [g3,c4,e4]@2", // Bm C
  O: "~@2 [g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [a3,d4,f#4]@3 ~ [a3,d4,f#4]@2", // G D
  P: "~@2 [a3,c#4,e4]@3 ~ [a3,c#4,e4]@3 ~ [a3,c#4,e4]@6", // A
  Q: "~@2 [b3,d4,g4]@3 ~ [b3,d4,g4]@4 [b3,d4,g4]@3 ~ [b3,d4,g4]@2", // G
  R: "~@2 [a3,d4,f#4]@3 ~ [a3,d4,f#4]@3 ~ [a3,c#4,e4] ~ [a3,d4,f#4]@4", // D A D
})).s("gm_acoustic_guitar_steel").gain(0.3).pan(0.3)

// other · violin
const violin = note(`<
  A@2 B C D E F ~@2 G H I J K L M@2 N O ~@8 P Q R S T U V W ~@8 X Q R S T U V W P Q R S T U V W ~@4
>`.pickRestart({
  A: "[~@13 f5 f#5 a5@10 f5 f#5 a5@2 a5@3]/2", B: "~ d5@13 ~ f#4, f#5 ~@7", C: "a4@14 ~ a4", D: "b4@13 ~@3",
  E: "e5 d5 a4@2 a4!2 f#4@2 d4@3 ~ e5 d5 a4@2", F: "d5 a4 f#5 ~@2 e4 f#4@2 d4@8", G: "~@8 e5 d5 a4@4 f#4@2",
  H: "d4@7 ~@3 g4@2 d5 ~@2 e5", I: "~@2 e5@6 ~@2 e5 a4 c#5 e5 a4 c#5", J: "e5 c#5 a4@4 ~@5 f#4 a4@2 d5 b4",
  K: "a4 f#4 a4@4 ~@4 a4@2 g5 d5 e5!2", L: "e5@5 ~@5 d5 e5@2 d5 e5@2",
  M: "[d5 e5@7 ~@2 b4@2 a5 e5 f#5 ~ e5 a4 a4@6 ~@3 d5 b5 d5 b4 a5, ~@15 a5@2 ~@15]/2",
  N: "a5@2 g5@6 ~@3 [g4,e5]@2 [g4,e5]!2 ~", O: "[f#4,d5]@7 ~@9", P: "~@2 g4@2 d5 ~@2 e5 ~@2 e5@6",
  Q: "~@2 e5 a4 c#5 e5 a4 c#5 e5 c#5 a4@4 ~@2", R: "~@3 f#4 a4@2 d5 b4 a4 f#4 a4@4 ~@2",
  S: "~@2 a4@2 g5 d5 e5!2 e5@5 ~@3", T: "~@2 d5 e5@2 d5 e5@2 d5 e5@7",
  U: "~@2 b4@2 a5 e5 f#5 ~ e5 a4 a4@6, ~@7 a5@2 ~@7", V: "~@3 d5 b5 d5 b4 a5 a5@2 g5@6",
  W: "~@3 [g4,e5]@2 [g4,e5]!2 ~ [f#4,d5]@7 ~", X: "~@2 g4@2 d5 ~@2 e5@2 ~ e5@6",
})).s("gm_violin").gain(0.21).pan(0.6)

// drums · kick
const kick = s("bd").struct("<[x!4]!42 [x ~ x ~ x!2 ~@2] [x!4]!19 [x!3 ~]>").gain(0.25)

// drums · snare
const snare = s("sd").struct(`<
  ~@10
  [~@5 x ~ x]
  [~ x ~ x ~ x ~ x]!31
  [~ x ~ x ~ x ~@2]
  [~ x ~ x ~ x ~ x]!19
  [~ x ~ x!4 ~]
>`).gain(0.25)

// drums · open hat
const open_hat = s("oh").struct("<~@42 [~ x] ~@20>").gain(0.29)

// drums · crash
const crash = s("cr").struct("<~@10 A ~@7 A ~@8 B ~@7 B ~@6 C B ~@7 B ~@11>".pickRestart({
  A: "~ x", B: "x", C: "~@5 x ~@2",
})).gain(0.22)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@2 A@8 B C D@4 C D@3 C@2 D@8 C D@4 C D@6 E D@7 C D@2 C@3 D@2 C D C@2 F
>`.pickRestart({
  A: "x!4", B: "x ~ x ~ x!4", C: "~ x!7", D: "x!8", E: "x!5 ~ x ~", F: "~ x!3 ~@4",
})).gain(0.25)

// drums · ride
const ride = s("rd").struct("<~@62 [~@4 x!3 ~]>").gain(0.32)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~ [x!16]!61 [x!8 ~@8]>").gain(1.09)

stack(bass, electric_guitar_jazz, acoustic_guitar_steel, violin, kick, snare, open_hat, crash, tambourine, ride, cabasa)