// This Is the Time — Billy Joel
// 130 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 162 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(130/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 1"
const piano = note(`<
  A B C D E D E@2 F G H@2 F G H@2 I J K H I L M H N O P H I L Q R@8 S@3 T@2 U V W@2 I J K H I L M H N O P H I L Q R@8
  S@3 T@2 U V W@2 X Y Z AA X AB AC@2 X AB AD AE X AB AF@2 F G H@2 F G H@2 I J K H I L M H N O P H I L Q R@8 S@3 T@2 U V
  AG@3 G H@2 F G H@2 F G H@2 F G H@2 F G H@2 F G H@2 AH@2
>`.pickRestart({
  A: "[bb1,bb2]@3 [bb1,bb2]", B: "[bb1,bb2]@3 [bb1,bb2] bb2@2 f2@2, ~ bb1", C: "bb2@13 f2@3, bb1",
  D: "[bb1,bb2]@2 bb2 f2, ~ bb1", E: "[bb1,bb2]", F: "~@2 c3@3 c3@3, d2", G: "~@2 c3@3 c3@3, eb2",
  H: "~@2 c3@3 c3@3, f2", I: "~@6 a3@2 a3@3 ~@2 c4@3, d2, ~@6 d3@5 bb3@3 ~@2, ~@3 d3",
  J: "c4@3 bb3 ~@3 a3, eb2, ~@3 eb3@3 eb3@2, ~@4 bb3@3 ~", K: "g3@3 f3 ~@2 c3@2, f2, ~@3 c3@3 ~@2, ~ a3",
  L: "c4@4 ~@2 eb3@5 ~@2 d4@3, eb2, ~@4 bb3@7 bb3@3 ~@2, ~@3 eb3", M: "d4@3 c4 ~@2 c3@2, f2, ~@3 c3@3 ~@2, ~ c4",
  N: "~@3 a3!3 bb3 c4, d2, ~@3 d3@3 d3@2", O: "c4@2 bb3 eb3@3 ~ a3, eb2, ~@3 bb3@4 ~, ~@3 eb3",
  P: "g3@2 f3 c3@3 c3@2, f2, ~@3 a3@5", Q: "[f2,c3,d4]@3 [f1,f2,c4] [f1,f2]!4, ~ c4",
  R: "[[f1,f2]@2 [f1,f2]@2 c5 d5 eb5 ~ [a1,a2]@3 ~@2 d5 c5 ~@6 c5 d5 ~@2 eb4@2 ~@2 g4@2 ~@5 c5 d5 eb5 ~ [a1,a2]@3 ~@2 d5 c5 ~@6 c5 d5 ~@2 eb4@2 ~@2 g4@2 g4, ~@7 f5@6 ~@2 c5@2 bb4@4 ~@2 eb5@2 ~@2 eb4@2 ~@2 g4@2 f4@3 ~@3 f5@6 ~@2 c5@2 bb4@4 ~@2 eb5@2 ~@2 eb4@2 ~@3, ~@11 a1@5 [bb1,bb2]@3 bb1@5 [eb1,eb2]@3 eb1@5 [f1,f2]@3 f1@5 ~@3 a1@5 [bb1,bb2]@3 bb1@5 [eb1,eb2]@3 eb1@5, ~@3 a2 ~ bb2 ~ eb2 ~ f2 ~ a2 ~ bb2 ~ eb2]/8", // F A Bb Eb F Bb Eb
  S: "[~@4 c5 d5 eb5 ~ [bb1,bb2]@3 ~ bb2@4 [ab1,ab2]@3 f5 g5 f5 eb5 d5, [f1,f2]@3 f1@5 ~@3 bb1@5 ~@3 ab1@5, ~ f4@3 f2@4 ~@12 ab2@4, ~@7 f5@12 ~@5]/3", // Bb Ab F
  T: "[[g1,g2]@3 ~ g2@4 ~@3 f5 g5 f5 eb5 d5, f5@11 ~@5, ~@3 g1@5 [g1,g2]@4 [g1,g2]@4]/2", // G
  U: "[gb1,gb2,d5]@3 [gb1,gb2,eb5] [gb1,gb2,eb5]@4", V: "~@3 eb5!2 d5 c5 bb4, [gb1,gb2]!2",
  W: "[[f1,f2,bb4]@3 [f1,f2,a4] [f1,f2,a4]@12]/2", X: "~@2 a2@2 d3@2 [f3,d5]@2 d5@3 e5@2 f5@3, d2, ~ a3",
  Y: "a4@2 e3@2 a3@2 ~@4 a4@4 g4 f4, a2, ~ a4@4 ~@3, ~@3 c4@5", Z: "~@2 f3@2 ~@8 g4 a4@3, bb2, f4@3 ~, ~ bb3@3",
  AA: "~ g2 e3@2 ~ db3 e3@2, g4, c2 db2", AB: "a4@3 ~@2 a4@3 a4@3 g4@2 f4@3, a2, ~@3 a4@2 ~@11, ~ e3 a3@2",
  AC: "[~ bb2 f3 c4@5 ~ f3 bb3 ~@2 g3 c4@2, f4@3 ~, bb1@2 bb2 c3, ~@11 c4@2 ~@3]/2",
  AD: "~@2 d3@2 g3@2 bb3@2 ~@6 g4 a4, g2, f4@7 ~, ~ d4",
  AE: "~@2 b2@2 ~@6 a4 g4 f4@2 e4@2, g4@5 ~@3, e2 a2, ~@2 g3@3 e3 a3@2", AF: "[bb1,bb2,f4]/2",
  AG: "[[f1,f2,bb4]@3 [f1,f2,a4] [f1,f2]@12 ~@2 c3@3 c3@3, ~ a4@4 ~, ~@2 d2]/3", AH: "[f2,c3]/2",
})).s("gm_piano").gain(0.64)

