// Addicted To Love — Robert Palmer
// 110 bpm, 4/4, key A major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 11 "CLAVINET" clavinet (copy of ch 12 "CLAVINET" clavinet, 0.25 beats late); ch 14 "OVERDRIVE" overdriven guitar (copy of ch 13 "OVERDRIVE" overdriven guitar, 0.5 beats late)
// note: Full arrangement: all 124 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): OVERDRIVE.
setcpm(110/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 · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~@8 A@8 B@24 C@7 D@2 E@8 F@7 C@7 D@2 G@8 ~@2 G@8 F@7 C@7 D@2 G@8 H@8 ~>".pickRestart({
  A: "[~@7 g2@2 [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2, ~@24 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@6]/8", // A5 G5 D5 A5
  B: "[~ [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2, ~@8 e3 ~@15 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@6]/8", // A5 G5 D5 A5
  C: "[~@2 [a2,e3]@2 [a2,e3]@2 [a2,e3]@2 a2@4 ~@2 f#2@14 ~@2 [d3,a3]@16 g2@4 [a2,e3]@2 [a2,e3]@2 [a2,e3]@2 a2@4 ~@2 g2@4 [a2,e3]@2 [a2,e3]@2 [a2,e3]@2 a2@4 ~@2 f#2@14 ~@2 [d3,a3]@15 ~@3, ~@8 e3 ~@47 e3@2 ~@14 e3 ~@39]/7", // A5 D5 A5 D5
  D: "[[d3,a3]@21 ~@3 [e3,b3]@2 ~@2 [e3,b3]@2 ~ [c3,c#3,d3,d#3,g3,g#3,a3,a#3]]/2", // D5 E5 Cm7
  E: "[~ [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2, ~@8 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@14 e3 ~@7]/8", // A5 G5 D5 A5
  F: "[~ [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2, ~@8 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@6]/7", // A5 G5 D5 A5
  G: "[~ [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~@2, ~@8 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@14 e3 ~@7]/8", // A5 G5 D5 A5
  H: "[~ [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!3 a2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ f2@2 [g2,d3]!3 g2@2 ~ c3@2 [d3,a3]!3 d3@2 ~ c3@2 [d3,a3]!3 d3@2 ~ g2@2 [a2,e3]!3 a2@2 ~ g2@2 [a2,e3]!2 ~@5, ~@8 e3@2 ~@14 e3 ~@15 d3@2 ~@14 d3 ~@15 a3@2 ~@14 a3 ~@15 e3@2 ~@22]/8", // A5 G5 D5 A5
})).s("gm_overdriven_guitar").gain(0.25).pan(0.7)

// bass · fretless bass · "FRETLESS"
const bass = note(`<
  ~@9 A@2 B C D@2 A@4 B C D@2 A@4 B C D@2 A@4 B C D@2 A E@3 F G@3 H I A@2 B C D@2 A@4 B C D@2 A E@3 F G@3 J@2 A@2 B C
  D@2 A K ~@2 A@2 B C D@2 A@4 B C D@2 A E@3 F G@3 L@2 A@2 B C D@2 A@4 B C D@2 A M ~
>`.pickRestart({
  A: "~ a1 d2 a1 c2 a1 g1 a1", B: "~ g1 c2 g1 b1 g1 f1 g1", C: "~@2 g1@2 c2@2 g1@2 b1@2 g1@2 f1@2 g1 ~",
  D: "~ a1 d2 a1 c2 a1 c2 d2",
  E: "[~@2 a1@2 d2@2 a1@2 c2@2 a1@2 g1@2 f#1@7 ~ f#1 ~ f#1@5 ~ d2@7 ~ d2@2 f#3@2 d2@2 g3@2 a1@2]/3",
  F: "~@2 a1@2 f#2@2 a1@2 g2@2 a2 ~ f#2 ~ a1@2",
  G: "[~@2 a1@2 f#2@2 a1@2 g2@2 a2 ~ f#2 ~ f#1@7 ~ f#1 ~ f#1@5 ~ d2@7 ~ d2 ~ d2@5 ~@3]/3", H: "[d2,a2]@13 ~@3",
  I: "f#3@4 d2@4 e2 ~@3 e2@2 ~@2", J: "[[d2,a2]@8 a2@2 g3@2 f#3@11 ~ e2 ~@3 e2@2 ~@2]/2",
  K: "~@2 a1@2 d2@2 a1@2 c2@2 a1@2 g1@3 ~", L: "[[d2,a2]@9 ~ g3@2 ~@2 f#3@9 ~ e2 ~@3 e2@2 ~@2, ~@12 d2@11 ~@9]/2",
  M: "~ a1 d2 ~@5",
})).s("gm_fretless_bass").gain(0.44)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note("<~@40 A@3 ~ B@3 ~@17 A@3 ~ B@3 ~@27 A@3 ~ B@3 ~@19>".pickRestart({
  A: "[~@7 [b3,c#4,e4,a4]@7 ~ [d4,e4,f#4,a4]@7 ~@2]/3", B: "[~@7 [b3,c#4,e4,a4]@7 ~ [d4,e4,f#4,a4]@8 ~]/3",
})).s("gm_electric_guitar_clean").gain(0.33)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar_2 = note("<~@83 A B C D E@2 F@2 ~@33>".pickRestart({
  A: "c3@11 ~ g2@2 a2@2", B: "~@2 g#2@2 c3@2 ~@2 d3@2 g3 ~ c4 ~@3", C: "g4@15 ~", D: "~ c5@6 ~",
  E: "[~@2 a4 ~ c5@2 ~@2 c5@3 ~ a4 ~ a4@5 ~ c5@2 ~@2 c5@3 ~ a4@2 a#4@2]/2",
  F: "[g4 ~@3 d4@2 c4 ~ d4@2 a3 ~ c4 ~ g3@16 ~@2]/2",
})).s("gm_overdriven_guitar").gain(0.49)

