// Two Roads — Chris Rea
// 98 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 114 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(98/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 · french horn · "FR.HORN"
const french_horn = note("<~@65 A ~@6 B A ~@6 B A ~@6 B A ~@6 B A ~@6 B A ~@6 C ~>".pickRestart({
  A: "~@12 [g4,b4,d5,g5,b5,d6] ~@3", // G
  B: "~ [a5,d6] [d5,g5]!2 [a5,d6]!2 [d5,g5]!2 [a5,d6]!2 g5!2 [a5,d6]!2 [d5,g5]!2, ~@5 d5 ~@2", // D5 G5 D5 G5 D5 G5
  C: "~ [a5,d6] [d5,g5]!2 [a5,d6]!2 [d5,g5]!2 ~@8", // D5 G5 D5 G5
})).s("gm_french_horn").gain(0.4)

// chords · french horn · "FR.HORN" · soft notes
const french_horn_soft = note("<~@72 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~>".pickRestart({
  A: "[a5,d6] ~@15", // D5
})).s("gm_french_horn").gain(0.25)

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  A B C D A B C E D ~@4 F G H I J K L M N O P Q R@2 S T U V W X U V W X ~@4 F G H I J K L M N O P Q R@2 S T N O P Q R@2
  S T U V W X U V W X U V W X U V W X U V W X U V W X U V W X U V W X U V W X U V W X U V W X U V W Y ~
>`.pickRestart({
  A: "g2", B: "e2", C: "c2@3 c3", D: "d#2 f2", E: "d#2 d#3", F: "g2@4 ~@2 g2 ~@7 d3 g3", G: "g2@4 ~@2 g2@7 ~ g2 a2",
  H: "a#2@5 ~ a#2@8 ~@2", I: "a#2@2 ~ a#2@4 c#2", J: "c2@4 ~@2 c2@9 ~", K: "c3@5 ~ c3@6 ~ c3@3",
  L: "d#3@5 ~ d#3@2 d#3@6 d#2@2", M: "f2@2 ~ f2@3 f3 ~", N: "d2@4 d3 ~@9 d2 ~", O: "d2@2 ~ d2 d3 ~@9 d3@2",
  P: "f2@2 ~ f2 f3 ~@9 f2 ~", Q: "f2@3 ~ f2 f3 ~@8 f3@2", R: "e2@2 ~ e2 e3@2 ~@8 e3@2", S: "d#2@3 ~ d#2 ~@9 d#3@2",
  T: "f2@3 f2 ~@10 f3 ~", U: "g2@4 ~@3 g2 g2@7 g3", V: "e2@5 ~@2 e2 e2@7 e3", W: "c2@5 ~@2 c2@8 c3",
  X: "d#2@5 ~@2 d#2 f2@4 ~@3 f2, ~@8 e2 ~@7", Y: "d#2@5 ~@2 d#2 ~@8",
})).s("gm_electric_bass_finger").gain(0.4)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  A@2 ~ B C@3 D@2 ~@4 E@2 F@2 G@2 H I J@2 K@2 G@2 H L A@2 ~ B M@3 N ~@12 J@2 O@4 H L P@4 G@2 H Q A@2 ~ B M@3 N A@2 ~ B
  M@3 N A@2 ~ B M@3 N A@2 ~ B M@3 N A@2 ~ B M@3 N A@2 ~ B M@3 R ~
>`.pickRestart({
  A: "[g4,b4,d5]/2", B: "[d#4,g4,a#4] [d#4,f4,a4]", C: "[[g4,b4,d5]@37 ~@11]/3",
  D: "[[d#4,g4,a#4]@23 ~ [d#4,f4,a4]@7 ~]/2", E: "[b3,d4,f#4]/2", F: "[d4,f4,a4]/2", G: "[e4,g4,b4]/2",
  H: "[d#4,g4,a#4]", I: "[d#4,f4,a4]@7 ~", J: "[d4,g4,b4]/2", K: "[f4,g4,b4]/2", L: "[d#4,f4,a4]",
  M: "[[g4,b4,d5]@7 ~]/3", N: "[d#4,g4,a#4]@7 ~ f4@8, ~@7 [d#4,a4]@8 ~",
  O: "[[f4,g4,b4]@31 ~ [e4,b4]@32, ~@31 g4@32 ~]/4", P: "[[d4,g4]@31 [f4,g4]@32 ~, b4@31 ~]/4", Q: "[d#4,f4,a4]@15 ~",
  R: "[d#4,g4,a#4] ~", // D#
})).s("gm_string_ensemble_1").gain(0.25)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  A B C D A B E F@2 G H G I J@2 K@2 L@2 M N ~@8 O P Q R O P Q R G H G S T U K@2 L@2 M N V W X Y Z AA AB AC AD AE AF AG
  AH AI AJ AK O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q R O P Q AL ~
