// Boogie Oogie Oogie — A Taste of Honey
// 123 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 129 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(123/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.

// bass · electric bass pick
const bass = note(`<
  ~ A@2 B C D@3 E F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 H@2 I@2 F@2 G@2 F@2
  G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 F@2 G@2 H@2 I@2 F@2 G@2 F@2 G@2 F@2 G@2 J@2 K ~ H@2 I@2 H@2 L@2 F@2 G@2
  F@2 G@2 F@2 G@2 F@2 G@2
>`.pickRestart({
  A: "[d2@5 g2 a2@2 c3@6 d3@8 f3@8 ~@2]/2", B: "g3@6 ~ f3@6 e3 ~@2", C: "e3@3 d3@3 a2@2",
  D: "[d2@6 a2@2 c3@6 d3@8 f3@9 g3@7 a3@9 ~, ~@6 g2 ~@41]/3", E: "a3 g3 f3@2 e3@3 ~",
  F: "[d2@2 d3 ~ d3 ~ a1@2 c2 ~@3 c2@2 d2@4 d3 ~ d3 ~ a1@2 d2@2 d3 ~ db2@2 db3 ~]/2",
  G: "[c2@2 c3 ~ c3 ~ a1@2 c2 ~@3 c2@2 c2@4 c3 ~ c3 ~ a1@2 c2@2 c3 ~ db2@2 db3 ~]/2",
  H: "[a1@2 c2@2 db2@2 d2@4 a1@2 ab1@2 g1@4 bb1@2 b1@2 c2@4 c2@2 c3 ~ c2@2]/2",
  I: "[a1@2 c2@2 db2@2 d2@4 a1@2 ab1@2 g1@4 bb1@2 b1@2 c2@3 ~ c2@2 c3 ~ c2@2]/2",
  J: "[d2@2 d3 ~ d3 ~ a1@2 c2 ~@3 c2@2 d2@4 d3 ~ d3 ~ a1@2 d2!2 d3 ~ db2!2 db3 ~]/2",
  K: "c2@2 c3 ~ c3 ~ a1@2 c2 ~@3 c2@2 c2@2", L: "[a1 c2 db2 d2@2 a1 ab1 g1@2 bb1 b1 c3@3 ~@2]/2",
})).s("gm_electric_bass_pick").gain(0.54)

// bass · slap bass 1
const bass_2 = note("<~@104 [~@2 c3 ~@3 g2 ~@3 b1@2 c2@3 ~] ~@24>").s("gm_slap_bass_1").gain(0.76)

// other · clavinet
const clavinet = note(`<
  ~@17 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D E@2 F@2 A B C D A B C D A B C D A B C D A B C D A
  B C D A B C D A B C D E@2 F@2 A B C D A B C D ~@8 E@2 F@2 E@2 G@2 A B C D A B C D A B C D A B C D
>`.pickRestart({
  A: "d2@2 d3 ~ d3@4 ~@8", B: "d2@2 d3 ~ d3@3 d2 d3 d2 d3 ~ db2@2 db3 ~",
  C: "bb1@2 bb2 ~ bb2@3 bb1 bb2 bb1 bb2 b1 b2 c2 c3 ~", D: "c2@2 c3 ~ c3@3 c2 c3 c2 c3 c2 c3 db2 db3 ~",
  E: "[a2@2 c3@2 db3@2 d3@4 a2@2 ab2@2 g2@4 bb2@2 b2@2 c3@4 c3@2 c4 ~ c3@2]/2",
  F: "[a2@2 c3@2 db3@2 d3@4 a2@2 ab2@2 g2@4 bb2@2 b2@2 c3@3 ~ c3@2 c4 ~ c3@2]/2",
  G: "[a2@2 c3@2 db3@2 d3@4 a2@2 ab2@2 g2@4 bb2@2 b2@2 c3 ~@9]/2",
})).s("gm_clavinet").gain(0.22)

// other · electric guitar clean
const electric_guitar_clean = note(`<
  ~@16 A B C D E B C D E B C D E B C D F B C D F B C D F B C D F B C D F ~@4 B C D F B C D F B C D F B C D F B C D F B C
  D F B C D F B C D F ~@4 B C D F B C D F ~@16 B C D F B C D F B C F G H ~@3
>`.pickRestart({
  A: "~@12 c3@2 ~ [bb3,b3]", B: "c4 ~ c4!4 ~@2 c4 ~@2 c4 ~@2 d4 ~", C: "~@2 c4!4 ~@2 c4 ~@2 c4 ~@2 d4 ~",
  D: "~@2 [bb4,d5,f5]!3 ~@11", E: "~@2 [bb4,d5,f5] [d5,f5] [bb4,d5,f5] ~@10 b3",
  F: "~@2 [bb4,d5,f5] [d5,f5] [bb4,d5,f5] ~@11", G: "~@2 d5!2 [bb4,d5,f5] ~@11", H: "c4 ~ c4!4 ~@2 c4 ~@7",
})).s("gm_electric_guitar_clean").gain(0.19)

