// Babydoll — Mariah Carey
// 63 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 80 bars on a 32-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(63/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
const bass = note(`<
  ~@2 A B C D C E F G H I J K L M J N O P@2 C D C E F G H I J K L M J N O Q@2 R S T U T V W X J K L M J N O Y J K L M J
  N O Y ~@2 A B J K L M J K L M J N O Y Z K
>`.pickRestart({
  A: "~@25 e2@3 d2@2 c#2 ~, ~@12 f#2 ~@3", B: "c#2@13 ~@3 e2@7 ~ d2@5 ~@3", C: "c#2@2 ~@28 f#1 ~",
  D: "f#1@2 ~ f#1 ~@2 f#1@2 ~@24", E: "f#1@2 ~@14 f#1@8 a1@7 ~", F: "c#2 ~@29 f#1 ~", G: "f#1 ~@2 f#1 ~@2 f#1 ~@25",
  H: "c#2 ~@15", I: "f#1@8 c#2@5 ~@3", J: "a1@16 c#2@12 ~@2 f#1 ~", K: "f#1@2 ~ f#1 ~@2 f#1@3 ~@7 c#2@8 e2@8",
  L: "d2@4 ~@12 f#2@4 e2@4 d2@4 c#2@3 ~", M: "g#1@16 c#2@15 ~", N: "f#1@2 ~ f#1@2 ~ f#1@3 ~@7 e2@8 c#2@6 ~@2",
  O: "d2@3 ~@29", P: "[d2@8 c#2@8 e2@8 a1@31 ~@9]/2", Q: "[d2@8 c#2@8 e2@8 ~@24 f#2@4 e2@4 c#2@7 ~, ~@24 a1@31 ~@9]/2",
  R: "d2@3 ~@9 [a3,c#4,f#4]@18 c#2 ~, c#2 ~@31", S: "c#2 ~@2 c#2 ~@2 c#2 ~@5 [g#3,c#4,e4]@20",
  T: "d2@3 ~@9 [a3,c#4,f#4]@18 c#2 ~", U: "c#2 ~@7 [f#2,b3,e4]@4 [e2,g3,a3,c#4,e4]@4, ~@16 g3@5 ~@11",
  V: "c#2 ~@2 c#2 ~@2 c#2 ~@5 [g#3,c#4,e4]@18 ~@2", W: "d2@3 ~@9 [a3,c#4,f#4]@16 ~@2 c#2@2",
  X: "[f#3,g#3,b3,d4]@11 ~@6 g#3@14 ~, g#1@8 [c#2,b3,c#4,e4]@7 ~", Y: "d2 c#2 e2 a1", Z: "a1@15 ~ c#2@12 ~@2 f#1 ~",
})).s("gm_electric_bass_finger").gain(0.28)

