// Vision of Love — Mariah Carey
// 69 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 55 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(69/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 · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  ~@4 A B C D A B C E F G H I A B C D A B C E F G J K L M N O N P Q R A B C D A B C E F G F G J S ~ T U V@2
>`.pickRestart({
  A: "[g3,c4,e4]", B: "[a#3,d4,g4]@5 [a#3,d4,g4]", C: "a3@7 ~@4 a3, f4@3 f4, c4@4 c4!2, ~@7 a3@4 ~",
  D: "[g#3,c4,e4]@5 [g#3,c4,e4]", E: "[g#3,c4,e4]@23 ~", F: "[d#4,g4,c5] [d4,f#4,c5]", G: "[c4,f4,a4] [c4,f4,a4,c5]",
  H: "[c4,e4,g4] [c4,e4,g#4]", I: "[c4,e4,g4]@6 [g#3,c4,e4] ~@5",
  J: "d#4@4 ~ d#3 [d3,d4,f#4,c5]@6, [g4,c5] ~, d#3@5 ~@7, ~@2 d#4 ~@3", // D7 C5
  K: "[f3,c4,f4,a4,c5]@6 [g2,g3,c4,f4,a4,c5] ~@3 [a2,f3,a3,c4,f4]@2", // F
  L: "d4@7 ~ f4 d4 ~ a#4, a#4@9 a#4@2 ~, f4@8 ~ f4@3, ~@7 d4@2 ~ d4@2",
  M: "[e4,g4,c5]@6 [g4,e5]@2 ~@3 c5, ~@2 [a4,f5], ~@5 [g4,e5]", // C Dm C
  N: "[d4,f4,a#4]@6 d4@4 ~ a#4, ~ f4, ~@6 a#4@5 ~, ~@5 d4", O: "[e4,g4,c5]@3 [g4,e5] [a4,f5] [a#4,g5], ~@16 c#5 ~@7",
  P: "e4@4 ~ g4 e4@4 e4@2, c5 ~, g4@5 ~ [g4,c5]@6, ~@2 e4 ~@3", Q: "[c4,f4,a4]!4 c4!2, ~@2 [f4,a4]",
  R: "g3 ~ g3@2 g3@2 g3@2 g3@2 g3@2 [f4,a4]@2 ~@10, [c4,f4,a4]@4 [c4,f4,a4]@4 [c4,f4,a4]@4 [g3,c4] ~@11", // F C5
  S: "[g2,g3,c4,f4,a4,c5] ~@11", T: "g4@4 ~ e4 c4@4 c4@2, [c3,c4] [c3,e4,g#4], e4@5 ~@7, ~@8 g4@5 ~@11",
  U: "e4@4 ~ c4 c4@4 ~ c3, [c3,g4]@13 ~@7 c4@4, c4@5 ~ c3@5 ~, ~@2 e4 [e4,g#4]@3", // C5 E
  V: "[[c3,c4]@8 ~@2 [b2,b3]@2 [a#2,g#3,c4,e4]@11 ~ [c2,c3,c4,d4,e4,g4]@21 ~@3, [e4,g4]@12 ~@12 g2 ~@23, ~@8 [c3,c4]@4 ~@11 g3@21 ~@4]/2", // C B Caug C Em C
})).s("gm_epiano2").gain(0.34)

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~@4 A B C D E F C G H I J K L M C G N O C G H I P Q R S R S T U V W X Y Z AA N O AB AC H I H I AD AE AF J AG AH AI
>`.pickRestart({
  A: "c2@9 ~ c1 ~ c1@8 g1@2 a1@2", B: "c2@10 c1 ~ c1@10 c2@2", C: "f1@9 ~ f1 ~ f1@8 d1@2 d#1@2",
  D: "e1@9 ~ e1 ~ e1@8 g1@2 a1@2", E: "c2@10 c1 ~ c1@8 c2@2 b1@2", F: "a#1@9 ~ a#1 ~ a#1@8 e1@4",
  G: "e1@5 b1 e2@4 e1@2", H: "d#1@9 ~ d#1@2 d1@7 ~ d1@2 e1@2", I: "f1@7 ~ f1@2 f#1@2 g1@9 ~ g1@2",
  J: "c1@9 ~ c1 ~ c1@10 g1@2", K: "c2@7 ~ c2@2 b1@2 a#1@5 ~@7", L: "c2@10 c1 ~ c1@11 ~",
  M: "c1@9 ~ c1 ~ c1@8 g1@2 a1@2", N: "c1@9 ~ c1 ~ c1@8 c2@2 b1@2", O: "a#1@9 ~ a#1 ~ a#1@8 d#1@2 e1@2",
  P: "d#1@4 d#2 d#1 d1@4 d2 d1", Q: "f1@7 ~ f1@2 f#1@2 g1@2 ~@6 a1@3 ~", R: "a#1@5 f1 a#1@4 f1 a#1",
  S: "c2@7 ~ c2@2 b1@2 a1@7 ~ a1@4", T: "a#1@7 ~ d3@2 c3@2 a#2@2 g1@5 ~ g1@2 b1@2",
  U: "c2@8 e2@2 g2@2 a2@4 a1@3 ~ a1@4", V: "d2@3 ~ d2@3 ~ d2@3 ~ d2@3 ~ d2@3 ~ d2@4",
  W: "g1@3 ~ g1@3 ~ g1@3 ~ g1@2 ~@4 g1@5 ~", X: "c1@9 ~ c1 ~ c1@8 g1@2 c2@2",
  Y: "a#1@9 ~ a#1 ~ a#1@5 ~ a#1@2 d#1@2 e1@2", Z: "f1@5 c2 f2@2 c2@2 f1 d#1", AA: "e1@4 b1 a2 g#2@4 e2 b1",
  AB: "f1@9 ~ f1 ~ f1@6 f2@2 c2@2 d#1@2", AC: "e1@10 b1@2 e2@4 b1@4 e1@3 ~",
  AD: "d#1@4 d#2@2 ~@2 d#2@2 d#1 ~ d1@8 d#1@2 e1@2", AE: "f1@7 ~@17", AF: "~@18 g1@5 ~", AG: "c2@5 g1 c1@5 g1",
  AH: "c2@7 ~ c2@2 b1@2 a#1@10 g1@2", AI: "c1@5 ~",
})).s("gm_electric_bass_finger").gain(0.48)