// chords · brass section · "BRASS 1"
const brass_section = note(`<
  ~@17 A ~ B ~ C ~ A ~@9 A ~ B ~ C ~ D E ~@7 F ~@8 A ~ B ~ C ~ A ~@3 D E ~@3 F G@2 H ~ I@2 ~@12 J ~ K ~ L ~ M N ~@2 O P
  ~@3 F G@2 H ~ I@2 J ~ G@2 H ~ I@2 J ~@2
>`.pickRestart({
  A: "~@2 [c#4,e5]@2 [a3,d4,f#5] ~@3 [a3,e4,g5]@8, ~@2 a3 ~@13", // C#m D A7
  B: "~@2 [b3,d5]@2 [g3,c4,e5] ~@3 [g3,d4,f5]@8, ~@2 g3 ~@13", // Bm C G7
  C: "~@2 [c4,e5]@2 [a3,d4,f#5] ~@3 [a3,e4,g5]@7 ~, ~@2 a3 ~@13", // C D A7
  D: "~@2 [c#4,e5]@2 [a3,f#5]@2 ~@2 [a3,e4,g5]@4 [d4,f#5]@2 [a3,c#4,e5] ~, ~@2 a3 ~ d4 ~@7 a3 ~@3", // C#m D A7 D A
  E: "~@2 [c#4,e5]@2 [a3,d4,f#5] ~@3 [e4,g5]@6 ~@2, ~@2 a3 ~@5 a3@4 ~@4", F: "~@4 [a4,b4,e5,b5] ~ [a4,b4,e5,b5] ~",
  G: "~ [a3,c#4,e4] ~@6", H: "~@2 [g3,b3,d4] ~@5 [g3,d4]@2 ~@6, ~@8 b3 ~@7", I: "~@2 [c4,d4,a4] ~@13",
  J: "~@2 [c#5,e5,a5]@2 [d5,f#5,b5] ~@3 [e5,g5]@8, ~@4 c#6@3 ~", K: "~@2 [b4,d5,g5]@2 [c5,e5,a5]@2 ~@2 [d5,f5,b5]@7 ~",
  L: "~@2 [e5,a5]@2 [b4,f#5,d6] ~@3 [c5,g5,a5]@7 ~, ~@2 a4 ~@13", // A5 Bm Am7
  M: "~@2 [c#5,e5,a5]@2 [d5,b5]@2 ~@2 [e5,g5,c#6]@7 ~, ~@4 f#5 ~@11", N: "~ [c#5,e5,g5,c#6]",
  O: "~ [c#5,e5,a5] [f#5,b5] ~ [e5,a5,c#6]@2 [b5,d6] ~, ~@4 d5 ~@7 f#5 ~@3", // A B5 A Bm
  P: "~@2 [c#5,e5,a5]@2 [f#5,b5] ~@3 [e5,a5,c#6]@4 [f#5,b5]@2 ~@2, ~@4 d5@2 ~@6 d6 ~@3", // A B5 A B5
})).s("gm_brass_section").gain(0.49).pan(0.4)

// chords · pad poly · "POLYSYNTH"
const pad_poly = note("<~@4 A B C D E ~@38 F G ~@22 F G ~@32 F G ~@17>".pickRestart({
  A: "[a2,e3,a4]@8 ~@2 [a2,e3,e4] ~ [a2,e3]@2 ~@2, ~@12 f#4 ~@3", B: "[a2,e3,g4]@13 ~@3",
  C: "~@10 [g2,d3,d4] ~ [g2,d3,e4]@2 ~@2", D: "[g2,d3,f4]@3 ~", E: "~ [a2,e3,a4]",
  F: "~ d4@3 ~ e4@3, f#3@5 ~@3 g3@6 ~@2", G: "~ f#4@3 ~@4, a3 ~",
})).s("gm_pad_poly").gain(0.44).pan(0.4)