// other · electric guitar clean · soft notes
const electric_guitar_clean_2 = note(`<
  ~@16 A B C ~ D B C ~ D B C ~ D B C ~ E B C ~ E B C ~ E B C ~ E B C ~ E ~@4 B C ~ E B C ~ E B C ~ E B C ~ E B C ~ E B C
  ~ E B C ~ E B C ~ E ~@4 B C ~ E B C ~ E ~@16 B C ~ E B C ~ E B C E F G H I@2
>`.pickRestart({
  A: "~@14 a3 ~", B: "~ c4 ~@4 c4!2 ~ c4!2 ~ c4!2 ~ c4", C: "c4!2 ~@4 c4!2 ~ c4!2 ~ c4!2 ~@2", D: "~@3 bb4 ~@10 a3 bb3",
  E: "~@3 bb4 ~@12", F: "~@2 [bb4,f5]!2 ~@12", G: "~ c4 ~@4 c4!2 ~ c4!5 d4 c4", H: "c4!14 d4 ~",
  I: "~@2 [bb4,d5,f5]!3 ~@11", // Bb
})).s("gm_electric_guitar_clean").gain(0.1)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~ A@2 B C D@2 B C E ~@7 F@2 G@2 F@2 G@2 H@2 I@2 F@2 J@2 F@2 J@2 F@2 J@2 F@2 J@2 F@2 J@2 K@2 L@2 F@2 J@2 F@2 J@2 F@2
  J@2 F@2 J@2 F@2 J@2 F@2 J@2 F@2 J@2 F@2 J@2 K@2 L@2 F@2 J@2 F@2 J@2 ~@8 K@2 L@2 K@2 M@2 F@2 J@2 F@2 J@2 F@2 J@2 F@2
  J@2
>`.pickRestart({
  A: "[[a3,c4,e4,g4]@8 [a3,c4,d4,f4]@18 [c4,d4,f4,a4] ~@2 [c4,d4,f4,a4] ~@2]/2", B: "[bb3,d4,f4]@11 ~ [bb3,d4,f4]@4",
  C: "~ [bb3,d4,f4]@2 ~ [bb3,d4,f4]@4 ~ [bb3,d4,f4]@2 ~@5", // Bb
  D: "[[a3,c4,e4,g4]@8 [a3,c4,d4,f4]@17 ~ [c4,d4,f4,a4] ~@2 [c4,d4,f4,a4] ~@2]/2", E: "[bb4,d5,f5] ~ [bb4,d5,f5] ~@5",
  F: "[[a3,c4,e4,g4]@7 ~ [a3,c4,d4,f4]@6 [c4,d4,f4,a4]@10 ~@2 [c4,d4,f4,a4] ~@2 [c4,d4,f4,a4] ~@2]/2", // Am7 Dm7
  G: "[[bb3,d4,f4,g4]@25 ~ [bb3,d4,f4,g4]@2 ~ [bb3,d4,f4,g4]@2 ~]/2", // Gm7
  H: "[[a3,c4,e4,g4]@7 ~ [a3,c4,d4,f4]@5 ~ [c4,d4,f4,a4]@11 ~ [c4,d4,f4,a4] ~@2 [c4,d4,f4,a4] ~@2]/2", // Am7 Dm7
  I: "[[bb3,d4,f4,g4]@20 ~@6 [bb3,d4,f4,g4]@2 ~ [bb3,d4,f4,g4]@2 ~]/2", J: "[[bb3,d4,f4,g4]@25 ~@7]/2",
  K: "[[a3,c4,e4,g4]@5 ~ [a3,c4,d4,f4]@7 ~ [bb3,d4,f4,a4]@7 ~ [bb3,c4,e4,g4]@3 ~ [bb3,c4,e4,g4] ~ [bb3,c4,e4,g4]@2 [bb3,c4,e4,g4] ~]/2", // Am7 Dm7 Bbmaj7 C7
  L: "[[a3,c4,e4,g4]@5 ~ [a3,c4,d4,f4]@7 ~ [bb3,d4,f4,a4]@7 ~ [bb3,c4,e4,g4]@4 [bb3,c4,e4,g4]@2 [bb3,c4,e4,g4]@2 [bb3,c4,e4,g4] ~]/2", // Am7 Dm7 Bbmaj7 C7
  M: "[[a3,c4,e4,g4]@5 ~ [a3,c4,d4,f4]@7 ~ [bb3,d4,f4,a4]@7 ~ [bb3,c4,e4,g4] ~@9]/2", // Am7 Dm7 Bbmaj7 C7
})).s("gm_acoustic_guitar_steel").gain(0.27)

// chords · electric guitar jazz
const electric_guitar_jazz = note("<~ A B A C A B A C ~@120>".pickRestart({
  A: "~@2 [ab4,a4]@2 ~ [ab4,a4] ~@2 a4 ~@2 a4 ~ a4 ~@2", B: "~@2 [b4,c5]@2 ~ [b4,c5] ~@2 c5 ~@2 c5 ~ c5 ~@2",
  C: "a4 ~@7",
})).s("gm_electric_guitar_jazz").gain(0.1)

// chords · electric guitar jazz · soft notes
const electric_guitar_jazz_2 = note("<~ A B A C A B A C ~@120>".pickRestart({
  A: "~@8 ab4 ~ ab4 ~@2 ab4 ~@2", B: "~@8 b4 ~ b4 ~@2 b4 ~@2",
  C: "ab4@2 ab4 a4 ~ [ab4,a4] ~@2 [ab4,a4] ~@2 [ab4,a4] ~@4", // Amaj7
})).s("gm_electric_guitar_jazz").gain(0.03)

// chords · acoustic guitar steel · Bb
const acoustic_guitar_steel_2 = note(`<
  ~@4
  [~@3 [bb3,d4,f4] ~@2 [bb3,d4,f4]!3 ~ [bb4,d5,f5]!2 [bb4,d5,f5]@2 ~@2]
  ~@3
  [~@3 [bb3,d4,f4] ~@2 [bb3,d4,f4]!3 ~ [bb4,d5,f5]!2 [bb4,d5,f5]@2 ~@2]
  ~@120