// chords · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note("<~@4 A B C D A E C D ~@4 A B C D A E C D ~@12 A B C D A E C D ~@11>".pickRestart({
  A: "~@6 [e4,g4,c5] ~@11 [e4,g4,c5] ~@5", B: "~@6 [a#3,d4,g4] ~@11 [a#3,d4,g4] ~@5",
  C: "~@6 [a3,c4,f4] ~@11 [a3,c4,f4] ~@5", D: "~@6 [g#3,c4,e4] ~@11 [g#3,c4,e4] ~@5",
  E: "~@6 [e4,g4,c5] ~@11 [a#3,d4,g4] ~@5", // C Gm
})).s("gm_electric_guitar_muted").gain(0.42)

// chords · string ensemble 2 · "SLOWSTRING"
const string_ensemble_2 = note("<A@4 ~@8 B@2 C@2 ~@8 B@2 D@2 ~@16 B@4 E F ~ G@3 H>".pickRestart({
  A: "[[c4,g4,c5,d5,g5]@15 ~]/4", B: "[[d#3,g3]@12 [d3,f#3]@11 ~@13 c4@12, c4@3 ~, ~ [f3,a3]]/2",
  C: "[g3@12 g#3@12 g3@11 ~@13, [c4,e4]@35 ~@13]/2", // C
  D: "[[d#3,g3]@12 [d3,f#3]@11 ~@13 c4@2 ~@10, c4@3 ~, ~@12 [f3,a3]@7 ~@5]/2", E: "[d#3,g3]@12 [d3,f#3]@11 ~, c4",
  F: "[f3,a3] ~@23", G: "[g4 g#4 g4 g#4 g4 [g#3,c4,e4], [c3,c4,e4]@7 ~@2]/3", H: "[c3,c4,d4,e4,g4,c5]@19 ~@5",
})).s("gm_string_ensemble_2").gain(0.25).pan(0.6)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note("<~@28 A B C D E F G H ~@8 I@2 J@2 K L ~ M N O@2>".pickRestart({
  A: "~@4 a#3@2 ~@4 f3@2 ~@4 a#3@2 ~@2 a#3@2 f3 ~, ~@2 f3@4 d4@9 ~@3 d4@5 ~, ~@8 a#3@6 f3@5 ~@5",
  B: "~@4 c4@2 e4@2 c4@2 g3@2 e4@2 g3@2 f4@2 g3@2 e4@2 c4 ~, ~@2 g3@5 ~@17",
  C: "~@4 a#3@2 ~@4 f3@2 ~@4 a#3@2 ~@2 a#3@2 f3 ~, d4@2 ~ d4@5 ~ d4@2 ~, ~@2 f3@5 ~ a#3@6 f3@5 ~@5",
  D: "~@4 c4@2 e4@2 c4@2 g3@2 e4@2 g3@2 f4@2 g3@2 e4@2 g3 ~, ~@2 g3@5 ~@17",
  E: "~@4 a#3@2 ~@2 a#3@2 f3@2 ~@4 a#3@2 d4@2 a#3@2 f3 ~, d4@4 ~@2 d4@5 ~@13, ~@2 f3@5 ~@7 f3@4 ~@6",
  F: "~@4 c4@2 e4@2 c4@2 g3@2 e4@2 g3@2 f4@2 g3@2 e4@2 c4 ~, ~ g3@2 ~@9",
  G: "~@2 a3 ~ a3 f3 ~@2 a3 ~ a3 f3, ~ f3@2 d4@2 ~@2 f3@3 ~@2, ~@18 d4@5 ~",
  H: "a3@2 f3@2 ~@2 f3@2 a3@2 f3@2 d4 ~@11, ~@2 d4@3 ~@7",
  I: "[~@8 g3@2 d#3 ~@21 c3 ~@7 c4@7 ~, ~@2 d#3@6 ~@4 d3@7 ~@5 c3@7 ~@17, ~@4 c4@10 f#3@8 ~@4 f3@6 ~@4 f3@7 ~@5, ~@16 c4@10 ~@2 c4@10 g3@9 ~]/2",
  J: "[~@8 g3@2 d#3 ~@11 d3 ~@8 f3@2 ~ c3 ~@11 f3@2, d#3@8 ~@4 d3@7 ~@5 c3@7 ~@9 c4@8, ~@4 c4@10 f#3@5 ~@7 f3@5 ~@5 f3@7 ~@5, ~@16 c4@10 ~@2 c4@10 g3@5 ~ g3@4]/2",
  K: "~@4 d#3 ~@3 c4@3 ~, d#3@7 ~@5 d3@7 ~@5, ~@2 c4@5 ~@5", L: "[f3,c4] ~@11",
  M: "~@4 g3 ~@6 g#3, g3@7 ~@5 g#3@10 ~@2, ~@2 e4@3 ~@3 e4@4, ~@5 c4",
  N: "~@5 g3 ~@5 g#3, g3@5 ~ g#3@5 ~, ~ e4@2 ~ e4@2, ~@2 c4 ~@2 c4",
  O: "[~@10 b3@2 [g#3,c4]@11 ~ [d4,e4]@20 ~@4, g3@12 ~@11 [g3,c4]@21 ~@4, ~ e4@2 ~@9, ~@2 c4 ~@9]/2", // G# Dsus2 C5
})).s("gm_electric_guitar_clean").gain(0.3).pan(0.7)