// chords · clavinet
const clavinet = note("<~@65 A B C@2 A B ~@28 A B C@2 A B ~@10 D@2 E@2 B@2 D F ~>".pickRestart({
  A: "~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4] ~ [e3,a3,c#4]", // A
  B: "~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4] ~ [f#3,a3,d4]", // D
  C: "~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4] ~ [c#4,e4,a4]", // A
  D: "~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4]", // A
  E: "~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4]", // G
  F: "~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~@10", // A
})).s("gm_clavinet").gain(0.22).pan(0.2)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar_3 = note("<~@83 A@2 B@2 C D E F ~@33>".pickRestart({
  A: "[~@3 c3@11 ~ g2@2 a2@2 ~@2 g#2@2 c3@2 ~@2 d3@2 g3 ~ c4]/2", B: "[~@3 g4@15 ~@3 c5@11]/2",
  C: "~@7 c5@2 ~@2 c5@3 ~@2", D: "~ a4@5 ~ c5@2 ~@2 c5@3 ~@2", E: "~ a#4@2 ~@4 d4@2 c4 ~ d4@2 ~@2 c4", F: "~ g3@15",
})).s("gm_overdriven_guitar").gain(0.16).pan(1)

// other · overdriven guitar · "OVERDRIVE" · soft notes
const overdriven_guitar_soft = note("<~@87 A B@2 ~@34>".pickRestart({
  A: "~@5 a4 ~@9 a4", B: "[~@15 a4@2 ~@2 g4 ~@9 a3 ~@2]/2",
})).s("gm_overdriven_guitar").gain(0.05).pan(1)

// drums · kick
const kick = s("bd").struct(`<
  A B@39 C D A B C D@2 ~@2 B@15 C D A B C D@2 ~@2 B@7 E ~@2 B@3 C A B@10 C D A B C D@2 ~@2 B C A B@4 E A C A B@4 F ~
>`.pickRestart({
  A: "~ x", B: "x!2", C: "x ~@3 x ~@2 x", D: "~@4 x ~@2 x", E: "~ x ~@2 x ~ x!2", F: "~ x ~@6",
})).gain(0.44)

// drums · kick · soft notes
const kick_soft = s("bd").struct(`<
  A B@40 C@2 B@2 C@2 D ~ B@16 C@2 B@2 C@2 D ~ B@7 E ~@2 B@4 F B@11 C@2 B@2 C@2 D ~ B@2 F B@4 E C B F B@4 G ~
>`.pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@3 x ~@2", C: "x ~@4 x ~@2", D: "x", E: "~@2 x ~@2 x ~@2", F: "x!2 ~@3 x ~@2", G: "~ x ~@2",
})).gain(0.16)

// drums · snare
const snare = s("sd").struct("<A B@46 C D B@22 C D B@7 E ~ A B@22 C D B@7 E B@7 F ~>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "x", D: "~@2 x!2", E: "x ~ x!2 ~ x ~@2", F: "x!2 ~@2",
})).gain(0.44)

// drums · hihat
const hihat = s("hh").struct(`<
  A B@32 C B@6 D@2 B C D@2 B ~@2 B@8 C B@6 D@2 B C D@2 B ~@2 C B C B@4 ~@3 C B@3 C B@10 D@2 B C D@2 B ~@2 C B C B@4 ~ C
  B C B@4 ~@2
>`.pickRestart({
  A: "~@5 x!3", B: "x!4 ~@2 x!2", C: "~ x!3 ~@2 x!2", D: "x!4 ~@2 x ~",
})).gain(0.38)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~ A@39 B@2 A C B@2 A ~@2 A@15 B@2 A C B@2 A ~@2 A@7 ~@3 A@15 B@2 A C B@2 A ~@2 A@7 ~ A@7 ~@2
>`.pickRestart({
  A: "~ x", B: "~@4 x ~@2 x", C: "x!2",
})).gain(0.38)

// drums · crash
const crash = s("cr").struct("<A ~@32 B ~@23 B ~@15 B ~ B ~@7 B ~@3 B ~@3 B ~@15 B ~ B ~@4 C ~@2 B ~@6>".pickRestart({
  A: "~ x", B: "x", C: "~@7 x",
})).gain(0.38)

// drums · shaker
const shaker = s("sh").struct(`<
  A B C D C B C D C B C D C B C D C B C D C B C D C B C D C B C D C B C D C B C D C ~@8 B C D C B C D C B C D C B C D C
  ~@8 B C D C B C D C ~@2 B C D C B C D C B C D C B C D C ~@8 B C D C B C D C B C D C B C D E ~
>`.pickRestart({
  A: "~@4 x!3 ~", B: "x!4", C: "x!8", D: "x ~ x!6", E: "x!3 ~@5",
})).gain(0.16)

// drums · shaker · soft notes
const shaker_soft = s("sh").struct(`<
  A B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~@9 B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~@9
  B ~ C ~ B ~ C ~@3 B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~@9 B ~ C ~ B ~ C ~ B ~ C ~ B ~ C ~@2
>`.pickRestart({
  A: "~@7 x", B: "~ x ~ x ~ x ~ x", C: "~ x ~@6",
})).gain(0.11)

stack(
  overdriven_guitar, bass, electric_guitar_clean, overdriven_guitar_2, brass_section, pad_poly, clavinet,
  overdriven_guitar_3, overdriven_guitar_soft, kick, kick_soft, snare, hihat, open_hat, crash, shaker, shaker_soft
)