// Top of the World — Carpenters
// 191 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 134 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(191/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.

// chords · piano
const piano = note(`<
  A B C D E F G H@2 ~@3 I J K L M N O L P Q R S T U V W X J K L M N O L Y Q R S T Z AA W X AB AC AD AE AF AG L AH AI AJ
  AK AL AM AN AO ~@4 I J K L AP N O L P Q R S T U V W X J K L AP N O L Y Q AQ S T Z AA W X AB AC AD AE AF AG L AH AI AJ
  AK AL AM AN AR AS AT AU AV AW AF AG L AH AI AJ AK AL AM AN AX ~@6
>`.pickRestart({
  A: "~@4 g1@3 ~ a1@3 ~ b1@3 ~", B: "c2@4 [g3,c4,e4]@3 ~@5 [c4,e4]@2 ~@2, ~@8 g1@7 ~, ~@3 g3",
  C: "c2@4 [g3,a#3,c4,e4]@3 ~ d2@3 ~ [e2,g3,a#3,c4,e4]@3 ~", D: "f2@4 [a3,c4,f4]@3 ~@5 [a3,c4,f4]@4, ~@8 c2@7 ~",
  E: "f2@4 [a3,c4,f4]@4 e2@3 ~ [d2,a3,c4,f4]@3 ~", F: "c2@4 [g3,c4,e4]@3 ~ g1@3 ~ [c2,g3,c4,e4]@3 ~",
  G: "g2@4 [f3,g3,b3,d4]@3 ~@5 [f3,g3,b3,d4]@2 ~@2, ~@8 d2@7 ~", H: "[[g3,c4,e4]@21 ~@11, c2 ~]/2",
  I: "~@4 [g1,g2]@3 ~ [a1,a2]@3 ~ [b1,b2]@3 ~", J: "c2@4 [g3,c4,e4]@3 ~@5 [g3,c4,e4]@4, ~@8 c2@7 ~",
  K: "g2@2 [g3,b3,d4]@2 ~@2 [g3,b3,d4] ~, ~@8 f2@7 ~", L: "c2@2 [g3,c4,e4] ~@3 [g3,c4,e4] ~, ~ g2",
  M: "c2@4 [g3,c4,e4]@2 ~@2 c2@3 ~ [d2,f3,g3,b3,d4]@3 ~", N: "e2@2 [g3,b3,e4]@2 ~@2 [g3,b3,e4] ~, ~@8 e2@7 ~",
  O: "d2@4 [a3,c4,d4,f4]@3 ~@5 [f3,g3,b3,d4]@3 ~, ~ g2", P: "c2@4 [g3,c4,e4]@3 ~ d2@3 ~ [e2,g3,c4,e4]@3 ~",
  Q: "f2@4 [a3,c4,f4]@3 ~@5 [a3,c4,f4]@2 ~@2, ~@8 f2@7 ~", // F
  R: "g2@4 ~@2 g2 ~ g2@3 ~ [f3,g3,d4]@2 ~@2, ~ [f3,g3,b3,d4] ~ [f2,b3]", S: "e2 [g3,b3,e4] ~ [a3,b3,d4,f4], ~ d2",
  T: "a1 [a3,c#4,e4] a1 [e2,a3,c#4,e4]", U: "d2@4 [a3,d4,f4]@3 ~@5 [a3,d4,f4]@4, ~@8 a1@7 ~",
  V: "d2@4 [a3,c4,d4,f4]@3 ~ a1@3 ~ [d2,g#3,c4,d4,f4]@4", W: "g2@4 [g3,c4,f4]@4 ~@4 [g3,c4,f4]@3 ~, ~@8 d2@7 ~",
  X: "[g3,b3,d4]@4 [g1,g2]@3 ~ [a1,a2]@3 ~ [b1,b2]@4, g2 ~@7", Y: "c2@4 [g3,c4,e4]@2 c2 ~ d2@3 ~ [e2,g3,c4,e4]@3 ~",
  Z: "d2@4 [a3,c4,d4,f4]@3 ~@5 [a3,c4,d4,f4]@4, ~@8 a1@7 ~", AA: "d2@4 [g#3,c4,d4,f4]@3 ~ a1@3 ~ [d2,g#3,c4,d4,f4]@4",
  AB: "c2@4 [g3,c4,e4]@4 ~@4 [g3,c4,e4]@3 ~, ~@8 g2@7 ~", AC: "c2@4 [g3,a#3,c4,e4]@2 c2 ~ d2@3 ~ [e2,g3,c4,e4]@3 ~",
  AD: "f2@2 [a3,c4,f4] ~@3 [a3,c4,f4] ~, ~@8 c2@7 ~", AE: "f2@4 [a3,c4,f4] ~ f2 ~ e2@3 ~ [d2,d4,f4]@3 ~, ~@12 a3 ~@3",
  AF: "c2@4 [c4,e4]@2 ~@2 g2@3 ~ [c2,g3,c4,e4]@2 ~@2, ~@4 g3 ~@11", // C
  AG: "d2@4 [a3,f4] ~@7 [g3,b3,d4]@2 ~@2, ~@2 d4 ~ g2@4", // Dm G
  AH: "c2@2 ~@2 [c2,g3,a#3,c4,e4]@3 ~ d2@3 ~ [e2,g3,c4]@3 ~, ~@12 e4 ~@3", // C7 C
  AI: "f2@4 [a3,f4] ~@7 [a3,c4,f4]@3 ~, ~@4 c4@2 ~@2 c2@7 ~", // Dm F
  AJ: "g2@4 [f3,g3,b3,d4]@2 ~@6 [f3,g3,d4] ~@3, ~@8 d2@7 ~, ~@6 b3 ~", // G7
  AK: "c2@4 [c4,e4]@2 ~@2 g1@3 ~ [c2,g3,c4,e4]@3 ~, ~@4 g3 ~@11", AL: "f2@4 [a3,c4,f4]@2 f2 ~ e2@3 ~ [d2,a3,c4,f4]@3 ~",
  AM: "c2@4 [g3,c4,e4]@2 ~@2 g1@3 ~ [c2,c4,e4]@3 ~, ~@12 g3 ~@3", // C
  AN: "d2@4 [a3,d4,f4]@2 ~@2 a1@3 ~ [g1,f3,g3,b3,d4]@3 ~, ~@4 c4 ~@11", AO: "[g3,c4,e4]@5 ~@3, c2 ~",
  AP: "c2@4 [g3,c4,e4]@2 c2 ~ c2@3 ~ [d2,f3,g3,b3,d4]@3 ~", // C G7
  AQ: "g2@4 [f3,g3,b3,d4]@4 g2@3 ~ [f3,g3,d4]@2 ~@2, ~@3 [f2,b3]", AR: "c2@4 ~@2 c2 ~ g2@7 ~, [g3,c4,e4]@5 ~@3",
  AS: "c2@2 ~@2 g1@3 ~ a1@3 ~ b1@2 ~@2", AT: "c2", AU: "~@4 c2@3 ~ d2@3 ~ e2@3 ~", AV: "f2",
  AW: "~@4 f2@3 ~ e2@4 d2@3 ~", AX: "[c2,g3,c4,e4]@5 ~@3",
})).s("gm_piano").gain(0.21)

