// I'm A Believer — The Monkees
// 163 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 126 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(163/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 · acoustic guitar steel · "Ac Guitar"
const acoustic_guitar_steel = note(`<
  ~@2 A@2 B C D E B C D E F G F G F G H I J K J K J K J K L M@2 N O@2 B C D E B C D E F G F G F G H I J K J K J K J K L
  M@2 N O@2 B C D E B C D E F G F G F G H I J K J K J K J K L M@2 N O@2 J K J K J K J K J K J K J K J K J K J K J K J P
  Q@8
>`.pickRestart({
  A: "c3@2 d3@2 f3 ~ c3@2 d3@2 f3 ~ d3@2 f3 ~",
  B: "[g2,b2,g3,d4] [g3,d4] [b2,g3,d4,g4] [b2,d3,g3,d4] [g2,b2,d3,g3] [b2,d3,g3] [d3,g3,d4] [d3,g3]", // G G5 G G5
  C: "[d3,a3,d4,f#4] [a3,d4] [d3,a3,d4,f#4] [a3,d4] [d3,a3,d4] [a3,d4] [d3,a3,d4,f#4] [a3,d4]", // D D5 D D5 D D5
  D: "[g2,b2,g3,d4] [g3,d4] [b2,d3,g3,g4] [g3,d4] [g2,b2,d3,g3,d4] [g3,d4] [b2,d3,g3,d4,g4] [g3,d4]", // G G5 G G5 G G5 G G5
  E: "[g2,b2,g3,d4] [g3,d4] [b2,d3,g3,g4] [g3,d4] [g2,b2,g3,d4] [g3,d4] [b2,d3,g3,d4,g4] [d3,g3,d4]", // G G5 G G5 G G5 G G5
  F: "[c3,e3,g3,c4,e4]!8", // C
  G: "[g2,b2,d3,g3,d4]!2 [b2,g3,d4,g4] [d3,g3,d4] [g2,b2,d3,g3,d4]!2 [b2,d3,g3,d4,g4] [b2,d3,g3,d4]", // G G5 G
  H: "[d3,f#3,a3,d4,f#4]!8", I: "[d3,f#3,a3,d4,f#4] ~@7",
  J: "[g2,b2,g3,d4]!2 [b2,d3,g3,d4,g4] [b2,d3,g3,d4] [c3,g3,c4,e4]!2 [e3,g3,c4,e4] [g3,c4]", // G C C5
  K: "[g2,b2,g3,d4] [b2,g3,d4] [g2,g3,d4,g4] [b2,g3,d4] [c3,g3,c4,e4]!2 [e3,g3,c4] [c3,g3,e4]", // G G5 G C
  L: "[g2,b2,d3,g3,d4] ~@7", M: "[[g3,c4,e4]@12 ~@5 d4@13 ~@2, c3@14 ~ g2@15 ~@2, ~@8 [b2,d3,g3]@7 ~]/2",
  N: "[f2,c3,f3,c4]@7 ~", O: "c3@2 d3@2 f3 ~ c3@2 d3@2 f3 ~ c3@2 d3@2",
  P: "[g2,b2,g3,d4]@2 [b2,g3,d4]@2 [g2,g3,d4,g4]@2 [b2,g3,d4]@2 [c3,g3,c4,e4]@2 [c3,g3,c4,e4]@2 [e3,g3,c4]@2 [c3,g3,e4] ~", // G G5 G C
  Q: "[[g3,d4,g4] ~@127, [g2,b2]]/8", // G5 G
})).s("gm_acoustic_guitar_steel").gain(0.25)

// bass · electric bass finger · "El Bass"
const bass = note(`<
  ~@4 A B C D A B C D E F G H G I J K L M L M L M N O P Q R S K T A B C D A B C D E F G H G I J K L M L M L M N O P Q R
  S K T A B C D A B C D E F G H G I J K L M L M L M N O P Q R S K T L M L M L M L M L M L M L M L M L M L M L M L M U
  ~@7
>`.pickRestart({
  A: "g2@4 ~@2 g2 ~ b1 ~ b1 ~ d2 ~ b1 ~", B: "d2@4 ~@2 d2@3 ~ d2 ~ e2 ~ d2 ~", C: "g2@4 ~@2 g2@3 ~ e2 ~ d2 ~ b1 ~",
  D: "g1@4 ~@2 g1@3 ~ b1 ~ d2 ~ e2 ~", E: "c2@4 ~@2 d2@2 e2 ~ g2@2 ~@2 e2 ~", F: "g2@2 g2 a2 a#2 a2 g2 e2",
  G: "c2@5 ~ d2@2 e2 ~ g2@2 ~@2 e2 ~", H: "g2@3 ~ g2@2 a2@2 a#2@2 a2@2 g2@2 e2@2", I: "g2@5 ~ g2 ~@3 g2@2 b1 ~ c2 ~",
  J: "d2@4 ~@2 d2@2 ~@2 d3@5 ~", K: "d2 ~@7", L: "g2@3 ~ e2 ~ d2 ~ c2@3 ~ d2 ~ e2 ~",
  M: "g2@2 e2 ~ d2 ~ c2@3 ~ c2 ~ d2 ~ e2 ~", N: "g2@4 e2 ~ d2 ~ c2@3 ~ d2 ~ e2 ~",
  O: "g2@2 e2 ~ d2 ~ c2@3 ~ c2 ~ d2@2 e2 ~", P: "g1 ~@7", Q: "c2", R: "g1", S: "f2", T: "~@10 d2 ~ d2@3 ~", U: "g2 ~@7",
})).s("gm_electric_bass_finger").gain(0.54)

