// For My Lady — The Moody Blues
// 166 bpm, 4/4, key G 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 172 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(166/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 · piccolo
const piccolo = note(`<
  ~ A@2 B@2 C@2 D@2 A@2 B@2 C@2 E@4 F@2 G@2 H@2 I@2 J@2 K@4 ~@16 A@2 L@2 C@2 E@4 F@2 G@2 H@2 I@2 J@2 K@4 ~@16 M N O P M
  Q O P R S T U O V W X@2 ~@15 A@2 B@2 C@2 Y@4 B@2 C@2 E@4 F@2 G@2 H@2 I@2 J@2 K@4 ~@19
>`.pickRestart({
  A: "[b5,d6]/2", B: "[f5,a5,c6]/2", C: "[c5,e5,g5]/2", D: "[b4,d5]/2", E: "[d5 g4, b4@63 ~]/4", F: "[f4,c5]/2",
  G: "[e4,c5]/2", H: "[d4,b4]/2", I: "[g4,b4]/2", J: "[f4,a4]/2", K: "[e4 d4, g4]/4", L: "[a5,c6]/2", M: "c5@3 d5",
  N: "~ d#5@11 d5@4", O: "c5", P: "e5", Q: "d#5 d5", R: "c5@11 ~ d5@4", S: "d#5@2 d5 c5", T: "e5@13 g5@3", U: "a4",
  V: "a4@3 c5@3 e5@2", W: "d5 f5", X: "[~ g5@24 ~@7]/2", Y: "[d5 [b5,d6], b4@63 ~]/4",
})).s("gm_piccolo").gain(0.48).pan(0.7)

// bass · acoustic bass · "bass"
const bass = note(`<
  ~@33 A@2 B@2 C D B E F G H@2 A@4 ~@24 A@2 B@2 C D B E F G H@2 A@4 I J A@2 K L M A N@2 O P Q@2 R S A@2 B@2 C D B E F G
  H@2 A@3 T S U V W X Y S Z S U V W X Y S Z AA AB AC AD AE AF Z AG Z AH AI AJ AE AK AL AM A@2 B@2 C D B E F G H@2 A@3
  AN@3 ~
>`.pickRestart({
  A: "c2@5 ~ c2@2 g1@8", B: "e2@5 ~ e2@2 b1@8", C: "a2@5 ~ a2@2 e2@8", D: "a2@5 ~ a2@2 e2@4 a2@4",
  E: "e2@2 ~ e2 b1@2 e2@2", F: "d2@2 ~ d2 a1@4", G: "d2@2 ~ c2 a1@4", H: "g2@5 ~ g2@2 d2@8", I: "f2@5 ~ f2@2 c2@8",
  J: "f2@5 ~ f2 ~ c2@7 ~", K: "f2@2 ~ f2 c2@4", L: "f2@5 ~ f2@2 c2@6 ~@2", M: "c2@5 ~ c2@2 g1@7 ~",
  N: "f2@4 ~@2 f2@2 c2@7 ~", O: "c3@5 ~ c3@2 g2@5 ~ g2@2", P: "e2@5 ~ e2@2 e2@8", Q: "a2@5 ~ a2@2 e2@5 ~ e2@2",
  R: "d2@5 ~ d2@2 a1@6 a1@2", S: "g2@3 g2 d2@2 g2@2", T: "c2@5 ~ c2@2 g1@4 d2@4", U: "g2@2 f2 e2",
  V: "d2@7 ~ a2@4 d3@4", W: "d3@2 c3 b2", X: "c3@3 c3 g2@2 c3@2", Y: "c3@2 b2 a2", Z: "g2 d2", AA: "g2@8 d2@7 ~",
  AB: "g2@7 ~ f2@3 ~ e2@3 ~", AC: "d2@8 a1@7 ~", AD: "d2@4 a1@2 d2 ~", AE: "c2@7 ~ g1@8", AF: "c2@8 g1@4 c2@3 ~",
  AG: "g2@2 d2 e2", AH: "g2@3 g2 f2@2 e2@2", AI: "d2 a1", AJ: "d2@6 d2@2 a1@4 d2@3 ~", AK: "c2@3 c2 g1@2 c2 ~",
  AL: "g2@8 d2@7 ~, f2 ~@15", AM: "g2@3 ~", AN: "[c2@15 ~]/3",
})).s("gm_acoustic_bass").gain(0.38)