// bass · fretless bass · "Bass"
const bass = note(`<
  A B C D E F G H@2 I@3 J K L M N O P M C Q R S T U V G W K L M N O P M C Q R S T U V G W M C D E X P M Y D G F E F Z
  H@2 I@3 J K L M N O P M C Q R S T U V G W K L M N O P M C Q R S T U V G W M C D E X P M Y D G F E F Z M J AA AB AC AD
  X P M Y D G F E F Z H@2 I@3 AE@2
>`.pickRestart({
  A: "~@4 g1@3 ~ a1@3 ~ b1@3 ~", B: "c2@4 ~@2 c2 ~ g1@7 ~", C: "c2@5 ~ c2 ~ d2@3 ~ e2@3 ~", D: "f2@5 ~ f2 ~ c2@7 ~",
  E: "f2@5 ~ f2 ~ e2@3 ~ d2@3 ~", F: "c2@4 ~@2 c2 ~ g1@3 ~ c2@3 ~", G: "g2@4 ~@2 g2 ~ d2@7 ~",
  H: "[c2@4 ~@2 c2 ~ c2@18 ~@2 g2@3 ~]/2", I: "c2@5 ~ c2 ~ g2@5 ~@3", J: "c2@2 ~@2 g1@3 ~ a1@3 ~ b1@3 ~",
  K: "c2@4 ~@2 c2 ~ c2@7 ~", L: "g2@4 ~@2 g2 ~ f2@7 ~", M: "c2@5 ~ c2 ~ g2@8", N: "c2@4 ~@2 c2 ~ c2@3 ~ d2@3 ~",
  O: "e2@4 ~@2 e2 ~ e2@7 ~", P: "d2@5 ~ d2 ~ g2@8", Q: "f2@5 ~ f2 ~ f2@7 ~", R: "g2@5 ~ g2 ~ g2@3 ~ f2@4",
  S: "e2@4 ~@2 e2 ~ d2@8", T: "a1@5 ~ a1 ~ a1@4 e2@4", U: "d2@5 ~ d2 ~ a1@7 ~", V: "d2@4 ~@2 d2 ~ a1@3 ~ d2@4",
  W: "g2@2 ~@2 g1@3 ~ a1@3 ~ b1@3 ~", X: "c2@4 ~@2 c2 ~ g2@3 ~ c2@2 ~@2", Y: "c2 ~@3 c2@3 ~ d2@3 ~ e2@3 ~",
  Z: "d2@4 ~@2 d2 ~ a1@3 ~ g1@4", AA: "c2", AB: "~@4 c2@3 ~ d2@3 ~ e2@3 ~", AC: "f2", AD: "~@4 f2@3 ~ e2@4 d2@3 ~",
  AE: "[c2@2 ~@2 g1@3 ~ c2@17 ~@7]/2",
})).s("gm_fretless_bass").gain(0.32)

