// Let's Get It On — Gaye,Marvin
// 83 bpm, 4/4, key A# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 86 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(83/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 · epiano1 · "E Piano"
const epiano1 = note(`<
  ~ A B A B A C A D A B A B A C A D E F E F E F E F E F E F E F E F G H I J G H I J G H I J K L M N E F E F E F E F E F
  E F E F E F K L M N E F E F E F E F E F E F E F E ~@2
>`.pickRestart({
  A: "[g4,bb4]@4 c5 ~ [g4,bb4,d5]@8 ~@2", B: "[ab4,c5]@2 ~ [f4,bb4]@4 ~", C: "[ab4,c5]@2 ~ [f4,bb4,d5]@4 ~",
  D: "[ab4,c5]@4 ~@2 [f4,bb4,d5]@9 ~", E: "[bb4,eb5,g5]@2 ~ [bb4,d5,g5]@4 ~", F: "[ab4,c5,eb5]@2 ~ [bb4,d5,f5]@4 ~",
  G: "[ab4,c5,eb5]@15 ~", H: "[gb4,ab4,c5,eb5]@7 ~", I: "[g4,bb4,eb5]@5 ~ [g4,bb4,d5]@8 ~@2",
  J: "[eb4,ab4,c5]@2 ~ [f4,bb4,d5]@4 ~", K: "[ab4,c5,eb5]@7 ~", L: "[f4,a4,c5,eb5]@7 ~", M: "[f4,ab4,bb4,d5]@15 ~",
  N: "[f4,ab4,bb4,d5]", // Bb7
})).s("gm_epiano1").gain(0.51)

// other · ocarina · "Indtro"
const ocarina = note("<[~@2 bb4 ~ c5 ~ eb5 ~] [g5 ~@3] ~@82 [~@2 bb4 ~ c5 ~ eb5 ~] [a5@3 ~@5]>")
  .s("gm_ocarina").gain(0.51)

// chords · piano
const piano = note(`<
  ~ A B C D E B C F G B C B C B C B H B I B I B I B H B I B I B I B ~@16 H B I B I B I B H B I B I B I B ~@4 H B I B I B
  I B H B I B I B I J ~
>`.pickRestart({
  A: "[g3,bb3,bb4]@2 ~ [f3,bb3,d4,f4,bb4]@4 ~", B: "[eb3,bb3,c4,eb4,ab4]@2 ~ [f3,bb3,d4,f4,bb4]@4 ~",
  C: "[g3,bb3,eb4,g4,bb4]@2 ~ [f3,bb3,d4,f4,bb4]@4 ~", // Eb Bb
  D: "[eb3,bb3,c4,eb4,ab4]@4 ~@2 bb4@6 eb4 [eb4,ab4]@3, ~@3 [f3,bb3,d4,f4]@4 ~, ~@6 bb4 ~", // Ab Ab5 Bb
  E: "[gb4,g4] g4@3 ~@2 [f3,bb3,d4,f4,bb4]@8 ~@2, [g3,bb3,eb4,bb4] ~@3", // Gmaj7 Bb Eb
  F: "[eb3,bb3,c4,eb4,ab4]@4 ~@6 [eb4,ab4,c5]@2 ~ [ab4,c5]@2 eb4, ~@6 [f3,bb3,d4,f4,bb4]@7 eb4 ~@2", // Ab Bb
  G: "[gb4,g4,bb4] [g4,bb4]@3 ~@2 [f3,bb3,d4,f4,bb4]@8 ~@2, [g3,bb3,eb4] ~@3", // Gb Gm Bb Eb
  H: "[gb4,g4,bb4] [g4,bb4]@3 ~@2 [g3,bb3,d4,f4,bb4]@8 ~@2, [g3,bb3,eb4] ~@3", // Gb Gm Gm7 Eb
  I: "[g3,bb3,eb4,g4,bb4]@2 ~ [g3,bb3,d4,f4,bb4]@4 ~", // Eb Gm7
  J: "[eb3,bb3,c4,eb4,ab4] ~ [eb3,bb3,c4,eb4,ab4] [f3,bb3,d4,f4,bb4] [d3,d4,f4,bb4] ~ [d3,f3,bb3,d4,f4,bb4] ~, ~@2 f3 ~, ~@8 bb3 ~@7", // Ab Bb
})).s("gm_piano").gain(0.51)

// other · baritone sax · "Sax"
const baritone_sax = note("<~@24 A@3 B@2 ~@3 C D@2 E F D@2 E F D@2 E F G H I ~@16 C G H I ~@18>".pickRestart({
  A: "[~@8 [d4,d5]@3 [c4,c5]@2 [bb3,bb4]@2 ~ [bb3,bb4]@24 ~ [bb3,b3,bb4,b4] ~@2 [g3,g4]@2 [ab3,ab4]@2, ~@8 [db4,db5] ~@6 [ab3,ab4]@2 ~@24 [c4,c5]@3 ~@4]/3", // D C Bb Bmaj7 G Ab Db Ab …
  B: "[bb3,bb4]/2", C: "~@7 a2", D: "[ab2@15 ~]/2", E: "eb2@2 ~ g2 ~ g2 ~ g2", F: "ab2@2 ~ bb2 ~@3 a2",
  G: "ab2@13 ~ ab2!2", H: "f2", I: "bb2 ~@7",
})).s("gm_baritone_sax").gain(0.51)

