// Erotica — Madonna
// 100 bpm, 4/4, key F# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 129 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(100/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 · piano
const piano = note(`<
  ~@8 A B C D E F G H E F G H ~@8 I@2 J@2 I@2 J@2 ~ K L K M K N K O ~@7 I@2 J@2 I@2 J@2 ~ K L K M K N K O K L K M K N K
  O ~@12 K L K M K N K P Q R S T U V W ~ K L K M K N K O K L K M K N K O K L K M K N ~@2
>`.pickRestart({
  A: "[f#3,d4]", B: "[a3,c#4]@15 ~", C: "d4@3 e4", D: "c#4", E: "[f#3,d4], [d3,a3]@7 ~", F: "[c#3,f#3,a3,c#4]@15 ~",
  G: "d4@3 e4, [d3,f#3,a3]@15 ~", H: "[c#3,f#3,a3,c#4]",
  I: "[[a3,f#4]@16 [c#3,f#3,a3,c#4]@13 ~@3, e4@29 ~@3, [d3,d4]@7 ~@9]/2", // D F#m D
  J: "[[d3,a3,d4]@7 ~ [c#3,f#3,a3,c#4]@7 ~, e4@15 ~, f#4 ~]/2", K: "~@14 f5!2", L: "f5@11 ~@5", M: "f5", N: "f5@9 ~@7",
  O: "f5 ~", P: "[f#3,c#4,e4,a4], f5 ~", Q: "[f#3,c#4,e4,g#4]@7 ~", R: "[f#3,c#4,e4]@7 ~, a4", S: "[c#4,c#5]@7 ~",
  T: "[c#4,a4], f#3@7 ~", U: "[f#3,c#4,e4]@7 ~, g#4", V: "[f#3,c#4,e4,a4]", W: "[a3,c#4,c#5]",
})).s("gm_piano").gain(0.23)

// chords · piano · soft notes
const piano_soft = note("<~@8 A B C D ~@87 E F ~@2 G ~@25>".pickRestart({
  A: "[d3,a3]@7 ~", B: "[c#3,f#3]@7 ~", C: "[d3,f#3,a3]@15 ~", D: "[c#3,f#3,a3]", E: "[a3,f4]@7 ~", F: "e4@7 ~",
  G: "f4",
})).s("gm_piano").gain(0.14)

// other · distortion guitar
const distortion_guitar = note(`<
  ~@12 A@2 B@2 A@2 B@2 ~@8 A@2 B@2 A@2 B@2 C D C D E F C F ~@8 A@2 B@2 A@2 B@2 C D C D E F C F A@2 B@2 A@2 B@2 ~@12 C D
  C D E F C F C D C D E F C F A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 ~
>`.pickRestart({
  A: "f#3@2 f#3 g#3 f#3@2 f#3 g#3 f#3 g#3 f#3 a3@2 ~@3", B: "f#3 ~ f#3 g#3 f#3 ~ f#3 g#3 f#3 g#3 f#3 a3@2 ~@3",
  C: "f#3 g#3 f#3 g#3 ~@3 g#3 f#3 g#3 f#3 g#3 ~@4", D: "f#3 g#3 f#3 g#3@2 ~@2 g#3 f#3 g#3 f#3 a3@2 ~@3",
  E: "f#3 g#3 f#3 g#3 ~@3 g#3 f#3 g#3 f#3 g#3@2 ~@3", F: "f#3 g#3 f#3 g#3 ~@3 g#3 f#3 g#3 f#3 a3@2 ~@3",
})).s("gm_distortion_guitar").gain(0.18).pan(0.9)

// bass · electric bass finger
const bass = note("<A@28 B A B A B A B A@17 B A B A B A B A@29 B A B A B A B A@33 ~>".pickRestart({
  A: "f#1 ~@2 f#1 ~@2 f#1@2 e1@2 f#1@3 ~ e1@2", B: "a1 ~@2 a1 ~@2 a1@2 g#1@2 a1@3 ~ g#1@2",
})).s("gm_electric_bass_finger").gain(0.43)

