// What Is Love — Haddaway
// 126 bpm, 4/4, key C# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 1 "Double Bass" named as a bass, played on acoustic bass (its lead 8 bass lead patch is not one); ch 6 "Distortion Gutar" named as a guitar, played on distortion guitar (its lead 5 charang patch is not one)
// note: Full arrangement: all 146 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(126/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 · acoustic bass · "Double Bass"
const bass = note(`<
  ~@9 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 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 A B C D A B C D A B C D ~@4 A B C D A@5 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 A
  B C D A B C D A B C D A B C E ~
>`.pickRestart({
  A: "ab2!16", B: "b2!16", C: "eb3!16", D: "gb3!16", E: "gb3!14 ab3 ~",
})).s("gm_acoustic_bass").gain(0.39)

// bass · synth bass 1 · "Bass"
const bass_2 = note(`<
  ~@5 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 A B C D A B C D A B C D A B C D A B C D A B C ~ A
  B C D A B C D A B C D A B C D A B C D A B C D ~@4 A B C D E ~ E ~ 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 A B C D A B C D A B C D A B C F ~
>`.pickRestart({
  A: "ab1@2 ~@2 ab1@2 ~ ab1 ~@2 ab1 ~@3 gb1 ~", B: "b1@2 ~@2 b1@2 ~ b1 ~@2 db2@2 ~@2 eb2 ~",
  C: "eb2@2 ~@2 eb2@2 ~ eb2 ~@2 eb2@2 ~@2 eb2 ~", D: "gb2@2 ~@2 gb2@2 ~ gb2 ~@2 eb2@2 ~@2 gb2 ~",
  E: "ab1@2 ~@2 ab1@2 ~ ab1 ~@2 ab1@2 ~@4", F: "gb2@2 ~@2 gb2@2 ~ gb2 ~@2 eb2@2 gb2 ~ ab1 ~",
})).s("gm_synth_bass_1").gain(0.64)

// chords · rock organ · "Chords"
const rock_organ = note(`<
  ~@9 A B C D A E C D ~@28 A B C D A E F D ~@24 A E C D A B C D ~@52 A B C D A E C G ~
>`.pickRestart({
  A: "[b4,eb5]@3 ~ [ab4,b4,eb5]@2 ~@2 [ab4,b4,eb5]@2 ab4 [b4,eb5]@2 ~ [b4,e5]@2, ab4 ~@10 ab4 ~ ab4@3", // B Abm B E5
  B: "[gb4,b4,eb5]@2 ~@2 [gb4,b4,eb5]@2 ~@2 [b4,eb5]@2 gb4 [b4,eb5]@2 gb4 [gb4,b4] ~, ~@8 gb4 ~@2 gb4 ~@2 e5@2", // B B5
  C: "[gb4,bb4,eb5]@2 ~@2 [gb4,bb4,eb5]@2 ~@2 [bb4,eb5]@2 gb4 [gb4,bb4] ~ gb4 [bb4,e5] ~, ~@8 gb4 ~@2 eb5@2 ~ gb4@2", // Ebm Eb5 Gb Bbdim
  D: "[gb4,bb4,db5,gb5]@2 ~@2 [gb4,bb4,db5,gb5]@2 ~@2 [gb4,bb4,db5,gb5]@2 gb4 [bb4,db5,gb5]@2 ~ [bb4,db5,gb5]@2, ~@11 gb4 ~ gb4@3", // Gb
  E: "[gb4,b4,eb5]@2 ~@2 [gb4,b4,eb5]@2 ~@2 [b4,eb5]@2 gb4 [b4,eb5]@2 gb4 [b4,e5]@2, ~@8 gb4 ~@2 gb4 ~@2 gb4 ~", // B E5
  F: "[gb4,bb4,eb5]@2 ~@2 [gb4,bb4,eb5]@2 ~@2 [bb4,eb5]@2 gb4 [gb4,bb4] ~ gb4 [gb4,bb4]@2, ~@8 gb4 ~@2 eb5@2 ~ e5 ~", // Ebm Eb5 Gb
  G: "[gb4,bb4,db5,gb5]@2 ~@2 [gb4,bb4,db5,gb5]@2 ~@2 [gb4,bb4,db5,gb5]@2 gb4 [bb4,db5,gb5]@2 ~ [b4,eb5,ab5]@2, ~@11 gb4 ~ ab4@3", // Gb Abm
})).s("gm_rock_organ").gain(0.5)

// other · distortion guitar · "Distortion Gutar"
const distortion_guitar = note("<~@37 A ~@3 A ~@27 A ~@3 A ~@19 A ~ A ~@17 A ~@3 A ~@11 A ~@3 A ~@12>".pickRestart({
  A: "ab3 ~ ab3 ~@5",
})).s("gm_distortion_guitar").gain(0.8)

