// I Started a Joke — Bee Gees
// 72 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 56 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(72/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 · electric guitar jazz · "JAZZ GTR"
const electric_guitar_jazz = note(`<
  A B C D E F G F G F G F H F G F G F G I J K L M N O P Q F G F G F G R J K L M S O P Q F G F G F G F G F G F H T
>`.pickRestart({
  A: "~@5 d3 e3 f#3", B: "~@2 d4 g3 ~@2 f#4 b3, g3@3 ~@2 d4@2 ~, ~ b3@2 ~ b3@3 ~",
  C: "~@6 c4 ~@5 c5@2 a4 ~, c4@6 ~@5 f#4@4 ~, ~ e4@2 ~@2 a4@2 ~, ~@4 g4@4 ~ c5@3 ~@4",
  D: "~@5 b3 g3@2 ~@4 f#4@3 ~, g3@3 ~@5, ~@3 g4@3 ~@4 d4@4 ~@2, ~@2 d4 ~ b3@3 ~",
  E: "~@6 c4 ~@2 c5@2 ~@3 f#4 ~, c4@4 g4@4 ~@3 f#4@2 a4@2 ~, ~@2 e4@5 ~ d3@8, ~@12 c5@3 ~",
  F: "~@4 d4@2 g3 ~@5 d4@2 f#4 ~, g3@6 ~@5 f#4@3 ~@2, ~@2 b3@4 ~@2 b3@5 ~@3, ~@3 g4@4 ~@3 d4@2 ~@4",
  G: "~@4 e4@2 g4 ~@8 c5, ~ e4 ~@3 a4 c5 f#4, ~@3 g4@3 ~@3 c5@2 f#4@2 a4@3",
  H: "~@4 e4@2 g4 ~@7 f#4@2, ~@2 e4@2 ~@6 a4@2 c5@3 ~, ~@3 g4@3 ~@3 c5@2 f#4@2 a4@3",
  I: "~@12 g3@3 ~, g3@3 g3@3 ~@2, ~@2 b3@6 ~ b3@4 ~@3, ~@4 d4@4 d4@3 d4@4 ~",
  J: "~@2 e4@2 ~ e4@2 ~ [b4,e5]@6 ~@2, b3@3 ~@5, ~@2 g4 ~@5", // E5
  K: "~@2 d4@2 ~ d4 ~@2 [f#4,b4,d5]@6 ~@2, b3@3 ~@5, ~@2 f#4 ~@5", L: "~@2 e4@2 ~ e4 ~@2 [g4,c5]@6 ~@2, ~@4 g4@3 ~@9",
  M: "~@2 b3@2 ~ b3 ~@2 [d4,g4,b4]@6 ~@2, g3@3 ~@5, ~@2 d4 ~@5", N: "~@2 d4@2 f#4 d4 ~@2 [f#4,d5]@6 ~@2, b3@3 ~@5",
  O: "b3@2 ~@3 e4 ~@2 [g4,b4]@5 ~@3, ~@2 g4 ~@5", P: "~@2 c4@2 ~ c4 ~@2 [e4,a4,c5]@6 ~@2, a3@3 ~@5, ~@2 e4 ~@5",
  Q: "~@4 c5@2 a4 ~ [d4,f#4,a4]@5 ~@3, d3@7 ~, ~ c5@2 f#4@4 ~@9, ~ a4@2 ~@5", // D
  R: "~@13 b3@3, g3@5 g3@3, ~@2 b3@4 b3@7 ~@3, ~ d4!3", S: "~@2 d4@2 ~ d4 ~@2 [f#4,d5]@6 ~@2, b3@3 ~@5, ~@4 f#4@3 ~@9",
  T: "[b3,d4,g4]", // G
})).s("gm_electric_guitar_jazz").gain(0.27).pan(0.7)