// other · distortion guitar
const distortion_guitar_2 = note(`<
  ~@13 A ~ A ~ A ~ A ~@49 A ~ A ~ A ~ A ~@29 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "~@4 c#4 ~ c#4 ~",
})).s("gm_distortion_guitar").gain(0.18).pan(0.9)

// other · pad choir
const pad_choir = note("<~@96 A@2 B@4 C@2 ~@25>".pickRestart({
  A: "[~@4 f#4@21 ~@3 g#4@4]/2", B: "[f#4@8 f4 f#4 f4@2 d#4@12 f4@4 f#4@30 ~@2 g#4@4]/4",
  C: "[f#4@8 f4 f#4 ~ d#4@13 f4@4 f#4@4, ~@5 f4 ~@10]/2",
})).s("gm_pad_choir").gain(0.44)

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

// drums · snare
const snare = s("sd").struct("<~@4 [~ x ~ x]!124 ~>").gain(0.39)

// drums · hihat
const hihat = s("hh").struct("<~@4 [x!16]!124 ~>").gain(0.39)

// drums · china
const china = s("cr").struct("<~@4 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~@57 A ~ A ~ A ~ A ~ A ~ A ~@42>".pickRestart({
  A: "~@5 x ~@2",
})).gain(0.26)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@4 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 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 ~
>`.pickRestart({
  A: "x ~ x ~ x!11 ~", B: "x ~ x ~ x ~ x ~ x ~ x!6", C: "x!16", D: "x!3 ~ x!3 ~ x ~ x ~ x ~ x ~",
})).gain(0.46)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct(`<
  ~@4 A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A
  B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C A B ~ C
  A B ~ C A B ~ C ~
>`.pickRestart({
  A: "~ x ~ x ~@11 x", B: "~ x ~ x ~ x ~ x ~ x ~@6", C: "~@3 x ~@3 x ~ x ~ x ~ x ~ x",
})).gain(0.26)

// drums · bongos
const bongos = s("bongo:4").struct(`<
  ~@4 A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A
  B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C A B@2 C D E@2 F D E@2 F D E@2 F D E@2 F D E@2 F D E@2 F D E@2 F D E@2 F
  D E@2 F D E@2 F ~
>`.pickRestart({
  A: "~@3 x ~@3 x ~ x ~@3 x ~@2", B: "~@3 x ~@3 x ~ x ~@2 x!2 ~@2", C: "~@3 x ~@3 x ~@4 x!2 ~@2",
  D: "~@3 x ~@3 x ~@5 x ~@2", E: "~@3 x ~@5 x ~@2 x ~@3", F: "~@3 x ~@9 x ~@2",
})).gain(0.52)

// drums · bongos · soft notes
const bongos_soft = s("bongo:4").struct(`<
  ~@4 A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A
  ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B A ~@2 B C D@2 E C D@2 E C D@2 E C D@2 E C D@2 E C D@2 E C D@2 E C D@2 E
  C D@2 E C D@2 E ~
>`.pickRestart({
  A: "~@3 x", B: "~@9 x ~@6", C: "~@9 x ~@2 x ~@3", D: "~@7 x ~@5 x ~@2", E: "~@7 x ~ x ~@2 x ~@3",
})).gain(0.17)

// drums · bongos
const bongos_2 = s("bongo:18").struct(`<
  ~@4 A@84 B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E ~
>`.pickRestart({
  A: "x ~@10 x ~@2 x!2", B: "x ~@13 x!2", C: "x", D: "x ~@14 x", E: "x ~@10 x ~@4",
})).gain(0.52)

// drums · bongos · soft notes
const bongos_soft_2 = s("bongo:18").struct(`<
  ~@4 A@84 B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E ~
>`.pickRestart({
  A: "~ x ~@6", B: "~@2 x ~@8 x ~@4", C: "~@2 x ~@8 x ~@2 x!2", D: "~@2 x ~@8 x ~@2 x ~", E: "~@2 x ~@11 x!2",
})).gain(0.17)

// drums · shaker
const shaker = s("sh").struct("<~@4 [x!16]!124 ~>").gain(0.39)

// drums · jingle bells
const jingle_bells = s("sleighbells:4").struct(`<
  ~@8 A@12 B A@7 B A@7 B A@7 B A@7 B A@7 B A@7 B A@7 B A@15 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 B A@3 ~
>`.pickRestart({
  A: "x ~ x!3 ~ x!3 ~ x!3 ~ x!2", B: "~@2 x!3 ~ x!3 ~ x!3 ~ x!2",
})).gain(0.57)

stack(
  piano, piano_soft, distortion_guitar, bass, distortion_guitar_2, pad_choir, kick, snare, hihat, china, tambourine,
  tambourine_soft, bongos, bongos_soft, bongos_2, bongos_soft_2, shaker, jingle_bells
)