// chords · piano · "A.PIANO 2"
const piano = note("<~@16 A B C D E F G H ~@12 I J K L M N O P ~@11>".pickRestart({
  A: "g3@7 g3@2 c4 c4@2, e4@3 [e4,g4], c4@8 ~ g3@2 ~", // Em
  B: "[f3,a#3,d4,f4]@7 [a#3,f4]@2 ~ f3@2, ~@7 d4@5, ~@3 f4, ~@9 a#3@2 ~", // A# A#5
  C: "f4@6 a3@2 a3 ~ c4@2, c4@5 ~, a3@5 ~ f4@3 ~@3, f3@4 ~@5 [a3,f4]@3", // Dm
  D: "e4@6 e4@3 ~ g#3@2, c4@5 ~ c4@2 ~ e4@3, g#3 ~@11", E: "e4@3 [c4,e4,g4], g3@7 ~@5, c4@5 ~@7",
  F: "a#3@5 ~@3 a#3 ~@2 a#3, [d4,f4]@3 [d4,f4], f3@4 ~@5 a#3@2 ~, ~@5 f3", G: "f4@3 a3!2 [a3,f4], c4, a3@5 ~ f4@4 ~@2",
  H: "c4@5 c4 e4@4 [g#3,e4]@2, e4@3 c4 ~@2, g#3 ~@2", I: "g3@8 ~@4 g3@3 ~@5 g3@4, e4!2, c4@5 c4@3 c4@4, ~@2 g3 ~@3",
  J: "f3@4 ~ a#3 [a#3,f4]@2 [a#3,f4]@2 f3 [f3,g#3], d4, a#3@5 ~@5 [a#3,f4]@2, ~@4 f3@3 ~@5", // A#5 Fm A#5
  K: "f3@10 [f3,a#3,d4]@2 [f3,g#3] ~ f3@6 ~@2 a3@2, [a3,c4]@3 c4@2 [f3,c4], ~@13 a3@9 ~@2", // A# Fm Am F5
  L: "~@10 g#3!2, [g#3,c4,e4]@5 [c4,e4], ~ g#4@2, ~@5 c5@7, ~ e5", // G#aug C
  M: "c4@12 [c4,f4,a4]@2 [c4,d#4] ~ c4@4 [c4,g4]@4, [g3,e4]@7 g4@3 ~@2, ~@5 e4@3", // F Cm C5 C
  N: "f3@4 ~ a#3 ~@3 f3 [f3,f4] [f3,g#3,f4], d4@2 ~, a#3@5 ~ [a#3,f4]@2 [a#3,d4,f4]@2 [a#3,d4]@2, ~@4 f3@3 f3@2 ~@3", // F Fm A#5 A#
  O: "f3@14 [f3,c4,d#4]@2 [f3,a#3,d4] ~ [f3,g#3] ~ f3@4, [a3,f4]@17 ~ a3@6, c4 ~@17 c4@2 ~@4", // F7 A# Fm Dm
  P: "~@11 g#3, g#3@5 [c4,e4], [c4,e4]@2 g#4, ~@4 g#4@3 c5@5, ~@5 c5 e5@6", // C
})).s("gm_piano").gain(0.42)