// chords · electric guitar jazz · "JAZZ GTR" · soft notes
const electric_guitar_jazz_2 = note(`<
  ~@2 A B C D E D E D E D F D E D E D E ~ G ~ H ~ I J ~@2 D E D E D E ~ G ~ H ~ I J ~@2 D E D E D E D E D E D E ~
>`.pickRestart({
  A: "~ d3", B: "~@2 b3@3 ~@9 b3@2", C: "~@10 a4@3 ~@3", D: "~@13 b3@2 ~", E: "c4@3 ~@2 c4@2 ~ d3@8",
  F: "c4@3 ~@2 c4@2 ~@9", G: "~@4 g4@3 ~", H: "c4@2 ~@2 e5@3 ~", I: "~@4 b4@3 ~", J: "~@2 e4@3 ~@3 e5@5 ~@3",
})).s("gm_electric_guitar_jazz").gain(0.16).pan(0.7)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  A B C D C B E F G H I D C J I D I D I K L M N O P Q R S D I T U T V W X Y N Z AA Q R S T AB T AB T AB T AB T AB T AC
  AD
>`.pickRestart({
  A: "~@12 d3 c3 b2 a2", B: "g2@3 d2 b1@3 b1", C: "c2@5 ~ c2@2 d2@3 ~ d3 c3 b2 a2", D: "g2@6 d2@2 b1@5 ~ b1@2",
  E: "c2@6 c#2@2 d2@5 e2 f#2@2", F: "g2@3 d2 b1@4", G: "c2@6 c#2@2 d2@3 ~ d2 e2 f#2 ~", H: "g2@8 b1@5 ~ b1@2",
  I: "c2@5 ~ c2@2 d2@3 ~ d2 e2 f#2@2", J: "g2@4 b1@3 b1", K: "g2@3 g2 g2@2 ~ g2!2 ~ g2 ~ g2 ~ g2@2",
  L: "e2@5 ~ e2 ~ e2@6 b2@2", M: "b1@4 f#2@2 b1 f#2", N: "c2@5 ~ c2@2 g2@4 c2@4", O: "g2@3 g2 d2@2 g2@2",
  P: "b1@5 ~ b1 ~ b1@5 ~ b1@2", Q: "e2@5 ~ e2@2 d2@5 ~ d2@2", R: "a1@5 ~ a1 ~ a1@8", S: "d2@11 ~ d3 c3 b2 a2",
  T: "g2@6 d2@2 b1@5 b2 f#2 d2", U: "c2@6 c3@2 d2@5 e2 f#2 ~", V: "c2@5 c3 g2 c2 d2@4 d2 e2 f#2@2",
  W: "g2@2 ~ g2 g2@2 ~ g2!2 ~ g2 ~ g2@3 ~", X: "e2@6 e2 ~ e2@4 b2@2 e2@2", Y: "b1@5 ~ b1@2 f#2@4 b1@2 f#2@2",
  Z: "g2@5 ~ g2@2 d2@4 g2@2 d2@2", AA: "b1@6 b1 ~ b1@6 b1@2", AB: "c2@5 c3 g2 c2 d2@3 ~ d2 e2 f#2@2",
  AC: "c2@5 c3 g2 c2 d2@4 d3 c3 b2 a2", AD: "g2@15 ~",
})).s("gm_acoustic_bass").gain(0.33)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B A B A B A B A B A B A B A B A B C D E F G H I J K A B A B A B C D E F G H I J K A B A B A B A B A B A B L
>`.pickRestart({
  A: "~@2 [b3,d4,g4]@2 [b3,d4,g4]@2 [b3,d4] ~@3 [d4,f#4,b4]@2 [d4,f#4,b4]@2 [b3,d4,f#4] ~, g3@4 b3@3 ~", // G Bm
  B: "~ e4!2 [e4,g4,c5] ~ [a3,c4]!3, c4 d3, ~ [g4,c5]@2 ~@2 f#4@3", // C Am C5
  C: "[g3,b3,d4,g4]@3 [g3,b3,d4] [g3,b3,d4,g4]@2 d4 [b3,g4] [g3,b3,g4]@2 [b3,g4] [b3,g4]@2 ~ b3@2, ~@7 d4@3 d4@6, ~@13 [g3,g4]@3", // G Em G Em G
  D: "b3@2 b3@2 [b3,e4]@3 [b3,e4] [b3,e4]@2 ~ b3 ~@2 [g3,e4] ~, g3@7 ~@5 b3@4, e4@4 ~@7 e4@3 ~@2, ~@2 g4@4 ~ g4@3 ~ g4@5", // E5 C
  E: "[b3,d4,f#4]@2 f#4 [f#3,b3,d4,f#4]@3 f#4!2 f#4@2 f#4!2 f#4@2 [b3,f#4]@2, ~@7 [b3,d4]@3 ~ [f#3,b3,d4]@4 ~", // Bm B5 Bm
  F: "[c3,g3,c4]@2 ~ [c4,e4] [c3,c4,e4]@2 e4 [c4,e4] [c4,e4]@2 e4!2 e4@2 [g3,c4] ~, ~@3 [e3,g3]@3 ~ [e3,g3]@3 ~ [e3,g3,c4]@4 ~", // C5 C C5 Em C
  G: "[g3,b3,d4,g4]@2 ~ [b3,d4,g4] [b3,d4,g4]@2 [d4,g4] [b3,d4] [b3,d4]@2 [d4,g4] [b3,d4] [b3,d4]@2 b3 ~, ~@3 g3@3 ~ g4@3 ~ g4@5", // G G5 Bm G5 Bm
  H: "[f#3,b3,d4,f#4]@2 [d4,f#4] [b3,f#4] [b3,f#4]@2 f#4 [b3,f#4] [f#3,b3,f#4]@2 f#4 [b3,d4] [f#3,b3,d4]@2 [b3,f#4] ~, ~@3 [f#3,d4]@3 ~ d4@3 ~ f#4@3 ~@2", // Bm D B5 Bm B5 D
  I: "[b3,e4,g4]@2 e4 [e4,g4] [g3,e4,g4]@2 e4 [b3,e4,g4] [b3,e4,g4]@2 e4 [b3,e4] [b3,e4]@2 [b3,e4] ~, ~@3 b3@3 ~@5 g4@5, ~@3 g3", // Em C Em E5
  J: "~ e4 [e4,a4] e4 e4@2 e4 [a3,c4,e4,a4]@3 [e4,a4] [c4,e4] [a3,c4,e4]@2 [c4,e4] ~, [a3,c4,e4]@2 ~ [c4,a4]@4 ~@4 a4@5", // A5 Am A5 C Am C Am F
  K: "[a3,d4,f#4]@2 d4 [a3,d4] ~@2 f#4@2 [a3,d4,f#4]@7 ~, ~@3 f#4@3 ~@10, ~ [a3,d4] ~@2", // D D5 D D5
  L: "[g2,b2,d3,g3], b3@7 ~, g4@3 ~", // G
})).s("gm_acoustic_guitar_steel").gain(0.33).pan(0.4)