// bass · fretless bass
const bass = note(`<
  A B C D C D C@2 E F G@2 E F G@2 E F G@2 E F G@2 E F G@2 E F H I J K L M J K L M K N O P Q R S@2 E F G@2 E F G@2 E F
  G@2 E F H I J K L M J K L M K N O P Q R S@2 E T U V E T C W E T X Y E T Z@2 E F G@2 E F G@2 E F G@2 E F G@2 E F G@2 E
  F H I J K L M J K L M K N O P Q R S@2 E F G@2 E F G@2 E F G@2 E F G@2 E F G@2 E F G@2 AA@2
>`.pickRestart({
  A: "bb1@3 bb1", B: "bb1@3 bb1 bb1@4", C: "bb1", D: "bb1!2", E: "d2", F: "eb2", G: "f2", H: "f2@3 f1!5", I: "f1!2 ~@2",
  J: "a1@3 a1@5", K: "bb1@3 bb1@5", L: "eb1@3 eb1@5", M: "f1@3 f1@5", N: "ab1@3 ab1@5", O: "g1@3 g1@5", P: "g1!2",
  Q: "gb1@3 gb1 gb1@4", R: "gb1!2", S: "[f1@3 f1 f1@12]/2", T: "a2", U: "bb2", V: "c2 db2", W: "bb2 c3", X: "g2",
  Y: "e2 a2", Z: "bb1/2", AA: "f2/2",
})).s("gm_fretless_bass").gain(0.4)

// chords · drawbar organ · "Hammond Organ"
const drawbar_organ = note(`<
  ~@30 A B C D@8 E F@2 G H I@2 ~@14 A B C D@8 E F@2 G H I@2 J K L M N O P@2 N O Q R N O S@3 ~@21 A B C D@8 E F@2 G H I@2
  ~@26
>`.pickRestart({
  A: "[g3,f4]@3 [g3,f4] [g3,f4]@4", B: "[g3,c4,f4]!2 [f4,c5]@2", C: "[f4,c5]@4 f4@3 f4",
  D: "[~ f4@3 f4@3 bb4@2 bb3@2 bb3@4 c4@5 f4@3 [f4,c5]@5 f4@3 f4@5 ~ f4@2 bb4@4 bb3@4 c4@5 f4@3 [f4,bb4,d5]@9, ~@7 eb4@8 ~@24 eb4@8 ~@17]/8", // F5 Bb
  E: "f4@3 ~ g4 ~ eb4 d4, c5, ~@3 f4@2 f4@3", F: "[c5@8 ~@4 g4 ~ eb4 d4, f4@11 f4@2 f4@3, ~ b4]/2", G: "[gb4,bb4]!2",
  H: "d4@3 eb4 [eb4,gb4,bb4]@4, [gb4,bb4] ~", I: "[[d4,f4]@3 [c4,f4] [c4,f4]@12]/2", J: "~@6 f4@2 f4@3 g4@2 a4@3",
  K: "c4@5 c4@3", L: "c4@3 c4", M: "~@3 g3 [a3,e4]@4, d4 ~", N: "f4@6 f4@2 f4@3 g4@2 a4@3, a3",
  O: "c4@3 c4@2 c4@3 [a3,c4]@8", P: "[[c4,f4]@3 [d4,g4]]/2", Q: "[bb3,d4]", R: "d4@3 d4 [g3,db4]@4, b3 ~",
  S: "[[bb3,c4]@5 ~]/3", // Bbsus2
})).s("gm_drawbar_organ").gain(0.32).pan(0.3)

