// California Blue — Roy Orbison
// 114 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 105 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(114/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, A@4 for four bars: edit a riff to change every repeat.

// bass · piano · "ACOU BASS"
const bass = note("<c#-1 ~@104>").s("gm_piano").gain(0.05)

// bass · electric bass finger · "ACOU BASS"
const bass_2 = note(`<
  ~@4 A B C D E F G H I B C D J K H L C D I B E M I N O D I B E F I B P@2 A Q O P A@2 R@2 H S I T C D E F I H I B U D J
  K H B C D V B E F I N C D H B E F I B W F Q B X P H A W@2 A Q Y F H T Y F I B J E Z AA@2
>`.pickRestart({
  A: "c2@4 ~@2 c2 ~ c2@5 ~@3", B: "c2@4 ~@2 c2 ~ c2@5 ~ c2@2", C: "f1@4 ~@2 f1 ~ f1@5 ~ f1 ~",
  D: "f1@4 ~@2 f1 ~ f1@5 ~ f1@2", E: "g1@4 ~@2 g1 ~ g1@5 ~ g1 ~", F: "g1@5 ~ g1 ~ g1@5 ~ g1@2",
  G: "c2@4 ~@2 c2 ~ c2@3 ~@3 c2 ~", H: "c2@4 ~@2 c2 ~ c2@5 ~ g1@2", I: "c2@4 ~@2 c2 ~ c2@4 ~@2 c2 ~",
  J: "d1@4 ~@2 d1 ~ d1@4 ~@2 d1@2", K: "g1@2 ~ g1 a1@2 b1@2", L: "c2 ~@3", M: "g1@5 ~@3 g1@4 ~@2 g1@2",
  N: "c2@2 ~ c2 c1@2 d1 e1", O: "f1@4 ~@2 f1 ~ f1@5 ~@3", P: "g1@4 ~@2 g1 ~ g1@6 ~@2", Q: "c2@4 ~@2 c2 ~ c2@6 ~@2",
  R: "g1@2 ~ g1 b1@2 d2@2", S: "c2@9 ~@7", T: "c2@4 ~@2 c2 ~ c2@8", U: "f1@5 ~ f1@3 ~@5 f1 ~",
  V: "c2@4 ~@2 c2 ~ c2@5 ~ c2 ~", W: "g1@4 ~@2 g1 ~ g1@4 ~@4", X: "f1@5 ~ f1 ~ f1@6 ~@2",
  Y: "d2@4 ~@2 d2 ~ d2@5 ~ d2@2", Z: "g1@4 ~@2 g1@2 c2@5 ~ c2 ~", AA: "[c2@2 ~ g1 c2@6 ~@6]/2",
})).s("gm_electric_bass_finger").gain(0.3)

// bass · piano · "SYN STRIN"
const bass_3 = note("<c#-1 ~@104>").s("gm_piano").gain(0.05)

// chords · synth strings 1 · "SYN STRIN"
const synth_strings_1 = note(`<
  ~@3 A B@4 C@6 D@2 E@3 ~ F@8 G@8 H@2 I@3 J@7 K@4 L@8 M N@5 O@6 G@8 H@2 I@3 P@7 Q@8 R@4 ~
>`.pickRestart({
  A: "[c4,e4,g4]@13 ~@3", B: "[[e4,g4]@32 [a3,f4]@31 ~, c4@63 ~]/4", C: "[[b3,d4] [c4,e4]@2, g4]/6",
  D: "[[a3,f4]@31 ~]/2", E: "[[a3,f4] b3 [c4,e4], d4@2 ~, ~ g4@2]/3",
  F: "[[a3,f4]@4 e4@4 ~@3 f4 c4@2 a#3@2, c4@2 [b3,d4] e4, ~ g3@3]/8", G: "[[a3,f4] e4 [b3,d4] [c4,e4], c4 ~, ~ g3@3]/8",
  H: "[~ f4, [b3,d4]]/2", I: "[e4@32 [a3,f4]@15 ~, c4@47 ~]/3",
  J: "[[b3,d4]@16 [c4,e4]@32 [b3,d4]@32 [c4,e4]@17 ~@15, g3@97 ~@15]/7", K: "[[g3,e4]@32 [a3,f4]@31 ~, c4]/4",
  L: "[[b3,d4] e4@2 [a3,f4], g3@3 ~, ~ c4@3]/8", M: "d4", N: "[b3@16 e4@31 ~ [a3,f4]@31 ~, g3@3 ~@2, ~ c4@4]/5",
  O: "[e4@2 [b3,d4]@2 c4 a#3, g3, ~@2 e4]/6", P: "[[b3,d4] [c4,e4]@2 [b3,d4]@2 [c4,e4]@2, g3]/7",
  Q: "[[a3,f4] b3 [c4,e4]@2, d4 ~, ~ g3@3]/4", R: "[[a3,f4]@16 b3@23 ~ [c4,e4]@24, d4@39 ~@25, ~ g3@3]/4",
})).s("gm_synth_strings_1").gain(0.15)

