// Down in the Alley — Elvis Presley
// 75 bpm, 4/4, key A major. 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 49 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(75/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 · piano · "PIANO RITE"
const piano = note(`<
  ~ A@2 B A@2 C A D A@2 B A@2 C A E F G H I J K@2 L M N O P Q R@2 S A@2 B A@2 C A@4 B A@2 C A T
>`.pickRestart({
  A: "[e5,a5,c#6]!12", B: "[f#5,a5,d6]!12", C: "[e5,g#5,b5]!12", D: "[e5,a5,c#6]!7 [e5,g#5,b5]!5",
  E: "[e5,a5,c#6]@2 [e5,a5,c#6]@2 [e5,a5,c#6]@2 [e5,a5,c#6]@2 [e5,a5,c#6]@2 [e5,a5,c#6]@2 [e5,a5,c#6]@2 ~@2 g4@2 [b4,d5] ~@3 [c5,e5]@2", // A Bm C
  F: "[d5,g5]@4 d5 [d5,g5]!2 d5 [d5,g5]!2 d5 [d5,g5]!2 d5 [d5,g5] g5 [d5,g5]@2 d5@4 [g4,d5]@2, ~@3 g5", // G5
  G: "[a4,d5]@3 ~@13 [d5,g5]@2 [d5,g5]@3 ~ [d5,g5]@2, g4 ~@23", // D5 G5
  H: "[d5,g5]@3 ~ c5@2 ~@10 [d5,g5]@2 ~@4 [a4,a5]@2, ~@3 e5@2 ~@13 [d5,g5]@6", // G5 A G5
  I: "[g4,g5]@3 ~@13 [g4,b4]@2 ~ b4@2 [b4,d5] [c5,e5] ~, ~@19 g4 ~@4", // G Bm C
  J: "~ [c5,c#5] ~@2 [c#5,g5]@2 d5 g5!2 ~ g5 ~@5 [d5,g5]@2 [d5,g5]@4 ~@2, g5@3 ~ f#5 ~@19, ~ d5@2 ~@13 c#5 ~@7", // C#maj7 C#dim G5
  K: "[[c#5,f#5] d5@2 ~ [c5,g5]@3 ~@9 [d5,g5]@2 [d5,g5]@4 ~@2 [a#4,a#5]@4 ~@12 [c5,e5]@2 d5@2 [g4,b4] ~ c4@2, g5@3 ~@19 g4@6 [g4,g5]@15 ~@2 d4@2 ~]/2", // F#5 C5 G5 A# C G
  L: "[a3,a#3] b3@8 ~@7 g5@2 d6@2 ~@2 [c6,e6]@2, ~@18 b5 ~@5", // A#maj7 C
  M: "[d6,g6]@4 d6 [d6,g6]!2 d6 [d6,g6]!2 d6 [d6,g6]!2 d6 [d6,g6] g6 [d6,g6]@2 d6@4 [g5,d6]@2, ~@3 g6", // G5
  N: "[a5,d6]@3 ~@13 [d6,g6]@2 [d6,g6]@3 ~ [d6,g6]@2, g5 ~@23", // D5 G5
  O: "[d6,g6]@3 ~ c6@2 ~@10 [d6,g6]@2 ~@4 [a5,a6]@2, ~@3 e6@2 ~@13 [d6,g6]@6", // G5 A G5
  P: "[g5,g6]@3 ~@13 [g5,b5]@2 ~ b5@2 [b5,d6] [c6,e6] ~, ~@19 g5 ~@4", // G Bm C
  Q: "~ [c6,c#6] ~@2 [c#6,g6]@2 d6 g6!2 ~ g6 ~@5 [d6,g6]@2 [d6,g6]@4 ~@2, g6@3 ~ f#6 ~@19, ~ d6@2 ~@13 c#6 ~@7", // C#maj7 C#dim G5
  R: "[[c#6,f#6] d6@2 ~ [c6,g6]@3 ~@9 [d6,g6]@2 [d6,g6]@4 ~@2 [a#5,a#6]@4 ~@12 [c6,e6]@2 d6@2 [g5,b5] ~ c5@2, g6@3 ~@19 g5@6 [g5,g6]@15 ~@2 d5@2 ~]/2", // F#5 C5 G5 A# C G
  S: "[a4,a#4] b4@8 ~@15", T: "[e5,a5,c#6]!7 ~@5",
})).s("gm_piano").gain(0.11)