// chords · acoustic guitar nylon · "Nylon Guitar"
const acoustic_guitar_nylon = note(`<
  A B C D E B F G H@8 I J K L I J M L I J K L I J ~@18 I J K L I J M L I J K L I J ~@34 H@8 I J K L I J M L I J K L I J
  ~@18 H@24 N@2
>`.pickRestart({
  A: "[f3,bb3,d4]@4 ~ bb3 [f3,bb3,d4]@2, ~@2 f3 ~", B: "[g3,c4,e4]@3 [a3,bb3,d4,f4] [a3,bb3,d4,f4]@4",
  C: "~@6 [f3,bb3,d4]@2 [f3,bb3,d4]@3 [g3,c4,e4]@2 [c4,e4,g4]@3", // Bb C
  D: "[c4,e4,g4]@3 [bb3,d4,f4]@2 [g3,c4,e4]@3 [a3,bb3,d4,f4]@8", E: "~@8 f3@3 [f3,bb3,d4]@2 [g3,c4,e4]@3",
  F: "~@6 f3@2 [f3,bb3,d4]@3 [g3,c4,e4]@2 [c4,e4,g4]@3", // Bb C
  G: "[c4,e4,g4]@3 [bb3,d4,f4]@2 [g3,c4,e4]@3 [bb3,d4,f4]@4 [c4,e4,g4]@4", // C Bb C Bb C
  H: "g3 ~@2 g3 ~@2 g3 f3, c4@3 c4@3 c4@2, ~ f3@2 ~ f3@2 ~@2, ~@2 c3@3 c3@3", I: "g3 f3@6 ~, c4@3 ~@5", J: "g3",
  K: "c4@6 g3 f3, ~@3 c4", L: "g3 f3@2 g3 f3@2 g3 f3, c4@3 c4@3 c4@2", M: "g3@3 g3 g3@2 g3 f3, ~@3 c4",
  N: "[c3,g3,c4]/2", // C5
})).s("gm_acoustic_guitar_nylon").gain(0.4).pan(0.8)

// chords · orchestral harp · "Harp"
const orchestral_harp = note(`<
  A B C D E B F G H@8 I J K L I J M L I J K L I J ~@18 I J K L I J M L I J K L I J ~@34 H@8 I J K L I J M L I J K L I J
  ~@18 H@24 N@2
>`.pickRestart({
  A: "[f4,bb4,d5]@4 ~ bb4 [f4,bb4,d5]@2, ~@2 f4 ~", B: "[g4,c5,e5]@3 [a4,bb4,d5,f5] [a4,bb4,d5,f5]@4",
  C: "~@6 [f4,bb4,d5]@2 [f4,bb4,d5]@3 [g4,c5,e5]@2 [c5,e5,g5]@3", // Bb C
  D: "[c5,e5,g5]@3 [bb4,d5,f5]@2 [g4,c5,e5]@3 [a4,bb4,d5,f5]@8", E: "~@8 f4@3 [f4,bb4,d5]@2 [g4,c5,e5]@3",
  F: "~@6 f4@2 [f4,bb4,d5]@3 [g4,c5,e5]@2 [c5,e5,g5]@3", // Bb C
  G: "[c5,e5,g5]@3 [bb4,d5,f5]@2 [g4,c5,e5]@3 [bb4,d5,f5]@4 [c5,e5,g5]@4", // C Bb C Bb C
  H: "g4 ~@2 g4 ~@2 g4 f4, c5@3 c5@3 c5@2, ~ f4@2 ~ f4@2 ~@2, ~@2 c4@3 c4@3", I: "g4 f4@6 ~, c5@3 ~@5", J: "g4",
  K: "c5@6 g4 f4, ~@3 c5", L: "g4 f4@2 g4 f4@2 g4 f4, c5@3 c5@3 c5@2", M: "g4@3 g4 g4@2 g4 f4, ~@3 c5",
  N: "[c4,g4,c5]/2", // C5
})).s("gm_orchestral_harp").gain(0.32).pan(0.3)