// chords · percussive organ · "El Organ"
const percussive_organ = note(`<
  A B C ~@9 D E D E D E F G B H B H B I B J ~ K@2 L M ~@9 D E D E D E F G B H B H B I B J ~ K@2 L M ~ E F E@3 F E@2 D E
  D E D E F G B H B H B I B J ~ K@2 L M ~ B H B H B H B H B H B H B H B H B H B H B H B H N ~@7
>`.pickRestart({
  A: "~@14 g5 ~", B: "[g5,d6,f6]@3 ~ [g5,d6,f6]@3 ~ [g5,c6,e6]@3 ~ [g5,c6,e6]@3 ~", C: "[b5,d6] ~@15, g5 ~@7",
  D: "[g5,c6,e6]", E: "[g5,b5,d6]", F: "[f#5,a5,d6]", G: "[f#5,a5,d6]@2 ~@12 g5 ~", H: "[g5,b5,d6]@2 ~@12 g5 ~",
  I: "[g5,d6]@2 ~@12 g5 ~, b5 ~@15", J: "[g5,b5,d6] ~@7", K: "[[c6,g6]@16 d6@15 ~, g5]/2", L: "[f5,c6,f6]@15 ~",
  M: "[d5,a5,d6] ~@7", N: "[g5,d6,g6]@2 c6 [f5,g5,a5,b5] [d5,e5] ~@11, c#6 ~@15",
})).s("gm_percussive_organ").gain(0.22)

// drums · kick
const kick = s("bd").struct(`<
  ~@4 A@15 B A@8 B ~@3 B ~ A@15 B A@8 B ~@3 B ~ A@15 B A@8 B ~@3 B ~ A@24 B ~@7
>`.pickRestart({
  A: "x!2", B: "x",
})).gain(0.54)

// drums · clap
const clap = s("cp").struct("<~@20 A@8 B@4 A@2 ~@16 A@8 B@4 A@17 ~ A@8 B@4 A@2 ~@23 A ~@8>".pickRestart({
  A: "~ x ~ x", B: "~@3 x",
})).gain(0.54)

// drums · snare
const snare = s("sd").struct(`<
  ~@3 A B@14 C D B@8 E ~@3 E F B@14 C D B@8 E ~@3 E F B@14 C D B@8 E ~@3 E F B@24 E ~@7
>`.pickRestart({
  A: "~@7 x", B: "~ x ~ x", C: "~@4 x ~@7 x ~ x!2", D: "x ~@6 x", E: "x", F: "~@5 x!2 ~",
})).gain(0.54)

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

// drums · hihat · soft notes
const hihat_soft = s("hh").struct(`<
  ~@4 A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~@7 A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~@7 A ~ B ~ A ~ B
  ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~@7 A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~@9
>`.pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@3 x ~@2",
})).gain(0.24)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@4 A@16 B C D@6 B C D@4 A@16 B C D@6 B C D@4 A@16 B C D@6 B C D@4 B C D@2 B C D@2 B C D@2 B C D@2 B C D@2 B C D@2 E
  ~@7
>`.pickRestart({
  A: "~ x ~ x", B: "x ~ x ~@3 x!2", C: "x!3 ~ x!4", D: "x!8", E: "x",
})).gain(0.42)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct(`<
  ~@20 A B ~@6 A B ~@20 A B ~@6 A B ~@20 A B ~@6 A B ~@4 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@2 A B ~@10
>`.pickRestart({
  A: "~ x ~ x!3 ~@2", B: "~@3 x ~@4",
})).gain(0.24)

stack(acoustic_guitar_steel, bass, percussive_organ, kick, clap, snare, hihat, hihat_soft, tambourine, tambourine_soft)