// chords · synth strings 1 · "Strings"
const synth_strings_1 = note(`<
  ~ A B C@2 A D A ~@5 A E F@2 G H I@2 J D K L M N O D A E F@2 G H I@2 J D K L P Q O D A R J S A T A U J D A V A W ~@6 A
  E F@2 G H I@2 J D K L M N O D A E F@2 G H I@2 J D K L P Q O D A R J S A T A U J D A V A W A ~ A ~ J ~ A T A U J D A V
  A W ~@7
>`.pickRestart({
  A: "[e4,g4,c5]@15 ~", B: "[e4,g4,a#4,c5]@15 ~", C: "[[f4,a4,c5]@31 ~]/2", D: "[d4,f4,g4,b4]@15 ~",
  E: "[d4,g4,b4]@7 ~ [f4,a4,c5]@4 [d4,g4,b4]@3 ~", F: "[[e4,g4,c5]@27 ~ [d4,f4,g4,b4]@4]/2", G: "[e4,g4,b4]",
  H: "[d4,f4,a4,c5]@7 ~ [d4,f4,g4,b4]@7 ~", I: "[[e4,g4,c5]@23 ~ [f4,a#4,d5]@4 [e4,g4,c5]@4]/2", J: "[f4,a4,c5]@15 ~",
  K: "[e4,g4,b4]@8 [f4,a4,b4,d5]@7 ~", L: "[e4,a4,c#5]@15 ~", M: "[f4,a4,d5]@15 ~",
  N: "[f4,a4,c5,d5]@8 [d4,f4,g#4,c5]@7 ~", O: "[d4,f4,g4,c5]@15 ~", P: "[f4,a4,c5,d5]@15 ~", Q: "[d4,f4,g#4,c5]@15 ~",
  R: "[e4,g4,a#4,c5]@8 [f4,a4,d5]@3 ~ [e4,g4,c5]@3 ~", S: "[f4,a#4,d5]@3 ~ [f4,a4,c5]@8 [f4,a4,d5]@4",
  T: "[f4,a4,d5]@7 ~ [d4,g4,b4]@7 ~", U: "[e4,g4,a#4,c5]@2 [f4,a#4,d5] [e4,g4,c5]",
  V: "[f4,a4,c5]@7 ~ [e4,g4,c5]@4 [f4,a4,c5]@4", W: "[f4,a4,c5,d5]@11 ~ [d4,f4,g4,b4]@4",
})).s("gm_synth_strings_1").gain(0.08)

