// Thank God I Found You — Mariah Carey
// 65 bpm, 4/4, key A# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: Full arrangement: all 70 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(65/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(`<
  ~@9 A B A B C D E F G H I J K L M N O N O A B A B C D E F P Q R J K S T U T V W X Y Z AA AB AC AD AE AF AG AH AE AF AG
  AI AJ AK@5 AL@2
>`.pickRestart({
  A: "eb2@4 f2@4 d2@3 eb2@5", B: "eb2@4 f2@3 bb1@9", C: "c2@4 f1 g1 bb1 c2", D: "bb1@14 f1 bb1", E: "a1@2 d2 gb1",
  F: "g1@8 f1@6 f2 f1", G: "d2@4 d1@4 eb1 eb2 ~ eb1 ~ gb2 ~ d2, ~@6 d1 ~", H: "bb1@7 f1 bb1@4 bb1@2 d2 [f2,g2]",
  I: "a1@8 d2@3 a1 gb2@3 d1, f2 ~@15", J: "g1 f1", K: "eb1@8 f1@2 f2 f1 f2 f1 f2 f1",
  L: "bb1@4 a1@4 g1@2 d3 f3@3 c3 d3", M: "bb2@2 ~@6 f3@2 eb3 d3@3 c3 bb2", N: "bb2 a2 g2 f2", O: "eb2@8 f2 c2 f1@6",
  P: "d2@4 d1@4 eb1 eb2 ~ eb1 d1 ~ gb2 d2", Q: "bb1@7 f1 bb1@4 bb1@2 [d2,f2] [f2,g2]", R: "a1@8 d2@3 a1 gb2@3 d1",
  S: "bb1@6 f2 [g2,bb2] d3 c3 bb2 g2 f2 d2 c2 bb1", T: "d1@2 d2 d1 gb1@2 gb2 gb1",
  U: "g1@4 d1@4 g1@2 bb1 d2 g2 d2 bb1 g1", V: "g1@3 g2 d1@3 g1 f1@4 bb1@2 g1 f1",
  W: "eb2@3 eb1 eb2@2 eb2 eb1 d1@3 d2 gb2 gb1 gb2 gb1", X: "g1@2 g2 g1 g2 g1 g2 bb2 c3@3 g2 c2@4, ~@12 e2 ~@3",
  Y: "f2 f1 f2 f1@2 f1 f2 f1 f2 f1 f2 f1@2 f1 f2 f1", Z: "f2 f1 f2 f1@2 f1 f2 f1 f2@4 f1@4", AA: "db1@14 ab0 db1",
  AB: "c1@2 f1 a0", AC: "bb0@8 ab0@6 ab1 ab0", AD: "f1@4 f0@4 gb0 ~ gb1 gb0 f0 ~ a1 f1",
  AE: "db1@7 ab0 db1@4 db1@2 f1 [ab1,bb1]", AF: "c1@8 f1@3 c1 a1@3 f0, ab1 ~@15", AG: "bb0 ab0",
  AH: "gb0@8 ab0@2 ab1 ab0 ab1 ab0 ab1 ab0", AI: "gb0@9 ab0@2 bb0@2 ~ c1@2", AJ: "~ eb1@5 db3@10",
  AK: "[f3@2 eb3 db3 ab2@2 c3@8 f2@4 a2@4 bb2@8 ~ ab2@9 gb2@10 ab2@3 c3@4 bb2@5 ab2@6 db3@12]/5",
  AL: "[~ ab2@2 db2@3 ab1@3 db1@21 ~@2]/2",
})).s("gm_electric_bass_finger").gain(0.54).pan(0.6)

// chords · piano
const piano = note(`<
  ~ A B C D E F E F G H G I J K L M N K L M O E P E F E F G H G I J K L M N K L M O Q R S R T U V W X Y Z AA AB Y Z AA
  AC Y Z AA AD@5 AE@4
