// You're My Heart, You're My Soul — Modern Talking
// 117 bpm, 4/4, key C minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: bank select 127 (Roland MT-32 map) read through the MT-32 patch table: ch 3 Doctor Solo -> lead 8 bass lead
// note: Full arrangement: all 104 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(117/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 · fretless bass
const bass = note(`<
  A@2 B C B C B C D E F G H I J G H I K L M N O L M N P Q R L S T U Q R V U R L V U Q@2 R V U R L V U R L W G H I X G H
  I Y L M N O L M N P Q R L S T U Q R V U R L V Z Q@2 R V U R L V U AA AB L AC Q AD L AC Q L@2 AE
>`.pickRestart({
  A: "[[c2,c3]@7 ~]/2", B: "c3 ~ c3 ~ g2 ~ bb2 ~ c3 ~ c3 ~@5", C: "c3 ~ c3 ~@5",
  D: "c3 ~ c3 ~ g2 ~ bb2 ~ c3 ~ c3@2 ~@4", E: "c3@2 ~@2 c3 ~@3 c3 ~ c3 ~ g2 ~ bb2 ~",
  F: "c3 ~ c3 ~ c3 ~ c3 ~ bb2 ~ bb2 ~ f2 ~ f2 ~", G: "bb2 ~ bb2 ~ f2 ~ f2 ~ bb2 ~ bb2 ~ f2 ~ f2 ~",
  H: "bb2 ~ bb2 ~ f2 ~ bb2 ~ ab2 ~ ab2 ~ eb2 ~ eb2 ~", I: "ab2 ~ ab2 ~ eb2 ~ eb2 ~ ab2 ~ ab2 ~ eb2 ~ eb2 ~",
  J: "ab2 ~ ab2 ~ eb2 ~ eb2 ~ bb2 ~ bb2 ~ f2 ~ f2 ~", K: "ab2 ~ ab2 ~ eb2 ~ eb2 ~ c3 ~ c3 ~ g2 ~ bb2 ~",
  L: "c3 ~ c3 ~ g2 ~ bb2 ~ c3 ~ c3 ~ g2 ~ bb2 ~", M: "c3 ~ c3 ~ g2 ~ bb2 ~ g3 ~ g3 ~ d3 ~ f3 ~",
  N: "g3 ~ g3 ~ d3 ~ f3 ~ g3 ~ g3 ~ d3 ~ f3 ~", O: "g3 ~ g3 ~ d3 ~ g3 ~ c3 ~ c3 ~ g2 ~ bb2 ~",
  P: "g3 ~ g3 ~ d3 ~ g3 ~ bb2 ~ bb2 ~ f2 ~ g2 ~", Q: "bb2 ~ bb2 ~ f2 ~ g2 ~ bb2 ~ bb2 ~ f2 ~ g2 ~",
  R: "bb2 ~ bb2 ~ f2 ~ g2 ~ c3 ~ c3 ~ g2 ~ bb2 ~", S: "c3 ~ c3 ~ g2 ~ bb2 ~ ab3 ~ ab3 ~ eb3 ~ f3 ~",
  T: "ab3 ~ ab3 ~ eb3 ~ ab3 ~ f3 ~ f3 ~ c3 ~ eb3 ~", U: "f3 ~ f3 ~ c3 ~ f3 ~ bb2 ~ bb2 ~ f2 ~ g2 ~",
  V: "c3 ~ c3 ~ g2 ~ bb2 ~ f3 ~ f3 ~ c3 ~ eb3 ~", W: "c3 ~ c3 ~ g2 ~ bb2 ~ c3 ~ c3 ~ c3 ~ c3 ~",
  X: "ab2 ~ ab2 ~ eb2 ~ ab2 ~ bb2 ~ bb2 ~ f2 ~ f2 ~", Y: "ab2 ~ ab2 ~ eb2 ~ ab2 ~ c3 ~ c3 ~ g2 ~ bb2 ~",
  Z: "f3 ~ f3 ~ c3 ~ eb3 ~ bb2 ~ bb2 ~ f2 ~ g2 ~", AA: "bb2 ~ bb2 ~ f2 ~ g2 ~ c3 ~ c3 ~ g2 ~ c3 ~",
  AB: "bb2 ~ bb3 ~ bb2 ~ bb3 ~ bb2 ~ bb3 ~ bb2 ~ bb3 ~", AC: "f3 ~ f3 ~ c3 ~ eb3 ~ f3 ~ f3 ~ c3 ~ f3 ~",
  AD: "c3 ~ c3 ~ [g2,a2] ~ bb2 ~ c3 ~ c3 ~ g2 ~ bb2 ~", AE: "c3 ~@15",
})).s("gm_fretless_bass").gain(0.48)

