// Oh Pretty Woman — Roy Orbison
// 128 bpm, 4/4, key E 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 90 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): STEEL GTR.
setcpm(128/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 · "FINGERDBAS"
const bass = note(`<
  ~@6 A B C D E F G H I J K L M L N O P Q R S T U V W X Y Z AA AB AC AD AA AE AF AG AH AE AC AD AI AJ AK C AL AM AN E AO
  AP W X Y AQ C D E F G H I J AR I AS AT AU AT AU AT AV ~@4 AW AX AY AX AY AX AY AX@2 AZ
>`.pickRestart({
  A: "e1!2 g#1 b1 d2 f#2 e2 d2", B: "e1 ~ e1@2 g#1@2 b1@2 d2@2 f#2@2 e2@2 d2@2", C: "a1@5 ~ a1@2 c#2@4 e2@2 f2@2",
  D: "f#2@5 ~ f#2@2 c#2@3 ~ f#2@2 c#2@2", E: "a1@5 ~ a1@2 c#2@3 ~ e2@2 f2@2", F: "f#2@5 ~ f#2@2 c#2@4 e2 ~ e2@2",
  G: "d2@5 ~ d2 ~ a1@3 ~ a1@3 ~", H: "d2@5 ~ d2@2 e2@5 ~ e2@2", I: "b1@3 ~ b1@4 e2@5 ~ e2 ~",
  J: "b1@3 ~ b1@3 ~ e2@5 ~ e2 ~", K: "b1@3 ~ b1@4 e1 ~ e1@2 g#1@2 b1 ~", L: "d2@2 f#2 ~ e2@2 d2@2 e1 ~ e1@2 g#1@2 b1@2",
  M: "d2@2 f#2 ~ e2 ~ d2@2 e1 ~ e1 ~ g#1@2 b1@2", N: "d2 ~ f#2 ~ e2@2 d2 ~ a1@5 ~ a1@2",
  O: "c#2@4 e2@2 f2@2 f#2@5 ~ f#2@2", P: "c#2@3 ~ f#2@2 c#2@2 a1@5 ~ a1@2", Q: "c#2@3 ~ e2@2 f2@2 f#2@5 ~ f#2@2",
  R: "c#2@4 e2 ~ e2@2 d2@5 ~ d2 ~", S: "a1@3 ~ a1@3 ~ d2@5 ~ d2@2", T: "e2@5 ~ e2@2 b1@3 ~ b1@4",
  U: "e2@5 ~ e2 ~ b1@3 ~ b1@3 ~", V: "e2@5 ~ e2 ~ b1@3 ~ b1@4", W: "e1 ~ e1@2 g#1@2 b1 ~ d2@2 f#2 ~ e2@2 d2@2",
  X: "e1 ~ e1@2 g#1@2 b1@2 d2@2 f#2 ~ e2 ~ d2@2", Y: "e1 ~ e1 ~ g#1@2 b1@2 d2@2 f#2 ~ e2@2 d2@2",
  Z: "e1 ~ e1@2 e1@2 e1@2 e1 ~ e1 ~ e1@2 e1 ~", AA: "d2@5 ~ e2@2 f2@4 a2@4", AB: "g2@5 ~ f2@2 e2@4 d2@4",
  AC: "c2@5 ~ c2@2 e2@4 c2@2 b1@2", AD: "a1@5 ~ b1@2 c2@4 e2@3 ~", AE: "g2@5 ~ f2@2 e2@3 ~ d2@3 ~",
  AF: "c2@3 ~ c2@2 e2@3 ~ e2@2 g2@3 ~", AG: "c2@3 ~ c2 ~ e2@3 ~ e2 ~ e2@2 d#2@2", AH: "d2@5 ~ e2@2 f2@4 a2@3 ~",
  AI: "d2@5 ~ e2@2 f2@3 ~ a2@3 ~", AJ: "g2@5 ~ f2 ~ e2@3 ~ d2@3 ~", AK: "c2@5 ~ c2 ~ e2@4 c2@2 b1@2",
  AL: "f#2@5 ~ f#2@2 c#2@3 ~ f#2@2 e2 ~", AM: "d2@5 ~ d2@2 f2@5 ~ f2@2", AN: "e2@5 ~ d2@2 c#2@4 b1@3 ~",
  AO: "f#2@5 ~ f#2@2 c#2@4 f#2@2 e2@2", AP: "d2@5 ~ d2 ~ d2@4 f2@3 ~", AQ: "e1 ~ e1@2 g#1@2 b1@2 d2 ~ f#2 ~ e2@2 d2 ~",
  AR: "b1@3 ~ b1@4 e2@5 ~ e2@2", AS: "b1@3 ~ b1@3 ~ e2@5 ~ e2@2", AT: "b1@3 ~ b1@4 e1@5 ~ e1 ~",
  AU: "b1@3 ~ b1@3 ~ e1@5 ~ e1@2", AV: "b1@3 ~ b1@3 ~ e1@2 ~@6", AW: "~@4 e1!2 g#1 b1",
  AX: "d2@2 f#2@2 e2@2 d2@2 e1 ~ e1@2 g#1@2 b1@2", AY: "d2 f#2 e2 d2 e1!2 g#1 b1",
  AZ: "d2@2 f#2@2 e2@2 d2@2 a1 ~ a1@2 ~@4",
})).s("gm_electric_bass_finger").gain(0.4)

// other · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  ~ A@2 B C@4 ~@24 D E F G H I J K L E F G H I J K ~@7 C@4 ~@18 M B A@2 N@8 O
>`.pickRestart({
  A: "[e2@2 e2@2 g#2@2 b2@2 d3@15 ~ e2@2 e2@2 g#2@2 b2@2]/2", B: "d3@15 ~", C: "e2!2 g#2 b2 d3 f#3 e3 d3",
  D: "[e3,g#3,b3,d4]!4", E: "[a3,d4,f4]", F: "[b3,d4,g4]", G: "[c4,e4,g4]", H: "[c4,e4,a4]", I: "[d4,f4,a4]",
  J: "[d4,f4,b4]", K: "[e4,g4,c5]", L: "~@3 e4, c5@3 c5@5, ~ g4@4 g4@3, ~ e4@2 ~", M: "~@4 e2!2 g#2 b2",
  N: "d3 f#3 e3 d3 e2!2 g#2 b2", O: "d3 f#3 e3 d3 a2!2 ~@2",
})).s("gm_electric_guitar_clean").gain(0.35).pan(0.6)

// other · epiano1 · "E.PIANO 1"
const epiano1 = note(`<
  ~@7 A B C D E F@2 ~@6 G@6 ~@7 H I J K L M N ~ O P Q K R S T U V W X Y Z W AA@2 AB A B C B E AC ~@23 AD@3
>`.pickRestart({
  A: "~@12 e5 ~ e5@2", B: "d5@2 c#5@8 ~@2 e5 ~ e5@2", C: "d5@2 c#5@3 ~ e5@5 ~ e5 ~ e5@2", D: "d5@2 c#5@7 ~@3 e5 ~ e5@2",
  E: "d5@2 c#5@3 ~ e5@5 ~ e5 ~ e5 ~", F: "[e5@2 d5@17 ~@13]/2",
  G: "[~@4 e5 ~ e5@2 d5@2 c#5@9 ~ e5 ~ e5@2 d5@2 c#5@3 ~ e5@5 ~ e5 ~ e5 ~ d5@2 c#5@9 ~ e5 ~ e5@2 d5@2 c#5@3 ~ e5@5 ~ e5 ~ e5 ~ e5@2 d5@15 ~@7]/6",
  H: "~@4 a5 ~ a5 ~ a5@4 g5@3 ~", I: "g5 ~ f5@3 ~ f5@9 ~", J: "~@4 g5 ~ g5 ~ g5@4 f5@3 ~", K: "f5@2 e5@3 ~ e5@9 ~",
  L: "~@4 f5 ~ f5 ~ f5@4 e5@3 ~", M: "e5@2 d5@8 c5@3 ~ d5@2", N: "e5", O: "~@4 a5 ~ a5 ~ a5@4 g5@4",
  P: "g5@3 f5@3 f5@8 ~@2", Q: "~@4 g5 ~ g5 ~ g5@5 ~ f5 ~", R: "~@4 f5 ~ f5 ~ f5@6 e5 ~", S: "e5@4 d5@6 c5@3 d5@3",
  T: "~ e5@15", U: "e5@10 d5@3 ~ c#5@2", V: "b4@2 c#5@5 ~", W: "~@4 d5@4 d5@5 ~ d5@2", X: "e5@13 ~@3",
  Y: "~@4 e5@4 d5@5 ~ c#5@2", Z: "~ b4@3 c#5@10 ~@2", AA: "[~ e5@31]/2", AB: "g#5", AC: "e5 d5@7",
  AD: "[~@8 e5@16 f#5@11 ~ e5 ~ e5 ~ d5@2 c#5@2 ~@4]/3",
})).s("gm_epiano1").gain(0.35)

// chords · piano · "A.PIANO 2"
const piano = note(`<
  ~@8 A B A B C D E@2 F ~@3 G H I H J K L@3 ~@4 M N O P Q N O@2 Q N O R Q N O A B S T A B S ~@4 A B A B C D E@10 F ~@14
>`.pickRestart({
  A: "~@4 [a5,c#6,e6] ~@5 [a5,c#6,e6] ~@5", B: "~@4 [a5,c#6,f#6] ~@5 [a5,c#6,f#6] ~@5",
  C: "~@4 [a5,d6,f#6] ~@5 [a5,d6,f#6] ~@5", D: "~@4 [a5,d6,f#6] ~@7 [b5,e6,g#6] ~@3",
  E: "~@2 [b5,e6,g#6] ~@9 [b5,e6,g#6] ~@3", F: "~@2 [b5,e6,g#6] ~@13", G: "~@12 [a5,c#6,e6] ~@3",
  H: "~@2 [a5,c#6,e6] ~@9 [a5,c#6,f#6] ~@3", I: "~@2 [a5,c#6,f#6] ~@9 [a5,c#6,e6] ~@3",
  J: "~@2 [a5,c#6,f#6] ~@9 [a5,d6,f#6] ~@3", K: "~@2 [a5,d6,f#6] ~@9 [a5,d6,f#6] ~@3",
  L: "~@4 [b5,e6,g#6] ~@5 [b5,e6,g#6] ~@5", M: "~@2 d5 f5 a5 ~ d6 ~ c6 ~ b5 ~ a5 ~ g5 ~",
  N: "~@2 f5 g5 b5 ~ d6 ~ c6 ~ b5 ~ a5 ~ g5 ~", O: "~@2 g5 a5 c6 ~ g6 ~ f6 ~ e6 ~ d6 ~ c6 ~",
  P: "~@2 a5 b5 c6 ~ e6 ~ d6 ~ c6 ~ b5 ~ a5 ~", Q: "~@2 a5 d6 f6 ~ a6 ~ g6 ~ f6 ~ e6 ~ d6 ~",
  R: "~@2 e5 a5 c6 ~ e6 ~ d6 ~ c6 ~ b5 ~ a5 ~", S: "~@4 [a5,d6,f6] ~@5 [a5,d6,f6] ~@5",
  T: "~@4 [g#5,b5,e6] ~@5 [g#5,b5,e6] ~@5", // E
})).s("gm_piano").gain(0.27).pan(0.2)

// chords · rock organ · "ORGAN 3"
const rock_organ = note("<~@8 A@8 ~@4 B@6 C@3 ~@4 D@8 E@7 F@2 G H I@3 J@4 A@8 K@8 L ~@14>".pickRestart({
  A: "[e4@2 f#4@2 e4@2 ~@2 d5@3 [g#4,b4,e5]@5, a4@11 ~@5, c#5 ~, ~@6 f#4@5 ~@5]/8", // E
  B: "[~ e4@2 f#4@2 e4@2 ~@2 d5@3, ~ a4@11, ~ c#5@8 ~@3, ~@7 f#4@5]/6", C: "[g#4,b4,e5]/3",
  D: "[a4 ~@5 [c5,e5]@2, [d5,f5] [c5,e5] [d5,f5] ~, ~ g4@2 a4@2 g4@3]/8", // C Dm C Dm
  E: "[a4 ~@5 [c5,e5], [d5,f5]@2 [c5,e5]@2 [d5,f5]@2 ~, ~ g4@2 a4@2 g4@2]/7", F: "[e5 f#5, [a4,c#5]]/2",
  G: "[a4,d5,f5]", H: "[g#4,b4,e5]", I: "[e5 f#5 [d5,f5], a4, c#5@2 ~]/3", J: "[e4,b4,e5]/4",
  K: "[~ [g#4,b4,e5]@4 [g#4,b4,e5]@4 [g#4,b4,e5]@4 [g#4,b4,e5]@3]/8", L: "~@4 [g#4,b4,e5] ~@3",
})).s("gm_rock_organ").gain(0.21)

// other · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note("<~ A@2 B ~@28 C ~@57>".pickRestart({
  A: "[e3@2 e3@2 g#3 ~ b3 ~ d4@15 ~ e3 ~ e3@2 g#3 ~ b3@2]/2", B: "d4@15 ~", C: "~@4 e3 ~ e3@2 e3 ~ e3@2 ~@2 e3@2",
})).s("gm_acoustic_guitar_steel").gain(0.4).pan(0.6)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~@4 A B@2 C ~@8 D E@3 F ~@8 A B@2 C ~@24 B C ~@23 D E@3 G@3 H>".pickRestart({
  A: "e2 ~ e2@2 g#2 ~ b2 ~ d3 ~ f#3@2 e3 ~ d3 ~", B: "e2 ~ e2@2 g#2 ~ b2@2 d3 ~ f#3@2 e3 ~ d3 ~",
  C: "e2 ~ e2@2 g#2 ~ b2@2 d3 ~ f#3@2 e3 ~ d3@2", D: "~@8 e2 ~ e2@2 g#2 ~ b2 ~",
  E: "d3 ~ f#3@2 e3 ~ d3 ~ e2 ~ e2@2 g#2 ~ b2@2", F: "d3 ~ f#3@2 e3 ~ d3@2 ~@8",
  G: "d3 ~ f#3@2 e3 ~ d3@2 e2 ~ e2@2 g#2 ~ b2@2", H: "d3 ~ f#3@2 e3 ~ d3@2 a2 ~ a2@2 ~@4",
})).s("gm_overdriven_guitar").gain(0.4)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel_2 = note(`<
  ~@8 A B A B C D E@2 F G@3 H I J I K C E@3 L@3 M N O P Q N O P@2 N O P Q N O P A B N R A B N ~@4 A B A B C D E@10 S
  ~@14
>`.pickRestart({
  A: "[a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2", // A
  B: "[a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4] ~ [a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4] ~ [a3,c#4,f#4]@2", // F#m
  C: "[a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] ~ [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] ~ [a3,d4,f#4]@2", // D
  D: "[a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] ~ [a3,d4,f#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4] ~ [b3,e4,g#4]@2", // D E
  E: "[b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4] ~ [b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4] ~ [b3,e4,g#4]@2", // E
  F: "[b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4] ~ [b3,e4,g#4]@2 e2@2 e2@2 g#2@2 b2@2", G: "d3 f#3 e3 d3 e2!2 g#2 b2",
  H: "d3@2 f#3@2 e3@2 d3@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2", // A
  I: "[a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4] ~ [a3,c#4,f#4]@2", // A F#m
  J: "[a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4] ~ [a3,c#4,f#4]@2 [a3,c#4,e4]@2 [a3,c#4,e4]@2 [a3,c#4,e4] ~ [a3,c#4,e4]@2", // F#m A
  K: "[a3,c#4,f#4]@2 [a3,c#4,f#4]@2 [a3,c#4,f#4] ~ [a3,c#4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4]@2 [a3,d4,f#4] ~ [a3,d4,f#4]@2", // F#m D
  L: "e2!2 g#2 b2 d3 f#3 e3 d3", M: "e2!8",
  N: "[a3,d4,f4]@2 [a3,d4,f4]@2 [a3,d4,f4] ~ [a3,d4,f4]@2 [a3,d4,f4]@2 [a3,d4,f4]@2 [a3,d4,f4] ~ [a3,d4,f4]@2", // Dm
  O: "[g3,b3,f4]@2 [g3,b3,f4]@2 [g3,b3,f4] ~ [g3,b3,f4]@2 [g3,b3,f4]@2 [g3,b3,f4]@2 [g3,b3,f4] ~ [g3,b3,f4]@2", // G7
  P: "[g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4] ~ [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4] ~ [g3,c4,e4]@2", // C
  Q: "[a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4] ~ [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4]@2 [a3,c4,e4] ~ [a3,c4,e4]@2", // Am
  R: "[g#3,b3,e4]@2 [g#3,b3,e4]@2 [g#3,b3,e4] ~ [g#3,b3,e4]@2 [g#3,b3,e4]@2 [g#3,b3,e4]@2 [g#3,b3,e4] ~ [g#3,b3,e4]@2", // E
  S: "[b3,e4,g#4]@2 [b3,e4,g#4]@2 [b3,e4,g#4] ~ [b3,e4,g#4]@2 [b3,e4,g#4]@2 ~@6", // E
})).s("gm_acoustic_guitar_steel").gain(0.23).pan(0.4)

// drums · kick
const kick = s("bd").struct("<[x!4]!33 [x!2]!7 [x!4] [x!2]!14 [x!4]!34 [x ~ x ~ x!2 ~@2]>").gain(0.56)

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

// drums · hihat
const hihat = s("hh").struct("<A@2 B C D E@3 A@11 F ~@13 A@25 ~@17 G E@6 H ~@6 I>".pickRestart({
  A: "x!4", B: "x!3 ~ x!3 ~", C: "x ~ x!5 ~", D: "x ~ x ~ x!4", E: "x!8", F: "x!2 ~@2", G: "~@4 x!4", H: "x!4 ~@4",
  I: "~@4 x!2 ~@2",
})).gain(0.5)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<[~ x ~ x ~ x ~ x]!2 [~@3 x ~@3 x] [~ x ~@5 x] [~ x ~ x ~@4] ~@85>").gain(0.31)

// drums · low tom
const low_tom = s("lt").struct("<~@34 A ~ A ~ A ~ A ~ A ~ A ~@6 A ~ A ~@36>".pickRestart({
  A: "~@7 x",
})).gain(0.31)

// drums · mid tom
const mid_tom = s("mt").struct("<~@34 A ~ A ~ A ~ B ~ A ~ A ~@6 A ~ A ~@36>".pickRestart({
  A: "~@10 x!3 ~@3", B: "~@2 x!3 ~ x!3 ~ x!3 ~@3",
})).gain(0.31)

// drums · open hat
const open_hat = s("oh").struct("<~@19 A B@13 ~@25 B@17 C ~@6 D E@6 F>".pickRestart({
  A: "~@2 x!2", B: "x!4", C: "x!2 ~@2", D: "~@4 x!4", E: "x!8", F: "x!4 ~@4",
})).gain(0.31)

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

// drums · splash
const splash = s("cr").struct("<~@20 A ~@20 B ~@10 B@3 ~@4 B ~@30>".pickRestart({
  A: "~ x", B: "x",
})).gain(0.25)

stack(
  bass, electric_guitar_clean, epiano1, piano, rock_organ, acoustic_guitar_steel, overdriven_guitar,
  acoustic_guitar_steel_2, kick, snare, hihat, hihat_soft, low_tom, mid_tom, open_hat, ride, splash
)