>`.pickRestart({
  A: "[f4,bb4,d5]@3 f4 d5@2 ~ f4 [f4,bb4,eb5]@4 d5@2 c5 bb4, bb3, ~ [f4,bb4] ~ [f4,bb4], ~@3 f5 ~@4", // Bb Ebsus2 Bb5
  B: "c5@2 c5 f4 [d3,g4,a4,d5]@2 [gb3,gb4,a4,c5]@2, [a3,a4] ~, f4@3 ~@5", // Dsus4 Gbdim A
  C: "bb4 c5 a4 f4 bb4 c5 a4 f4, [g3,g4] f3, f4@3 ~ f4@3 ~", // G
  D: "g4 a4 bb4 c5 d5 c5 bb4 a4, [eb3,d4] [f3,f4], ~@4 a4@3 ~", // Ebmaj7 F
  E: "bb4@2 f5@2 c5@2 bb4 f5 bb4@2 bb4 f5 a4@2 a4 bb4, bb3 [a3,a4] [g3,g4] [f3,f4]", // A G F
  F: "[eb3,bb3,eb4,g4]@4 d5 c5 bb4 a4, ~ [f3,f4]", // Eb F
  G: "[eb2,eb3,bb3,d4,eb4,g4]@4 [f2,f3,c4,f4,a4]@4 [d2,d3,c4,f4,a4]@3 [eb2,eb3,bb3,d4,g4]@5", // Ebmaj7 F Dm7 Ebmaj7
  H: "[eb2,eb3,bb3,d4,eb4,g4]@4 [f2,f3,c4,f4,a4]@3 a4@4 bb4 ~@3 bb3, ~@7 [bb1,bb2]@9, ~@7 [d4,f4]@6 f4@3, ~@3 a4, ~@7 d4", // Ebmaj7 F Bb Dm
  I: "g3 a3@2 bb3 [f2,f3,a3,c4,f4]@3 f4@2 ~ c4 a3 ~ c4 f4@2, [eb2,eb3,bb3,d4,eb4,g4]@4 ~@3 [bb1,bb2,d4]@9, ~@7 a3@4 ~ a3@4, ~@9 f4@5 ~@2", // F Ebmaj7 Bb
  J: "g3 ~@4 eb4@3 [f2,f3,g3]@2 g2@2 bb2@2 [c3,c4]@2, [c2,c3]@4 ~ g3@3, eb4@3 c4@5 eb4@8, [bb3,c4] bb3@3 c4@3 ~, ~ g3@7 bb3@4 bb3@4", // Fsus2 C Bbsus2
  K: "d5@4 d5@2 f5@2 eb5@3 ~ d5@4, [f4,bb4], [bb2,bb3]@11 [bb2,bb3]@5", // Bb5 Bb
  L: "c5@2 c5 eb5 [d3,d4,bb4,d5]@2 [gb2,gb3,a4,c5]@2, [a2,a3,f4,a4] gb4", // Gm Gbdim Dm
  M: "bb4 c5 a4 f4 bb4 c5 a4 f4, [g2,g3,d4,g4] [f2,f3,d4], ~@4 f4@3 ~", // G5 Dm
  N: "[d3,a3,d4,g4]!2 [d3,a3,d4,gb4]!2 [d3,a3,d4,g4]!2 [d3,a3,d4,gb4]!2", // Dsus4 D Dsus4 D
  O: "g4 a4 bb4 c5 d5 c5 bb4 a4, [eb2,eb3,bb3,d4] [f2,f3,f4], ~@4 a4@3 ~", // Ebmaj7 F
  P: "g4 a4 bb4 c5 d5 c5 bb4 a4, [eb3,bb3,eb4] [f3,f4]", // Eb5 F
  Q: "[bb1,bb2]@2 ~ [f3,bb3,d4] [f3,bb3,eb4]@2 [f3,bb3,d4]@2, [f3,bb3,d4]@3 ~@5, ~ [bb1,bb2] [bb1,bb2]@2", // Bb Ebsus2 Bb
  R: "[a3,d4,g4]!2 [a3,d4,gb4]!2, [d2,d3]!2", S: "[g3,bb3,d4,g4]!4", T: "[g3,bb3,d4,g4]!2 [bb3,d4,f4,ab4]!2",
  U: "[eb3,bb3,d4,eb4,g4]!2 [d3,a3,d4,gb4]!2", V: "[bb3,d4,f4,g4]!2 [bb3,c4,e4,g4]!2, g3 c3",
  W: "[bb3,eb4,g4]!4, [f2,f3]!2", X: "[bb3,eb4,g4]!8, [f2,f3]!4",
  Y: "f5@4 f5@2 ab5@2 gb5@3 ~ f5@4, [ab4,db5], [db3,db4]@11 [db3,db4]@5", // Db5 Db
  Z: "eb5@2 eb5 gb5 [f3,f4,db5,f5]@2 [a2,a3,c5,eb5]@2, [c3,c4,ab4,c5] a4", // Db Adim Fm
  AA: "db5 eb5 c5 ab4 db5 eb5 c5 ab4, [bb2,bb3,f4,bb4] [ab2,ab3,f4], ~@4 ab4@3 ~", // Bb5 Db
  AB: "[f3,c4,f4,bb4]!2 [f3,c4,f4,a4]!2 [f3,c4,f4,bb4]!2 [f3,c4,f4,a4]!2", // Fsus4 F Fsus4 F
  AC: "bb4 c5 db5 eb5 f5 eb5 db5 c5, [gb2,gb3,db4,f4] [ab2,ab3,ab4], ~@4 c5@3 ~", // Gbmaj7 Ab
  AD: "[bb4@2 c5@2 db5@2 eb5@2 ~ f5@2 eb5@2 ~ db5@3 c5@5 [ab4,db5,f5]@3 ab4 f5@2 ~ ab4 [ab4,db5,gb5]@4 f5@2 eb5 db5 eb5@4 eb5@2 ab4@2 [f3,bb4,c5,f5]@4 [a3,a4,c5,eb5]@4 db5@2 eb5@2 ~ c5@2 ab4@2 db5@2 eb5@2 c5@2 ~ ab4@2 bb4@2 ~ c5@2 db5@3, [gb2,gb3,db4,f4]@9 [ab2,ab3,ab4]@13 ~@4 [ab4,db5]@4 ~@4 [ab4,db5]@4 ab4@6 ~@19 ab4@7 ~@10, ~@9 c5@8 ~@5 db4@16 [c4,c5]@8 ~@8 [bb3,ab4,bb4]@8 ~ ab3@9 [gb3,f4]@8, ~@14 ab5 ~@25]/5", // Db Dbsus4 Fsus4 Adim Gbmaj7 Ab Db5 C …
  AE: "[eb5@2 f5@3 eb5@4 db5@5 c5@6 [db3,db4,f4,ab4,db5]@42 ~@2, ~@2 [ab3,ab4]@17 ~@45, ~ c5@6 ~@25]/4", // Db Ab
})).s("gm_piano").gain(0.49).pan(0.4)

// chords · pad warm
const pad_warm = note(`<
  ~ A B C D E F E F G H G I J K L M N K L M F E F E F E F G H G I J K L M N K L M F K O P O Q R S T@2 U V W X U V W Y U
  V W Z@6 AA@3