// chords · synth strings 1 · "SYN STRIN"
const synth_strings_1_2 = note(`<
  ~@35 A B C D E F G H@2 ~@4 I@2 J@2 K@2 I@3 L M N O P@3 ~@15 A B C D E F G Q@2 ~@4 R S@3 R S@3 R T@4
>`.pickRestart({
  A: "~ g4 a4 b4 c5 d5 e5 f5", B: "g5@3 d5", C: "b4", D: "c5@3 g4", E: "e4@2 f4@2 f4@2 g4@2 g4@2 a4 ~ a4@2 g4@2",
  F: "a4@3 c5", G: "b4@6 c5 d5", H: "[c5@15 ~]/2", I: "~@4 [c5,e5,g5] ~ [c5,e5,g5] ~ [c5,e5,g5] ~@3 [c5,e5,g5] ~@3",
  J: "~@4 [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~@3 [a4,c5,f5] ~@3", // F
  K: "~@4 [b4,d5,g5] ~ [b4,d5,g5] ~ [b4,d5,g5] ~@3 [b4,d5,g5] ~@3", L: "c5 d5 e5@2", M: "f5@6 a5 c6", N: "f6 e6 c6 g5",
  O: "a5", P: "[g5@11 ~@5]/3", Q: "[c5@31 ~]/2", R: "d5 a4 f4 a4 f4 d4 f4 d4", S: "g4/3", T: "[g4@49 ~@15]/4",
})).s("gm_synth_strings_1").gain(0.2)

// other · epiano2 · "E.PIANO"
const epiano2 = note("<~@16 A B C D ~@40 A E C F ~@28 A G ~@2 A E ~@2 A H@2 I@2>".pickRestart({
  A: "f5@2 d5@2 a4@2 d5@2 a4@2 f4@2 a4@2 f4 ~", B: "g3@2 b3@2 d4@2 g4@7 ~@3", C: "~ c4 e4 g4 c5 g4 e4 g4",
  D: "c4@3 ~@5", E: "g3@2 b3@2 d4@2 g4@9 ~", F: "c4@9 ~@7", G: "g3 b3 d4 g4@5", H: "[g3@2 b3@2 d4@2 g4@19 ~@7]/2",
  I: "[~@8 [g4,c5,e5]@11 ~@13]/2", // C
})).s("gm_epiano2").gain(0.3)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@3 A B@2 C@2 D@2 B@4 C@2 E D B A C@2 B@2 D@2 B@2 C@2 B@2 D@2 B@2 D F B@2 C D B@2 D@2 B A B@2 C@2 D@2 B@4 C@2 E D B@2
  C@2 B@2 D@2 B@2 C@2 B@2 D@2 B@2 D@2 B@2 C D G@2 D@2 B@2 E D B@2 E D B@2 E D H I ~
>`.pickRestart({
  A: "[g3,c4,e4] ~@7", B: "[g3,c4,e4]!8", C: "[a3,c4,f4]!8", D: "[b3,d4,g4]!8", E: "[a3,d4,f4]!8",
  F: "[b3,d4,g4]!4 [b3,d4,f4]!4", G: "[c4,e4,g4]!8", H: "[b3,d4,g4]!4 [g3,c4,e4]!4", I: "[g3,c4,e4]!3 [c4,e4]@3 ~@2",
})).s("gm_acoustic_guitar_steel").gain(0.25)

// chords · orchestral harp · "HARP" · G
const orchestral_harp = note(`<
  ~@44
  [~@2 [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2]
  [~ [b5,d6,g6]@7 ~@8]
  ~@42
  [~@2 [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2 ~ [b5,d6,g6]@2]
  [~ [b5,d6,g6]@7 ~@8]
  ~@15
>`).s("gm_orchestral_harp").gain(0.35)

// drums · kick
const kick = s("bd").struct("<~@4 A@15 B A@27 B A@15 C A@37 C D E ~>".pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x", C: "x ~@2 x!2 ~@2 x", D: "x ~@3 x ~@2 x", E: "x!2",
})).gain(0.31)

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

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

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@11 A ~@6 A ~@2 A ~ A ~@3 A ~ A ~ A ~@3 B ~@3 A ~@3 A ~ A@2 ~@8 A ~@7 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ B ~@3 A ~@3 A
  ~@3 A ~@3 A ~@3 A ~@3 C ~
>`.pickRestart({
  A: "~@7 x", B: "~@5 x ~ x", C: "~@3 x ~@4",
})).gain(0.26)

stack(
  bass, bass_2, bass_3, synth_strings_1, synth_strings_1_2, epiano2, acoustic_guitar_steel, orchestral_harp, kick,
  snare, hihat, open_hat
)