// chords · piano · "PIANO RITE" · soft notes
const piano_soft = note("<~@18 A B C D E F G ~ H I J K L M N ~@16>".pickRestart({
  A: "~@2 a#4 b4 [b4,d5] d5 [b4,d5]!2 b4!2 ~ b4 b4@4 ~@8, ~@9 d5@7 ~@8", // Bm
  B: "~@6 [c5,e5]!2 e5 [c5,e5] c5 [c5,e5]@5 ~@4 a#5@4", // C
  C: "~@3 g5 [g4,g5] g4 [g4,g5] ~ g4!2 ~@3 g4@2 ~@9, ~@2 g4@2 ~@3 g5@3 g4@3 ~@11, ~@11 g5@4 ~@9", // G
  D: "~@7 d5 ~ d5!2 g5 g5@3 ~@9, ~@11 d5@4 ~@9", E: "~@7 [c5,g5] g5 [c5,g5] c5 [c5,g5]@5 ~@8", F: "~@19 a#4 ~@4",
  G: "g4@5 g4 ~ g4!2 b3@2 [b3,g4] g4 [b3,g4] ~ g4 g4@2 ~@6, ~@9 g4 ~@4 b3@2 b3 ~@7", // Em
  H: "~@2 a#5 b5 [b5,d6] d6 [b5,d6]!2 b5!2 ~ b5 b5@4 ~@8, ~@9 d6@7 ~@8", // Bm
  I: "~@6 [c6,e6]!2 e6 [c6,e6] c6 [c6,e6]@5 ~@4 a#6@4", // C
  J: "~@3 g6 [g5,g6] g5 [g5,g6] ~ g5!2 ~@3 g5@2 ~@9, ~@2 g5@2 ~@3 g6@3 g5@3 ~@11, ~@11 g6@4 ~@9", // G
  K: "~@7 d6 ~ d6!2 g6 g6@3 ~@9, ~@11 d6@4 ~@9", L: "~@7 [c6,g6] g6 [c6,g6] c6 [c6,g6]@5 ~@8", M: "~@19 a#5 ~@4",
  N: "g5@5 g5 ~ g5!2 b4@2 [b4,g5] g5 [b4,g5] ~ g5 g5@2 ~@6, ~@9 g5 ~@4 b4@2 b4 ~@7", // Em
})).s("gm_piano").gain(0.06)

// bass · electric bass finger · "BASS"
const bass = note(`<
  ~ A@2 B A@2 C A@4 B A@2 C A@2 D@2 E D@2 F D@4 E D@2 F D@2 A@2 B A@2 C A@4 B A@2 C A G
>`.pickRestart({
  A: "a1 ~ a1 c2 ~ c#2 e2 ~ e2 f#2 ~ e2", B: "d2 ~ d2 f2 ~ f#2 a2 ~ a2 b2 ~ a2", C: "e1 ~ e1 g1 ~ g#1 b1 ~ b1 c#2 ~ b1",
  D: "g1 ~ g1 a#1 ~ b1 d2 ~ d2 e2 ~ d2", E: "c2 ~ c2 d#2 ~ e2 g2 ~ g2 a2 ~ g2", F: "d1 ~ d1 f1 ~ f#1 a1 ~ a1 b1 ~ a1",
  G: "a1 ~ a1 c2 ~ c#2 e2 ~ e2 f#2 ~@2",
})).s("gm_electric_bass_finger").gain(0.44)