// other · reed organ
const reed_organ = note(`<
  A B C D E F G H@2 B C D E F G I@2 J@2 ~@29 A K C L E M G I@2 J@2 ~@62 K C L E M G I@2 K C L E M G I@2 J@2 ~@33
>`.pickRestart({
  A: "~ d4", B: "b4@12 c5 ~@3", C: "b4 d4", D: "a4@12 b4 ~@3", E: "a4 c4", F: "g4@12 a4 ~@3", G: "g4 e4",
  H: "[d4@23 ~@9]/2", I: "[d4@25 ~@3 b3@2 ~@2]/2", J: "d4/2", K: "b4@6 c5 ~", L: "a4@6 b4 ~", M: "g4@6 a4 ~",
})).s("gm_reed_organ").gain(0.36).pan(0.2)

// chords · string ensemble 2 · "slow strings"
const string_ensemble_2 = note(`<
  ~@32 A B C D@2 B C E@2 F@2 G@2 H@5 ~@22 A B C D@2 B C E@2 F@2 G@2 I@8 J@4 K@6 L M N@2 O@2 P Q R@2 S@4 T@6 U@2 V@2 W@2
  X@2 U@2 Y@2 Z@2 AA@2 AB@2 AC@2 AD@2 AA@2 AB@2 AC@2 AE@2 N@2 O@2 P Q R@2 S@4 AF@6 ~
>`.pickRestart({
  A: "~@2 e6 d6", B: "c6@3 d6", C: "e6@15 ~", D: "[b5@3 d6]/2", E: "b5/2", F: "[f6@3 e6]/2", G: "d6/2",
  H: "[e6@67 ~@13]/5", I: "[~@2 [f4,g#4] [e4,g4], e6@67 ~@61, ~@64 c4@63 ~]/8",
  J: "[[f4,g#4]@31 ~ [e4,g4]@31 ~, c4@63 ~]/4", // Fm Em
  K: "[[f4,g#4]@31 ~ g4@14 ~@2 a4@15 ~ [e4,a4]@31 ~, c4@95 ~, ~@32 e4@31 ~@33]/6", L: "[c4,f4,a4]@15 ~",
  M: "~@2 e6 d6, [d4,g4,b4]@15 ~", N: "[c6@3 d6 ~@2 f4@2, g4@3 ~, ~@16 e6@15 ~]/2",
  O: "[e6@24 ~@4 g4@3 ~, e4@27 ~@5, ~@3 d6]/2", P: "c6@3 d6, a4", Q: "e4@8 f4@7 ~, e6@15 ~", R: "[g4 e4, e6]/2",
  S: "[f4@24 e4@7 ~ d4@32, f6]/4", T: "[c4@63 ~ g4@32, e6@67 ~@29]/6", U: "[f4@31 ~]/2", V: "[~@2 e4@29 ~]/2",
  W: "[~@2 d4@29 ~]/2", X: "[g4@31 ~]/2", Y: "[~ e4@31]/2", Z: "[~ d4@30 ~]/2", AA: "[~ g4@30 ~]/2", AB: "[f4@15 ~]/2",
  AC: "[~ e4@29 ~@2]/2", AD: "[d4@31 ~]/2", AE: "[~@6 e6 d6, d4@31 ~]/2", AF: "[c4,e6]/6",
})).s("gm_string_ensemble_2").gain(0.24).pan(0.8)

// other · string ensemble 1 · "strings"
const string_ensemble_1 = note(`<
  ~@32 A B C D@2 B C E@2 F@2 G@2 H@4 ~@23 A B C D@2 B C E@2 F@2 G@2 H@4 ~@15 A B C D@2 B C E@2 F@2 G@2 H@4 ~@31 A B C
  D@2 B C E@2 F@2 G@2 I@6 ~
>`.pickRestart({
  A: "~@2 e3 d3", B: "c3@3 d3", C: "e3@3 f3", D: "[e3@3 d3]/2", E: "e3/2", F: "[d3@7 e3]/2", G: "f3/2", H: "c3/4",
  I: "c3/6",
})).s("gm_string_ensemble_1").gain(0.59).pan(0.2)

