// (Sexual) Healing — Marvin Gaye
// 94 bpm, 4/4, key D# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: pitch bends are ignored
// note: Full arrangement: all 105 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(94/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 finger
const bass = note(`<
  ~@3 A B A B A B A B A B A B A B A B A B A B A B C D E F G H@2 I J K E F G H@2 I J K A B A B A B A B A B A B A B A B A
  B A B A B C D E F G H@2 I J K E F G L@2 B A B A B A B A B A B A B A B A B A B A B C M@2 ~
>`.pickRestart({
  A: "bb1@3 c2@3 g1@2", B: "ab1@6 eb2@4 eb2 f2 g2 f2 eb2 c2", C: "bb1@3 c2@3 g2@2", D: "f2@2 g2@2 ab2@2 bb2 bb1",
  E: "eb2@6 eb2 eb2@5 f2@4", F: "g2@2 g2@2 g2@3 g2", G: "ab2!3 g2",
  H: "[f2@4 g2@4 ab2@4 bb2@2 eb2@6 eb3 ~ bb2@2 eb3@4 f2@4]/2", I: "g2@3 g2@5", J: "ab2@5 ~ ab2@6 g2@4",
  K: "f2@2 g2@2 ab2@2 bb2 eb2", L: "[f2@2 g2@2 ab2@2 bb2 ~ bb1@3 c2@3 g1@2, ~@7 eb2@3 ~@6]/2",
  M: "[f2@4 g2@4 ab2@5 bb2@2 bb1@2 ~ eb2@7 eb2 eb2@6]/2",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · pad warm
const pad_warm = note(`<
  ~@3 A B A B A B A B A B A B A B A B A B A B A B A C D E F G H E F G D E F G D E F G A B A B A B A B A B A B A B A B A
  B A B A B A C D E F G I E F G D E F G A B A B A B A B A B A B A B A B A B A B A B A J K ~
>`.pickRestart({
  A: "[bb3,d4,f4]@6 [eb4,g4]@5 ~ [g3,eb4,g4]@3 ~, ~@6 c4@9 ~", B: "[ab3,c4,eb4,ab4]@5 ~ [eb3,bb3,eb4,g4]@9 ~",
  C: "[ab3,f4]@2 eb4@2 [bb3,d4,g4]@4 [c4,eb4,ab4]@3 ~ [d4,f4,bb4]@3 ~, c4 ~@15", D: "[bb3,eb4]", E: "[b3,d4]@15 ~",
  F: "[c4,eb4]", G: "c4@4 d4@3 ~ eb4@3 ~ f4@4", H: "eb4@7 ~ eb4@4 eb4@4, bb3", I: "eb4@2 eb4!2, bb3",
  J: "[ab3,f4]@2 eb4@2 [bb3,d4,g4]@4 [c4,eb4,ab4]@3 ~@2 [d4,f4,bb4]@3, c4 ~@15", K: "~ [bb3,eb4]@7",
})).s("gm_pad_warm").gain(0.25)

// chords · string ensemble 2
const string_ensemble_2 = note(`<
  ~@27 A B C D A B C D A B C D A B C D ~@24 A B C D A B C D A B C D ~@24 E ~
>`.pickRestart({
  A: "[eb3,g3,bb3]@15 ~", B: "[d3,g3,b3]@15 ~", C: "[eb3,g3,c4]@15 ~",
  D: "[f3,ab3,c4]@4 [g3,bb3,d4]@3 ~ [ab3,c4,eb4]@3 ~ [bb3,d4,f4]@3 ~", E: "~@2 [eb3,g3]@13 ~",
})).s("gm_string_ensemble_2").gain(0.25)

// other · electric guitar muted
const electric_guitar_muted = note(`<
  ~@3 A B C D A B A E A B A B A F G H G I G J A F A K L@2 M@2 L@2 N@2 L@2 N@2 O@2 P@2 ~ B Q R A B S E T B A B U V G W G
  I G X A F Y K L@2 M@2 L@2 P@2 L@2 P@2 ~ B C R A B A E A B A B A F G H G Z G AA Y AB A AC AD ~
>`.pickRestart({
  A: "~@2 c4 bb3 ~ bb3 c4 eb4 c4 ~ g3!2 bb3 ~ c4 eb4", B: "~@2 eb4!2 ~@2 eb4!2 ~ eb4 c4 ~ f4 eb4 c4 bb3",
  C: "~@2 c4!2 ~ bb3 c4 eb4 c4 ~ g3 bb3 ~ bb3 c4 ~", D: "~@2 eb4!2 ~ eb4!2 ~@2 eb4 eb4@2 bb4 g4 f4 eb4",
  E: "~@2 eb4!2 ~@2 eb4!2 ~ eb4 c4 ~ f4 eb4 c4 eb4", F: "~@2 eb4!2 ~@2 eb4!2 ~@2 eb4!2 g4 eb4 c4 ~",
  G: "~@2 c4 bb3 ~ bb3 c4 eb4 c4 ~ g3 bb3 ~ bb3 c4 ~", H: "eb4 ~@6 eb4 ~ eb4 c4 ~ f4 eb4 c4 bb3",
  I: "eb4 ~@2 eb4 ~ eb4 ~ eb4 ~ eb4 c4 ~ eb5 c5 bb4 g4", J: "eb4 ~ eb4 ~ f4 eb4 ~@2 bb4 g4 eb4 g4 bb4 c5 ~@2",
  K: "bb3 ~ c4 ~ bb3 c4 ~@2 bb3 ~ c4 ~ eb4 c4 ~@2",
  L: "[bb3 ~ c4 ~ bb3 c4 ~ bb3 ~ bb3 c4 ~ bb3 c4 ~ d4@3 eb4 ~ d4 eb4 ~ g4@3 f4 ~ eb4 ~ f4 eb4]/2",
  M: "[bb3 ~ c4 ~ bb3 c4 ~ bb3 ~@2 c4 ~ bb3 c4 ~ bb3@2 ~ c4 ~ bb3 c4 ~ bb3@2 ~ c4 ~ g4 ~ f4 ~]/2",
  N: "[bb3 ~ c4 ~ bb3 c4 ~ bb3 ~@2 c4 ~ bb3 c4 ~ bb3@2 ~ c4 ~ bb3 c4 ~ bb3@2 ~ c4 ~ bb3 c4 ~@2]/2",
  O: "[bb3 ~ c4 ~ bb3 c4 ~ bb3 ~ bb3 c4 ~ bb3 c4 b4 c5 d5 ~ [eb4,d5] ~ [d4,b4] [eb4,d5] ~ [g4,d5] g4 b4 [f4,g4] ab4 eb4 g4 [f4,g4] eb4, ~@15 d4@3 ~@14]/2", // Ebmaj7 G Ebmaj7 G5 Fsus2
  P: "[bb3 ~ c4 ~ bb3 c4 ~ bb3 ~@2 c4 ~ bb3 c4 ~ bb3@2 ~ c4 ~ bb3 c4 ~ bb3 ~@2 c4 ~ bb3 c4 ~@2]/2",
  Q: "~@2 c4!2 ~ bb3 c4 eb4 c4 ~ g3 bb3 ~ bb3 c4 eb4", R: "~@2 eb4!2 ~ eb4!2 ~@2 eb4!2 ~ bb4 g4 f4 eb4",
  S: "~@2 c4 bb3 ~ bb3 c4 eb4 c4 ~ g3!2 bb3 eb4 c4 g4", T: "~@2 c4 bb3 ~ bb3 c4 eb4!2 d4 [g3,eb4] g3 bb3 ~ c4 eb4",
  U: "~@2 c4 bb3 ~ bb3 c4 eb4 c4 bb3 g3!2 bb3 ~ c4 eb4", V: "~ f4 eb4!2 ~@2 eb4!2 ~@2 eb4!2 g4 eb4 c4 ~",
  W: "eb4 ~@5 eb4!2 ~ eb4 c4 ~ f4 eb4 c4 bb3", X: "eb4 ~ eb4 ~ f4 eb4 ~ eb4 bb4 g4 eb4 g4 bb4 c5 ~@2",
  Y: "~@2 c4 bb3 ~ bb3 c4 eb4 c4 ~ [g3,eb4] g3 bb3 ~ c4 eb4", Z: "eb4 ~@2 eb4 ~ eb4 ~ eb4 f4 eb4 c4 ~ eb5 c5 bb4 g4",
  AA: "eb4 ~ eb4 ~ f4 [eb4,g4] ~@2 bb4 g4 eb4 g4 bb4 c5 ~@2", AB: "~@2 eb4!2 ~ f4 eb4!2 ~@2 eb4!2 g4 eb4 c4 ~",
  AC: "bb3 ~ c4 ~ bb3 c4 ~@2 bb3 ~@2 c4 ~ eb4 c4 ~", AD: "~@2 bb3 ~ bb3 ~@2 bb3!3 ~ bb3 ~@4",
})).s("gm_electric_guitar_muted").gain(0.27)

// chords · electric guitar muted
const electric_guitar_muted_2 = note(`<
  ~@3 A B A B A B A B A B A B A B A B A B A B A B A C D@2 E F G H I J K@2 L M N O P Q A B A B A B A B A B A B A B A B A
  B A B A B A C R S T F G H I U V@2 L M A B A B A B A B A B A B A B A B A B A B A B A W X ~
>`.pickRestart({
  A: "~@2 [bb3,eb4,f4] [bb3,d4,f4] ~@2 [bb3,d4,f4] [bb3,eb4,g4] ~@2 [bb3,eb4] [bb3,eb4,g4] ~@2 [bb3,eb4,g4]!2", // Bbsus4 Bb Eb Eb5 Eb
  B: "~@2 [eb4,ab4,c5]!2 ~@2 [bb3,eb4] [bb3,eb4,g4] ~@2 [bb3,eb4] [bb3,eb4,g4] ~@2 eb4 [bb3,eb4,g4]", // Ab Eb5 Eb Eb5 Eb
  C: "[ab3,c4]@3 ~ [bb3,d4]@3 ~ [c4,eb4]@4 [d4,f4]@4", // Ab Bb Cm Dm
  D: "[~@2 [eb4,g4] ~ f4 [eb4,g4] ~ bb4@3 [c4,c5] ~ bb3 eb4 bb4 ~@3 eb4 ~ d4 ~@3 [eb4,g4]@2 [d4,f4] ~ [c4,eb4]@2 [d4,f4] [c4,eb4], ~@7 eb5@6 ~@19, ~@7 eb4 ~@3 bb4@2 ~@2 b4@5 ~@12]/2", // Eb C Eb Dm Cm Dm Cm
  E: "~@2 g4 ~ [f4,eb5] ~ [c5,f5] [bb4,eb5]@3 g4 ~ [f4,c5]@2 ~ eb5", // F7 F5 Eb5 F5
  F: "~ eb5 c5 ~ [bb3,d4,bb4,eb5]@2 [bb4,f5] ~ [c4,eb4]@4 [f4,g4] ~ f4 ~, [ab3,c4]@4 ~@3 [bb4,eb5]@3 ~@2 d4@2 ~@2", // Ebmaj7 Bb5 Cm Fsus2 Ab Eb5
  G: "[eb4,g4] ~ [eb4,g4] ~ [eb4,g4,eb5] [eb4,g4,f5] ~ eb5@3 f5@2 [eb4,g4,eb5]@2 ~@2, ~@7 [eb4,g4]@5 ~@4", // Eb
  H: "[d4,g4] ~ [d4,g4,c5] ~ [d4,bb4] [d4,g4,b4] c5 ~ eb4 c4 ~@2 bb3 b3 c4 ~, ~@7 [d4,g4]@6 ~@3", // G5 Csus2 Gm G G5
  I: "~@4 g4!2 ab4 ~ bb4@2 ab4 ~ ab4@2 ~ c5, ~@7 g4", J: "~ bb4!3 bb4@2 ab4 ~ ab4@2 g4 ~ g4@2 f4 ~",
  K: "[eb4@2 [eb4,g4]@2 ~@2 eb4!2 ~ eb4 f4 eb4@3 f4 [d4,f4]@3 d4 ~ d4 ~@2 d4 ~@2 f4@3 ~ d4 ~, ~@25 d4@3 ~@4]/2", // Eb Dm
  L: "~ f4 eb4 ~ [c4,g4]@2 ~ [c4,g4] ~ g4 ~@2 [c4,eb4] ~@3", M: "c4 ~ [c4,eb4] ~ f4 ~ [d4,f4] ~@3 eb4 ~@3 [f4,ab4] ~",
  N: "eb4@3 ~ eb4@3 ~ eb4@3 ~ eb4@3 ~", O: "[d4,f4]@3 ~ [d4,f4]@3 ~ [c4,eb4]@3 ~ [d4,f4]@3 ~",
  P: "eb4@3 ~ [eb4,g4]@3 ~ eb4@3 ~ [eb4,g4]@2 ~@2", Q: "[ab3,c4]@3 ~ [bb3,d4]@3 ~ [c4,eb4]@3 ~ [d4,f4]@2 ~@2",
  R: "[eb4,g4,bb4] ~ [eb4,g4,bb4] ~ [eb4,g4,bb4]!2 ~@2 [eb4,g4,bb4]@3 ~ [eb4,g4,bb4]@2 ~@2", // Eb
  S: "[d4,f4,g4] ~ [d4,f4,g4] ~ [d4,f4,g4]!2 ~@2 [d4,f4,g4]@3 ~ [d4,f4,g4]@2 ~@2", // G7
  T: "[c4,eb4] ~ [c4,eb4,g4] ~ [c4,eb4,f4,eb5] c5 [c5,f5] ~ g4 ~ g4 ~ [f4,c5]@2 ~ eb5, ~@7 [bb4,eb5]@3 ~@6", // Cm F7 F5 Eb5
  U: "~ bb4@2 bb4 [d4,f4,bb4]@2 ab4 ~ [eb4,ab4]@2 g4 ~ [f4,g4,ab4]@2 f4 ~, [c4,eb4]@3 ~@5 g4 ~@7", // Bb Ab5 Fm Cm
  V: "[eb4 ~ [eb4,g4]@2 ~@2 eb4!2 ~ eb4 f4 eb4@2 ~ f4 [d4,f4]@3 d4 ~ d4 ~@2 d4 ~ d4@3 ~@2 d4 ~]/2", // Eb Dm
  W: "[ab3,c4]@3 ~ [bb3,d4]@4 [c4,eb4]@4 ~ [d4,f4]@3", // Ab Bb Cm Dm
  X: "~@2 [eb4,g4,bb4] ~ [eb4,g4,bb4] ~@2 [eb4,g4,bb4]!2 ~@3 [eb4,g4]@4, ~@11 bb4@5", // Eb
})).s("gm_electric_guitar_muted").gain(0.25).pan(0)

// chords · electric guitar muted · soft notes
const electric_guitar_muted_3 = note(`<
  ~@3 A B A B A B A B A B A B A B A B A B A B A B A ~@6 C ~@2 D ~@3 E ~ F ~ A B A B A B A B A B A B A B A B A B A B A B
  A ~@6 C ~@2 D G ~@2 A B A B A B A B A B A B A B A B A B A B A B A ~@3
>`.pickRestart({
  A: "~@10 g4 ~@5", B: "~@6 g4 ~@3 g4 ~ bb3 ~ [bb3,g4] ~", C: "~@3 c5 g4 ~@11", D: "~@7 g4 ~@8",
  E: "g4@3 ~ g4@3 ~ g4@3 ~ g4@3 ~", F: "g4@3 ~@5 g4@3 ~@5", G: "~@9 f4@3 ~@4",
})).s("gm_electric_guitar_muted").gain(0.15).pan(0)

// chords · electric guitar muted
const electric_guitar_muted_4 = note(`<
  ~@3 A B A B A B 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 L M N ~@2 O P A B A B A B 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 L M Q A B A B A B A B A B A B A B A B A B A B A B A R S ~
>`.pickRestart({
  A: "~@12 [eb4,g4] ~@3", B: "~@12 [bb3,eb4,g4] ~@3", C: "~@4 [eb4,g4] ~@2 bb4@3 g4 ~ [eb4,f4,g4] ~@3",
  D: "~@4 [d4,g4] ~@7 [d4,g4] ~@3", E: "~@4 [eb4,g4] ~@2 bb4@3 ~@2 [f4,bb4] g4 ~@2", F: "~@4 [f4,bb4] ~@7 [eb4,g4] ~@3",
  G: "~@4 [eb4,g4] ~@9 [eb4,g4] [d4,f4]", H: "~@4 [d4,f4] ~@7 [d4,f4] ~@3", I: "~@4 [c4,eb4] ~@7 [c4,eb4] ~@3",
  J: "~@4 [d4,f4] ~@7 [bb3,f4,bb4] ~@3", K: "~@4 g4@4 ~@4 [eb4,g4] ~@3, ~@4 eb4 ~@11",
  L: "~@4 g4@4 ~@4 [d4,f4] ~@3, ~@4 d4 ~@11", M: "~@4 [c4,eb4] ~@7 [c4,eb4] ~@3, ~ f4 ~@2",
  N: "g4@2 ~@2 f4@2 [bb3,d4] ~ eb4@2 [c4,eb4] ~ f4 ~ [d4,f4] ~", O: "~@2 g4@2 f4 eb4 c4 eb4@5 eb4 d4 c4 ~",
  P: "[ab3,c4]@3 ~ [bb3,d4]@3 ~ [c4,eb4]@3 ~ [d4,f4]@2 ~@2", // Ab Bb Cm Dm
  Q: "g4@2 ~@2 f4@2 [bb3,d4] ~ eb4@2 [c4,eb4] ~ f4@2 [d4,f4] ~", R: "~@13 [bb3,eb4,g4] ~@2",
  S: "~@2 bb4@2 g4 ~@2 [eb4,f4,g4] ~@8", // Eb
})).s("gm_electric_guitar_muted").gain(0.3).pan(1)

// other · electric guitar jazz
const electric_guitar_jazz = note(`<
  ~@14 A ~@3 B ~ C ~ D E@2 ~@10 F@2 G H@2 ~@2 I ~@3 J ~@7 A ~@3 B ~ C ~ D E@2 ~@10 F@2 G H@2 ~@2 J ~ K ~@3 D ~ A ~ A ~ B
  ~ C ~ D E@2 ~@4
>`.pickRestart({
  A: "~@9 bb4@2 bb4 ~ bb4@2 ~, ~ g4", B: "~ eb4", C: "c4@6 bb3@2 eb4 c4 bb3@2 ~@4", D: "bb3@3 c5@5",
  E: "[~@2 c6@3 ~@3]/2", F: "[f5 f5@2 eb5 f5 eb5 ~@2 g5 ~ f5 eb5@2 f5 ~ d5@5 eb5 f5 ~ g5 ~ f5 ~@2 g4@3 ~]/2",
  G: "f5 ~ eb5 ~ c5@2 bb4 f5 ~ f5 eb5 ~ c5@2 bb4 ~", H: "[g5@4 f5@4 eb5 f5@2 f5@3 eb5@6 ~@12]/2", I: "[g4,bb4] ~",
  J: "c6@3 ~", K: "~@8 g4@7 ~",
})).s("gm_electric_guitar_jazz").gain(0.3)

// chords · epiano1
const epiano1 = note("<~@27 A@2 B C D E B C F G B C D E B C ~@24 A@2 B C D E B C F G B C ~@24 H ~>".pickRestart({
  A: "[[eb4,bb4]@14 ~ [d4,g4,b4]@16 ~]/2", B: "[eb4,c5]", C: "[f4,c5]@4 [g4,d5]@4 [ab4,eb5]@4 [bb4,f5]@3 ~",
  D: "[eb4,bb4]@15 ~", E: "[d4,g4,b4]", F: "[g4,bb4]@15 ~", G: "[g4,b4]", H: "~@2 [eb4,bb4]@11 ~@3",
})).s("gm_epiano1").gain(0.3)

// other · pad new age
const pad_new_age = note(`<
  ~@15 A@2 B C B ~@6 D E ~@27 A@2 B C B ~@6 D E ~@15 A@2 B C B ~@5 F@2 B C B ~@4 G H ~
>`.pickRestart({
  A: "[~@19 eb5@6 ~@3 eb4 d4 c4 d4, ~@12 c5@9 ~@11]/2", B: "f4@5 ~ bb5 g5@2 ~@7", C: "eb4@8 ~@4 eb4 d4 c4 d4",
  D: "~@12 bb4 ~ ab4 ~", E: "g4 ~@3", F: "[~@12 c5@7 eb5@6 ~@3 eb4 d4 c4 d4]/2", G: "c5@4 d5@4 eb5@5 f5@3",
  H: "~ g4@5 ~@2",
})).s("gm_pad_new_age").gain(0.22)

// drums · kick
const kick = s("bd").struct("<[x ~@3 x!3 ~] [x!2] [x ~@3 x!3 ~]!100 [x ~@7 x ~@2 x ~ x ~@2] [~@2 x ~@8 x ~@4] ~>")
  .gain(0.48)

// drums · kick · soft notes
const kick_soft = s("bd").struct("<[~@7 x ~@7 x]!102 [~@7 x ~@8] [~ x ~@8 x ~@5] ~>").gain(0.18)

// drums · snare
const snare = s("sd").struct(`<
  [~@10 x!2 ~@4]
  [~@7 x ~ x ~ x ~ x ~@2]
  [~@10 x!2 ~@4]!100
  [~@11 x!2 ~@3]
  [~@4 x!2 ~@10]
  ~
>`).gain(0.24)

// drums · clap
const clap = s("cp").struct("<[~ x ~@2]!103 [~@7 x ~@3 x ~@4] ~>").gain(0.42)

// drums · hihat
const hihat = s("hh").struct(`<
  [x ~@2 x!2 ~ x ~ x ~@2 x!2 ~ x!2]
  [x ~ x ~ x ~@3 x!3 ~ x ~@2 x]
  [x ~@2 x!2 ~ x ~ x ~@2 x!2 ~ x!2]!100
  [x ~@2 x!2 ~ x ~ x ~@3 x!2 ~ x]
  [~ x!2 ~@2 x ~ x ~@2 x!2 ~@4]
  ~
>`).gain(0.18)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<[~ x ~@3 x ~@2] [~@3 x ~@3 x] [~ x ~@3 x ~@2]!100 [~@2 x ~@8 x ~@4] ~@2>")
  .gain(0.06)

// drums · open hat
const open_hat = s("oh").struct("<~ [~@13 x ~@2] ~@103>").gain(0.12)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  [~@10 x!2 ~@4]
  [~@7 x ~ x ~ x ~ x ~@2]
  [~@10 x!2 ~@4]!100
  [~@11 x!2 ~@3]
  [~@7 x!3 ~ x ~@4]
  ~
>`).gain(0.24)

// drums · congas
const congas = s("conga:18").struct("<[~ x ~@6]!103 [~ x ~@2] ~>").gain(0.96)

// drums · congas
const congas_2 = s("conga:33").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
  A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ B ~
>`.pickRestart({
// … 22 more lines