// chords · piano
const piano = note(`<
  ~@2 A B C A@2 B C A D@2 E@2 D@2 E@2 F G@2 ~ H G@2 ~ I J K L M N O@2 P Q@2 R@2 S T U V W X Y Z AA X Y AB@2 AC@2 AD@2
  AE@2 AD@2 F G@2 ~ H G@2 ~ I J K AF M N O@2 P Q@2 R@2 S T U V W X Y Z AA X Y AG AH AI AJ@3 AI AK@2 AL@2 AM
>`.pickRestart({
  A: "[g4,c5,eb5]", B: "[f4,ab4,c5]", C: "[f4,bb4,d5]", D: "[[g4,c5,eb5] [g4,c5,eb5]@2 [f4,bb4,d5]@9 ~@4]/2",
  E: "[[f4,bb4,d5] [f4,bb4,d5]@2 [ab4,c5,eb5]@9 ~@4]/2", F: "[g4,c5,eb5]@2 [g4,bb4,d5]@2 [eb5,g5]!4",
  G: "[~ [eb5,g5]@2 [eb5,g5] [eb5,g5]@3 [c5,eb5]@2 [eb5,g5] [d5,g5] ~ [g5,bb5] [g5,bb5]@3]/2", H: "~@4 [eb5,g5]!4",
  I: "~@4 [bb4,d5] [bb4,d5]@2 [bb4,d5]", J: "[bb4,d5]@2 [bb4,d5]!3 [bb4,d5]@3",
  K: "[bb4,d5]@2 bb4!2 [c5,eb5]@2 [c5,eb5]!2", L: "[c5,eb5] [eb5,g5]@2 [c5,eb5] ~ [c5,eb5]@3",
  M: "[c5,eb5]@3 ab4 [ab4,c5] [ab4,c5]@2 [ab4,c5]", N: "[ab4,c5]@2 [c5,eb5]@3 [ab4,c5] [ab4,c5]@2",
  O: "[[ab4,c5]!2 [c5,eb5]!2 [bb4,d5,f5]@8 [f4,bb4]@4]/2", // Ab Cm Bb Bb5
  P: "bb4@2 c5@2 d5@2 [c5,eb5]@2 [g4,c5,eb5] ~ [g4,c5,eb5] ~ [g4,c5,d5] ~ [g4,c5,eb5] ~", // Cm Gsus4 Cm
  Q: "[~@2 [eb4,g4]@3 ~ [eb4,g4]@3 ~ ab4@6 ab4@2 eb5@2 eb5@2 eb5@2 [f4,bb4,d5] ~ [f4,bb4,d5] ~ [f4,bb4,c5] ~ [f4,bb4,d5] ~, ~@10 f4@9 ~@13]/2", // Eb Bb Fsus4 Bb
  R: "[~@2 [d4,f4]@3 ~ [d4,f4]@3 ~ [eb4,g4]@8 c5@2 d5@2 eb5@6 ~@4]/2", S: "[c5,eb5] g4!2 [f4,ab4]@3 ~@2",
  T: "[f4,ab4] eb5!2 [bb4,eb5]!2 [bb4,d5]!2 c5", U: "c5 bb4@2 [bb4,eb5]!2 [bb4,d5]!2 c5", V: "c5 bb4@3 bb4@4",
  W: "bb4 g5!2 [eb5,g5] [eb5,g5]@4", X: "[eb5,g5] g5!2 [c5,ab5] [c5,ab5]@4",
  Y: "[c5,ab5] [eb5,c6]@2 [d5,bb5] bb5 ab5!2 g5", Z: "g5@2 [d5,f5] [eb5,g5]@2 f5 [c5,eb5]@2",
  AA: "~ g5!2 [eb5,g5] [eb5,g5]@4", AB: "[g5@2 [d5,f5] [eb5,g5] [eb5,g5]@8 ~@4]/2",
  AC: "[~@4 [eb4,g4,c5] [eb4,g4,c5]@2 [d4,f4,bb4]@4 ~@5]/2", AD: "[[f4,bb4,d5] [f4,bb4,d5]@2 [ab4,c5,eb5]@7 ~@6]/2",
  AE: "[[g4,c5,eb5] [g4,c5,eb5]@2 [f4,bb4,d5]@7 ~@6]/2", AF: "[c5,eb5] [eb5,g5]@2 [c5,eb5] [eb4,g4] [c5,eb5]@3",
  AG: "g5@2 [d5,f5] [c5,eb5]!5", AH: "bb4 g5 bb4 g5 bb4 g5!2 [eb5,g5]", AI: "[eb5,g5]@4 [eb5,g5] g5!2 [c5,ab5]",
  AJ: "[[c5,ab5]@4 [c5,ab5] [eb5,c6]@2 bb5@2 ab5!2 g5 g5@2 [d5,f5] [eb5,g5]@2 f5 [c5,eb5]@2 ~ g5!2 [eb5,g5], ~@7 d5 ~@16]/3", // Fm Cm Dm Eb Cm Eb
  AK: "[[c5,ab5]@4 [c5,ab5] [eb5,c6]@2 [d5,bb5]@2 ab5!2 g5 g5@2 [d5,f5] [eb5,g5]]/2", AL: "[eb5,g5]",
  AM: "[c4,c5,eb5,g5] ~", // Cm
})).s("gm_piano").gain(0.72).pan(0.7)

