// Pink Cadillac — Aretha Franklin
// 126 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 8 "SYNTH-SHARP" lead 1 square (copy of ch 6 "CLAVINET" clavinet)
// note: Full arrangement: all 123 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(126/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 · "BASS-ELEC.1"
const bass = note(`<
  ~ A B C B A B A B A B A B A B A B A B A B D E F G F H I B J K L M L N B O P E G Q R S L T B U V ~ A B A B A B D E F G
  F H I B J K L M L N B O P E G Q R S L T W U X Y Z AA AB AC AD AE A B A B A B D E F G F H I B J K L M L N B O P E G Q
  AF S L T B U V AG
>`.pickRestart({
  A: "e1 ~@2 d1 b0 ~@2 d1", B: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0@2 d1@2 d#1@2", C: "e1 ~@5 d1@2 b0@2 ~@4 d1@2",
  D: "[d#1,e1] ~@5 d1@2 b0 ~@5 d1@2", E: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0@2 g1@2 g#1@2", F: "a1 ~@5 g1@2 e1 ~@5 g1@2",
  G: "a1 ~ a1 ~ a1@2 g1@2 e1 ~ e1@2 g1@2 g#1@2", H: "a1 ~ a1 ~ a1@2 g1@2 [e1,f1] ~ b0@2 d1@2 d#1@2",
  I: "e1 ~@5 d1@2 b0 ~@5 d1@2", J: "e1@2 ~@4 d1@2 b0 ~@5 d1@2",
  K: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ g#0@2 a0@2 a#0@2, ~@6 e1 ~@9", L: "b0 ~ b0 ~ b0 ~ b0 ~ b0 ~ b0 ~ b0 ~ b0 ~",
  M: "b0 ~ b0 ~ b0 ~ b0 ~ [b0,d1] ~ g#0@2 a0@2 a#0@2", N: "b0 ~ b0 ~ b0 ~ b0 ~ g1 ~@3 a1 ~@3",
  O: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0 ~ d1 ~ d#1@2", P: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0@2 d1@2 d#1@2, ~@6 e1 ~@9",
  Q: "a1 ~ a1 ~ a1@2 g1@2 e1 ~ b0@2 d1@2 d#1@2", R: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0@2 d1@2 d#1@2, ~@12 b0 ~@3",
  S: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ g#0@2 a0@2 a#0@2", T: "b0 ~ b0 ~ b0 ~ b0 ~ b0 ~ b0 ~ d1@2 d#1@2",
  U: "e1 ~ e1 ~ e1@2 d1@2 b0 ~ b0 ~@2 d#1@2 ~, ~@6 d1 ~", V: "e1 ~@15", W: "e1 ~ e1 ~ e1@2 d1 ~ b0 ~ b0@2 d1@2 d#1@2",
  X: "a1@3 g1 e1 ~@2 e1, e1 ~@15", Y: "~@7 e1 g1 ~ g1@2 a1@2 b1@2, ~@12 g1 ~@3", Z: "g1@3 f1 d1 ~@3",
  AA: "g0 ~@5 g0@2 ~@4 g0 ~@3", AB: "a1@6 g1@2 e1 ~@5 e1@2", AC: "~@8 g1 ~ g1@2 a1@2 b1@2, ~@7 e1@2 ~@3 g1 ~@3",
  AD: "g1@6 f1@2 d1@2 ~@4 b0 ~", AE: "~@4 b0@11 ~, ~@4 c#1 ~@11",
  AF: "e1 ~ e1 ~ e1@2 d1 ~ b0 ~ b0@2 d1@2 d#1@2, ~@12 b0 ~@3", AG: "~@4 e1 ~ e1@2 e1@2 ~@6",
})).s("gm_electric_bass_finger").gain(0.56)