// chords · electric guitar muted · "MUTE GUITAR"
const electric_guitar_muted = note(`<
  ~ A@2 B A@2 C A@4 B A@2 C A@2 D@2 E D@2 F D@4 E D@2 F D@2 A@2 B A@2 C A@4 B A@2 C A G
>`.pickRestart({
  A: "[a2,e3] ~ [a2,e3] [a2,f#3] ~ [a2,f#3] [a2,e3] ~ [a2,e3] [a2,f#3] ~ [a2,f#3]", // A5 D A5 D
  B: "[d3,a3] ~ [d3,a3] [d3,b3] ~ [d3,b3] [d3,a3] ~ [d3,a3] [d3,b3] ~ [d3,b3]", // D5 G D5 G
  C: "[e2,b2] ~ [e2,b2] [e2,c#3] ~ [e2,c#3] [e2,b2] ~ [e2,b2] [e2,c#3] ~ [e2,c#3]", // E5 C#m E5 C#m
  D: "[g2,d3] ~ [g2,d3] [g2,e3] ~ [g2,e3] [g2,d3] ~ [g2,d3] [g2,e3] ~ [g2,e3]", // G5 C G5 C
  E: "[c3,g3] ~ [c3,g3] [c3,a3] ~ [c3,a3] [c3,g3] ~ [c3,g3] [c3,a3] ~ [c3,a3]", // C5 F C5 F
  F: "[d2,a2] ~ [d2,a2] [d2,b2] ~ [d2,b2] [d2,a2] ~ [d2,a2] [d2,b2] ~ [d2,b2]", // D5 G D5 G
  G: "[a2,e3] ~ [a2,e3] [a2,f#3] ~ [a2,f#3] [a2,e3] ~ [a2,e3] [a2,f#3] ~@2", // A5 D A5 D
})).s("gm_electric_guitar_muted").gain(0.49)

// chords · distortion guitar · "GUITAR MELODY"
const distortion_guitar = note(`<
  A B C D E F G H I J K L M N O P Q ~@15 A R C D E F S T I J K L M N O P Q
>`.pickRestart({
  A: "~@8 a4 c#5@2 d5", B: "e5@4 e5@11 ~ e5@2 e5@4 a4@2", C: "c#5@15 ~ e5@2 e5@4 e5@2",
  D: "e5@4 d5@11 ~ e5@2 e5@4 c5@2", E: "a4@7 ~ a4 c#5@2 d5", F: "e5@2 e5@5 ~ e5 e5@2 e5",
  G: "e5@4 d5@11 ~ e5@2 e5@4 a4@2", H: "c5@4 a4@11 ~ e5@2 e5@4 c5@2", I: "a4@6 ~@2 [a4,c#5] [c#5,e5]@2 [d5,f#5]",
  J: "[e5,a5]@4 [e5,a5]@11 ~ [e5,a5]@2 [e5,a5]@4 [a4,c#5]@2", K: "[c#5,e5]@15 ~ [e5,a5]@2 [e5,a5]@4 [e5,a5]@2",
  L: "[e5,a5]@2 [d5,f#5]@6 [e5,a5] [e5,a5]@2 [c5,e5]", M: "[a4,c#5]@7 ~ [a4,c#5] [c#5,e5]@2 [d5,f#5]",
  N: "[e5,a5]@2 a5@6 [e5,a5] [e5,a5]@2 [e5,a5], ~@2 e5@5 ~@5", // A5
  O: "[e5,a5]@2 d5@6 [e5,a5] [e5,a5]@2 [a4,c#5], ~@2 g#5@5 ~@5", P: "[c5,e5]@2 [a4,c#5]@6 [e5,a5] [e5,a5]@2 [c5,e5]",
  Q: "c#5@2 ~, a4 ~", R: "e5@2 e5@6 e5 e5@2 a4", S: "e5@2 d5@6 e5 e5@2 a4", T: "c5@2 a4@6 e5 e5@2 c5",
})).s("gm_distortion_guitar").gain(0.4)