// other · lead 1 square · "Square Lead"
const lead_1_square = note(`<
  ~ A B C@2 A B C@2 ~@8 A B C@2 ~@40 A B C@2 A B C@2 ~@28 A B C@2 A B C ~ A B C@2 A B C@2 ~@8 A B C@2 A B C@2 ~@8 A B
  C@2 A B C D ~
>`.pickRestart({
  A: "b4 ~ bb4 ~ b4 ~ ab4 ~ b4 ~ bb4 ~ b4 ~ ab4 ~", B: "b4 ~ bb4 ~ b4 ~ gb4 ~ b4 ~ bb4 ~ b4 ~ gb4 ~",
  C: "bb4 ~ ab4 ~ bb4 ~ gb4 ~ bb4 ~ ab4 ~ bb4 ~ gb4 ~", D: "bb4 ~ ab4 ~ bb4 ~ gb4 ~ bb4 ~ ab4 ~ bb4 ~ ab4 ~",
})).s("gm_lead_1_square").gain(0.45)

// chords · synth strings 2 · "Strings"
const synth_strings_2 = note(`<
  ~ A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A
  B@3 A B@3 A B@3 A B@3 ~@4 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A C@3 ~
>`.pickRestart({
  A: "[b3,eb4,ab4]", B: "[[b3,eb4] [bb3,eb4] [bb3,db4], gb4]/3",
  C: "[[b3,eb4]@8 [bb3,eb4]@8 [bb3,db4]@6 ~ eb4, gb4@11 ~]/3", // B Eb5 Bbm
})).s("gm_synth_strings_2").gain(0.3)

// other · string ensemble 2 · "Strings 2"
const string_ensemble_2 = note(`<
  ~@29 A B C D A B E@2 A B C D A B E@2 ~@16 A B C D A B E@2 A B C D A B E@2 ~@28 A B C D A B E@2 A B E@2 F@4 A B C D A B
  E@2 A B C D A B E@2 A B C D A B G@2 ~
>`.pickRestart({
  A: "[ab5,ab6]", B: "[gb5,gb6]", C: "[eb5,eb6]", D: "[gb5,gb6]@15 ~", E: "[bb5,bb6]/2",
  F: "[[eb5,eb6]@10 [db5,db6]@2 [b4,b5]@2 [eb5,eb6]@12 [db5,db6]@2 [b4,b5]@2 [eb5,eb6]@10 [db5,db6]@4 [b4,b5]@2 [db5,db6]@17 ~]/4", // Eb Db B Eb Db B Eb Db …
  G: "[[bb5,bb6]@28 ~ [b5,b6]@3]/2", // Bb B
})).s("gm_string_ensemble_2").gain(0.35)

// drums · kick
const kick = s("bd").struct("<~@13 A@15 ~ A@56 ~@8 A@11 B A@39 C ~>".pickRestart({
  A: "x!4", B: "~ x ~ x", C: "~@2 x ~@3 x!2",
})).gain(0.8)

// drums · rim
const rim = s("rim").struct("<~@144 [~@4 x ~@6 x!2 ~@3] ~>").gain(0.64)

// drums · snare
const snare = s("sd").struct(`<
  ~@13 A@15 ~ A@15 B A@7 B A@7 ~ A@15 B A@7 B ~@8 A@11 C A@15 B A@15 B A@7 ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@7 x ~@2 x", C: "~@2 x ~@2 x ~@2 x ~@3 x ~ x!2",
})).gain(0.72)

// drums · snare · soft notes
const snare_soft = s("sd").struct(`<
  ~@13 A@15 ~ A@15 B A@7 B A@7 ~ A@15 B A@7 B ~@12 A@7 ~ A@15 B A@15 B A@7 ~@2
>`.pickRestart({
  A: "~@7 x ~@8", B: "~@7 x ~@6 x ~",
})).gain(0.48)

// drums · clap
const clap = s("cp").struct("<~@94 [~@12 x ~ x!2] ~@51>").gain(0.8)

// drums · hihat
const hihat = s("hh").struct("<~@9 [x!16]!51 ~ [x!16]!24 ~@8 [x!16]!51 [x!15 ~] ~>").gain(0.32)

// drums · low tom
const low_tom = s("lt").struct("<~@144 [~@7 x] ~>").gain(0.8)

// drums · mid tom
const mid_tom = s("mt").struct("<~@144 [~@8 x ~@2 x ~@4] ~>").gain(0.72)

// drums · high tom
const high_tom = s("ht").struct("<~@144 [~@2 x ~@2 x ~@10] ~>").gain(0.64)

// drums · crash
const crash = s("cr").struct("<~@144 [~@6 x!2] ~>").gain(0.32)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@9
  [x ~ x ~ x ~ x!3 ~ x ~ x ~ x!2]!76
  ~@4
  [x ~ x ~ x ~ x!3 ~ x ~ x ~ x!2]!4
  ~@4
  [x ~ x ~ x ~ x!3 ~ x ~ x ~ x!2]!47
  [x ~ x ~ x ~ x!3 ~ x ~ x ~@3]
  ~
>`).gain(0.4)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@5 A@23 ~ A@31 ~ A@24 ~@8 A@52 ~>".pickRestart({
  A: "~ x ~ x ~ x ~ x",
})).gain(2.84)

stack(
  bass, bass_2, rock_organ, distortion_guitar, lead_1_square, synth_strings_2, string_ensemble_2, kick, rim, snare,
  snare_soft, clap, hihat, low_tom, mid_tom, high_tom, crash, tambourine, cabasa
)