// other · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<~@28 A B C D E F G ~@8 H I J K@2 L@2 M N O N P Q>".pickRestart({
  A: "~ b4", B: "c5 d5", C: "~@2 d4 f#4", D: "e4 f#4", E: "g4 f#4", F: "e4 [c4,d4,f#4]", G: "[b3,g4]",
  H: "~@4 [b4,b5]@3 [d5,d6]", I: "[c5,c6] [a4,a5]", J: "[d5,d6]",
  K: "[[c5,c6]@4 d5@4 g4 d5 b4 g4 b5 f#5 d5 b4, ~ d6@2 f#4]/2", // C
  L: "[[g4,c5]@4 [c5,e5]@4 [c5,f#5]@4 c5@4 ~@6 b5 c6 b5@4 d6 e6 d6@2, ~@6 g5@5 ~@5, ~@16 b4@15 ~]/2", M: "e6 f#6",
  N: "g6 f#6", O: "e6@2 f#6 d6", P: "e6@4 d6 a5 d5 a4", Q: "g4",
})).s("gm_string_ensemble_1").gain(0.27).pan(0.4)

// other · string ensemble 1 · "STRINGS"
const string_ensemble_1_2 = note(`<
  ~@19 A B C D E F@2 G H I J ~@4 K L M N O P Q R S T U V W X Y Z AA X J X AB B
>`.pickRestart({
  A: "g3@15 ~", B: "g3", C: "f#3", D: "e3", E: "d3", F: "[b3@11 e4@2 d4@3]/2", G: "a3@3 e3", H: "d3 c4",
  I: "~ g3 f#3@2", J: "e3 d3", K: "g2@4 b2@4 d3@3 d3 g3 f#3 e3 d3", L: "e3@3 d3 e3@3 d3", M: "b2", N: "c3",
  O: "b2@6 c3@2 d3@4 c3 b2 a2 g2", P: "f#2@6 b2 ~ b2@6 b2 ~", Q: "b2@4 e2@4 g2@3 a2@2 b2@2 ~",
  R: "e3@3 f#3 g3 f#3 e3@2", S: "d3@13 ~@3", T: "~@4 d5@3 f#5", U: "e5 c5", V: "~@4 g4 f#4 e4 d4 b3@6 f#3@2",
  W: "e3 a3", X: "g3 f#3", Y: "e3 f#3", Z: "g3 b3", AA: "c4 b3 a3 g3 f#3 ~ f#3 e3 d3@8", AB: "e3 g3 c4 e4 d4@2 a3 f#3",
})).s("gm_string_ensemble_1").gain(0.38).pan(0.6)

