// Red and Gold — Fairport Convention
// 95 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 160 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. 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 · [...]/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
const bass = note(`<
  A B C D E F@2 G H@2 ~@32 A B C D E F@2 G I J D E K E L D I J D E K E L D I A B C D E F@2 G I J D E M E L D N O P Q O E
  F@2 G A B C D E F@2 G H@2 ~@16 A B C D E R@3 G H@2 ~@8 S T U S E F@2 G A B C D E F@2 G A B V@5
>`.pickRestart({
  A: "d2 f#2", B: "e2@2 a1 c#2", C: "d2 c#2 b1 a1", D: "g1 a1", E: "f#1 g1", F: "[d2@2 b1@3 a1 g1@2]/2", G: "f#1 a1",
  H: "d2/2", I: "d2", J: "d1 e1", K: "a1", L: "a1 d2", M: "a1@12 a2 ~ a1 ~",
  N: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ e1@2 f#1@2 g1@2", O: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1@2",
  P: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2@2", Q: "g1 ~ g1 ~ g1 ~ g1 ~ d2 ~ d2 ~ d2 ~ d2@2",
  R: "[d2@2 b1@7 a1 g1@2]/3", S: "a1!8", T: "d2!8", U: "g1!4 d2!4",
  V: "[d2@4 c#2@4 b1@4 ~ a1@5 g1@10 a1@12 d2@25 ~@15]/5",
})).s("gm_electric_bass_finger").gain(0.45).pan(0.3)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@5 A B C D E@2 F@2 G@2 H I@3 J@2 K L H M@3 N@2 O@2 H P@5 K Q H R@2 ~@5 S T U V@2 N@2 K L H W@5 K X@2 R@2 ~@5 S Y Z
  AA@4 AB L H R@2 ~@5 AC AD Z ~@5 AE Y Z AF@6 Q H AG@5 K L H R@2 ~@5 AH AI AJ AK AL@2 AM@3 K L H R@2 ~@5 AC AD Z ~@5 AE
  Y Z ~@7
