// Needles and Pins — Smokie
// 121 bpm, 4/4, key C# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 85 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 25.
setcpm(121/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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 · fretless bass
const bass = note(`<
  ~ A B@2 C D E F E G H I C G J I E G K L M N O P E G Q I C G Q R C G K S T U V W@2 X Y Z@2 AA AB AC AD AE AF AG AD AE
  AH AI AJ AK AL AG AM AN AO AP AQ AR AS AT AD AR AU AT AD AR AV AW AX AR AU AT AD AR AV AY@2
>`.pickRestart({
  A: "~@4 e2 ~ e2 ~", B: "[a1@21 ~@3 e2@2 ~@2 e2@2 ~@2]/2", C: "a1@4 ~@2 a1 ~ e2@4 ~@4",
  D: "a1@4 ~@2 a1 ~ e2@2 ~@2 e2@3 ~", E: "a1@4 ~@2 a1 ~ e2@4 ~@2 e2 ~", F: "a1@4 ~@2 a1 ~ e2@7 ~",
  G: "a1@4 ~@2 a1 ~ e2@3 ~ a1@3 ~", H: "f#2@4 ~@2 f#2 ~ c#2@4 ~@2 c#2 ~", I: "f#2@4 ~@2 f#2 ~ c#2@3 ~ f#2@3 ~",
  J: "f#2@5 ~ f#2 ~ c#2@4 ~@4", K: "f#2@4 ~@2 f#2 ~ c#2@5 ~@3", L: "f#2@4 ~@2 f#2 ~ c#2@2 ~@2 f#2@3 ~",
  M: "d2@4 ~@2 d2 ~ a1@4 ~@2 a1 ~", N: "d2@4 ~@2 d2 ~ a1@3 ~ d#2@3 ~", O: "e2@4 ~@2 e2 ~ b1@4 ~@2 b1 ~",
  P: "e2@4 ~@2 e2 ~ e2@3 ~ e2@2 c#2@2", Q: "f#2@4 ~@2 f#2 ~ c#2@4 ~@4", R: "f#2@3 ~@3 f#2 ~ c#2@3 ~ f#2@3 ~",
  S: "f#2@4 ~@2 f#2 ~ c#2@3 ~ f#2@4", T: "d2@4 ~@2 d2 ~ a1@4 ~@2 c2@2", U: "d2@4 ~@2 d2 ~ a1@5 ~ c2@2",
  V: "e2@4 ~@2 e2 ~ b1@4 ~@4", W: "[e2@4 ~@2 e2 ~ e2 ~ e2@2 d2@2 c#2@6 ~@2 c#2 ~ g#1@4 ~@2 g#1 ~]/2",
  X: "c#2@5 ~ c#2 ~ g#1@3 ~ c#2@3 ~", Y: "b1@4 ~@2 b1 ~ f#2@4 ~@2 f#2 ~",
  Z: "[b1@4 ~@2 b1 ~ b1 ~ b1@2 a#1@2 a1@6 ~@2 a1 ~ e2@4 ~@2 e2 ~]/2", AA: "a1@4 ~@2 a1 ~ e2@3 ~ a1@4",
  AB: "g#1@4 ~@2 g#1 ~ g#1 ~ g#1@3 ~ g#1 ~", AC: "g#1 ~ g#1@3 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~ g#1 ~",
  AD: "c#2@4 ~@2 c#2 ~ g#1@4 ~@4", AE: "c#2@4 ~@2 c#2 ~ g#1@3 ~ c#2@3 ~", AF: "a#1@5 ~ a#1 ~ f2@5 ~@3",
  AG: "a#1@4 ~@2 a#1 ~ f2@3 ~ a#1@3 ~", AH: "a#1@4 ~@2 a#1 ~ f2@4 ~@2 f2 ~", AI: "a#1 ~ a#1@3 ~ a#1 ~ f2@3 ~ a#1@3 ~",
  AJ: "c#2@4 ~@2 c#2 ~ g#1@4 ~@2 g#1@2", AK: "c#2 ~ c#2@2 ~@2 c#2 ~ g#1@3 ~ c#2@4", AL: "a#1@4 ~@2 a#1 ~ f2@4 ~@4",
  AM: "f#2 ~ f#2@3 ~ f#2@2 c#2 ~ c#2@3 ~ f2@2", AN: "f#2 ~ f#2@2 ~@2 f#2@2 c#2 ~ c#2@2 f#2@2 c#2@2",
  AO: "g#2 ~ g#2 ~ g#2 ~ g#2@2 g#2 ~ g#2 ~ g#2@2 d#2@2", AP: "g#2 ~ g#2@2 ~@2 g#2@2 ~@2 g#2@2 d#2@3 ~",
  AQ: "c#2@5 ~ c#2 ~ g#1@5 ~@3", AR: "c#2@4 ~@2 c#2 ~ g#1@3 ~ c#2@4", AS: "a#1@4 ~@2 a#1 ~ f2@5 ~ f2@2",
  AT: "a#1 ~ a#1@3 ~ a#1@2 f2@4 a#1@3 ~", AU: "a#1@4 ~@2 a#1 ~ f2@4 ~@2 f2@2", AV: "a#1@5 ~ a#1 ~ f2@4 ~@2 f2@2",
  AW: "a#1 ~ a#1@3 ~ a#1@2 f2@3 ~ a#1@4", AX: "c#2@4 ~@2 c#2 ~ g#1@4 ~@2 g#1 ~",
  AY: "[a#1 ~ a#1@3 ~ a#1@2 f2@2 f1@2 a#1@2 c#2@10 ~@8]/2",
})).s("gm_fretless_bass").gain(0.33)

// chords · synth strings 1
const synth_strings_1 = note(`<
  ~@4 A@6 B@2 C@2 B@2 C@2 B@2 D@2 E@2 C@2 B@2 C@2 B@2 C@2 B@2 D@2 F@4 G@4 H@2 I@2 J@2 I@2 J@2 I@2 J@2 K@2 L@2 I@2 J@2
  I@2 J@2 I@2 J@2 I@2 J@2 I@2 M@3
>`.pickRestart({
  A: "[a3,c#4,e4]/6", B: "[a3,c#4,f#4]/2", C: "[a3,c#4,e4]/2", D: "[a3,d4,f#4]/2", E: "[b3,e4,g#4]/2",
  F: "[[b3,e4,g#4]@15 [g#3,c#4,f4]@17]/4", G: "[[f#3,b3,d#4]@15 [a3,c#4,e4]@17]/4", H: "[d#3,g#3,c4]/2",
  I: "[f4,g#4,c#5]/2", J: "[f4,a#4,c#5]/2", K: "[f#4,a#4,c#5]/2", L: "[d#4,g#4,c5]/2",
  M: "[[f4,a#4,c#5]@15 [f4,g#4,c#5]@5 ~@4]/3", // A#m C#
})).s("gm_synth_strings_1").gain(0.11)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  A B C D E@5 F G H E F G H E F G H I J K L E F G H E F G H E F G H I J K M@2 N O P@2 F Q R S N T U S V T W S N T W X Y
  Q R S Z T AA S N T W S N T W S N T W S N T AB@2
>`.pickRestart({
  A: "~@4 [e3,a3,c#4,e4]@4 [e3,a3,b3,e4] ~ [e3,a3,c#4,e4]@4 [e3,a3,b3,e4]@2", // A Esus4 A Esus4
  B: "[e3,a3,d4,e4]@2 [e3,a3,c#4,e4]@2 [e3,g#3,b3,e4] ~ [e3,g#3,b3,e4] ~", // Dsus2 A E
  C: "[e3,a3,c#4,e4]@4 [e3,a3,c#4,e4]@4 [e3,a3,b3,e4] ~ [e3,a3,c#4,e4]@4 [e3,a3,b3,e4]@2", // A Esus4 A Esus4
  D: "[e3,a3,d4,e4]@4 [e3,a3,c#4,e4]@3 ~ [e3,g#3,b3,e4]@2 ~@2 [e3,g#3,b3,e4]@2 ~@2", // Dsus2 A E
  E: "[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]@2 [e3,a3,c#4,e4] ~ [e3,a3,c#4,e4]@2", // A
  F: "[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]@2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4] ~", // A
  G: "[f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4] ~ [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4] ~ [f#3,a3,c#4,f#4]@2", // F#m
  H: "[f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4] ~ [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4]@2 [f#3,a3,c#4,f#4] ~", // F#m
  I: "[d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~ [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~ [d3,a3,d4,f#4]@2", // D
  J: "[d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~ [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4] ~", // D
  K: "[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]@2 [e3,g#3,b3,e4] ~ [e3,g#3,b3,e4]@2", // E
  L: "[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]@2 [e3,g#3,b3,e4]@2 [e3,g#3,b3,e4] ~", // E
  M: "[[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]@2 [e3,g#3,b3,e4] ~ [f3,g#3,c#4,f4]@4 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2]/2", // E C#
  N: "[f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~", // C#
  O: "[d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4] ~ [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4] ~ [d#3,f#3,b3,d#4]@2", // B
  P: "[[d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4] ~ [d#3,f#3,b3,d#4] ~ [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4]@2 [d#3,f#3,b3,d#4] ~ [e3,a3,c#4,e4]@4 [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]@2 [e3,a3,c#4,e4] ~ [e3,a3,c#4,e4]@2]/2", // B A
  Q: "[d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4] ~ [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4] ~ [d#3,g#3,c4,g#4]@2", // G#
  R: "[d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4] ~ [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4]@2 [d#3,g#3,c4,g#4] ~", // G#
  S: "[f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2", // C#
  T: "[f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2", // A#m
  U: "[f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@4 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~", // A#m
  V: "[f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~", // C#
  W: "[f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~", // A#m
  X: "[f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4] ~ [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4] ~ [f#3,a#3,c#4,f#4]@2", // F#
  Y: "[f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4] ~ [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4]@2 [f#3,a#3,c#4,f#4] ~", // F#
  Z: "[f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~ [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4]@4 [f3,g#3,c#4,f4]@2 [f3,g#3,c#4,f4] ~", // C#
  AA: "[f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2", // A#m
  AB: "[[f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4]@2 [f3,a#3,c#4,f4] ~ [f3,a#3,c#4,f4]@10 ~@8]/2", // A#m
})).s("gm_acoustic_guitar_steel").gain(0.08).pan(0.8)

// other · electric guitar clean
const electric_guitar_clean = note(`<
  ~@2 A B A C@2 D@2 ~@7 A E A F ~@12 A E A F ~@20 G H I J ~@4 I K L J I K L J G K L J I K L J I K L M@2
>`.pickRestart({
  A: "~@2 c#3@2 b2 c#3@2 b2", B: "d3 c#3 ~@2", C: "[d3@2 c#3@2 b2 c#3 b2 c#3@2 ~ c#3@2 b2 c#3@2 b2]/2",
  D: "[d3@2 c#3@2 b2 c#3 b2 c#3@3 ~@6]/2", E: "d3@2 c#3@2 b2 c#3@3", F: "d3@3 ~ c#3@4 b2@2 c#3@6",
  G: "~@4 f3@4 d#3 ~ f3@4 d#3@2", H: "f#3@2 f3@2 d#3 f3@3", I: "~@2 f3@2 d#3 f3@2 d#3", J: "f#3@3 ~ f3@4 d#3@2 f3@5 ~",
  K: "f#3@4 f3@3 ~ d#3@2 f3@6", L: "~@4 f3@3 ~ d#3@2 f3@4 d#3@2", M: "[f#3@3 ~ f3@4 d#3@2 f3@2 d#3@2 f3@10 ~@8]/2",
})).s("gm_electric_guitar_clean").gain(0.28).pan(0.7)

// chords · overdriven guitar
const overdriven_guitar = note("<~@39 A@3 B@4 C@2 ~@37>".pickRestart({
  A: "[~@10 [e3,b3]@2 [d3,a3]@2 [c#3,g#3]@33 ~]/3", B: "[[b2,f#3]@26 [b2,f#3]@2 [a#2,f3]@2 [a2,e3]@33 ~]/4",
  C: "[g#2,d#3]/2", // G#5
})).s("gm_overdriven_guitar").gain(0.16).pan(0.3)

// chords · acoustic guitar steel
const acoustic_guitar_steel_2 = note("<~@4 A B A B ~@8 C D C E ~@12 C D C E ~@20 F G H I ~@23 J@2>".pickRestart({
  A: "~@4 b3 ~@2 b3", B: "d4@2 ~@2 b3 ~ b3 ~", C: "~@8 b3@2 ~@4 b3 ~", D: "d4@3 ~@5 b3 ~@7", E: "d4@3 ~@5 b3@2 ~@6",
  F: "~@8 d#4@2 ~@4 d#4 ~", G: "f#4@3 ~@5 d#4 ~@7", H: "~@4 d#4 ~@2 d#4", I: "f#4@3 ~@5 d#4@2 ~@6",
  J: "[~@7 g#3@5 ~@4]/2",
})).s("gm_acoustic_guitar_steel").gain(0.09).pan(0.2)

// drums · kick
const kick = s("bd").struct("<~ A B A C@19 D C@7 E C@7 F G C@2 F G C H@2 C@13 I@2 J C@15 K C@3 F ~>".pickRestart({
  A: "~@2 x!2", B: "x", C: "x ~@2 x!2 ~@3", D: "x ~@2 x ~ x ~@2", E: "x ~@2 x ~ x ~ x", F: "x ~@2 x ~ x!3",
  G: "~ x ~ x!2 ~@3", H: "x!4", I: "x ~@2 x!2 ~@2 x", J: "x ~@2 x ~@4", K: "x ~@5 x ~@3 x!2 ~@2 x ~",
})).gain(0.45)

// drums · snare
const snare = s("sd").struct("<~@4 A@3 B A@15 C A@7 D A@7 E A@3 E A@2 F@2 A@7 G A@7 H A@15 C A@3 E ~>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@5 x!3 ~ x ~", C: "~ x ~@2 x ~ x ~", D: "~ x!3", E: "~ x!2 ~", F: "x!8", G: "~@2 x ~@3 x!2",
  H: "~@2 x ~@5 x ~@3 x ~ x!2",
})).gain(0.45)

// drums · low tom
const low_tom = s("lt").struct("<~@47 [x!8] ~@37>").gain(0.3)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@46 [~ x!7] ~@36 [~@5 x ~@2] ~>").gain(0.3)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@5 A ~ B ~@3 A ~@7 A ~@3 C ~@7 D ~@3 A ~@10 E ~@8 A ~@7 F ~@15 G ~@3 H ~
>`.pickRestart({
  A: "~@7 x", B: "~ x", C: "~ x ~@5 x", D: "~@4 x ~ x!2", E: "x", F: "~ x ~@2 x ~ x ~", G: "~@3 x", H: "~@3 x ~@4",
})).gain(0.2)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@40 [x!16]!8 ~@37>").gain(0.1)

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

stack(
  bass, synth_strings_1, acoustic_guitar_steel, electric_guitar_clean, overdriven_guitar, acoustic_guitar_steel_2, kick,
  snare, low_tom, hihat, mid_tom, open_hat, crash, tambourine, ride
)