// chords · electric guitar jazz · "Guitar Solo"
const electric_guitar_jazz = note("<A B@2 C D E F@2 ~ G H I J ~@51 K J ~@66 L@2>".pickRestart({
  A: "~@2 b4 ~ c5 ~ d5 ~", B: "[e5@6 ~ e5@4 ~@3 e5@9 ~ d5@4 c5@2 ~@2]/2", C: "a4@7 ~ c5@5 ~@3", D: "d5@8 b4@3 ~ a4@4",
  E: "g4@6 ~@2 c5@5 ~ g4 ~", F: "[f5@4 d5@3 ~ c5@21 ~@3]/2", G: "[c5,e5] [d5,f5]", H: "[e5,g5]@7 ~ [f5,a5]@8",
  I: "[e5,g5] [d5,f5]", J: "[c5,e5]@15 ~", K: "~@8 g4@4 c5 ~@3", L: "[~@2 [b4,d5] ~ [c5,e5]@8 ~@4]/2",
})).s("gm_electric_guitar_jazz").gain(0.22).pan(0.6)

// chords · epiano1 · "Piano Riff"
const epiano1 = note("<~@7 A B C@2 D E ~@46 A B C@2 D E ~@62 A B C@3 F@2>".pickRestart({
  A: "~@8 g4@2 [g4,e5]@2 ~@2 [g4,d5] ~, ~@8 d5 ~@7", // C G5
  B: "[g4,e5]@2 [g4,c5] ~ [e4,a4]@2 [e4,g4]@2 [e4,a4]@2 [e4,b4] ~ [e4,a4]@2 [e4,g4] ~", // C C5 A5 Em A5 E5 A5 Em
  C: "[c4,e4]@3 ~@3 [c4,e4] ~ [c4,f4] ~ d4@5 ~", D: "[c4,e4]@4 ~@2 [c4,e4] ~ f4@2 d4@5 ~",
  E: "[c4,e4] ~@3 g3@3 ~ a3@3 ~ b3@3 ~", F: "[[c4,e4] ~@3 [g3,b3]@2 ~@2 [c4,e4]@16 ~@8]/2",
})).s("gm_epiano1").gain(0.18).pan(0.4)

// chords · epiano1 · "Piano Riff" · soft notes
const epiano1_soft = note("<~@9 A@3 B ~@48 A@3 B ~@64 A@3 C@2>".pickRestart({
  A: "[g4,c5,e5]@5 ~@3 [g4,c5,f5]@6 ~@2", B: "[c5,e5] ~ [g4,b4,d5]@6, g4 ~@15",
  C: "[[c5,e5]@2 ~@2 [g4,b4,d5]@3 ~ [g4,c5,e5]@16 ~@8, g4 ~@31]/2", // C G C
})).s("gm_epiano1").gain(0.09).pan(0.4)