>`.pickRestart({
  A: "~@5 a3 e4 a3", B: "d4 a3 d4 e4 ~@2 d4 b3, ~@8 g2@7 ~, ~@8 b3@5 ~@3, ~@5 g3@2 ~",
  C: "d4@2 ~@2 f#4 e4 d4 c#4, f#2@3 ~, [a3,f#4]@6 d4@5 ~@5, ~@4 e4@4 [e2,g3]@7 ~, ~@8 c#4@5 ~@3", // D Em
  D: "f#3 a3 d4 ~@4 d4, ~@3 e4@2 a3@2 ~, ~@2 d4 e4",
  E: "[g3 a3 ~@4 e4 ~@2 [d3,f#3] a3 d4 ~ g4 e4 b3, ~@4 d4@4 d4@4 ~@4 d2@8 e2@7 ~, ~@3 e4@2 a3@2 a3@2 ~@7]/2", // D
  F: "[~@2 b3@2 d4@2 g3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 ~@2 f#3@2, g2@7 ~ a2@6 a3@4 ~@2 d4@4 b3@4 g3@4, ~@12 e4@4 f#2@6 c#4 ~ g2@6 ~@2]/2",
  G: "[~@2 e3@2 a3@2 e3@2 c#4@2 e3@2 a2@2 ~@12 g3@2 f#3 ~ e3@2, a2@12 ~@2 a3@4 a3@4 [d3,c#4]@5 ~@5, ~@16 f#2@7 ~ [g2,b3]@7 ~, ~@20 d4@5 ~@7]/2", // Dmaj7 G
  H: "~ c#4 ~@3 a3 ~ d3, a2@3 a3@2 ~ d4@2, ~@4 e4@4 f#2@7 ~",
  I: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@9 e4@2 d4@2 ~@2 g4@2 e4@2 b3@2, [g2,b3]@7 ~ a2@6 c#4@6 a3@6 ~@4 a3@5 ~@13, ~@12 d4@4 d2@6 f#3@6 f#3@6 d3@4 ~@2 e3@7 ~, ~@18 d3@6 d4@5 ~@3 d2@5 ~@11]/3", // G
  J: "[~@2 b3@2 d4@2 g3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3 ~, g2@7 ~ a2@6 a3@4 ~@2 d4@5 ~@7, ~@12 e4@4 f#2@6 c#4 ~ [g2,b3]@7 ~]/2", // G
  K: "~ e3 a3 e3 c#4 e3 a2 a3, a2@3 ~",
  L: "~@10 g3@2 f#3 ~ e3@2, f#2@7 ~ [g2,b3]@7 ~, ~@2 a3@4 [d3,c#4]@5 ~@5, ~@4 d4@5 ~@7", // G Dmaj7
  M: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@5 c#4@2 d4@2 d3@2 d4@2 ~@2 g4@2 e4@2 b3@2, [g2,b3]@7 ~ a2@6 e4@6 a3@6 ~@4 a3@5 ~@13, ~@6 d4@2 d2@3 f#3@3 f#3@3 ~@7, ~@18 d3@6 d4@5 ~@3 d2@8 e2@7 ~]/3", // G
  N: "[~@2 b3@2 d4@2 g3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3@2, g2@7 ~ a2@6 a3@4 ~@2 d4@5 ~@7, ~@12 e4@4 f#2@6 c#4 ~ [g2,b3]@8]/2", // G
  O: "[~@2 e3@2 a3@2 e3@2 c#4@2 e3@2 a2@2 ~@4 a3 ~@7 g3@2 f#3 ~ e3@2, a2@12 ~@2 a3@4 ~@2 d4@4 [g2,b3]@7 ~, ~@16 f#2@6 [d3,c#4]@5 ~@5]/2", // G Dmaj7
  P: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@9 [a3,d4]@2 f#4@2 ~@6 d3@2 a4@2 f#4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3@2, [g2,b3]@7 ~ a2@6 e4@6 a3@6 ~@4 a3@5 ~@3 d4 ~ [d4,a4]@5 ~@15 e4@4 ~@4 d4@5 ~@7, ~@12 d4@4 d2@6 f#3@6 f#3@6 f#3@4 ~@6 a3@6 ~@12 a3@4 ~@4 c#4 ~@9, ~@18 d3@6 d4@5 ~@3 d3@10 d3@4 ~@2 e3@7 ~ a2@7 ~ f#2@7 ~ [g2,b3]@8]/5", // D5 G D5 G
  Q: "~@5 g3 f#3 e3, f#2@7 ~ [g2,b3]@8, ~@2 a3@4 [d3,c#4]@5 ~@5, ~@4 d4@5 ~@7", // G Dmaj7
  R: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@3 a3@2, [g2,b3]@7 ~ a2@6 e4@6 a3@6 ~@6, ~@6 d4@2 d2@3 f#3@3 f#3@2, ~@18 d3@6 d4@5 ~@3]/2", // G
  S: "~@7 a3", T: "e4 a3 d4 e4 ~@2 d4 b3, ~@8 g2@7 ~, ~@8 b3@5 ~@3, ~@5 g3@2 ~",
  U: "d4@4 ~@4 f#4@2 e4@2 d4@2 c#4 ~, f#2@3 ~, [a3,f#4]@6 d4@5 ~@5, ~@4 e4@4 [e2,g3,c#4]@7 ~", // D C#dim
  V: "[~@4 d4@2 ~@10 e4 ~ d4 ~ d3@2 d4@2 ~@2 g4@2 e4@2 b3@2, f#3@4 ~@4 d4@4 e4@4 d2@7 ~@9, ~@2 a3@4 e4@4 a3@4 d4@4 ~@6 e3@7 ~]/2",
  W: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@9 [a3,d4]@2 f#4@2 ~@6 d3@2 ~@2 g4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3@2, [g2,b3]@7 ~ a2@6 e4@6 a3@6 ~@4 a3@5 ~@3 d4 ~ d4@4 ~@16 e4@4 ~@4 d4@5 ~@7, ~@12 d4@4 d2@6 f#3@6 f#3@6 f#3@4 ~@6 a3@6 ~@12 a3@4 ~@4 c#4 ~@9, ~@18 d3@6 d4@5 ~@3 d3@10 d3@4 ~@2 e3@7 ~ a2@7 ~ f#2@7 ~ [g2,b3]@8]/5", // D5 G
  X: "[~@5 g3 f#3 e3 ~ c#4 ~@3 a3 ~ d3, f#2@7 ~ [g2,b3]@10 ~@4 a3@4 ~@6, ~@2 a3@4 [d3,c#4]@5 ~@5 a2@7 ~ f#2@7 ~, ~@4 d4@5 ~@11 e4@4 ~@4 d4@4]/2", // G Dmaj7
  Y: "e4@2 a3@2 d4@2 e4@2 ~@4 d4@2 b3 ~, ~@8 [g2,b3]@7 ~, ~@5 g3@2 ~", // G
  Z: "~@6 d4@2 f#4@2 e4@2 d4@2 c#4 ~, f#2@3 ~, [a3,d4,f#4]@7 ~ [e2,g3,c#4]@7 ~, ~@4 e4@5 ~@7", // D C#dim
  AA: "[~@4 d4@2 ~@14 [a3,d4]@2 f#4@2 ~@6 d3@2 ~@2 g4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3 ~, f#3@4 ~@4 d4@4 e4@4 d3@10 d3@4 ~@2 e3@7 ~ a2@6 a3@4 ~@2 d4@5 ~@7, ~@2 a3@4 e4@4 a3@4 d4@4 f#3@4 d4 ~ d4@4 a3@6 ~@10 e4@4 f#2@6 c#4 ~ [g2,b3]@7 ~]/4", // D5 G
  AB: "~@2 e3@2 a3@2 e3@2 c#4@2 e3@2 a2@2 a3 ~, a2@3 ~", AC: "~@5 b3 d4 e4",
  AD: "d4@2 a3@2 d4@2 e4@2 ~@4 d4@2 b3 ~, ~@8 [g2,b3]@7 ~, ~@5 g3@2 ~", AE: "~@5 c#4 d4 a3",
  AF: "[~@4 d4@2 ~@18 d4 ~@11 [a3,d4]@2 f#4@2 ~@6 d3@2 ~@2 g4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 ~@4 e3@2 a3@2 e3@2 c#4@2 e3@2 a2@2 a3@2, f#3@4 ~@4 d4@4 e4@4 g3@4 d4@4 ~@2 a3@4 d4@6 ~@2 d4 ~ d4@4 ~@16 e4@4 ~@4 d4@5 ~@5 f#3@4 ~@14, ~@2 a3@4 e4@4 a3@4 d4@4 a3@4 e4@5 ~ e4@4 d3@10 d3@4 ~@2 e3@7 ~ a2@7 ~ f#2@7 ~ g2@10 ~@14, ~@34 f#3@4 ~@6 a3@6 ~@12 a3@4 ~@4 c#4 ~ b3@7 ~ a2@12 ~@4]/6", // D5
  AG: "[~@2 a3@2 g3@2 f#3@2 ~@2 c#4@2 ~@14 a3 ~@9 [a3,d4]@2 f#4@2 ~@6 d3@2 ~@2 g4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3@2, [g2,b3]@7 ~ a2@6 e4@6 a3@6 ~@4 a3@5 ~@3 d4 ~ d4@4 a3@6 ~@10 e4@4 ~@4 d4@5 ~@7, ~@12 d4@4 d2@6 f#3@6 f#3@6 f#3@4 ~@2 e3@8 e3@7 ~@7 a3@4 ~@4 c#4 ~@9, ~@18 d3@6 d4@5 ~@3 d3@10 d3@4 ~@10 a2@7 ~ f#2@7 ~ [g2,b3]@8]/5", // D5 G
  AH: "~@5 [f#3,f#4] g3 a3", AI: "e4 [f#3,f#4] g3 a3 e4 [f#3,f#4] g3 a3",
  AJ: "e4@2 [f#3,f#4]@2 g3@2 a3@2 ~@4 d4@2 b3 ~, ~@8 [g2,b3]@7 ~, ~@5 g3@2 ~", // F# G
  AK: "~@3 d4 f#4 e4 d4 c#4, f#2@3 ~, [a3,d4,f#4]@7 ~ [e2,g3,c#4]@7 ~, ~@4 e4@5 ~@7", // D C#dim
  AL: "~ d3 ~ d3, a2 ~ a2 ~, ~ f#3@2 ~@2 f#3@2 ~",
  AM: "[d3 ~@3 [a3,d4]@2 f#4@2 ~@6 d3@2 ~@2 g4@2 e4@2 b3@2 ~@2 c#4@2 ~@6 a3 ~@3 d3@2 ~@2 a3@2 g3@2 f#3@2, ~@2 f#3@4 d4 ~ d4@4 a3@6 ~@10 e4@4 f#2@6 c#4 ~ [g2,b3]@7 ~, ~@10 d3@4 ~@2 e3@7 ~ a2@6 a3@4 ~@2 d4@5 ~@7]/3", // D5 G
})).s("gm_acoustic_guitar_steel").gain(0.25).pan(0.7)

// chords · electric guitar clean
const electric_guitar_clean = note("<~@84 A B C A D E@2 F ~@45 A B C A D E@2 F ~@15>".pickRestart({
  A: "[a3,c#4,e4]", B: "[d4,f#4,a4]", C: "[b3,d4,g4] [a3,d4,f#4]", D: "[d4,f#4,a4] [g4,b4,d5]",
  E: "[[d4,f#4,a4]@2 b3@3 a3 [g3,b3,d4]@2, ~ f#4@2 ~]/2", F: "[f#3,a3,d4] [e3,g3,c#4]",
})).s("gm_electric_guitar_clean").gain(0.35)

// chords · epiano1
const epiano1 = note("<~@47 A@2 B C ~@21 A@2 B C ~@13 A@2 B C ~@30 D@3 B C ~@14 A@2 B C ~@4 A@2 B C ~@6>".pickRestart({
  A: "[~@2 b3@3 [a3,b3,c#4] [g3,b3,d4]@2, ~ [d4,f#4]@2 ~]/2", B: "[f#3,a3,d4] [e3,g3,c#4]", C: "[d3,f#3,a3]",
  D: "[~@2 b3@7 [a3,b3,c#4] [g3,b3,d4]@2, ~ [d4,f#4]@4 ~]/3", // A G D
})).s("gm_epiano1").gain(0.35).pan(0.3)

// other · pad new age
const pad_new_age = note(`<
  ~@3 A B ~@40 A B ~@23 A B ~@13 C D E F G@2 H I ~@31 J K ~@12 C D E L G@2 H M ~@14