// bass · fretless bass · "BASS-ELEC.2"
const bass_2 = note(`<
  ~ A B C B A B A B A B A B A B A B A B A B D E F G F H I B J K L M L N B O P E G Q R S L T B U V ~ A B A B A B D E F G
  F H I B J K L M L N B O P E G Q R S L T W U X Y Z AA AB AC AD AE A B A B A B D E F G F H I B J K L M L N B O P E G Q
  AF S L T B U V AG
>`.pickRestart({
  A: "e2 ~@2 d2 b1 ~@2 d2", B: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1@2 d2@2 d#2@2", C: "e2 ~@5 d2@2 b1@2 ~@4 d2@2",
  D: "[d#2,e2] ~@5 d2@2 b1 ~@5 d2@2", E: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1@2 g2@2 g#2@2", F: "a2 ~@5 g2@2 e2 ~@5 g2@2",
  G: "a2 ~ a2 ~ a2@2 g2@2 e2 ~ e2@2 g2@2 g#2@2", H: "a2 ~ a2 ~ a2@2 g2@2 [e2,f2] ~ b1@2 d2@2 d#2@2",
  I: "e2 ~@5 d2@2 b1 ~@5 d2@2", J: "e2@2 ~@4 d2@2 b1 ~@5 d2@2",
  K: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ g#1@2 a1@2 a#1@2, ~@6 e2 ~@9", L: "b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~",
  M: "b1 ~ b1 ~ b1 ~ b1 ~ [b1,d2] ~ g#1@2 a1@2 a#1@2", N: "b1 ~ b1 ~ b1 ~ b1 ~ g2 ~@3 a2 ~@3",
  O: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1 ~ d2 ~ d#2@2", P: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1@2 d2@2 d#2@2, ~@6 e2 ~@9",
  Q: "a2 ~ a2 ~ a2@2 g2@2 e2 ~ b1@2 d2@2 d#2@2", R: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1@2 d2@2 d#2@2, ~@12 b1 ~@3",
  S: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ g#1@2 a1@2 a#1@2", T: "b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ d2@2 d#2@2",
  U: "e2 ~ e2 ~ e2@2 d2@2 b1 ~ b1 ~@2 d#2@2 ~, ~@6 d2 ~", V: "e2 ~@15", W: "e2 ~ e2 ~ e2@2 d2 ~ b1 ~ b1@2 d2@2 d#2@2",
  X: "a2@3 g2 e2 ~@2 e2, e2 ~@15", Y: "~@7 e2 g2 ~ g2@2 a2@2 b2@2, ~@12 g2 ~@3", Z: "g2@3 f2 d2 ~@3",
  AA: "g1 ~@5 g1@2 ~@4 g1 ~@3", AB: "a2@6 g2@2 e2 ~@5 e2@2", AC: "~@8 g2 ~ g2@2 a2@2 b2@2, ~@7 e2@2 ~@3 g2 ~@3",
  AD: "g2@6 f2@2 d2@2 ~@4 b1 ~", AE: "~@4 b1@11 ~, ~@4 c#2 ~@11",
  AF: "e2 ~ e2 ~ e2@2 d2 ~ b1 ~ b1@2 d2@2 d#2@2, ~@12 b1 ~@3", AG: "~@4 e2 ~ e2@2 e2@2 ~@6",
})).s("gm_fretless_bass").gain(0.4)

// chords · synth brass 1 · "BRASS-SYNTH"
const synth_brass_1 = note(`<
  ~@34 A B@2 C@2 D@2 E@2 F@2 G@2 ~@22 B@2 C@2 D@2 E@2 F@2 G@2 ~@28 B@2 C@2 H@2 E@2 I@2 G@2 ~@2
>`.pickRestart({
  A: "~@4 [g3,d4,g4,d5,b5,d6] ~ [e4,c#5,e5,a5,c#6,e6] ~, ~@8 [b3,b4,g5] ~@3 [a3,c#4,a4] ~@3", // G A Em A
  B: "[~@4 [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,e5,g#5]@2 ~@4 [e4,b4,d5,e5,b5,d6]@5 ~ [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,b4,e5,g#5,b5]@2 ~@6, ~@8 [b4,b5] ~@11 [b4,b5] ~@11]/2", // A E E7 A E B
  C: "[~@4 [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,e5,g#5]@2 ~@4 [e4,b4,d5,e5,b5,d6]@5 ~ [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,b4,e5,g#5,b5]@2 ~@6, ~@8 [b4,b5] ~@23]/2", // A E E7 A E B
  D: "[~@4 [a3,d4,f#4,a4,d5,f#5]@3 ~ [a3,c#4,e4,a4,c#5,e5]@2 ~@4 [a3,e4,g4,a4,e5,g5]@6 [a3,d4,f#4,a4,d5,f#5]@3 ~ [a3,c#4,e4,a4,c#5,e5]@2 ~@6]/2", // D A A7 D A
  E: "[~@4 [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,b4,e5,g#5,b5]@2 ~@4 [e4,b4,d5,e5,b5,d6]@5 ~ [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,b4,e5,g#5,b5]@2 ~@6]/2", // A E E7 A E
  F: "[~@4 [b3,e4,g#4,b4,e5,g#5]@3 ~ [b3,d#4,f#4,b4,d#5,f#5]@2 ~@4 [b3,f#4,a4,b4,f#5,a5]@6 [b3,e4,g#4,b4,e5,g#5]@3 ~ [b3,d#4,f#4,b4,d#5,f#5]@3 ~@5]/2", // E B B7 E B
  G: "[~@4 [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,e5,g#5]@2 ~@4 [e4,b4,d5,e5,b5,d6]@5 ~ [e4,a4,c#5,e5,a5,c#6]@3 ~ [e4,g#4,b4,e5,g#5,b5]@2 ~@6, ~@8 [b4,b5] ~@5 [c5,c6] ~@17]/2", // A E E7 A E B C
  H: "[~@4 [a3,d4,a4,d5]@4 [a3,c#4,e4,a4,c#5,e5]@2 ~@5 [a3,g4,a4,g5]@5 ~ [a3,f#4,a4,f#5]@3 [a3,c#4,e4,a4,c#5,e5]@2 ~@6, ~@2 [f#4,f#5] ~@4 [e4,e5]@3 [d4,d5] ~@5]/2", // D5 A A7 D A F# E D
  I: "[~@4 [b3,e4,g#4,b4,e5,g#5]@3 ~ [b3,d#4,f#4,b4,d#5,f#5]@2 ~@4 [b3,f#4,a4,b4,f#5,a5]@5 ~ [b3,e4,g#4,b4,e5,g#5]@3 ~ [b3,d#4,f#4,b4,d#5,f#5]@3 ~@5]/2", // E B B7 E B
})).s("gm_synth_brass_1").gain(0.48)