// chords · vibraphone
const vibraphone = note("<~@20 A B C D E F G H ~@7 A B C D E F G H ~@13>".pickRestart({
  A: "~@6 [g4,b4,e5] ~ [g4,b4,e5]@8", B: "~@6 [f#4,b4,d5] ~ [f#4,b4,d5]@8", C: "~@6 [g4,c5,e5] ~ [g4,c5,e5]@7 ~",
  D: "~@8 [g4,b4,d5]@2 ~@2 [b4,d5,g5]@3 ~", E: "[b4,d5,f#5]@3 ~ [f#4,b4,d5]@3 ~", F: "[e4,g4,b4]@3 ~ [g4,b4,e5]@4",
  G: "~@8 [e4,a4,c5]@5 ~@3", H: "[f#4,a4,c5]@15 ~",
})).s("gm_vibraphone").gain(0.27).pan(0.4)

// other · acoustic guitar steel · "STEEL GTR" · D B C B A D C B …
const acoustic_guitar_steel_2 = note(`<
  ~
  [[d4,d5]@4 [b3,b4] [c4,c5] ~@2 [b3,b4]@6 [a3,a4]@2, ~@7 [d4,d5]@2 ~@7]
  [[c4,c5]@6 [b3,b4] [a3,a4]@7 ~@2]
  [[d4,d5]@4 ~ [c4,c5] ~ [d4,d5] [b3,b4]@6 [a3,a4]@2, ~@2 [b3,b4] ~@5]
  [[c4,c5]@6 [b3,b4] [a3,a4]@7 ~@2]
  ~@51
>`).s("gm_acoustic_guitar_steel").gain(0.38).pan(0.4)

// other · orchestral harp · "HARP" · Asus2 D7 G F#m7 G D7 Asus2 D7 …
const orchestral_harp = note(`<
  ~@27
  [~@9 [a3,b3] [c4,d4,e4,f#4] [g4,a4,b4,c5,d5] [e5,f#5,g5,a5] e5 [g4,a4,b4] [c4,d4,e4,f#4]]
  ~@14
  [~@9 [a3,b3] [c4,d4,e4,f#4] [g4,a4,b4,c5,d5] [e5,f#5,g5,a5] e5 [g4,a4,b4] [c4,d4,e4,f#4]]
  ~@13
>`).s("gm_orchestral_harp").gain(0.22).pan(0.4)