>`.pickRestart({
  A: "~@5 a6 d6 e6", B: "a6 ~", C: "~@2 a5!2 a6@4", D: "b6 a6", E: "a6@5 a6 d6 e6", F: "a6 b6",
  G: "[a6@2 f#6@3 e6 d6 g6]/2", H: "f#6@4 f#6 e6 d6 c#6", I: "d6 ~", J: "~ d6", K: "c#6 b5", L: "a6", M: "d6@5 ~@11",
})).s("gm_pad_new_age").gain(0.4).pan(0.3)

// other · violin
const violin = note(`<
  ~@67 A@5 B@2 ~@18 C D E F G H@2 I J@2 ~@8 K L M N O P Q R ~@27 C D E F S T@2 I U V W@2 X@3
>`.pickRestart({
  A: "[a4@2 d5 e5 f#5@5 a4 e5 f#5 g5@5 d5 f#5 a5 d6@7 g5 e5@5 f#4 a4 d5 g5@4]/5", B: "[a5@5 g5 f#5 e5 d5@16 ~@8]/2",
  C: "a4@2 d5@2 f#5@2 a5 ~ a5@5 ~ a5 ~", D: "a5@4 g5 [g5,a5] f#5@2 e5@4 f#5@2 g5@2", E: "f#5@3 e5 d5@2 c#5 d5",
  F: "b4@6 d5@2 a4@7 ~", G: "a#4 a4@3 a5@3 a5 b5@6 b5@2", H: "[a5@2 f#5 [f#5,a5] e5@2 d5@2 f#5@14 ~@2 b4@4 g5@4]/2",
  I: "f#5@5 ~ f#5 ~ f#5@2 e5@2 d5@2 c#5@2", J: "d5/2", K: "d3 e3", L: "g3@4 a3@3 g3", M: "f#3@8 g3@6 a3 b3",
  N: "a3@3 g3", O: "f#3 g3", P: "e3@6 f#3 g3 f#3@6 e3@2", Q: "d3 a2", R: "f#3", S: "a4@3 ~ a5@3 a5 b5@6 b5@2, a#4 ~@15",
  T: "[a5@2 [f#5,a5] f#5 e5@2 d5@2 f#5@14 ~@2 b4@4 g5@4]/2", U: "a4 d5 f#5 a5 a5@3 a5",
  V: "a5@4 [g5,a5] g5 f#5@2 e5@4 f#5@2 g5@2", W: "[f#5@2 g5@2 e5@2 f#5@2 d5@2 ~ e5@2 c#5@2 d5@2 ~ b4@7 c#5@2 ~ a4@4]/2",
  X: "[~ g4@7 f#4@25 ~@15]/3",
})).s("gm_violin").gain(0.4).pan(0.7)

// bass · cello
const bass_2 = note("<~@129 A B C D E F G H ~@23>".pickRestart({
  A: "d2 e2", B: "g2 a2", C: "d2 g2", D: "a2@3 c#2", E: "d2 g1", F: "a1 d2", G: "g1 a1", H: "d2",
})).s("gm_cello").gain(0.35)

// bass · cello · soft notes
const bass_soft = note("<~@110 A B C D E F G H ~@42>".pickRestart({
  A: "d2 e2", B: "g2 a2", C: "d2 g2", D: "a2@3 c#2", E: "d2 g1", F: "a1 d2", G: "g1 a1", H: "d2",
})).s("gm_cello").gain(0.15)

// drums · kick
const kick = s("bd").struct(`<
  A ~ A ~ A B ~ C A ~@33 A ~ A ~ A B ~ C A@2 ~ A ~ A B ~ C A ~ A ~ A B ~ C A ~ A ~ A B ~ C A D A@2 E A F A G A@2 D A D A
  H I A D A D A J H B A ~ A@5 K A D ~@8 A ~ A ~ A B ~ H C ~@10 A@2 D A D A H I A D A D A J H B A D L M N ~@2