>`.pickRestart({
  A: "[bb3,f4,bb4,d5]", B: "[a3,f4,a4,c5]@2 [d3,g4,d5] [gb3,gb4,c5], ~ a4", C: "[g3,d4,g4,bb4] [f3,c4,f4,a4]",
  D: "[eb3,bb3,d4,eb4,g4] [f3,c4,f4]", E: "[f4,bb4,d5] [f4,a4,c5] [d4,g4,bb4] [c4,f4,a4]", F: "[bb3,eb4,g4] [c4,f4,a4]",
  G: "[bb3,d4,g4]@4 [c4,f4,a4]@4 [c4,f4,a4]@3 [bb3,d4,eb4,g4]@5", H: "[bb3,d4,g4]@4 [c4,f4,a4]@3 [bb3,d4,f4,a4]@9",
  I: "[bb3,d4,g4]@4 [a3,c4,f4]@3 [a3,bb3,d4,f4]@9", J: "[g3,bb3,c4,eb4]", K: "d5@2 eb5 d5, [f4,bb4]",
  L: "[f4,a4,c5]@2 [bb4,d5] [a4,c5], ~ gb4", M: "[d4,g4,bb4] [c4,f4,a4]", N: "g4 gb4 g4 gb4, [a3,d4]",
  O: "g4 gb4, [a3,d4]", P: "[bb3,d4,g4]", Q: "[bb3,d4,g4] [d4,f4,ab4]", R: "[bb3,eb4,g4] [a3,d4,gb4]",
  S: "[bb3,d4,g4] [bb3,c4,e4,g4]", T: "[bb3,c4,eb4,g4]/2", U: "f4@2 gb4 f4, [ab3,db4]",
  V: "[ab3,c4,eb4]@2 [db4,f4] [c4,eb4], ~ a3", W: "[f3,bb3,db4] [eb3,ab3,c4]", X: "bb3 a3 bb3 a3, [c3,f3]",
  Y: "[db3,gb3,bb3] [eb3,ab3,c4]", // Gb Ab
  Z: "[[gb3,bb3,db4]@9 [ab3,c4,eb4]@13 [db4,ab4,db5,f5]@16 [c4,ab4,c5,eb5]@8 [f3,bb4,f5]@4 [a3,a4,eb5]@4 [bb3,f4,bb4,db5]@8 ~ [ab3,eb4,ab4,c5]@9 [gb3,db4,f4,gb4,bb4]@10 ~ ab4@13, ~@23 c5@4 ~@14 [ab3,eb4]@7]/6", // Gb Ab Db Ab Bb5 Adim Bbm Ab …
  AA: "[~@2 [db3,ab3,db4,f4]@21 ~]/3", // Db
})).s("gm_pad_warm").gain(0.22).pan(0.7)

// chords · string ensemble 2
const string_ensemble_2 = note("<~@42 A B A C D E F@2 G H I J G H I K G H I ~@9>".pickRestart({
  A: "g4 gb4, [a3,d4]", B: "[bb3,d4,g4]", C: "[bb3,d4,g4] [d4,f4,ab4]", D: "[bb3,eb4,g4] [a3,d4,gb4]",
  E: "[bb3,d4,g4] [bb3,c4,e4,g4]", F: "[bb3,c4,eb4,g4]/2", G: "f5@2 gb5 f5, [ab4,db5]",
  H: "[ab4,c5,eb5]@2 [db5,f5] [c5,eb5], ~ a4", I: "[f4,bb4,db5] [eb4,ab4,c5]", J: "bb4 a4 bb4 a4, [c4,f4]",
  K: "[db4,gb4,bb4] [eb4,ab4,c5]", // Gb Ab
})).s("gm_string_ensemble_2").gain(0.19).pan(0.2)

// other · string ensemble 1
const string_ensemble_1 = note("<~@42 A@2 B C D E F@2 G H I J G H I K G H I ~@9>".pickRestart({
  A: "[[d5,d6]@5 [c5,c6] [bb4,bb5]@2]/2", B: "[a4,a5]@3 [gb4,gb5]", C: "[g5,g6] [f5,f6]", D: "[d5,d6] [c5,c6]",
  E: "[bb4,bb5] [g4,g5]", F: "[f4,f5]/2", G: "[f5,f6]", H: "[eb5,eb6]", I: "[db5,db6] [c5,c6]",
  J: "[bb4,bb5] [a4,a5] [bb4,bb5] [a4,a5]", K: "[bb4,bb5] [c5,c6]",
})).s("gm_string_ensemble_1").gain(0.19).pan(0.6)

// drums · kick
const kick = s("bd").struct(`<
  ~@4 A B C B C B C B C D B C B C B C B C B C B C B C B C B C D B C B C B C B C B@2 C B C B C B C B C B C B C B C B C B
  E ~@8