// chords · piano · "A.PIANO 2" · soft notes
const piano_soft = note("<~@16 A B C D E F G H ~@12 I J ~@4 K ~@12>".pickRestart({
  A: "~@8 c4 ~@2 g3", B: "~@7 f3 f3@2 ~ a#3", C: "~@5 a3 ~ f3@5, ~@4 f3@3 ~@5",
  D: "~@5 c4 ~@2 c4@4, ~@4 g#3@3 g#3@3 ~@2", E: "~@5 c4 ~@2 c4 ~ g3@2, ~@2 g4 ~, ~@3 c4 ~@2, ~@7 g3@3 ~@2",
  F: "~@7 f3@3 ~@2, ~@4 f3@3 ~@5, ~@5 a#3@3 ~@4", G: "~@10 a3@2 ~@2 f3@5 f3@3 f3@2, ~@4 f3@3 ~@5",
  H: "~@4 g#3@3 ~ c4@4, ~@7 g#3@3 ~@2", I: "~@15 g3@5 ~@4", J: "~@7 f3@2 f3 ~@2", K: "~@5 c4",
})).s("gm_piano").gain(0.24)

// other · pad new age · "FANTASIA"
const pad_new_age = note("<~@12 A B C ~@7 D E A B A F ~ G H I J K L ~@7 D E A B A B ~@3 M@2 N ~>".pickRestart({
  A: "~@10 d6 c6", B: "f6@3 ~@6 c6 d6 e6", C: "c6 ~@3", D: "f6@2 ~ e6@2 ~ d6@2 ~ c6@2 ~", E: "g#5 ~@5", F: "f6 ~@3",
  G: "~@12 e6@3 ~ f6@3 ~ e6@2 c6@2", H: "d6 ~@3", I: "~@12 e6 ~@3 f6 ~@3 g6 ~@3", J: "c6 ~@23",
  K: "~@12 e6 ~@3 f6 ~@3 e6 ~ c6 ~", L: "d6 ~@23", M: "g6 ~ e6 ~@5 g6 ~ e6 ~@13",
  N: "g5 ~ e5 ~@5 g5 ~ e5 ~@3 e5 ~ c5 ~ g#4 ~@5",
})).s("gm_pad_new_age").gain(0.37).pan(0.3)