>`.pickRestart({
  A: "x", B: "~@3 x!2 ~@3", C: "~@7 x", D: "x ~@6 x", E: "x ~@5 x!2", F: "x ~@2 x ~@2 x ~", G: "x ~@2 x ~@3 x",
  H: "~ x", I: "~@4 x ~@2 x", J: "x ~@2 x!2 ~@3", K: "x ~@2 x ~@4", L: "x ~@3 x ~@3 x ~@4 x ~@2", M: "~ x ~@4 x ~",
  N: "~@5 x ~@2 x ~@7",
})).gain(0.45)

// drums · rim
const rim = s("rim").struct("<~@51 [~ x]!16 ~@35 [~ x]!8 ~@50>").gain(0.4)

// drums · snare
const snare = s("sd").struct(`<
  A B@5 C D E F ~@32 A B@5 C D G ~@16 A B@5 C D G H@8 I@5 ~ J K H@5 ~ F E ~@18 A B@5 ~ C D E F ~@8 I@6 J K H@5 ~ F E H@3
  L ~@3
>`.pickRestart({
  A: "~@4 x!4 ~@8", B: "x ~@3 x!5 ~@7", C: "~@8 x ~@3 x!4", D: "x ~@7 x ~@3 x!4", E: "x ~@13 x!2", F: "x", G: "x ~@6 x",
  H: "~ x", I: "~@4 x!5 ~@7", J: "~@12 x!4", K: "x ~@11 x!4", L: "~@3 x",
})).gain(0.2)

// drums · low tom
const low_tom = s("lt").struct(`<
  A@5 ~@2 B ~@34 A@5 ~@2 B ~@17 A@5 ~@2 B ~@9 A@5 ~@2 C D A@4 ~@2 B ~@18 A@5 ~@3 B ~@10 A@5 ~@2 C D A@4 ~@2 B A@3 E ~@3