// chords · epiano2
const epiano2 = note(`<
  A B C D ~@8 E F G H I J K L@2 ~@8 E F G H I J K L@2 M N O P Q R@2 S E F G H I J K T@2 F G H I J K U@2 B C D E F G H E
  F G H I J K T@2 F
>`.pickRestart({
  A: "[c#3,g#3,c#4]@15 ~ [c#3,c#4]@6 [d3,d4]@4 e3@4 ~@2, e4@6 ~@7 e4 ~@2", // C#5 C# D
  B: "[a3,c#4,f#4]@13 ~@3 [g3,b3,f#4]@7 ~ [g3,b3,e4]@6 ~@2", // F#m Gmaj7 Em
  C: "[a3,e4]@19 g#3@4 ~ f#4@2 e4@2 d4@2 c#4 ~, [d3,f#3]@25 ~@7", // A5 D
  D: "[f#3,g#3,b3,c#4]@13 ~ c#4 ~ e4@7 ~ d4@7 ~, ~@15 d4@2 ~@15, ~@16 [g#3,c#4]@15 ~", // F#sus4 C#5
  E: "[a2,b3,c#4,e4]@13 ~@3 [c#3,c#4]@6 [d3,d4]@4 [e3,e4]@4 ~@2", // A C# D E
  F: "~@8 f#3@7 ~ [g3,b3]@7 ~ [g3,b3,e4]@4 ~@4, [a3,c#4,f#4]@3 ~ f#4 ~@3", // G Em F#m
  G: "[d3,f#3,a3]@14 ~@2 f#3@3 ~ e3@4 d3@4 c#3@2 ~@2, c#4@25 ~@7", // D
  H: "[g#2,f#3,b3,d4]@12 ~@3 c#4 e4 ~@7 d4@6 ~@2, ~@15 d4@2 e4@12 ~@3, ~@4 [g#3,c#4]@3 ~", // G#m7b5 C#5
  I: "[a2,b3,c#4,e4]@13 ~@3 [c#3,c#4]@6 [d3,d4]@4 e3@5 ~, ~@13 e4 ~@2", // A C# D
  J: "~@2 f#3@2 [g3,b3]@2 [g3,b3,e4] ~, [a3,c#4,f#4]@3 ~ f#4 ~@3", K: "[d3,f#3,a3,c#4]@27 ~@5",
  L: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@4 ~@4 [g3,b3,e4]@7 ~ [a2,g3,b3,d4]@34 ~@6]/2", // D F#m Em G
  M: "~@6 f#4@21 ~@3 a4@2, f#3@21 ~@11, ~@2 a3@25 ~@5, ~@4 c#4@23 ~@5",
  N: "g#4@4 a4@2 e4@3 ~ c#4 ~ f#4@11 ~ [g#3,c#4]@5 ~@3, g#3@11 ~@5, c#4@5 ~@7 e4@4", // C#5
  O: "~@4 c#4@2 f#4@17 ~@7 a3@2, f#3@13 ~@3, ~@2 a3@25 ~@5",
  P: "~ e4@9 g#3@3 ~ a3 ~ [b3,c#4,e4]@7 ~ [b3,c#4,e4]@6 ~@2, c#4@11 ~@21, g#3 ~@3", // C#m7
  Q: "~@3 f#4@10 ~@3, f#3@7 ~, ~@2 a3@25 ~@5, ~@4 c#4@23 ~@5",
  R: "[[g#3,c#4,e4]@26 ~@12 f#4@19 ~@7, c#3@9 ~@6 f#2@13 ~@4, ~@16 f#3@13 ~@3, ~@34 a3@25 ~@5, ~@18 c#4@11 ~@3]/2", // C#m
  S: "[g#3,b3,d4]@13 ~@3 [g#3,c#4,e4]@14 ~@2, f#3 ~", // G#dim C#m
  T: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@4 ~@4 [g3,b3,e4]@7 ~ [a2,b3]@8 [c#4,e4]@13 ~@3 [c#3,c#4]@6 [d3,d4]@4 [e3,e4]@4 ~@2, ~@12 g3@17 ~@3, ~@12 d4@15 ~@5, ~@16 [a2,b3]@13 ~@3]/2", // D F#m Em Asus2 C#m C# D E …
  U: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@4 ~@4 [g3,b3,e4]@7 ~@9 [c#3,g#3,c#4]@15 ~ [c#3,c#4]@6 [d3,d4]@4 e3@4 ~@2, ~@12 [a2,g3,b3]@17 ~@3, ~@12 d4@15 ~@5, ~@16 e4@6 ~@7 e4 ~@2]/2", // D F#m Em C#5 C# D Em
})).s("gm_epiano2").gain(0.22).pan(0.4)

// chords · electric guitar jazz
const electric_guitar_jazz = note(`<
  A B C D E@2 F ~ G ~ H I J K L M N O P Q@2 F ~ G ~ R ~ H S T U V W T X Y Z@2 ~@8 J K L M N O P AA@2 AB AC AD N O P AE@2
  B C D J K L M J K L M N O P AF@2 K
>`.pickRestart({
  A: "[g#3,c#4,e4]@27 ~@5", B: "[a3,c#4,f#4]@14 ~@3 g3@6 ~ [g3,b3,e4]@6 ~@2, ~@16 [b3,f#4]@7 ~@9",
  C: "[f#3,a3,e4]@25 ~@7", D: "[f#3,g#3,b3,d4]", E: "[~@12 [g#3,c#4,e4]@25 ~@27]/2", F: "~@12 [g#3,c#4,e4]@19 ~",
  G: "~@6 [g#3,c#4,e4]@9 ~", H: "~@3 [g#3,c#4,e4]@4 ~", I: "[g#3,c#4,e4]@11 ~@5 [a3,c#4,f#4]@10 ~@6",
  J: "[a3,b3,c#4,e4]@15 ~@17", K: "[a3,c#4,f#4]@9 ~@7 [g3,b3,e4]@6 ~@2 [a3,c#4,e4]@4 ~@4, ~@12 g3 ~@3",
  L: "[a3,c#4,d4,f#4]@11 ~@5", M: "[f#3,g#3,b3,d4]@10 ~@6 [b3,c#4,e4]@13 ~@3, ~@8 g#3@5 ~@3",
  N: "[a3,b3,c#4,e4]@17 ~@15", O: "[a3,c#4,f#4]@10 ~@6 [g3,b3,e4]@5 ~@3 [g3,a3,c#4,e4]@7 ~",
  P: "~@8 d4@9 ~@15, [a3,c#4,f#4]@17 ~@15", // F#m
  Q: "[[a3,d4,f#4]@3 ~ [a3,c#4,f#4]@2 ~@2 [g3,b3,e4]@3 ~ [g3,b3,d4]@17 ~@3]/2", R: "~@3 [g#3,c#4,e4]@5",
  S: "[g#3,c#4,e4]@10 ~@6 [a3,c#4,f#4]@9 ~@7", T: "[a3,b3,c#4,e4]@21 ~@11",
  U: "[a3,c#4,f#4]@5 ~@3 [g3,b3,e4]@2 ~@2 [g3,a3,c#4,e4]@3 ~", V: "[a3,c#4,d4,f#4]@19 ~@13",
  W: "[g#3,b3,d4]@10 ~@6 [b3,c#4,e4]@11 ~@5, f#3@7 ~@9 g#3@8 ~@8", // G#dim C#m7
  X: "[a3,c#4,f#4]@9 ~@7 [g3,b3,e4]@6 ~@2 [g3,a3,c#4,e4]@8", Y: "[a3,c#4,d4,f#4]@23 ~@9",
  Z: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@3 ~@5 [g3,b3,e4]@7 ~ [g3,b3,d4]@32 ~@8]/2", // D F#m Em G
  AA: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@4 ~@4 [g3,b3,e4]@6 ~@2 b3@8 [a3,c#4,e4]@21 ~@11, ~@12 [g3,d4]@17 ~@3, ~@32 b3@25 ~@7]/2", // D F#m Em A G5
  AB: "[a3,c#4,f#4]@5 ~@3 [g3,b3,e4]@3 ~ [g3,a3,c#4,e4]@2 ~@2", AC: "[a3,c#4,d4,f#4]@21 ~@11",
  AD: "[g#3,b3,d4]@9 ~@7 [g#3,b3,c#4,e4]@11 ~@5, f#3@3 ~@13", // G#dim C#m7
  AE: "[[a3,d4,f#4]@6 ~@2 [a3,c#4,f#4]@4 ~@4 [g3,b3,e4]@6 ~@10 [g#3,c#4,e4]@27 ~@5, ~@12 [g3,b3,d4]@17 ~@3]/2", // D F#m Em C#m G
  AF: "[[a3,d4,f#4]@3 ~ [a3,c#4,f#4]@2 ~@2 [g3,b3,e4]@3 ~ b3@4 [a3,c#4,e4]@8 ~@8, ~@12 [g3,d4]@17 ~@3, ~@16 b3@13 ~@3]/2", // D F#m Em A G5
})).s("gm_electric_guitar_jazz").gain(0.2).pan(0.6)

// chords · glockenspiel
const glockenspiel = note(`<
  ~@11 A@2 ~@3 B ~@2 C@2 ~@7 D@2 ~@3 E ~@2 F@2 ~@8 G ~@3 H ~@2 I@2 ~@3 J ~@7 K ~@3 L ~@3 M ~@3 N ~
>`.pickRestart({
  A: "[~@33 g6@7 ~@24, ~@16 g9@4 c9 b8 a8 g8 f8 [d8,e8] c8 b7 [g7,a7] f7 [d7,e7] c7 [a6,b6]@8 ~@24, ~@17 f9@23 ~@24, ~@9 e9@11 ~@12, ~@19 d9@21 ~@24]/2", // Dsus2 Gsus2 Dsus2 Asus2
  B: "~@9 g6@4 ~@3, ~ g9@6 b8 a8@4 [b7,c8] [g7,a7] f7 [d7,e7] c7 [a6,b6]@10 ~@5, ~@4 [e9,f9]@23 ~@5, ~@5 d9@4 [f8,g8]@18 ~@5, ~@6 c9@4 e8 d8@16 ~@5", // Cmaj7 Gsus2 Dsus2 Asus2 Fmaj7 Fsus2
  C: "[~@48 c6@5 ~@11, ~@26 g9@6 a8 g8 [e8,f8] d8 c8 b7 a7 g7 [e7,f7] d7 c7 b6 a6 g6 f6 [d6,e6]@6 ~@11, ~@27 f9@4 b8@22 ~@11, ~@29 e9@24 ~@11, ~@30 [c9,d9]@23 ~@11]/2", // Fmaj7 Dsus2 Csus2
  D: "[~@46 d6@3 ~@15, ~@24 [f9,g9]@14 a7 [f7,g7] e7 d7 [b6,c7] a6 [f6,g6] e6@4 ~@15, ~@25 e9@3 b8 a8@2 g8@19 ~@14, ~@26 d9@6 f8 e8@2 d8@15 ~@14, ~@27 c9@9 c8 b7@13 ~@14]/2", // Fsus2 Cmaj7 Fsus2
  E: "~@5 [d6,e6] ~@2, ~@2 g9@4 c9 b8 a8 [f8,g8] e8 d8 [b7,c8] a7 [f7,g7] [d7,e7] c7 b6 [g6,a6] f6@5 ~@8, ~@3 f9@21 ~@8, ~ e9@5 ~@2, ~@5 d9@19 ~@8", // Dsus2 Fsus2 Cmaj7 Fsus2 Dsus2 Gsus2
  F: "[~@49 c6@3 ~@12, ~@24 g9@4 b8 a8 g8 f8 e8@2 d8 c8 b7 [g7,a7] f7 e7 d7 c7 b6 a6 g6 f6 e6@2 d6@4 ~@12, ~@25 [e9,f9]@27 ~@12, ~@13 d9@13 ~@6, ~@27 c9@25 ~@12]/2", // Gsus2 Fmaj7
  G: "~@19 g6@8 ~@5, ~@4 g9@4 b8 a8@3 c8 [a7,b7] g7 [e7,f7] d7 [b6,c7] a6@8 ~@6, ~@5 f9@5 [f8,g8]@17 ~@5, ~@6 e9@5 [d8,e8]@16 ~@5, ~@7 [c9,d9]@20 ~@5", // Asus2 Fmaj7 Cmaj7 Fsus2 Dsus2 Csus2
  H: "~@16 g6@3 ~@13, ~@2 g9@4 [a8,b8] [f8,g8] [d8,e8] c8 [a7,b7] [f7,g7] [d7,e7] c7 b6 a6@4 ~@13, ~@3 f9@16 ~@13, ~@4 [d9,e9]@15 ~@13, ~@5 c9@14 ~@13", // Asus2 Fsus2 Dsus2 Asus2 Fsus2 Dsus2
  I: "[~@45 c6@3 ~@16, ~@23 g9@4 [a8,b8] g8 f8 e8 d8 c8 b7 a7 g7 f7 e7 [c7,d7] b6 a6 g6 f6 e6 d6@4 ~@16, ~@3 f9@3 ~@2, ~@25 [d9,e9]@23 ~@16, ~@13 c9@11 ~@8]/2", // Asus2 Csus2 Dsus2
  J: "~@20 f6@3 ~@9, ~@2 g9@5 [g8,a8] f8 e8 [c8,d8]@14 ~@8, ~@4 f9@7 b7 [g7,a7] f7 e7 [c7,d7] b6 a6@2 g6@4 ~@9, ~@5 [d9,e9]@19 ~@8, ~@6 [b8,c9]@17 ~@9", // Gsus2 Csus2 Gsus2 Csus2 Dsus2 Cmaj7
  K: "~@17 f6@7 ~@8, g9@4 c9 b8@6 [g7,a7] f7 e7 [c7,d7] b6 [g6,a6]@9 ~@7, ~ f9@5 [g8,a8]@19 ~@7, ~@2 e9@5 f8 e8 d8@16 ~@7, ~@3 d9@7 [b7,c8]@15 ~@7", // Gsus2 Csus2 Gsus2 Cmaj7
  L: "~@8 e6@3 ~@5, g9@4 [a8,b8]@2 [e8,f8] d8 c8 [a7,b7] [f7,g7] [d7,e7] c7 [a6,b6] g6 f6@7 ~@10, ~ f9@4 g8@17 ~@10, ~ [d9,e9]@10 ~@5, ~@3 c9@19 ~@10", // Asus2 Fmaj7 Asus2 Fsus2 Dsus2 Asus2 Dsus2
  M: "~@17 c6@3 ~@12, g9@4 [g8,a8]@5 [f7,g7] e7 [c7,d7] b6 a6 [f6,g6] e6 d6@4 ~@12, ~ [e9,f9]@19 ~@12, ~@2 [c9,d9]@3 f8 [d8,e8]@14 ~@12, ~@3 b8@4 c8 [a7,b7]@12 ~@12", // Gsus2 Fsus2 Csus2 Fsus2 Fmaj7 Csus2 Dsus2 Asus2
  N: "~@5 g9 ~@11 [e6,f6]@6 ~@9, ~@6 [e9,f9]@5 [c8,d8] [a7,b7] [f7,g7] [c7,d7,e7] [a6,b6] g6@6 ~@10, ~@7 d9@3 [e8,f8]@13 ~@9, ~@8 [b8,c9]@15 ~@9, ~@9 [g8,a8]@14 ~@9", // Fmaj7 Csus2 Asus2 Fsus2 C Asus2 Fmaj7 Cmaj7 …
})).s("gm_glockenspiel").gain(0.09).pan(0.4)

// drums · kick
const kick = s("bd").struct(`<
  ~ A ~ B C D C E C D C F C D C E C D C G H C D C E C D C F C D C E C D C G H C D C E C D C F C D C E C D C G C D C E C
  D C G ~ A ~ B C D C E C D C E C D C G C D
>`.pickRestart({
  A: "~@2 x!3 ~@27", B: "x ~@13 x!3 ~@7 x!8", C: "x ~@5 x ~@8 x", D: "x ~@2 x ~ x ~@16 x ~@3 x ~ x ~@3",
  E: "x ~@15 x!2 ~@4 x!2 ~@2 x ~ x ~@3", F: "x ~@15 x ~@2 x ~@2 x!2 ~ x!4 ~@3", G: "x", H: "x ~@21 x!2 ~ x!4 ~@3",
})).gain(0.43)

// drums · snare
const snare = s("sd").struct("~ x ~ x").gain(0.48)

// drums · hihat
const hihat = s("hh").struct("x!7 ~ x!8").gain(0.38)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("~@7 x ~@8").gain(0.19)

// drums · cabasa
const cabasa = s("cabasa:4").struct(`<
  A B A B C D A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A
  B A B A B A B A B A B A B A B A B A B A B
>`.pickRestart({
  A: "~ x!3 ~@3 x ~@5 x ~@2", B: "~@10 x!2 ~@4", C: "~@3 x ~ x ~@7 x ~@13 x ~@4", D: "~@21 x ~@10",
})).gain(1.21)

stack(bass, epiano2, electric_guitar_jazz, glockenspiel, kick, snare, hihat, hihat_soft, cabasa)