// A Love So Beautiful — Roy Orbison
// 62 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 56 bars on a 48-step grid, each part at one level. Source detail keeps the original performance.
setcpm(62/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 · acoustic bass
const bass = note(`<
  ~ A@2 B C D E F G H I J K H L F M N O P Q R S T U R V W X Y Z AA AB R S T U R AC AD AE AF AG P AH AI AJ AK AL AI AJ P
  AM B AN@2
>`.pickRestart({
  A: "a1@17 ~ a1@5 ~ a1@22 ~@2", B: "a1@17 ~ a1@5 ~ a1@21 ~@3", C: "c#1@12 c#1@5 ~ c#1@4 ~@2 d1@22 ~@2",
  D: "d1@16 ~@2 d1@4 ~@2 b1@23 ~", E: "b1@17 ~ b1@5 ~ b1@22 ~@2", F: "e1@17 ~ e1@5 ~ e1@21 ~@3",
  G: "d1@16 ~@2 d1@5 ~ e1@22 ~@2", H: "c#1@16 ~@2 c#1@4 ~@2 f#1@23 ~", I: "d1@17 ~ d1@5 ~ e1@22 ~@2",
  J: "c#1@17 ~ c#1@5 ~ b1@21 ~@3", K: "d1@8 ~ d1@2 ~ e1@11 ~", L: "g1@17 ~ g1@5 ~ b1@22 ~@2",
  M: "a1@16 ~@2 a1@5 ~ a1@22 ~@2", N: "c#1@16 ~@2 c#1@4 ~@2 d1@23 ~", O: "d1@17 ~ d1@5 ~ b1@22 ~@2",
  P: "b1@17 ~ b1@5 ~ b1@21 ~@3", Q: "e1@16 ~@2 e1@5 ~ d1@22 ~@2", R: "e1@16 ~@2 e1@4 ~@2 c#1@23 ~",
  S: "f#1@17 ~ f#1@5 ~ d1@22 ~@2", T: "e1@17 ~ e1@5 ~ c#1@21 ~@3", U: "b1@16 ~@2 b1@5 ~ d1@22 ~@2",
  V: "f#1@17 ~ f#1@5 ~ b1@22 ~@2", W: "e1@17 ~ e1@5 ~ a1@21 ~@3", X: "a1@16 ~@2 a1@5 ~ c2@22 ~@2",
  Y: "e1@12 c2@5 ~ c2@4 ~@2 f1@23 ~", Z: "f1@17 ~ f1@5 ~ c2@22 ~@2", AA: "c2@17 ~ c2@5 ~ f#1@21 ~@3",
  AB: "f#1@8 ~ f#1@2 ~ d1@11 ~", AC: "f#1@17 ~ f#1@5 ~ g1@22 ~@2", AD: "b1@17 ~ b1@5 ~ e1@21 ~@3",
  AE: "e1@8 ~ e1@2 ~ a1@11 ~", AF: "a1@16 ~@2 a1@4 ~@2 a1@23 ~", AG: "d1@17 ~ d1@5 ~ d1@22 ~@2",
  AH: "b1@16 ~@2 b1@5 ~ e1@22 ~@2", AI: "d1@16 ~@2 d1@4 ~@2 e1@23 ~", AJ: "c#1@17 ~ c#1@5 ~ f#1@22 ~@2",
  AK: "d1@17 ~ d1@5 ~ e1@21 ~@3", AL: "c#1@8 ~ c#1@2 ~ b1@11 ~", AM: "e1@16 ~@2 e1@5 ~ e1@22 ~@2",
  AN: "[a1@4 ~@2 a1 ~ a1@16 ~@8]/2",
})).s("gm_acoustic_bass").gain(0.43)

// chords · piano
const piano = note(`<
  ~ A@2 B C D E F G H I J G H K F L M N O P Q R Q S Q T U V W X Y Z Q R Q S Q AA AB AC B AD AE AF G AG G J G AG AE F A
  AH@2
>`.pickRestart({
  A: "[c#3,e3] ~@5 a2@6 [c#3,e3]@6 a2@6 [c#3,e3]@6 a2@6 [c#3,e3]@6 a2@6", // C#m
  B: "[c#3,e3] a2 [c#3,e3] a2 [c#3,e3] a2 [c#3,e3] a2", // C#m
  C: "[c#3,e3] a2 [c#3,e3] a2 [f#3,a3] d3 [f#3,a3] d3, a2 ~@11 a2 ~@11 d3 ~@23", // C#m F#m
  D: "[f#3,a3] d3 [f#3,a3] d3 [d3,f#3] b2 [d3,f#3] b2, ~@24 b2 ~@23", // F#m D
  E: "[d3,f#3] ~@5 b2@6 [d3,f#3]@6 b2@6 [d3,f#3]@6 b2@6 [d3,f#3]@6 b2@6", // D
  F: "[g#3,b3] e3 [g#3,b3] e3 [g#3,b3] e3 [g#3,b3] e3, e3 ~@47", // G#m
  G: "[f#3,a3] d3 [f#3,a3] d3 [g#3,b3] e3 [g#3,b3] e3, d3 ~@23 e3 ~@23", // F#m G#m
  H: "[e3,g#3] c#3 [e3,g#3] c#3 [a2,c#3] f#2 [a2,c#3] f#2, c#3 ~@23 f#2 ~@23", // E A
  I: "[f#3,a3] ~@5 d3@6 [f#3,a3]@6 d3@6 [g#3,b3]@6 e3@6 [g#3,b3]@6 e3@6, ~@24 e3 ~@23", // F#m G#m
  J: "[e3,g#3] c#3 [e3,g#3] c#3 [e3,f#3] b2 [e3,f#3] b2, c#3 ~@23 b2 ~@23", // E Esus2
  K: "[b2,d3] ~@5 g2@6 [b2,d3]@6 g2@6 [d3,f#3]@6 b2@6 [d3,f#3]@6 b2@6, ~@24 b2 ~@23", // Bm D
  L: "[c#3,e3] a2 [c#3,e3] a2 [c#3,e3] a2 [c#3,e3] a2, a2 ~@47", // C#m
  M: "[c#3,e3] a2 [c#3,e3] a2 [f#3,a3] d3 [f#3,a3] d3, a2 ~@23 d3 ~@23", // C#m F#m
  N: "[f#3,a3] ~@5 d3@6 [f#3,a3]@6 d3@6 [d3,f#3]@6 b2@6 [d3,f#3]@6 b2@6, ~@24 b2 ~@23", // F#m D
  O: "[d3,f#3] b2 [d3,f#3] b2 [d3,f#3] b2 [d3,f#3] b2", // D
  P: "[g#3,b3] e3 [g#3,b3] e3 [f#3,a3] d3 [f#3,a3] d3, e3 ~@23 d3 ~@23", // G#m F#m
  Q: "[g#3,b3] e3 [g#3,b3] e3 [e3,g#3] c#3 [e3,g#3] c#3, e3 ~@23 c#3 ~@23", // G#m E
  R: "[a2,c#3] ~@5 f#2@6 [a2,c#3]@6 f#2@6 [f#3,a3]@6 d3@6 [f#3,a3]@6 d3@6, ~@24 d3 ~@23", // A F#m
  S: "[e3,f#3] b2 [e3,f#3] b2 [f#3,a3] d3 [f#3,a3] d3, b2 ~@23 d3 ~@23", // Esus2 F#m
  T: "[a2,c#3] ~@5 f#2@6 [a2,c#3]@6 f#2@6 [d3,f#3]@6 b2@6 [d3,f#3]@6 b2@6, ~@24 b2 ~@23", // A D
  U: "[g#3,b3] e3 [g#3,b3] e3 [c#3,e3] a2 [c#3,e3] a2, e3 ~@23 a2 ~@23", // G#m C#m
  V: "[c#3,e3] a2 [c#3,e3] a2 [e3,g3] c3 [e3,g3] c3, ~@24 c3 ~@23", // C#m Em
  W: "[g3,b3] e3 [e3,g3] c3 [a2,c3] f2 [a2,c3] f2, e3 ~@11 c3 ~@11 f2 ~@23", // G Em Am
  X: "[g#2,c3] ~@5 f2@6 [g#2,c3]@6 f2@6 [e3,g3]@6 c3@6 [e3,g3]@6 c3@6, ~@24 c3 ~@23", // G# Em
  Y: "[e3,g3] c3 [e3,g3] c3 [a2,c#3] f#2 [a2,c#3] f#2, ~@24 f#2 ~@23", // Em A
  Z: "[a2,c#3] f#2 [a2,c#3] f#2 [f#3,a3] d3 [f#3,a3] d3, ~@24 d3 ~@23", // A F#m
  AA: "[a2,c#3] ~@5 f#2@6 [a2,c#3]@6 f#2@6 [b2,d3]@6 g2@6 [b2,d3]@6 g2@6, ~@24 g2 ~@23", // A Bm
  AB: "[d3,f#3] b2 [d3,f#3] b2 [g#3,b3] e3 [g#3,b3] e3, b2 ~@23 e3 ~@23", // D G#m
  AC: "[g#3,b3] e3 [g#3,b3] e3 [c#3,e3] a2 [c#3,e3] a2, ~@24 a2 ~@23", // G#m C#m
  AD: "[f#3,a3] ~@5 d3@6 [f#3,a3]@6 d3@6 [f#3,a3]@6 d3@6 [f#3,a3]@6 d3@6", // F#m
  AE: "[d3,f#3] b2 [d3,f#3] b2 [d3,f#3] b2 [d3,f#3] b2, b2 ~@47", // D
  AF: "[d3,f#3] b2 [d3,f#3] b2 [g#3,b3] e3 [g#3,b3] e3, ~@24 e3 ~@23", // D G#m
  AG: "[e3,g#3] ~@5 c#3@6 [e3,g#3]@6 c#3@6 [a2,c#3]@6 f#2@6 [a2,c#3]@6 f#2@6, ~@24 f#2 ~@23", // E A
  AH: "[[c#3,e3] a2 [c#3,e3] a2 ~ a2@11, ~ [c#3,e3]@3]/2", // C#m
})).s("gm_piano").gain(0.28)

// chords · string ensemble 2
const string_ensemble_2 = note(`<
  ~ A@3 B@2 C D E F E G E F H D A I J@2 K L M L N L O P@2 Q R@3 L M L N L S T@3 U V@2 E W E G E W C D X@2 Y
>`.pickRestart({
  A: "[a3,c#4,e4]", B: "[[a3,c#4,e4]!2 [d4,f#4,a4]@4 [b3,d4]@2]/2", C: "[b3,d4,f#4]", D: "[e4,g#4,b4]",
  E: "[d4,f#4,a4] [e4,g#4,b4]", F: "[c#4,e4] [f#3,a3,c#4]", G: "[c#4,e4] [b3,e4,f#4]", H: "[g3,b3,d4] [d4,f#4]",
  I: "[a3,c#4,e4] [d4,f#4,a4]", J: "[[d4,f#4,a4] [b3,d4]@3]/2", K: "[e4,g#4,b4] [d4,f#4,a4]", L: "[e4,g#4,b4] [c#4,e4]",
  M: "[f#3,a3,c#4] [d4,f#4,a4]", N: "[b3,e4,f#4] [d4,f#4,a4]", O: "[f#3,a3,c#4] [b3,d4,f#4]",
  P: "[[e4,g#4,b4] [a3,c#4,e4]@2 [c4,e4,g4]]/2", Q: "[g4,b4] [c4,e4] [f3,a3,c4]@2",
  R: "[[f3,g#3,c4] [e4,g4]@2 [f#3,a3,c#4]@2 [d4,f#4,a4]]/3", S: "[f#3,a3,c#4] [g3,b3,d4]",
  T: "[[d4,f#4] [e4,g#4,b4]@2 [a3,c#4,e4]@3]/3", U: "[d4,f#4,a4]", V: "[[b3,d4]@3 [e4,g#4,b4]]/2",
  W: "[c#4,e4,g#4] [f#3,a3,c#4]", X: "[a3,c#4,e4]/2", Y: "[a3,c#4,e4]@17 ~@7",
})).s("gm_string_ensemble_2").gain(0.25)

// chords · electric guitar muted
const electric_guitar_muted = note("<~@5 A@7 ~@44>".pickRestart({
  A: "[~@24 f#4@53 ~@19 b3@34 ~@14 a3@15 ~@9 b3@13 ~@12 g#3@14 ~@9 c#4@14 ~@9 a3@17 ~@8 [g#3,b3]@13 ~@10 [c#3,e3,g#3]@20 ~@29, ~@21 b3@56 ~@17 e3@37 ~@10 d3@18 ~@7 e3@16 ~@8 c#3@16 ~@31 d3@20 ~@6 e3@14 ~@59, ~@23 d4@54 ~@18 g#3@36 ~@12 f#3@16 ~@8 g#3@15 ~@10 e3@14 ~@8 [f#3,a3]@17 ~@7 f#3@18 ~@80]/7", // G#m C#m F#m
})).s("gm_electric_guitar_muted").gain(0.35)

// other · string ensemble 1
const string_ensemble_1 = note("<A@2 B ~@12 C@5 D E@2 F@2 G@8 H@3 I J@2 K@8 L@2 M N@2 O@4>".pickRestart({
  A: "[a1@7 ~]/2", B: "a1@3 ~", C: "[~@47 c#5@72 d5@118 ~@3]/5", D: "e5 d5", E: "[e5@23 c#5@47 ~ d5@25]/2",
  F: "[e5@23 c#5@18 b4@6 a4@13 g#4@11 f#4@25]/2",
  G: "[g#4@23 c#5@47 ~ d5@24 b4@24 c#5@38 ~ c#5@2 d5 e5 f#5 g#5 a5 b5 ~ c6@23 ~ b5@13 a#5@11 a5@24 g#4@24 g4@48 ~ f#4@47 d5@24 ~]/8",
  H: "[d5@23 c#5@48 d5@48 ~ c#5@17 ~@7]/3", I: "~@24 d5@23 ~", J: "[e5@23 c#5@46 ~@2 d5@25]/2",
  K: "[b4@72 c#5@71 d5@117 ~@4 e5@23 d5@23 e5@25 c#5@48 ~]/8", L: "[d5@24 e5@23 c#5@19 ~@30]/2", M: "~ d5@20 ~@2 e5@25",
  N: "[c#5@23 f#5@24 d5@49]/2", O: "[e5@46 ~ a4@131 ~@14, ~@23 c#5@66 ~@7]/4",
})).s("gm_string_ensemble_1").gain(0.41)

// other · ocarina
const ocarina = note("<~@31 [~@47 f#6] [a6@4 f#6@5 c#6@3 ~ a5@4 f#5@3 c#5@4 d4@23 ~] ~@23>").s("gm_ocarina").gain(0.27)

// other · pad choir
const pad_choir = note("<~@40 A@3 B@3 C ~@6 D@3>".pickRestart({
  A: "[~@30 a4@5 b4@6 ~ c#5@5 c#5@6 b4@5 ~ b4@6 a4@5 ~ a4@9 g#4@2 ~ g#4@8 ~@4 d4@48 ~, ~@23 f#4@13]/3",
  B: "[e4 ~@4 b4@6 c#5@6 ~ d5@11 c#5@5 ~ c#5@6 b4@5 ~ b4@9 a4@2 ~ a4@8 ~@4 e4 e4@21 ~@3 f#4@22 ~@2 e4@22 ~@2, ~@68 g#4@27 d4@23 ~ g#4@24 ~]/3",
  C: "c#4 ~@47",
  D: "[~@5 a4@6 b4@6 c#5@5 ~ c#5@6 ~ b4@5 b4@6 a4@5 ~ a4@7 g#4@4 ~ g#4@4 ~@2 f#4@4 ~@2 e4@56 ~@17, ~@35 c#4@28 ~@9]/3",
})).s("gm_pad_choir").gain(0.38)

// other · string ensemble 2
const string_ensemble_2_2 = note("<~@15 A B@8 C D E@3 F@8 G H@3 I@6 J@4 K@5>".pickRestart({
  A: "~@47 c#5", B: "[~@47 e5@24 f#5@118 ~@2 g#5@24 f#5@24 g#5@24 e5@24 f#5@48 g#5@24 e5@25]/8", C: "~@23 f#5@25",
  D: "g#5@23 e5@25",
  E: "[f#5@47 g#5@24 a5@29 ~@2 c#4 d4 ~ d4 [e4,f#4] [g#4,a4] b4 c#5 e5@2 ~@3 b5@2 c6 c6@26, ~@110 d5 ~ f#5@2 a#5@2 ~@28, ~@113 a5@2 ~@29]/3", // Esus2 Amaj7
  F: "[~@3 b5@6 ~@2 a#5@12 a5@23 g#5@25 g5@48 f#5@48 ~ f#5@23 g#5@24 e5@24 f#5@48 g#5@24 e5@49 f#5@23 g#5]/8",
  G: "~@23 e5@25", H: "[f#5@21 ~ b4@49 e5@48 a5@10 ~@15]/3",
  I: "[~@23 a5@85 b5@59 ~@14 b5@10 f#5@24 g#5@24 e5@24 a5@12 f#5@12 ~]/6",
  J: "[d5@23 e5@72 f#5@24 g#5@24 e5@24 f#5@18 ~@2 g#4@2 a4 b4 [c#5,d5]]/4", // Dmaj7
  K: "[e5 f#5@38 ~@2 [c#4,d4] d4 [e4,f#4] [g#4,a4] [b4,c#5] [d5,e5] g#5@46 ~@2 a5@69 ~@2 [a5,c#6]@64 ~@10, ~@47 f#5 ~@192]/5", // Dmaj7 Esus2 Amaj7 Bsus2 Dsus2 A
})).s("gm_string_ensemble_2").gain(0.46)

// other · string ensemble 1
const string_ensemble_1_2 = note("<~@40 A@3 B@3 C ~@6 D@3>".pickRestart({
  A: "[~@30 a5@5 b5@6 ~ c#6@5 c#6@6 b5@5 ~ b5@6 a5@5 ~ a5@9 g#5@2 ~ g#5@8 ~@4 d5@48 ~, ~@23 f#5@13]/3",
  B: "[e5 ~@4 b5@6 c#6@6 ~ d6@11 c#6@5 ~ c#6@6 b5@5 ~ b5@9 a5@2 ~ a5@8 ~@4 e5 e5@21 ~@3 f#5@22 ~@2 e5@22 ~@2, ~@68 g#5@27 d5@23 ~ g#5@24 ~]/3",
  C: "c#5 ~@47",
  D: "[~@5 a5@6 b5@6 c#6@5 ~ c#6@6 ~ b5@5 b5@6 a5@5 ~ a5@7 g#5@4 ~ g#5@4 ~@2 f#5@4 ~@2 e5@56 ~@17, ~@35 c#5@28 ~@9]/3",
})).s("gm_string_ensemble_1").gain(0.45)

// other · electric guitar clean
const electric_guitar_clean = note("<~@40 A@3 B@2 ~@8 C@3>".pickRestart({
  A: "[~@30 a2@5 b2@6 ~ c#3@5 c#3@6 b2@5 ~ b2@6 a2@5 ~ a2@9 g#2@2 ~ g#2@8 ~@4 d2@43 ~@6, ~@23 f#2@13]/3",
  B: "[~@5 b2@6 c#3@6 ~ d3@6 d3@5 c#3@5 ~ c#3@6 b2@5 ~ b2@9 a2@2 ~ a2@8 ~@4 e2 e2@21 ~@3, ~@68 g#2@27 ~]/2",
  C: "[~@5 a2@6 b2@6 c#3@5 ~ c#3@6 ~ b2@5 b2@6 a2@5 ~ a2@7 g#2@4 ~ g#2@4 ~@2 f#2@4 ~@2 e2@56 ~@17, ~@35 c#2@28 ~@9]/3",
})).s("gm_electric_guitar_clean").gain(0.54)

// other · piano
const piano_2 = note("<~@7 A@2 ~@11 B ~@21 C@3 ~@11>".pickRestart({
  A: "[[e4,g#4]@32 ~@12 f#4 ~ g#4 f#4@12 ~@37]/2", B: "[e4,g#4]@20 ~@4 [d4,f#4]@19 ~@5",
  C: "[~@15 f#4@8 ~ f#5@14 ~ d5@8 b4@5 ~@2 f#4@56 ~@4 g#4@4 ~@4 g#5@13 e5@8 ~]/3",
})).s("gm_piano").gain(0.54)

// drums · kick
const kick = s("bd").struct("<~ [x ~@2 x!2 ~@3]!54 ~>").gain(0.56)

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

// drums · ride
const ride = s("rd").struct("<~ [x!8]!53 [x!4 ~@4] ~>").gain(0.56)

// drums · crash
const crash = s("cr").struct("<~@54 [~ x] ~>").gain(0.56)

stack(
  bass, piano, string_ensemble_2, electric_guitar_muted, string_ensemble_1, ocarina, pad_choir, string_ensemble_2_2,
  string_ensemble_1_2, electric_guitar_clean, piano_2, kick, snare, ride, crash
)