// chords · lead 7 fifths · "5THSAWWAVE"
const lead_7_fifths = note("<A@4 ~@51>".pickRestart({
  A: "[~@10 a#4@5 ~, c2, c3@8 g4@7 ~, ~@2 d4@5 ~, ~@6 d#4@9 ~]/4",
})).s("gm_lead_7_fifths").gain(0.27).pan(0.9)

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

// drums · rim
const rim = s("rim").struct("<~@4 [~ x ~ x]!7 [~ x ~@2] ~@4 [~ x ~@2]!8 ~@31>").gain(0.6)

// drums · snare
const snare = s("sd").struct("<~@11 A B@3 C D@8 B@3 E B@7 F B@3 G B@3 H B@3 C B I D B@3 ~>".pickRestart({
  A: "~@9 x!2 ~", B: "~ x ~ x", C: "~ x!3", D: "~@3 x", E: "~@3 x ~@2 x ~@3 x ~", F: "x!7 ~@2 x ~@2",
  G: "~@3 x ~@5 x!2 ~", H: "~@2 x ~@3 x ~@2 x ~@8 x!2 ~@4", I: "x",
})).gain(0.6)

// drums · low tom
const low_tom = s("lt").struct("<~@23 A ~@11 B ~@7 A ~@3 C ~@2 C ~@2 D ~>".pickRestart({
  A: "~@11 x", B: "x!7 ~@4 x", C: "~@10 x!2", D: "~@5 x",
})).gain(0.48)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@4 A B C D E F G H A B C I A B C D E F G H A B A J A B C D E F G ~ A B C D E F G H A B A B A ~@2 A B K ~
>`.pickRestart({
  A: "x ~ x ~@3 x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~", B: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~", C: "x!12",
  D: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~@3", E: "x!2 ~ x ~ x!7", F: "x!2 ~ x ~ x!6 ~", G: "x!2 ~ x!4 ~ x!4",
  H: "x ~ x ~ x ~ x ~@3 x ~ x ~ x!3 ~ x ~ x ~@3", I: "x!6 ~@6", J: "x!7 ~@5", K: "x!9 ~@3",
})).gain(0.24)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@23 [~@5 x] ~@11 [x!7 ~@3 x ~] ~@7 [~@7 x ~@2 x ~] ~@11>").gain(0.36)

// drums · open hat
const open_hat = s("oh").struct("<~@7 A ~ A ~ A ~@7 A ~ A ~ A ~@7 A ~ A ~@5 A ~ A ~ A ~@11>".pickRestart({
  A: "~@11 x",
})).gain(0.24)

// drums · crash
const crash = s("cr").struct(`<
  ~@4 A ~@3 A ~@3 A ~ A ~ A ~@3 A ~@3 A ~ A ~ A ~@3 A ~ A ~ A ~@3 A ~@3 A ~ A ~ A ~@2 A ~ A@2
>`.pickRestart({
  A: "x",
})).gain(0.48)

// drums · ride
const ride = s("rd").struct("<~@12 A@3 B ~@8 A@3 B A@7 ~@9 A@5 ~@2 A@3 ~>".pickRestart({
  A: "x!12", B: "x!6 ~@6",
})).gain(0.24)

// drums · bongos
const bongos = s("bongo:4").struct("<~@16 [~ x ~@2]!8 ~@31>").gain(1.58)

// drums · shaker
const shaker = s("sh").struct("<~@4 A B A B A B A B ~@4 A B A B A B A B ~@12 A B A B A B A B ~@11>".pickRestart({
  A: "x ~@7 x!3 ~ x ~@11", B: "x ~@7 x ~@3 x ~@7 x!3 ~",
})).gain(0.18)

// drums · guiro
const guiro = s("guiro:0").struct("<~@4 [~ x ~@2]!8 ~@43>").gain(7.61)

stack(
  epiano2, bass, electric_guitar_muted, string_ensemble_2, electric_guitar_clean, piano, piano_soft, pad_new_age,
  lead_7_fifths, kick, rim, snare, low_tom, hihat, hihat_soft, mid_tom, open_hat, crash, ride, bongos, shaker, guiro
)