// chords · distortion guitar · "GUITAR-SYNTHY"
const distortion_guitar = note(`<
  ~@7 A B A B A B A B ~@16 C@3 D E F E F G H E F I J E F K L@5 ~@12 C@3 D E F E F G H E F I J E F M@4 N@2 O P Q R Q R Q
  R Q F G H G H E F E F C@3 D E F E F G H E F I J E F K S
>`.pickRestart({
  A: "~@4 [g#3,a#3,b3,d4,e4,f#4] [g#3,b3,d4,e4]!2 [g#3,b3,d4] [g#3,b3,d4,e4] ~@7", // G#m7b5 E7 G#dim E7
  B: "~@2 [g#3,a#3,b3,d4,e4,f#4] [g#3,b3,d4,e4]!4 [g#3,b3,d4] [g#3,b3,d4,e4] ~@7", C: "[d#3,f#3,a3,b3]!16",
  D: "[d#3,f#3,a3,b3]!8 [g3,b3,d4] ~@3 [a3,c#4,e4] ~@3", // B7 G A
  E: "e3!4 [g#3,a#3,b3,d4,e4,f#4] [g#3,b3,d4,e4]!2 [g#3,b3,d4] [g#3,b3,d4,e4] ~@5 e3!2", // G#m7b5 E7 G#dim E7
  F: "e3!2 [e3,g#3,a#3,b3,d4,e4,f#4] [e3,g#3,b3,d4,e4] [g#3,b3,d4,e4]!3 [g#3,b3,d4] [g#3,b3,d4,e4] ~@7", // E7 G#dim E7
  G: "a3!4 [c#4,d#4,e4,g4,a4,b4] [c#4,e4,g4,a4]!2 [c#4,e4,g4] [c#4,e4,g4,a4] ~@5 a3!2", // C#m7b5 A7 C#dim A7
  H: "a3!2 [a3,c#4,d#4,e4,g4,a4,b4] [a3,c#4,e4,g4,a4] [c#4,e4,g4,a4]!3 [c#4,e4,g4] [c#4,e4,g4,a4] ~@7", // A7 C#dim A7
  I: "b2!4 [d#3,f3,f#3,a3,b3,c#4] [d#3,f#3,a3,b3]!2 [d#3,f#3,a3] [d#3,f#3,a3,b3] ~@5 b2!2", // D#m7b5 B7 D#dim B7
  J: "b2!2 [b2,d#3,f3,f#3,a3,b3,c#4] [b2,d#3,f#3,a3,b3] [d#3,f#3,a3,b3]!3 [d#3,f#3,a3] [d#3,f#3,a3,b3] ~@7", K: "e3!16",
  L: "[e3!15 e3@63 ~@2]/5", M: "[~@22 b3@9 ~@14 d5@14 ~@3 b4@2, e3@33 ~@26 c#5@5, ~@31 d3@33]/4",
  N: "[~@4 a4@9 ~ e4@16 d3 g4, e3@31 ~]/2",
  O: "~@2 [f#2,a2,b2,d#3] ~@3 [b2,d#3,f#3] ~@3 [d#3,f#3,a3] ~@3 [d#3,f#3,a3,b3] ~", P: "~ [d#3,f#3,a3,b3]@3",
  Q: "e3!4 ~@10 e3!2", R: "e3!4 ~@12", S: "e3!4 e3@2 e3@2 e3 ~@7",
})).s("gm_distortion_guitar").gain(0.4)

// chords · pad new age · "SYNTH-SPACEY"
const pad_new_age = note("<~@49 A@8 B@8 ~@16 C@4 D@2 ~@36>".pickRestart({
  A: "[~@12 e5@3 ~, e4, [g#4,b4,d5]@125 ~@3]/8", // G#dim
  B: "[~@42 e5@19 ~@36 e5@23 ~@8, g4@63 ~ g#4@56 ~@8, [a4,c#5]@61 ~@2 d5@57 ~@8, ~@65 b4@55 ~@8]/8", // A
  C: "[~@22 b4@9 ~@14 d6@14 ~@3 b5@2, e4@33 ~@26 c#6@5, ~@31 d4@33]/4", D: "[~@4 a5@9 ~ e5@16 d4 g5, e4@31 ~]/2",
})).s("gm_pad_new_age").gain(0.32)

stack(bass, bass_2, synth_brass_1, distortion_guitar, pad_new_age)