// other · electric guitar clean
const electric_guitar_clean = note(`<
  ~@11 A ~ B ~ A ~ B ~ C D E F ~ E F G H C D I J G K H L M C D L M G H ~@3 C D ~@2 C D ~ N ~ B ~ N ~ B ~@2 E F ~@2 E F
  ~@2 C D I J O H ~ L M ~@25
>`.pickRestart({
  A: "bb4!4 f4 ~ g4 ~ bb4 ~@7", B: "ab4!4 eb4 ~ f4 ~ ab4 ~@7", C: "~@8 c5!4 g4 ~ bb4 ~", D: "c5 ~@15",
  E: "~@8 g4!4 d4 ~ f4 ~", F: "g4 ~@15", G: "~@8 bb4!4 f4 ~ g4 ~", H: "bb4 ~@15", I: "~@8 ab4!4 eb4 ~ f4 ~",
  J: "ab4 ~@15", K: "bb4 ~@7 bb4!4 f4 ~ g4 ~", L: "~@8 f4!4 c4 ~ eb4 ~", M: "f4 ~@15", N: "bb4!4 f4 ~ ab4 ~ bb4 ~@7",
  O: "~@8 bb4!4 f4 ~ ab4 ~",
})).s("gm_electric_guitar_clean").gain(0.56).pan(0.6)

// other · pad new age
const pad_new_age = note("<~@2 A B A C A B A C ~@94>".pickRestart({
  A: "[c4,c5] [d4,d5] [eb4,eb5] [d4,d5]!2 [bb3,bb4]@3", B: "[f3,f4]@5 ~@3", C: "[c4,c5]@5 ~@3",
})).s("gm_pad_new_age").gain(0.56)