>`).s("gm_acoustic_guitar_steel").gain(0.19)

// chords · acoustic guitar steel · soft notes · Bb
const acoustic_guitar_steel_3 = note(`<
  ~@4
  [~@2 [bb3,d4,f4] ~@2 [bb3,d4,f4] ~@10]
  ~@3
  [~@2 [bb3,d4,f4] ~@2 [bb3,d4,f4] ~@10]
  ~@120
>`).s("gm_acoustic_guitar_steel").gain(0.12)

// other · overdriven guitar
const overdriven_guitar = note("<~@61 A@2 B C D@2 E F@2 ~@59>".pickRestart({
  A: "[d5@15 c5]/2", B: "~ d5 c5 ~ c5 a4 g4 a4 g4 f4 g4 f4 d4 f4 d4 f4", C: "g4 f4 g4 ~@3 a4 g4 a4 c5 ~ c5 d5 ~ f5 ~",
  D: "[~ g5@14 f5]/2", E: "~ g5 f5 d5 f5 d5 c5 d5 c5 a4 c5 a4 g4 a4 g4 f4",
  F: "[g4 f4 d4 f4 g4 f4 g4 a4 ~ c5@2 a4 c5 ~ d5@9 ~@9]/2",
})).s("gm_overdriven_guitar").gain(0.45)

// drums · kick
const kick = s("bd").struct("<~@9 [x!4]!103 [x!2 ~@2] [x!4]!16>").gain(0.51)

// drums · snare
const snare = s("sd").struct("<~@9 [~ x ~ x]!103 [~ x ~@2] [~ x ~ x]!16>").gain(0.41)

// drums · clap
const clap = s("cp").struct("<~@17 [~ x ~ x]!95 [~ x ~@2] [~ x ~ x]!16>").gain(0.46)

// drums · hihat
const hihat = s("hh").struct("<A B@8 C@40 A@4 C@32 A@4 C@16 A@7 D C@16>".pickRestart({
  A: "x!4", B: "x!14 ~@2", C: "x!7 ~", D: "x!2 ~@2",
})).gain(0.26)

// drums · open hat
const open_hat = s("oh").struct("<~ A@48 B@4 A@32 B@4 A@16 B@7 C A@16>".pickRestart({
  A: "~@7 x", B: "~ x ~ x ~ x ~ x", C: "~ x ~ x ~@4",
})).gain(0.26)

// drums · mid tom
const mid_tom = s("mt").struct("<~@16 [~@7 x] ~@112>").gain(0.51)

// drums · high tom
const high_tom = s("ht").struct("<~@16 [~@5 x!2 ~] ~@112>").gain(0.51)

// drums · crash
const crash = s("cr").struct("<~@9 A ~@7 A ~@31 A ~@35 A ~@19 A ~@3 A ~@3 A ~@7 A ~@7>".pickRestart({
  A: "x",
})).gain(0.51)

stack(
  bass, bass_2, clavinet, electric_guitar_clean, electric_guitar_clean_2, acoustic_guitar_steel, electric_guitar_jazz,
  electric_guitar_jazz_2, acoustic_guitar_steel_2, acoustic_guitar_steel_3, overdriven_guitar, kick, snare, clap, hihat,
  open_hat, mid_tom, high_tom, crash
)