// other · orchestral harp · "HARP" · soft notes · Esus2 Csus2 Gsus2 Esus2 Csus2 Gsus2
const orchestral_harp_soft = note(`<
  ~@27
  [~@8 [e3,f#3] g3 ~@3 [c5,d5] ~ b3]
  [[g3,a3] ~@15]
  ~@13
  [~@8 [e3,f#3] g3 ~@3 [c5,d5] ~ b3]
  [[g3,a3] ~@15]
  ~@12
>`).s("gm_orchestral_harp").gain(0.11).pan(0.4)

// drums · kick
const kick = s("bd").struct(`<
  ~@3 A B@2 C@3 B@2 D E F G H F@2 I B J K L K D M N F O F O E F O B D K P D@2 Q R F L O@2 E G@8 B
>`.pickRestart({
  A: "~ x ~@6", B: "x", C: "~ x ~@5 x", D: "x ~@6 x", E: "x ~@2 x ~ x ~ x", F: "x!2", G: "x ~@3 x ~ x!2",
  H: "x ~@7 x ~@6 x", I: "x ~ x!2", J: "x ~@14 x", K: "x ~@11 x ~@2 x", L: "x ~@5 x!2", M: "x ~@2 x ~@3 x",
  N: "x ~@2 x ~@2 x!2", O: "x ~@3 x ~@2 x", P: "x ~@9 x ~ x ~@2 x", Q: "x ~@5 x ~@7 x!2", R: "~@6 x!2",
})).gain(0.33)

// drums · snare
const snare = s("sd").struct(`<
  ~@8 A B C D C E@4 C F G H@7 ~ E@2 F C I C J H@3 K H@3 ~ E@2 C I L@2 I L C I@3 ~
>`.pickRestart({
  A: "~@2 x!2", B: "x ~ x!2 ~ x!3", C: "~ x!7", D: "~ x!3 ~@2 x!2", E: "~ x!3 ~ x!3", F: "~@2 x!6",
  G: "x ~ x ~ x ~@2 x!2 ~@7", H: "~ x", I: "x!8", J: "x ~ x ~ x ~ x ~ x!4 ~@4", K: "~ x!3", L: "x!4 ~ x!3",
})).gain(0.22)

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

// drums · low tom
const low_tom = s("lt").struct("<~@19 [~@11 x!4 ~] ~@14 [~@12 x!4] ~@21>").gain(0.49)

// drums · hihat
const hihat = s("hh").struct("<~@9 A@10 B ~@8 A@6 C ~@8 A@12 ~>".pickRestart({
  A: "x!8", B: "x!3 ~@5", C: "x!5 ~@3",
})).gain(0.27)

// drums · mid tom
const mid_tom = s("mt").struct("<~@19 [~@5 x ~@2] ~@36>").gain(0.38)

// drums · ride
const ride = s("rd").struct("<~@3 A B C D@2 E ~@11 F@7 G ~@7 F@7 G ~@12 H>".pickRestart({
  A: "~ x ~@2", B: "~ x!2 ~@5", C: "~ x!2 ~", D: "x!2 ~ x", E: "x!4", F: "x!8", G: "x!5 ~@3", H: "x",
})).gain(0.22)

stack(
  electric_guitar_jazz, electric_guitar_jazz_2, bass, acoustic_guitar_steel, string_ensemble_1, string_ensemble_1_2,
  vibraphone, acoustic_guitar_steel_2, orchestral_harp, orchestral_harp_soft, kick, snare, snare_soft, low_tom, hihat,
  mid_tom, ride
)