// Honky Tonk — The Ventures
// 160 bpm, 12/8, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 77 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(160/6)

// 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 · acoustic guitar steel · "Rhythm"
const acoustic_guitar_steel = note(`<
  A B C D E F G F H G@2 F@2 I G J K F G F H G@2 F@2 I G J K F G F L G@2 F@2 I G J K M N O L G@2 F@2 I G J K F G F L G@2
  F@2 I G J K P Q P@2 Q@2 P@2 R Q P S
>`.pickRestart({
  A: "~@11 b2", B: "f#3@3 ~ b2@2 g#3@3 ~ b2@2 a3@4 b2@2 g#3@3 ~ a2@2",
  C: "e3@3 ~ a2@2 f#3@3 ~ a2@2 g3@4 a2@2 f#3@3 ~ e2@2", D: "b2@3 ~ e2@2 d3@4 e2@2 b2@3 ~ e2@2 d3@4 e2@2",
  E: "b2@3 ~ a2@2 a#2@4 b2@8 ~@6",
  F: "[e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~@2 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~@2 [e3,g#3,b3,e4]", // E
  G: "[e3,a3,c#4,e4]@2 [e3,a3,c#4,e4] ~@2 [e3,a3,c#4,e4] [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4] ~@2 [e3,a3,c#4,e4]", // A
  H: "[e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~@2 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~@2 [e3,g#3,c#4,e4]", // E C#m
  I: "[f#3,b3,d#4,f#4]@2 [f#3,b3,d#4,f#4] ~@2 [f#3,b3,d#4,g#4] [f#3,b3,d#4,g#4]@2 [f#3,b3,d#4,g#4] ~@2 [f#3,b3,d#4,g#4]", // B G#m7
  J: "[e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~@2 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@2 ~", // E
  K: "~@2 [f#3,b3,d#4,g#4] [f#3,b3,d#4,g#4]@2 [f#3,b3,d#4,g#4] [f#3,b3,d#4,g#4]@2 [f#3,b3,d#4,g#4] [f#3,b3,d#4,g#4]@2 ~", // G#m7
  L: "[e3,g#3,b3,e4]!6 [e3,g#3,d4,e4]!6", M: "[e3,g#3,b3,e4] ~@7 [e3,g#3,b3,e4] [e3,g#3,b3,e4]@2 ~",
  N: "[e3,a3,c#4,g4] ~@7 [e3,a3,c#4,g4] [e3,a3,c#4,g4]@2 ~", O: "[e3,g#3,b3,e4] ~@5 [e3,g#3,b3,e4] ~@5",
  P: "[e3,g#3,b3]@2 b3!2 c#4 ~ c#4 ~@2 c#4 b3 e3, ~@4 e3@17 ~@3, ~@2 g#3@5 b3@2 ~@3, ~@10 e4@13 ~, ~@4 g#3 ~", // E
  Q: "a2@2 ~ e3 f#3 ~ f#3 ~@2 f#3 e3 a2, [e3,a3]@7 ~@3 a3@13 ~, ~@4 a2@12 a2@5 ~@3, ~@7 e3@2 ~@3", // A5
  R: "b2@2 ~ f#3 g#3 ~ g#3 ~@2 g#3 f#3 b2, [f#3,b3]@7 ~@3 b3@13 ~, ~@4 b2@12 b2@5 ~@3, ~@7 f#3@2 ~@3", // B5
  S: "~@2 [d4,f#4,a4,d5] [d#4,g4,a#4,d#5]@2 [e4,g#4,b4,e5]@7", // D D# E
})).s("gm_acoustic_guitar_steel").gain(0.2).pan(0.3)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~@5 A B A C D E F G H B I J K L K@2 M@2 A N H B I J O M P N D E P N H B A J Q R S N B T P G H B G U V W A N B@2 A G H
  B I J O M O@2 M@2 O@2 X M O Y
