// Again — Lenny Kravitz
// 78 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 11 overdriven guitar (copy of ch 7 overdriven guitar, 0.25 beats late)
// note: Full arrangement: all 91 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 27.
// note: The whole transcription plays 11 ms ahead of the beat; the grid follows it, so its parts stay together.
setcpm(78/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, A@4 for four bars: edit a riff to change every repeat.

// bass · electric bass finger
const bass = note(`<
  ~ A B C@2 D E D E D E D E A B F D A B F D@2 E D E D E D E A B F D A B F G H ~@3 I B F D I J K G A B F D A B L M A B F
  D A B N G A B F D A B L M A B F O A B L M A B F G A B L M P@2
>`.pickRestart({
  A: "a1 ~ a1@2 a1 ~ a1@2 a1 ~ a1@2 a1 ~ a1@2", B: "f#1 ~ f#1@2 f#1 ~ f#1@2 f#1 ~ f#1@2 f#1 ~ f#1@2",
  C: "[e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 e2 ~ d2@18]/2", D: "d2 ~ d2@2 d2 ~ d2@2 d2 ~ d2@2 d2 ~ d2@2",
  E: "e2 ~ e2@2 e2 ~ e2@2 f#2 ~ f#2@2 f#2 ~ f#2@2", F: "e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2",
  G: "d2 ~ d2@2 f#1 ~ f#1@2 g1 ~ g1@2 g#1 ~ g#1@2", H: "a1 ~@7", I: "a1 ~ a1@2 a1 ~ a1@2 a1 ~ a1@2 a1 ~ g#1@2",
  J: "f#1 ~ f#1@2 f#1 ~ f#1@2 f#1 ~ f#1@2 f#2!2 f2@2", K: "e2 ~ e2!3 ~ e2!3 ~ e2!4 d#2@2",
  L: "e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 e2 ~ b2@2", M: "a2 ~ a2@2 c#2 ~ c#2@2 d2 ~ e2@2 f#2 ~ e2@2",
  N: "e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 f#1 ~ f#1@2", O: "d2 ~ d2@2 d2 ~ d2@2 d2 ~ e2@2 d2 ~ d2@2", P: "a1/2",
})).s("gm_electric_bass_finger").gain(0.65)

// chords · synth strings 1
const synth_strings_1 = note(`<
  ~ A@4 B C B C B C B C D@3 B D@3 B@2 C B C B C B C D@3 B D@3 B E@4 D@3 B D@3 B D@3 B D@3 B D@3 B D@3 B D@3 B D@3 B D@3
  B D@3 B D@3 B D@3 B F@2
>`.pickRestart({
  A: "[c#4@8 b3@15 [d4,f#4]@9, a3, e4@23 ~@9]/4", B: "[a3,d4,f#4]", C: "[g#3,b3,e4]@3 [f#3,a#3,c#4]@5",
  D: "[c#4 ~ g#3, e4, a3@2 ~, ~ b3@2]/3", E: "[[a2,a3,c4] [e3,g3,b3] [a2,a3,c4] [e3,g3,b3], e4]/4", F: "[a3,c#4,e4]/2",
})).s("gm_synth_strings_1").gain(0.36).pan(0.6)

// other · overdriven guitar
const overdriven_guitar = note("<~@40 A B C D E F G@2 H ~@42>".pickRestart({
  A: "~@5 d4@2 d4", B: "b4", C: "b4@15 a4", D: "~ e5@8 e5 ~ d5 c#5 d5 ~ e5",
  E: "b4@3 a4 [a4,b4]!5 e4 a4 g#4 a4 b4 c#5 d5", F: "e5@6 e5@3 ~ e5@3 ~ a5@2",
  G: "[~@2 a5@8 b5@2 ~ b5@2 ~ a5@2 b5 a5@5 ~@2 b5 c6 b5@3 ~, ~@15 b5@2 ~@15]/2",
  H: "a5 b5 a5@3 ~ [a3,c4]!2 c4 [a3,c4] a3 [g2,g3]@3 a3 ~", // Am G
})).s("gm_overdriven_guitar").gain(0.56).pan(0.4)

// chords · distortion guitar
const distortion_guitar = note(`<
  ~ A@4 B C B C B C B C D@8 E C B C B C B C D@8 ~@4 D@32 F ~@3 F ~@3 F ~@3 F ~@3 G@2
>`.pickRestart({
  A: "[~@10 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@6 e4 ~ [b3,c#4]@2 ~@2 a3@2, ~ a3@2 a3@4 ~@2 a3@2 a3@4 ~@2 a3@2 a3@4 ~@2 a3@2 a3@4 ~, ~@2 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@2, ~ e4@2 e4@2 e4@2 f#4]/4", // Bsus2
  B: "[d3,a3,d4,f#4]", C: "[e3,g#3,b3,e4]@3 [f#3,c#4,f#4,a#4]@3 [f#3,c#4,a#4]@2",
  D: "[~@10 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@6 e4 ~ [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@8 [b3,c#4]@2 ~@2 a3@4 ~@6 e4 ~ [b3,c#4]@2 ~@2 a3@2, ~ a3@2 a3@4 ~@2 a3@2 a3@4 ~@2 g#3@2 g#3@4 ~@2 a3@2 a3@4 ~@2 a3@2 a3@4 ~@2 a3@2 a3@4 ~@2 g#3@2 g#3@4 ~@2 a3@2 a3@4 ~, ~@2 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@4 b3@3 ~ b3@2, ~ e4@2 e4@2 e4@2 f#4@2 e4@2 e4@2 e4@2 f#4]/8", // Bsus2
  E: "[d3,d4], f#4 ~, a3 ~@7", F: "[c#4,e4,a4]!2 [c#4,e4,a4]@13 ~", G: "[[c#4,e4,a4]!2 [c#4,e4,a4]@30]/2",
})).s("gm_distortion_guitar").gain(0.29).pan(0.4)

// chords · string ensemble 1
const string_ensemble_1 = note("<~@73 A B A B A B A B C D C D C D C D E F>".pickRestart({
  A: "[a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~ [a2,e3,a3] ~", // A5
  B: "[f#2,d3,a3] ~ [f#2,d3,a3] ~ [f#2,e3,b3] ~ [f#2,e3,b3] ~ [f#2,d3,a3] ~ [f#2,d3,a3] ~ [f#2,e3,b3] ~ [f#2,d3,a3] ~", // D Esus2 D Esus2 D
  C: "[a2,e3,a3,e4,a4] ~ [a2,e3,a3,e4,a4] ~ [a2,e3,a3,e4,a4] ~ [a2,e3,a3,e4,a4] ~ [a2,e3,a3,d4,g4] ~ [a2,e3,a3,d4,g4] ~ [a2,e3,a3,d4,g4] ~ [a2,e3,a3,d4,g4] ~", // A5 Asus4
  D: "[f#2,d3,a3,e4,a4] ~ [f#2,d3,a3,e4,a4] ~ [f#2,e3,b3,e4,a4] ~ [f#2,e3,b3,e4,a4] ~ [f#2,d3,a3,d4] ~ [f#2,d3,a3,d4] ~ [f#2,e3,b3,d4] ~ [f#2,d3,a3,d4] ~", // D F#m7 D Bm D
  E: "[a2,e3,a3,e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~", // A5
  F: "[e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~ [e4,a4] ~", // A5
})).s("gm_string_ensemble_1").gain(0.46).pan(0.3)

// chords · piano
const piano = note(`<
  ~@14 A@2 B@2 ~@2 C@2 ~@8 A@2 B@2 ~@2 D ~@13 E@2 B@2 ~@2 C@2 E@2 B@2 ~@2 C@2 E@2 B@2 ~@2 F ~@18
>`.pickRestart({
  A: "[~@4 [f#3,c#4]@3 [g#3,b3]@3 ~@6]/2", B: "[[f#3,a3]@2 [e3,a3,d4]@5 [e3,a3,c#4]@3 ~@6]/2",
  C: "[[f#3,a3,d4]@2 [e3,a3,b3]@2 [e3,a3,d4]@3 [f#3,a3,c#4]@3 ~@6]/2", // D Esus4 Dsus2 F#m
  D: "[f#3,a3,d4]@2 [e3,a3,b3]@2 [e3,a3,d4]@3 [f#3,a3,c#4]", E: "[~@4 [f#3,c#4]@3 [g#3,b3]@8 ~]/2",
  F: "[f#3,a3,d4]@4 [e3,a3,d4]@3 [f#3,a3,c#4]", // D Dsus2 F#m
})).s("gm_piano").gain(0.07)

// drums · kick
const kick = s("bd").struct("<~ A@2 B ~ A@32 C@3 ~ A@48 D ~>".pickRestart({
  A: "x ~@3 x!2 ~@2", B: "x ~@3 x!2 ~ x", C: "x!2 ~@6 x!4 ~@4", D: "x",
})).gain(0.8)

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

// drums · clap
const clap = s("cp").struct("<~@37 [~@4 x!2 ~@6 x!2 ~@2]!3 ~@51>").gain(0.48)

// drums · snare
const snare = s("sd").struct("<[~@11 x!3 ~@2] [~ x ~ x]!3 ~ [~ x ~ x]!32 ~@4 [~ x ~ x]!48 ~@2>").gain(0.72)

// drums · low tom
const low_tom = s("lt").struct("<~@88 [~@12 x ~ x!2] ~@2>").gain(0.48)

// drums · hihat
const hihat = s("hh").struct("<~ [x!7 ~]!3 ~ [x!7 ~]!32 ~@4 [x!7 ~]!48 x ~>").gain(0.64)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~ [~@7 x]!2 ~@2 [~@7 x]!32 ~@4 [~@7 x]!48 ~@2>").gain(0.32)

// drums · mid tom
const mid_tom = s("mt").struct("<[~@7 x] ~@87 [~@9 x ~@6] ~@2>").gain(0.64)

// drums · open hat
const open_hat = s("oh").struct("<~@3 [~@7 x] ~@87>").gain(0.56)

// drums · crash
const crash = s("cr").struct(`<
  ~ A ~ B ~ A ~@7 A ~@7 A ~@7 A ~@11 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~
>`.pickRestart({
  A: "x", B: "~@7 x",
})).gain(0.56)

// drums · shaker
const shaker = s("sh").struct("<A B@2 C ~ B@32 ~@4 B@48 D ~>".pickRestart({
  A: "~@15 x", B: "~ x ~@3 x ~@3 x ~ x ~ x ~@2", C: "~ x ~@3 x ~@3 x ~ x ~ x ~ x", D: "~ x ~@14",
})).gain(0.24)

stack(
  bass, synth_strings_1, overdriven_guitar, distortion_guitar, string_ensemble_1, piano, kick, rim, clap, snare,
  low_tom, hihat, hihat_soft, mid_tom, open_hat, crash, shaker
)