// chords · acoustic guitar nylon · "nylon string guitar"
const acoustic_guitar_nylon = note(`<
  ~ A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 ~@16 A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 A@2 B@2 C@2 A@2
  ~@48 A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 A@2 B@2 C@2 A@4 B@2 C@2 D@2 ~@19
>`.pickRestart({
  A: "[~@15 b3, g4 g4, [g2,b3]!2 [g2,b3] g2, ~ g3@2 g3@2 g3@2 g3@2 g3@2 g3 b3@2 d3@2, ~@2 d3@4 d3@4 d3@3 g3@3]/2", // G
  B: "[~@15 f3, e4@13 f3 d3@2, [d2,a3]@2 d3 f3 [d2,a3] f3 d3@2 [d2,a3] f3 d3 f3 [d2,a3]@4, ~ f4@6 f3 f4@8, ~ d4@7]/2", // D5
  C: "[~@15 e3, [c2,g3,e4]!2 [c2,g3,e4]!2, ~ e3@2 e3@2 e3@2 e3@2 e3@2 e3@2 e3@2 ~, ~ c3@2 c3@2 c3@2 c3]/2", // C
  D: "[~@15 b3, c4@12 b3 g3 d3@2, g2@2 b3 g3 [g2,b3]@3 g3 g4@8, ~ d4@15, ~ d3@4 g3 d3@2 [g2,b3] g3 d3 g3 g2@4]/2", // G
})).s("gm_acoustic_guitar_nylon").gain(0.27).pan(0.2)

// chords · synth strings 1 · "chior aahs"
const synth_strings_1 = note(`<
  ~@33 A@2 B@2 C@2 B@2 D@2 E@2 F@4 ~@24 A@2 B@2 C@2 B@2 D@2 E@2 G@4 H@8 I@6 J@4 B@2 C@2 B@2 D@2 E@2 F@4 ~@32 A@2 B@2 C@2
  B@2 D@2 E@2 K@6 ~
>`.pickRestart({
  A: "[e3@3 f3]/2", B: "[e3,g3]/2", C: "[a3@7 f3]/2", D: "[d3,f3]/2", E: "[d3,g3]/2", F: "[e3,g3]/4", G: "[c3,e3,g3]/4",
  H: "[g#3@12 ~@12 [f4,d5]@8 [e3,e4,g4,c5,e5]@31 ~ f5@12 [g3,d#5]@4 f3@8 d5@8 [e3,e4,g4,c5,e5]@32, [g#4,f5]@24 g3@38 ~ g#3@13 ~@12 g3@40, f4 f3 ~@6, c5@12 g3@5 c5@15 ~@32 [f4,g#4]@32 ~@32, ~@3 d#5@5 ~@8 c5@4 c5@4 ~@8]/8", // Dm C Cm C C# Fm
  I: "[[g#3,f5]@3 [g3,d#5] f3@2 ~@2 [e4,g4,c5]@4 ~@3 e3 c4@2 c4@2 e4@2 ~ a4, [f4,g#4]@31 e3@17 ~@32 [e3,c5]@16, c5 c5 e5@4, ~@24 g3@24 [a3,e4,a4,c5]@16 [a3,e4,a4]@17 ~@7 [a3,e4]@8, ~@24 d5@9 ~@47 a4@12 ~@4]/6", // C# Cm C Fm C Am A5
  J: "[~@3 [d4,f4,a4] [d4,g4,b4]@4 e3@6 f3@2, d5 ~, d3 ~@3, [d4,f4,a4]@3 a3@5 ~@8, ~ f3 g3@6]/4", K: "[c3,e3,g3]/6",
})).s("gm_synth_strings_1").gain(0.4).pan(0.9)

// drums · kick
const kick = s("bd").struct("<~@33 [x ~@2 x!2 ~@3]!16 ~@24 [x ~@2 x!2 ~@3]!95 x ~@3>").gain(0.4)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@17 A@20 B A@7 B A@23 B A@7 B A@7 B A@23 B A@6 B A@7 B A@14 B A@28 ~@4
>`.pickRestart({
  A: "~@3 x", B: "~@13 x ~@2",
})).gain(0.32)

// drums · ride
const ride = s("rd").struct("<~ A ~@3 A ~@3 A ~@3 A ~@3 B@121 C B@29 C ~@3>".pickRestart({
  A: "x!16", B: "x!2", C: "x",
})).gain(0.4)

stack(
  piccolo, bass, reed_organ, string_ensemble_2, string_ensemble_1, acoustic_guitar_nylon, synth_strings_1, kick,
  open_hat, ride
)