>`.pickRestart({
  A: "e1@2 e1 g#1@2 g#1 b1@2 b1 c#2@2 b1", B: "a1@2 a1 c#2@2 c#2 e2@2 e2 f#2@2 e2",
  C: "e2@2 e2 d2@2 d2 c#2@2 c#2 b1@2 b1", D: "a1@2 a1 c#2@2 c#2 e2@2 e2 f#2@2 f#2",
  E: "g2@2 g2 f#2@2 f#2 e2@2 e2 c#2@2 c#2", F: "e2@2 e2 e2@2 c#2 b1@2 b1 c#2@2 b1",
  G: "e1@2 e1 g#1@2 g#1 a1@2 a1 a#1@2 a#1", H: "b1@2 b1 d#2@2 d#2 f#2@2 f#2 g#2@2 f#2",
  I: "e1@2 e1 g#1@2 g#1 a1@2 a1 a#1@2 ~", J: "~@2 b1 b1@2 b1 b1@2 b1 b1@2 b1", K: "e1@2 g#1 c#2@2 g#1 b1@2 g#1 a1@2 b1",
  L: "a1@2 c#2 f#2@2 c#2 e2@2 c#2 d2@2 e2", M: "a1@2 a1 c#2@2 c#2 e2@2 e2 c#2@2 c#2",
  N: "d2@2 d2 c#2@2 c#2 b1@2 b1 g#1@2 g#1", O: "e1@2 e1 g#1@2 g#1 b1@2 b1 g#1@2 g#1",
  P: "e1@2 e1 g#1@2 g#1 b1@2 b1 c#2@2 c#2", Q: "e1 ~@7 b1 b1@2 ~", R: "a1 ~@7 b1 b1@2 ~", S: "e1 ~@5 g#1 ~@5",
  T: "a1@2 a1 b1@2 b1 e2@2 e2 f#2@2 e2", U: "b1@2 b1 b1@2 b1 b1@2 b1 b1@2 b1",
  V: "e1@2 e1 g#1@2 g#1 b1@2 b1 c#2 b1 g#1", W: "a1@2 a1 c#2@2 c#2 e2@2 e2 f#2 e2 c#2",
  X: "b1@2 b1 d#2@2 d#2 f#2@2 f#2 d#2@2 d#2", Y: "e1 ~ f#2 f2@2 e2@7",
})).s("gm_electric_bass_finger").gain(0.27).pan(0.7)

// chords · electric guitar jazz · "Lead 8va"
const electric_guitar_jazz = note(`<
  ~@4 A B C D@2 B C E@2 F G H I J K L M N K O P F G Q I R S T U V W T U X Y Z AA AB AC AD AE AF@2 AG@2 F AH AI@2 AJ AK
  AJ AL@4 AM F G AN I AO AP AO@2 AP AQ AO AR AS AT AO AU