// chords · string ensemble 1
const string_ensemble_1 = note(`<
  A@3 B C D@2 B C E ~@8 F@8 G@8 H@6 I@8 J@5 ~@7 F@8 G@8 H@6 I@8 K@3 L E M N D@2 M N O@3
>`.pickRestart({
  A: "[g4,c5,eb5]/3", B: "[f4,ab4,c5]", C: "[f4,bb4,d5]", D: "[g4,c5,eb5]/2", E: "[g4,c5,eb5]",
  F: "[~ [g4,c5,eb5]@4 [g4,bb4,d5]@4 [g4,c5,eb5]@4 [g4,bb4,d5]@3]/8", // Cm Gm Cm Gm
  G: "[~ [bb4,d5,f5]@4 [g4,c5,eb5]@4 [ab4,c5,eb5]@2 [f4,ab4,c5,eb5]@2 [f4,bb4,d5]@3]/8", // Bb Cm Ab Fm7 Bb
  H: "[~ [g4,c5,eb5]@2 [f4,ab4,c5]@2 [f4,bb4,d5]@2 [g4,c5,eb5]@4 [f4,ab4,c5]]/6", // Cm Fm Bb Cm Fm
  I: "[~ [f4,bb4,d5]@6 [g4,c5,eb5]@2 [ab4,c5,eb5]@2 [bb4,d5,f5]@2 [g4,c5,eb5]@3]/8", // Bb Cm Ab Bb Cm
  J: "[~ [ab4,c5,eb5]@2 [bb4,d5,f5]@2 [g4,c5,eb5]@4 ~]/5", K: "[~ [ab4,c5,eb5]@2 [bb4,d5,f5]@2 [c5,eb5,g5]]/3",
  L: "[bb4,d5,f5]@7 ~", M: "[ab4,c5,eb5]", N: "[bb4,d5,f5]", O: "[[g4,c5,eb5]@5 ~]/3",
})).s("gm_string_ensemble_1").gain(0.32)

// drums · kick
const kick = s("bd").struct("<[x!4]!103 ~>").gain(0.56)

// drums · snare
const snare = s("sd").struct("<~@18 [~@3 x] [~ x ~ x]!84 ~>").gain(0.56)

// drums · low tom
const low_tom = s("lt").struct("<~@34 A ~@8 B ~@32 B ~@8 B ~@16 C ~>".pickRestart({
  A: "~@2 x!2 ~@4", B: "~@3 x ~@4", C: "~@7 x",
})).gain(0.56)

// drums · hihat
const hihat = s("hh").struct("<~@2 [~ x ~ x ~ x ~ x]!101 ~>").gain(0.64)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@18 A ~@14 B C ~@3 D ~@3 E F ~@7 D ~@8 A ~@14 G A ~@7 G A ~@7 H ~@8 I ~
>`.pickRestart({
  A: "x!2 ~@2", B: "~@5 x ~ x", C: "~ x ~@6", D: "~ x ~ x ~@4", E: "~@8 x!2 ~ x ~@2 x!2", F: "~ x ~@2", G: "~@5 x!2 ~",
  H: "~@2 x!2 ~ x ~ x", I: "~ x!2 ~ x ~ x ~",
})).gain(0.56)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@18 A ~@14 B C ~@3 D ~@3 B E ~@7 D ~@8 F ~@14 G F ~@7 G F ~@7 H ~@8 I ~
>`.pickRestart({
  A: "~ x ~ x ~@4", B: "~@3 x", C: "x", D: "~ x ~@2", E: "~ x!2 ~@13", F: "~ x ~@6", G: "~@7 x", H: "~@2 x!2",
  I: "~@3 x ~ x ~@2",
})).gain(0.56)

// drums · crash
const crash = s("cr").struct("<~@18 A ~@15 A ~@3 A ~@4 A ~@7 A ~@8 A ~@15 A ~@8 A ~@8 B ~@8 B>".pickRestart({
  A: "~ x", B: "x",
})).gain(0.56)

stack(
  bass, piano, electric_guitar_clean, pad_new_age, string_ensemble_1, kick, snare, low_tom, hihat, mid_tom, high_tom,
  crash
)