// drums · kick
const kick = s("bd").struct(`<
  ~@10 A B C@2 B@3 D A@2 E A E B A@2 F G A H I ~ E@2 J E@2 F J E@8 A B D A@2 E A E B A@2 F G A H I ~ E@2 J E@2 F J E@8 A
  K C A L K L E C A L A M L@2 A ~@3 A B C@2 B@3 D A@2 E A E B A@2 F G A H I ~ E@2 J E@2 F J E@8 A ~@2 A B C@2 B@2 C@2
  B@2 C@2 B@2 C@2 B@2 C@2 B@2 A ~
>`.pickRestart({
  A: "x", B: "x ~@4 x ~@2", C: "x ~@2 x ~ x ~@2", D: "x ~@2 x", E: "x ~@2 x ~@4", F: "x ~@2 x ~@3 x", G: "x ~@4 x ~ x",
  H: "x ~@2 x ~@2 x ~", I: "x ~@2 x!5", J: "x!2 ~ x ~@4", K: "x ~@2 x!2 ~@3", L: "x!2", M: "x ~@2 x!2 ~@2 x",
})).gain(0.36)

// drums · rim
const rim = s("rim").struct("<~@12 A@18 ~@18 A@14 ~@38 A@18 ~@22 A@20 B ~>".pickRestart({
  A: "x!4", B: "x",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct("<~@31 A B@3 C B@11 ~@16 A B@3 D B@3 D B@7 ~@40 A B@3 C B@11 ~@27>".pickRestart({
  A: "x!2 ~@2", B: "~ x", C: "~@2 x!2", D: "~@8 x ~@3 x ~ x!2",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<~@8 A@22 ~@18 A@14 ~@18 A@14 ~@2 A@22 ~@18 A@24 ~@2>".pickRestart({
  A: "~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2",
})).gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<~@8 A@22 ~@18 A@14 ~@18 A@14 ~@2 A@22 ~@18 A@24 ~@2>".pickRestart({
  A: "x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2",
})).gain(0.27)

// drums · mid tom
const mid_tom = s("mt").struct("<~@67 [~@11 x ~@4] ~@3 [~@10 x!2 ~@4] ~@90>").gain(0.36)

// drums · crash
const crash = s("cr").struct(`<
  ~@30 A B A ~@3 A ~@3 A ~ A ~ A@4 ~@14 A B A ~@3 A ~@3 A ~ A ~ A@4 ~@14 A ~@23 A B A ~@3 A ~@3 A ~ A ~ A@4 ~@24 A ~
>`.pickRestart({
  A: "x", B: "x!2 ~@2",
})).gain(0.36)

// drums · high tom
const high_tom = s("ht").struct("<~@67 [~@5 x ~@2] ~@94>").gain(0.36)

// drums · ride
const ride = s("rd").struct(`<
  ~@30 A ~ B C D E F E@3 G E G E G@3 ~@15 A ~ B C D E F E@3 G E G E G@3 ~ E@13 H I ~@23 A ~ B C D E F E@3 G E G E G@3
  ~@27
>`.pickRestart({
  A: "~@3 x!5", B: "~@2 x ~ x ~ x!2", C: "x ~ x ~ x ~ x!2", D: "x ~ x!3 ~ x!2", E: "x!4", F: "~@2 x ~ x!4", G: "~ x!3",
  H: "x ~@3 x ~@3 x ~@3 x ~ x!2", I: "x",
})).gain(0.36)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@8 A@22 ~@18 A@14 ~@18 A@14 ~@2 A@22 ~@18 A@24 ~@2>".pickRestart({
  A: "x!16",
})).gain(1.13)

stack(
  piano, bass, drawbar_organ, acoustic_guitar_nylon, orchestral_harp, kick, rim, snare, hihat, open_hat, mid_tom, crash,
  high_tom, ride, cabasa
)