>`.pickRestart({
  A: "~@9 b3 c4 c#4", B: "e4@5 g#4@4 ~@3", C: "~@6 g4@4 f#4 g4 f#4@4 e4@2 c#4@2 d4@2 ~@2",
  D: "[~@2 b3@6 ~ c#4 g#3 b2@3 [g#3,b3] [g#3,d4]@2 [g#3,c#4]@3 ~ b3 c4 c#4]/2", // G#m G#dim C#5
  E: "[~@2 b3@6 ~ c#4 g#3 b2@3 [g#3,b3] [g#3,d4]@2 [g#3,c#4]@3 ~ b3 c#4 d4]/2", F: "d#4 b4 d#4 d4 a#4 d4 c#4@3 ~ b3 c4",
  G: "c#4 a4 c#4 c4 g#4 c4 b3@3 g4 e4 b3",
  H: "[b3,e4]@2 [b3,e4]@2 [b3,e4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [a#3,c#4]@2 [a#3,c#4]@2 [a#3,c#4]@2 [a3,c4]@3 ~@3", // E5 Bm A#m Am
  I: "~@2 [f#3,b3,d#4] [f#3,b3,d#4]@2 [f#3,b3,d#4] [f#3,b3,d#4]@2 [f#3,b3,d#4] [f#3,b3,d#4]@2 ~", // B
  J: "[g#4,b4]!3 [c#5,e5]!3 [g#4,b4]!3 [c#5,e5]!3", K: "[g4,b4]!3 [c#5,e5]!3 [g4,b4]!3 [c#5,e5]@2 ~",
  L: "[g#4,b4]@2 [e4,g#4] [g#4,b4]@3 ~@2 [g#4,b4] [g#4,b4]@2 [a4,c#5]", // G#m E G#m A
  M: "[g#4,b4]@2 [e4,g#4] [d#4,g4]@2 [d4,f#4]@6 ~", N: "[g4,b4]!3 [c#5,e5]!3 [g4,b4]!3 [c#5,e5]!3",
  O: "[g#4,b4]@3 ~ [e4,g#4]@2 [g#4,b4]@3 ~@7 [g#4,b4]@2 [g#4,b4]@4 [a4,c#5]@2", // G#m E G#m A
  P: "[g#4,b4]@2 [e4,g#4] [g#4,b4] ~@5 b3 c#4 d4", // G#m E G#m
  Q: "[g#3,b3,e4]@2 [g#3,b3,e4]@2 [g#3,b3,e4]@2 [b3,d4]@2 [b3,d4]@2 [b3,d4]@2 [a#3,c#4]@2 [a#3,c#4]@2 [a#3,c#4]@2 [a3,c4]@3 ~@3", // E Bm A#m Am
  R: "[g#2,b2]@2 [g#2,b2] [a2,c#3]@2 [a2,c#3] [b2,d3]@2 [b2,d3] [a2,c#3]@2 [a2,c#3]", // G#m A Bm A
  S: "[c#3,e3]@2 [c#3,e3] [d3,f#3]@2 [d3,f#3] [e3,g3]@2 [e3,g3] [d3,f#3]@2 [d3,f#3]", // C#m D Em D
  T: "[g#2,b2]@2 [g#2,b2] [a2,c#3]@2 [a2,c#3] [b2,d3]@2 [b2,d3] [c#3,e3]@2 [c#3,e3]", // G#m A Bm C#m
  U: "[d3,f#3]@2 [d3,f#3] [c#3,e3]@2 [c#3,e3] [b2,d3]@2 [b2,d3] [a2,c#3]@2 [a2,c#3]", // D C#m Bm A
  V: "[c#3,e3]!3 [d3,f#3]!3 [e3,g3]!3 [f#3,a3]!3", W: "[g3,b3]!3 [f#3,a3]!3 [e3,g3]!3 [d3,f#3]@2 [d3,f#3]",
  X: "[d#3,f#3]@2 [d#3,f#3] [e3,g#3]@2 [e3,g#3] [f#3,a3]@2 [f#3,a3] [g#3,b3]@2 [f#3,a3]", // D#m E F#m G#m F#m
  Y: "[c#3,e3]@2 [c#3,e3] [d3,f#3]@2 [d3,f#3] [e3,g3]@2 [e3,g3] [f#3,a3]@2 [e3,g3]", // C#m D Em F#m Em
  Z: "[g#2,b2]@2 [g#2,b2] [a2,c#3]@2 [a2,c#3] [b2,d3]@2 [b2,d3] [c#3,e3]@2 [b2,d3]", // G#m A Bm C#m Bm
  AA: "~@2 [b2,f#3] [b2,f#3]@2 [b2,f#3] [b2,f#3]@2 [b2,f#3] [b2,f#3]@2 ~", // B5
  AB: "[b3,e4,g#4]!3 b3 c#4 b3 [b3,e4,g#4] ~@5, ~ [e4,g#4] ~@2", // E
  AC: "[b3,e4,g4]!3 b3 c#4 b3 [b3,e4,g4] ~@5, ~ [e4,g4] ~@2", // Em
  AD: "[b3,e4,g#4]!3 b3 c#4 b3 [b3,e4,g#4]!3 b3 c#4 b3, ~ [e4,g#4] ~ [e4,g#4]", AE: "[b3,e4,g#4]!6 [b4,d5]!6",
  AF: "[f#5@5 e5@4 ~ c#5@5 ~@2 c#5 b4@2 g#4 e4 ~@2]/2",
  AG: "[e4 g#4 b4 c#5 b4 c#5 b4 c#5 b4 c#5 e5 g#5@5 e5 c#5 b4@2 ~ b3 c#4 d4]/2",
  AH: "c#4 a4 c#4 c4 g#4 c4 b3@2 g4@2 e4 ~",
  AI: "[[b3,e4]@2 [b3,e4]@2 ~ [b3,e4] [b3,d4]@3 [a3,c#4]@2 [f#3,a3,b3]@3 [b2,f#3,b3] [b2,f#3,b3]@2 [b2,f#3,b3] [b2,f#3,b3]@2 [b2,f#3,b3] [b2,f#3,b3]@2 ~]/2", // E5 Bm A B7 B5
  AJ: "~@11 b3, g#4!4, ~ e4@3 e4@3 e4@3 e4@2, ~@2 b3@3 b3@3 b3@3 ~",
  AK: "~@11 c#4, g4!4, ~ e4@3 e4@3 e4@3 e4@2, ~@2 c#4@3 c#4@3 c#4@3 ~",
  AL: "[c#5 b4 g#4 f#4 e4 d4@2 ~@2 b4@4 a4 f#4 e4 a3 c#4@3 ~ b4@4 a4 f#4 e4 a3 c#4@3 ~ f#4@4 e4 c#4 b3 e3 g#3@2 e3@2 e3!2 g#3]/4",
  AM: "g#3!5 b3@2 ~@2 b3 c#4 d4",
  AN: "[g#3,b3,e4]@4 [g#3,b3,e4]@2 [b3,d4]@4 [b3,d4]@2 [a#3,c#4]@4 [a#3,c#4]@2 [a3,c4]@3 ~@3", AO: "b2 d3 b2 d3",
  AP: "e3 g3 e3 g3", AQ: "e3 g3!3", AR: "b2 d3!2 c#3", AS: "f#3 a3!2 g#3", AT: "e3 g3!2 f#3", AU: "b2 ~@11",
})).s("gm_electric_guitar_jazz").gain(0.4)

// drums · kick
const kick = s("bd").struct("<~@5 A@11 ~ A@11 ~ A@3 ~ A@7 ~@5 A@7 ~ A@3 ~ A@7 ~ A@11 ~>".pickRestart({
  A: "x!2",
})).gain(0.28)

// drums · snare
const snare = s("sd").struct("<~@4 A B@11 A B@11 A B@3 C B@7 A D@2 E C B@7 A B@3 C B@7 A B@11 F>".pickRestart({
  A: "~@2 x!2 ~ x!2 ~ x!2 ~@2", B: "~ x ~ x", C: "x!12", D: "x ~@7 x!2 ~@2", E: "x!2", F: "~@2 x!2 ~ x ~@6",
})).gain(0.28)

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 [~@4 x ~@2 x ~@2 x!2] ~@72>").gain(0.32)

// drums · ride
const ride = s("rd").struct("<~@4 A B@10 C D B@10 C D B@3 ~ B@6 C D ~@4 B@6 C D B@3 ~ B@6 C D B@10 C ~>".pickRestart({
  A: "x!12", B: "x ~ x!2 ~ x!2 ~ x!2 ~ x", C: "x ~ x!2 ~ x!2 ~ x!2 ~@2", D: "~@2 x!2 ~ x!2 ~ x!2 ~@2",
})).gain(0.32)

// drums · crash
const crash = s("cr").struct("<~@32 A ~@8 B@2 C A ~@11 A ~@19 D>".pickRestart({
  A: "x!12", B: "x", C: "x!2", D: "~@2 x!2 ~ x ~@6",
})).gain(0.2)

stack(acoustic_guitar_steel, bass, electric_guitar_jazz, kick, snare, mid_tom, ride, crash)