// chords · acoustic guitar steel · "Rhythm Guitar"
const acoustic_guitar_steel = note(`<
  ~ A B C@2 A D E ~@5 A F A G H I A@2 C F J K L M N O A F A G H I A@2 C F J K L P N O A B C Q A R A S C F A C A T U ~@5
  A F A G H I A@2 C F J K L M N O A F A G H I A@2 C F J K L P N O A B C Q A R A S C F A C A T V W E ~ X ~ A R A S C F A
  C A T U ~@6
>`.pickRestart({
  A: "~ [g3,c4,e4] ~ [g3,c4,e4]", B: "~ [g3,a#3,c4,e4] ~ [g3,a#3,c4,e4]", C: "~ [a3,c4,f4] ~ [a3,c4,f4]",
  D: "~@4 [g3,b3,d4,g4]@4 ~@4 [g3,b3,d4,g4]@3 ~", E: "[g3,c4,e4]@15 ~", F: "~ [g3,b3,d4,g4] ~ [g3,b3,d4,g4]",
  G: "~ [g3,c4,e4] ~ [b3,d4,f4,g4]", H: "~ [g3,b3,e4] ~ [g3,b3,e4]", I: "~ [a3,c4,d4,f4] ~ [b3,d4,f4,g4]",
  J: "~ [g3,b3,e4] ~ [a3,b3,d4,f4]", K: "~ [a3,c#4,e4] ~ [a3,c#4,e4]", L: "~@4 [a3,d4,f4]@5 ~@3 [a3,d4,f4]@4",
  M: "~ [a3,c4,d4,f4] ~ [g#3,c4,d4,f4]", N: "~ [g3,c4,d4,g4] ~ [g3,c4,d4,g4]", O: "~ [b3,d4,f4,g4] ~ [b3,d4,f4,g4]",
  P: "~ [a3,c4,d4,f4] ~ [a3,c4,d4,f4]", Q: "~ [a3,c4,f4] ~ [a3,d4,f4]", R: "~ [a3,d4,f4] ~ [b3,d4,g4]",
  S: "~ [g3,a#3,c4,e4] ~ [g3,c4,e4]", T: "~ [a3,c4,d4,f4] ~ [g3,b3,d4,g4]", U: "[g3,c4,e4] ~",
  V: "[g3,c4,e4]!2 ~ [g3,c4,e4]", W: "[g3,c4,e4] ~@3", X: "[a3,c4,f4]",
})).s("gm_acoustic_guitar_steel").gain(0.1).pan(0.3)

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

// drums · kick · soft notes
const kick_soft = s("bd").struct("<~@7 A@5 ~@33 A@19 ~@33 A@14 ~@6 A@15 ~@2>".pickRestart({
  A: "~@3 x ~@4",
})).gain(0.2)

// drums · hihat
const hihat = s("hh").struct(`<
  A@2 B@4 C A C B C B D A B@13 C@2 B@15 E A B@13 A C B C B C A B@14 C A B@11 A B@2 A@2 B@15 F A F A@2 B@5 A B@3 A C B@3
  G ~
>`.pickRestart({
  A: "~ x!3", B: "x!4", C: "x!3 ~", D: "x!2", E: "x ~ x!2", F: "x", G: "x!2 ~@2",
})).gain(0.3)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  ~ A@5 B A B A B A C A@7 B A@7 B A@7 B A@5 B A D A@7 B A@7 B A B A C A@7 B A@7 B A@7 E A@7 F A@3 B A@3 B A@5 B A ~@5
  A@3 B A@3 B A G A B A B@2 H ~
>`.pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x ~@2", C: "~ x ~@3 x ~@2", D: "~ x ~@3 x ~ x", E: "~@3 x ~ x ~@2",
  F: "~@3 x ~ x ~ x", G: "~ x ~ x ~@4", H: "~@2 x!2 ~@12",
})).gain(0.1)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@6 A ~ A ~ A ~ B ~@7 C ~@6 A@2 ~@7 C ~@5 C ~ D ~@7 C ~@7 A ~ A ~ E ~@7 C ~@7 A ~@7 F ~@7 G ~@3 C ~@3 C ~@5 C ~ H ~@7
  C ~@3 C ~ I ~ A ~ C@2 ~@2
>`.pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@7 x", D: "~ x ~@2", E: "~@3 x ~@2 x ~", F: "~ x ~@5 x", G: "x", H: "~ x ~@6",
  I: "~@5 x ~ x",
})).gain(0.2)

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

// drums · ride
const ride = s("rd").struct(`<
  ~ A ~@5 A ~@5 A ~@31 A ~@13 A ~@5 A ~@15 A ~@11 A ~@3 A ~@19 A ~@5 A ~@3 A ~@6
>`.pickRestart({
  A: "x",
})).gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<~@45 A@14 B ~@37 A@15 C B C B C B A@9 B ~@6>".pickRestart({
  A: "~ x ~ x", B: "x", C: "~ x!3",
})).gain(0.2)

stack(
  piano, bass, synth_strings_1, electric_guitar_jazz, epiano1, epiano1_soft, acoustic_guitar_steel, kick, kick_soft,
  hihat, hihat_soft, open_hat, crash, ride, tambourine
)