>`.pickRestart({
  A: "~ x", B: "x", C: "x ~@11 x!4", D: "x!2", E: "~@3 x",
})).gain(0.5)

// drums · hihat
const hihat = s("hh").struct("<~@51 [x!8]!16 ~@9 [x!8]!4 [~ x!7] [x!6 ~@2] [x!8]!2 ~@76>").gain(0.2)

// drums · open hat
const open_hat = s("oh").struct("<~@75 A ~@5 B ~@9 A ~@9 A ~@42 A ~@15>".pickRestart({
  A: "~@7 x", B: "~@3 x",
})).gain(0.4)

// drums · crash
const crash = s("cr").struct(`<
  A ~@3 A ~@37 A ~@3 A ~@20 A ~@3 A ~@8 A ~ A ~ A ~@3 A ~@3 A ~@3 A ~@3 A ~@17 A ~@3 A ~@14 A ~@3 A ~@3 A ~@3 A ~@3 A ~
  A ~ B ~@2
>`.pickRestart({
  A: "x", B: "~ x",
})).gain(0.5)

// drums · ride
const ride = s("rd").struct("<~@92 A B@3 A B@3 ~@2 C@8 ~@35 A B@3 A B@3 A B D E F ~@2>".pickRestart({
  A: "~ x!7", B: "x!8", C: "x!4", D: "~@4 x ~@3 x ~@4 x ~@2", E: "~@2 x ~@4 x ~@4 x ~@3", F: "~ x ~@14",
})).gain(0.3)

stack(
  bass, acoustic_guitar_steel, electric_guitar_clean, epiano1, pad_new_age, violin, bass_2, bass_soft, kick, rim, snare,
  low_tom, hihat, open_hat, crash, ride
)