>`.pickRestart({
  A: "~@11 x ~@3 x", B: "x ~@7 x ~@2 x ~@4", C: "x ~@2 x ~@4 x ~@2 x ~@3 x", D: "x ~@2 x ~@3 x!2 ~ x ~ x ~ x ~", E: "x",
})).gain(0.45).pan(0.6)

// drums · rim
const rim = s("rim").struct("<~@4 [~@3 x] [~ x ~ x]!8 [~ x ~@2] [~ x ~ x]!18 [~ x ~@2] [~ x ~ x]!28 ~@9>")
  .gain(0.45).pan(0.6)

// drums · snare
const snare = s("sd").struct("<~@4 [~@3 x] [~ x ~ x]!8 [~ x ~@2] [~ x ~ x]!18 [~ x ~@2] [~ x ~ x]!28 ~@9>")
  .gain(0.45).pan(0.6)

// drums · hihat
const hihat = s("hh").struct(`<
  A ~@4 B C B C B C B C D E F B G B F B G B F B C B C B C B C D E F B G B F B G B E F B G B F B G E F B G B F B G E F B
  H ~@8
>`.pickRestart({
  A: "x!4", B: "x ~ x!3 ~@2 x!2 ~ x!3 ~ x!2", C: "x ~ x!3 ~@3 x!5 ~@2 x", D: "x ~@2 x!2 ~@3 x ~ x ~ x ~ x ~",
  E: "~@2 x!3 ~@2 x!2 ~ x!3 ~ x!2", F: "x ~ x!3 ~@3 x ~ x!3 ~@2 x", G: "x!5 ~@3 x ~ x!3 ~@2 x", H: "x",
})).gain(0.45).pan(0.6)

// drums · crash
const crash = s("cr").struct("<~@14 A ~@18 A ~@8 A ~@7 A ~@7 A ~@11>".pickRestart({
  A: "x",
})).gain(0.45).pan(0.6)

// drums · bell tree
const bell_tree = s("marktrees:0").struct("<~@13 [~ x] ~@18 [~ x] ~@37>").gain(2.66).pan(0.6)

stack(bass, piano, pad_warm, string_ensemble_2, string_ensemble_1, kick, rim, snare, hihat, crash, bell_tree)