>`.pickRestart({
  A: "[b3,d4]@3 [b3,d4,a4], g4", B: "~@3 a4, [b3,d4,g4]", C: "[b3,d4,g4]", D: "[a#3,d#4,g4]@8 [d#4,f4,a4]@7 ~",
  E: "[b3,d4,g4]@3 ~", F: "[[d#4,g4,a#4]@24 [d#4,f4,a4]@7 ~]/2",
  G: "~ [f3,c4,d#4] [f3,a#3,d4] f2 [f3,c4,d#4] ~ [f3,a#3,d4] f2 [f3,c4,d#4] ~ [f3,a#3,d4] f2 [f3,c4,d#4]@2 [f3,f4] f2, f1 ~@3 f1 ~@3", // F7 A# F7 A# F7 A# F7 F
  H: "~ [f3,c4,d#4] [f3,a#3,d4] f2 [f3,c4,d#4] ~ [f3,a#3,d4] f2 f1@2 f3 ~ f2 [f4,f5] f1 [f4,f5], f1@2 ~@6 f3 ~@2 f3@3 ~@2", // F7 A# F7 A# F
  I: "~ [f3,c4,d#4] [f3,a#3,d4] f2 [f3,c4,d#4] ~ [f3,a#3,d4] ~ [f1,f2,f3,a3,c4]@3 ~ [d#2,f#3,a#3,f4]@3 ~, f1 ~@7", // F7 A# F7 A# F D#m
  J: "[g1@16 ~@13 b3@3, d4, b3@13 f#4@3, f#4@5 g2@3, g2 g1]/2", K: "[f4@4 ~@3 d4, [a#1,a#2], d4@7 ~, ~ [f4,a4]]/2",
  L: "[[c2,c3,e4,g4]@8 ~@7 e4, b4, ~ c2, ~@17 c3@15, ~@19 e4@2 g4@11]/2", // C
  M: "d#3@6 ~@5 [d#4,a#4]@5, [d#2,g4], [d#4,a#4]@11 ~@5, ~@3 d#3@5", // D#5 D# D#5
  N: "f3@4 ~@7 a4@4 ~, [f2,f4]@15 ~, a4@11 ~@5, d#4@7 d#4@8 ~, ~@4 f3@5 f3@6 ~", // F
  O: "[b3,d4,g4]@3 [b3,d4,g4] ~@2 [b3,d4,a4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4]@3 ~", // G Bm7 G
  P: "[b3,d4,g4]@3 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4]@3 ~", // G
  Q: "[b3,d4,g4]@3 [b3,d4,g4] ~@2 [b3,d4,a4] ~@2 [b3,d4,g4] ~@2 [b3,d4,g4]@2 ~@2", // G Bm7 G
  R: "[a#3,d#4,g4]@3 [a#3,d#4,g4] ~@4 [d#4,f4,a4]@3 [d#4,f4,a4] ~@4", // D# F7
  S: "~ [f3,c4,d#4] [f3,a#3,d4] f2 [f3,c4,d#4] ~ [f3,a#3,d4] ~@5 [d#2,f#3,a#3,c#4]@4, f1 ~@3 [f1,f2,f3,a3,c4]@3 ~", // F7 A# F7 A# D#m7 F
  T: "[g2,b3] ~@3, g1, d4 ~@7, f#4 ~@15", U: "~@13 b3@3, g1, ~ g2@3, ~@5 f#4@3",
  V: "~@2 d4 ~@4 d3, d2!2, [g4,b4]@3 ~@5, d4@2 ~ [d4,g4,b4]@3 [d4,g4,b4]@2, ~ d3@4 d3@2 ~", // G
  W: "~@10 d4@2 ~@3 f2, d2, [g4,b4]@3 [g4,b4]@3 ~@2, d4@2 d4@3 ~ [d4,g4,b4]@2, ~ d3@3 d3@3 d3", // G
  X: "f4@2 ~@5 f3, f2@15 ~, [g4,b4]!2, ~ f4!3, ~@3 f3@2 f3@2 ~", // G
  Y: "~@2 f4 f3 ~ f4!2 [f2,f4], f2@7 ~, [g4,b4]@3 [g4,b4]@3 [g4,b4]@2, f4@2 ~ f4@2 ~@3, ~ f3@2 ~ f3@4", // F G
  Z: "~@2 [e4,b4] ~@4 e3, e2!2, g4@3 [g4,b4]@5, [e4,b4]@2 ~ e4@3 e4@2, ~ e3@2 e3@2 e3@2 ~", // E5 G E5
  AA: "~@2 e4 ~@4 [e3,e4,g4,b4], e2@3 e2, [g4,b4]@3 [g4,b4]@4 ~, e4@2 ~ e4@2 e4@2 ~, ~ e3@3 e3@3 ~", // Em G
  AB: "~@2 d#4 ~@3 d#2 [d#2,d#4], d#2@3 ~, [g4,a#4]@3 [g4,a#4]@5, d#4@2 ~ d#4@2 d#4@2 ~, ~ d#3@3 d#3@4", // D# Gm
  AC: "~ f3 ~ f3 ~@3 f2, f2@7 ~, [d#4,f4,a#4] [d#4,f4,a4] [d#4,g4]@2, ~@5 f3@3", // D#sus2 F7 D#
  AD: "~@5 d3!3, d2, ~ d3@2 d3@2 ~@3, ~@4 [d4,g4,b4]@3 d4@9, ~ [g4,b4]", // G
  AE: "~@7 d2, d2@7 ~, [d4,g4,b4]@3 d4@5 d4@4 [d4,g4,b4]@4, ~ d3@2 d3@2 d3@3, ~ [g4,b4]@2 ~", // G
  AF: "~@4 [f4,g4,b4]@2 f4 ~@7 f3@2, f2, [f4,g4,b4] ~ [g4,b4]@2, ~ f3@2 f3@2 f3@2 ~, ~@2 f4!2", // G7 G
  AG: "~@4 f4@2 f3@2 f3@2 ~@5 f2, f2@15 ~, [g4,b4]@3 ~@5, f4@2 ~ [f4,g4,b4]@3 [f4,g4,b4]@2, ~ f3@2 ~@2 f3@2 f3", // G G7
  AH: "~@5 e3 ~ e3, e2, [e4,g4,b4]!4, ~ e3@2 e3@2 ~@3", // Em
  AI: "~@4 e4@2 ~@4 e4@2 e4@2 ~ e2, e2@15 ~, [g4,b4]@3 [g4,b4]@3 [g4,b4]@2, e4@2 ~ e4@2 ~@3, ~ e3@3 e3@3 [e3,e4]", // G E
  AJ: "d2 ~@3 d#4@2 d#4@2 ~@6 d#2@2, d#2@7 ~, [d#4,g4,a#4] [g4,a#4] [g4,a#4]@2, ~ d#3@2 d#3@2 d#3@3, ~@2 d#4!2", // D# Gm
  AK: "~ f3 ~ f3 ~ f3@2 f3, f2, [d#4,f4,a#4] [d#4,f4,a4] [d#4,g4]@2", AL: "[a#3,d#4,g4]@3 [a#3,d#4,g4] ~@12",
})).s("gm_piano").gain(0.4)

// other · string ensemble 1 · "STRINGS" · A# A G
const string_ensemble_1_2 = note(`<
  ~@50
  [~@6 d6 ~@9]
  [~@6 d6!2 g5!2 ~@4 g5!2]
  [d5!2 ~@14]
  ~@3
  [[a#4,a#5] [a4,a5] [g4,g5]@2]
  ~@57
>`).s("gm_string_ensemble_1").gain(0.4)

// other · electric guitar jazz · "JAZZ GTR"
const electric_guitar_jazz = note(`<
  ~@5 A ~@24 A ~@3 A ~@31 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3
>`.pickRestart({
  A: "~@9 g5 ~ d5@3 ~@2, ~@11 c#5 ~@4",
})).s("gm_electric_guitar_jazz").gain(0.5)

// chords · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  A@3 B A@2 C D E ~@4 F@2 G@2 H@2 D I J K L@2 H@2 D M A@3 B A@3 B ~@4 F@2 G@2 H@2 D I J K L N H@2 D O K@2 L N H@2 D O
  A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 P ~
>`.pickRestart({
  A: "[g5,b5,d6]!4 ~ [g5,b5,d6] ~ [g5,b5,d6] ~ [g5,b5,d6] ~ [g5,b5,d6]!2 ~ [g5,b5,d6] ~", // G
  B: "[d#5,a#5]!2 [d#5,g5,a#5]!2 ~ [d#5,g5,a#5] ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5] [d#5,a5] ~ [d#5,f5,a5] ~, g5 ~@5 f5 ~", // D#5 D# F7 D#dim F7
  C: "[g5,b5,d6]!4 ~ [g5,b5,d6] ~ [g5,b5,d6] ~ [g5,b5,d6] ~ [g5,b5,d6]!2 ~@3", // G
  D: "[d#5,g5,a#5]!4 ~ [d#5,g5,a#5] ~ [d#5,g5,a#5] ~ [d#5,g5,a#5] ~ [d#5,g5,a#5]!2 ~ [d#5,g5,a#5] ~", // D#
  E: "[d#5,g5,a#5]!4 ~ [d#5,g5,a#5] ~ [d#5,g5,a#5] a5 a#5 a5 a#5 a5@2 ~@2, ~@4 [d#5,f5]@3 ~", // D# D#sus2
  F: "[b4,d5,f#5]!4 ~ [b4,d5,f#5] ~ [b4,d5,f#5] ~ [b4,d5,f#5] ~ [b4,d5,f#5]!2 ~ [b4,d5,f#5] ~", // Bm
  G: "[d5,f5,a5]!4 ~ [d5,f5,a5] ~ [d5,f5,a5] ~ [d5,f5,a5] ~ [d5,f5,a5]!2 ~ [d5,f5,a5] ~", // Dm
  H: "[e5,g5,b5]!4 ~ [e5,g5,b5] ~ [e5,g5,b5] ~ [e5,g5,b5] ~ [e5,g5,b5]!2 ~ [e5,g5,b5] ~", // Em
  I: "[d#5,f5,a5]!4 ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5]!2 ~ [d#5,f5,a5] ~", // F7
  J: "[d5,e5,g5,b5] [d5,g5,b5]!3 ~ [d5,g5,b5] ~ [d5,g5,b5] ~ [d5,g5,b5] ~ [d5,g5,b5]!2 ~ [d5,g5,b5] ~", // Em7 G
  K: "[d5,g5,b5]!4 ~ [d5,g5,b5] ~ [d5,g5,b5] ~ [d5,g5,b5] ~ [d5,g5,b5]!2 ~ [d5,g5,b5] ~", // G
  L: "[f5,g5,b5]!4 ~ [f5,g5,b5] ~ [f5,g5,b5] ~ [f5,g5,b5] ~ [f5,g5,b5]!2 ~ [f5,g5,b5] ~", // G7
  M: "[d#5,f5,a#5]!4 ~ [d#5,f5,a#5] ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5]!2 ~ [d#5,f5,a5] ~", // D#sus2 F7
  N: "[f5,g5,b5]!3 [g5,b5] f5 [f5,g5,b5] ~ [f5,g5,b5] ~ [f5,g5,b5] ~ [f5,g5,b5]!2 ~ [f5,g5,b5] ~", // G7 G G7
  O: "[d#5,f5,a5]@2 [d#5,f5,a5]!2 ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5] ~ [d#5,f5,a5]!2 ~ [d#5,f5,a5] ~", // F7
  P: "[d#5,a#5]!2 [d#5,g5,a#5]!2 ~ [d#5,g5,a#5] ~ [d#5,f5,a5] ~@8, g5 ~@7", // D#5 D# F7
})).s("gm_epiano2").gain(0.35)

// drums · kick
const kick = s("bd").struct("<[x!4]!29 [x!2]!83 x ~>").gain(0.4)

// drums · snare
const snare = s("sd").struct("<~@28 [~@14 x!2] [~ x ~ x]!35 [~@4 x ~@7 x ~ x!2] [~ x ~ x]!47 [~ x ~@2] ~>").gain(0.5)

// drums · clap
const clap = s("cp").struct("<~@49 [x ~@5 x!2]!8 ~@57>").gain(0.5)

// drums · hihat
const hihat = s("hh").struct("<[x!6 ~ x]!21 [x!6 ~@2]!8 [x!6 ~ x]!83 [x!4 ~@4] ~>").gain(0.4)

// drums · open hat
const open_hat = s("oh").struct("<[~@3 x]!112 ~@2>").gain(0.4)

// drums · tambourine
const tambourine = s("tb").struct("<~@2 [x!5 ~@11] ~@6 [~ x ~ x]!11 ~@9 [~ x ~ x ~ x ~ x]!66 [~ x ~ x ~@4] ~@18>")
  .gain(0.5)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@95 [~@5 x ~ x] [~ x ~ x ~ x ~ x]!16 [~ x ~ x ~@4] ~>").gain(0.15)

// drums · congas
const congas = s("conga:13").struct("<~@9 A@4 ~ B ~ B ~ B ~ B ~ B ~ B ~ B ~ B ~@85>".pickRestart({
  A: "~@5 x ~@2", B: "~@2 x!2 ~@12",
})).gain(1.43)

// drums · congas
const congas_2 = s("conga:18").struct("<~@9 [~@5 x ~@2]!4 [~@10 x!2 ~@4]!16 ~@85>").gain(1.43)

// drums · congas
const congas_3 = s("conga:33").struct("<~@9 A@5 B A B A B A B A B A B A B A B ~@85>".pickRestart({
  A: "~@6 x!3 ~@5 x!2", B: "x ~@5 x!3 ~@7",
})).gain(1.43)

stack(
  french_horn, french_horn_soft, bass, string_ensemble_1, piano, string_ensemble_1_2, electric_guitar_jazz, epiano2,
  kick, snare, clap, hihat, open_hat, tambourine, tambourine_soft, congas, congas_2, congas_3
)