// chords · brass section · "Horns"
const brass_section = note("<~@32 A B@2 C D B@2 C D B@2 C D E F G ~@16 A E F G ~@18>".pickRestart({
  A: "~@7 [bb4,db5]", B: "[[eb4,gb4,ab4,c5]@15 ~]/2", C: "[eb4,g4,bb4]@5 ~ [d4,g4,bb4]@8 ~@2",
  D: "[c4,eb4,ab4]@2 ~ [d4,f4,bb4]@4 [bb4,db5]", E: "[eb4,gb4,ab4,c5]", F: "[c4,eb4,f4,a4]", G: "[bb3,d4,f4,ab4]",
})).s("gm_brass_section").gain(0.51)

// bass · fretless bass · "Bass"
const bass = note(`<
  ~ A B A C A D E C A C A F G H A C A C A F G H A C A C A F G H A I J K L M J K N M J K O M J P Q R A C A F G H A C A C
  A F G H A I J P Q R A C A F G H A C A C A F G H A S ~
>`.pickRestart({
  A: "eb2@2 ~ g1@3 ~ g1", B: "ab1@2 ~ bb1@4 ~", C: "ab1@4 ~@2 bb1@5 ~ bb1 c2 eb2 c2", D: "ab1@4 ~@2 bb1@8 c2 ~",
  E: "eb2@4 ~@2 g1@3 g1 g1@2 ~@2 g1@2", F: "ab1@4 ~@2 bb1@5 ~ bb1 c2 ~@2", G: "eb2@4 ~@2 g1@3 g1 g1@2 ~@2 g1 ~",
  H: "ab1@4 ~@2 bb1@5 ~ bb1 c2@3", I: "ab1@4 ~@2 bb1@5 ~@3 a1@2", J: "ab1@4 ~@2 ab1@2 ab2!2 ~ c2 ~ db2 ~ eb2",
  K: "ab1@4 ~@2 ab1@2 ~@2 c2@2 ~ db2 ~ d2", L: "eb2@2 ~ g1 ~ g1 ~ g1", M: "ab1@2 ~ bb1 ~ bb1 ~ a1",
  N: "eb2@4 ~@2 g1@3 ~ g1@2 ~@2 g1@2", O: "eb2@5 ~ g1@2 ~@2 g1@2 ~@2 g1@2", P: "f1@2 ~ f1 ~ f1 ~ f1",
  Q: "bb1@4 ~@2 bb1@2 ~@2 bb1@2 ~@2 bb1 ~", R: "bb1", S: "ab1 ~ f1 ~ bb1 ~ g1 ~",
})).s("gm_fretless_bass").gain(0.51)

// drums · kick
const kick = s("bd").struct("<~ A@32 B C D@2 E F D G B F H I J K B L A@16 M@2 N L A@15 O ~>".pickRestart({
  A: "x ~@2 x ~ x!2 ~", B: "x ~@2 x ~@3 x", C: "x ~@2 x ~@4 x ~ x!2 ~@2 x ~", D: "x ~@2 x ~ x ~@2", E: "x ~@2 x ~@4",
  F: "x ~@7 x ~ x!2 ~@2 x ~", G: "x ~@5 x ~@3 x!2 ~@2 x ~", H: "x ~@5 x ~@3 x ~@4 x", I: "x ~@2 x ~@2 x ~@9",
  J: "x ~@5 x ~@4 x ~@4", K: "x!4", L: "x", M: "x ~@2 x ~@2 x!2 ~@2 x!2 ~@3 x", N: "x ~@2 x ~ x!3", O: "x ~ x!3 ~ x ~",
})).gain(0.51)

// drums · clap
const clap = s("cp").struct("<~@83 [~@10 x!3 ~@3] [~@2 x!3 ~@5 x!3 ~@3] ~>").gain(0.51)

// drums · snare
const snare = s("sd").struct(`<
  ~ A@7 B A@7 C A@7 D A@7 E F@2 A@2 F@2 A@2 F@2 A@4 G H A@16 G I@2 H A@15 J ~
>`.pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@5 x!5 ~", C: "~@4 x ~@2 x!2 ~ x ~ x!3 ~", D: "~@4 x ~@7 x!4", E: "~@4 x ~@2 x!2 ~@2 x!4 ~",
  F: "~@4 x ~@4 x ~@2 x ~@3", G: "~ x!3", H: "x", I: "x!4", J: "x!2 ~ x",
})).gain(0.51)

// drums · hihat
const hihat = s("hh").struct("<~ A@33 B A@3 B A@3 B A@5 C A@16 D@3 C A@15 E ~>".pickRestart({
  A: "x!8", B: "x!7 ~", C: "x", D: "x!16", E: "~@2 x ~@3 x ~@2 x ~@3 x ~@2",
})).gain(0.51)

// drums · open hat
const open_hat = s("oh").struct("<~@16 A ~@17 B ~@3 B ~@3 B ~@41 C ~>".pickRestart({
  A: "~@9 x ~ x ~@4", B: "~@7 x", C: "x!4",
})).gain(0.51)

stack(epiano1, ocarina, piano, baritone_sax, brass_section, bass, kick, clap, snare, hihat, open_hat)