// chords · electric guitar clean · "CHINK GUITAR"
const electric_guitar_clean = note(`<
  ~ A@2 B A@2 C A@4 B A@2 C A@2 D@2 E D@2 F D@4 E D@2 F D@2 A@2 B A@2 C A@4 B A@2 C A@2
>`.pickRestart({
  A: "~@6 [e5,a5,c#6] ~@11 [e5,a5,c#6] ~@5", B: "~@6 [f#5,a5,d6] ~@11 [f#5,a5,d6] ~@5",
  C: "~@6 [e5,g#5,b5] ~@11 [e5,g#5,b5] ~@5", D: "~@6 [d5,g5,b5] ~@11 [d5,g5,b5] ~@5",
  E: "~@6 [e5,g5,c6] ~@11 [e5,g5,c6] ~@5", F: "~@6 [d5,f#5,a5] ~@11 [d5,f#5,a5] ~@5",
})).s("gm_electric_guitar_clean").gain(0.24)

// chords · rock organ · "ORGAN"
const rock_organ = note(`<
  ~ A@2 B A@2 C A@4 B A@2 C A@2 D@2 E D@2 F D@4 E D@2 F D@2 A@2 B A@2 C A@4 B A@2 C A G
>`.pickRestart({
  A: "a2 ~@3 a2 ~ [e5,a5,c#6] ~@3 [e5,a5,c#6] ~ a2 ~@3 a2 ~ [e5,a5,c#6] ~@3 [e5,a5,c#6] ~", // A
  B: "d3 ~@3 d3 ~ [f#5,a5,d6] ~@3 [f#5,a5,d6] ~ d3 ~@3 d3 ~ [f#5,a5,d6] ~@3 [f#5,a5,d6] ~", // D
  C: "e2 ~@3 e2 ~ [e5,g#5,b5] ~@3 [e5,g#5,b5] ~ e2 ~@3 e2 ~ [e5,g#5,b5] ~@3 [e5,g#5,b5] ~", // E
  D: "g2 ~@3 g2 ~ [d5,g5,b5] ~@3 [d5,g5,b5] ~ g2 ~@3 g2 ~ [d5,g5,b5] ~@3 [d5,g5,b5] ~", // G
  E: "c3 ~@3 c3 ~ [e5,g5,c6] ~@3 [e5,g5,c6] ~ c3 ~@3 c3 ~ [e5,g5,c6] ~@3 [e5,g5,c6] ~", // C
  F: "d2 ~@3 d2 ~ [d5,f#5,a5] ~@3 [d5,f#5,a5] ~ d2 ~@3 d2 ~ [d5,f#5,a5] ~@3 [d5,f#5,a5] ~", // D
  G: "a2 ~@3 a2 ~ [e5,a5,c#6] ~@3 [e5,a5,c#6] ~ a2 ~@3 a2 ~ [e5,a5,c#6] ~@5", // A
})).s("gm_rock_organ").gain(0.32)

// drums · kick
const kick = s("bd").struct("<~ [x ~@4 x!2 ~@5]!48>").gain(0.29)

// drums · snare
const snare = s("sd").struct("<~ [~ x ~ x]!48>").gain(0.34)

// drums · hihat
const hihat = s("hh").struct("<~ [x ~ x!2 ~ x!2 ~ x!2 ~ x]!47 [x ~ x!2 ~ x!2 ~ x!2 ~@2]>").gain(0.29)

// drums · ride
const ride = s("rd").struct("<~@17 [x!4]!16 ~@16>").gain(0.29)

// drums · crash
const crash = s("cr").struct("<~ A ~@7 A ~@7 A ~@15 A ~@7 A ~@7>".pickRestart({
  A: "x",
})).gain(0.29)

stack(
  piano, piano_soft, bass, electric_guitar_muted, distortion_guitar, electric_guitar_clean, rock_organ, kick, snare,
  hihat, ride, crash
)