// Falling in Love (Radio Version) — La Bouche
// 89 bpm, 4/4, key D 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 79 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(89/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 · "FRETLESS"
const bass = note(`<
  ~@2 A B C D E F G H E F G I J K L M J K L M N E F G H E F G I J K L M J K L M N E F G H E F G I J K L M J K L M N O
  ~@2 P E F G I E F G Q R S T U R S T U ~@2
>`.pickRestart({
  A: "g1@10 g1 ~@4 g1@9", B: "f#1@9 ~@2 f#1 ~@2 f#1 f#1@3 c#2@5 ~", C: "e1@9 ~@2 e1!2 ~ e1 e1@2 ~ e1@2 ~ f#1@2 ~",
  D: "e1@9 ~ e1 ~ e1 e1@4 ~ f#1@5 ~", E: "g1@8 ~@3 g1 ~@2 g1 g1@3 a1@3 b1@3",
  F: "f#1@7 ~@4 f#1 ~@2 f#1 f#1@2 ~ c#2@3 f#1@2 ~", G: "e1@9 ~@2 e1 ~@2 e1 e1@2 ~ e1@3 g1@2 ~",
  H: "a1@6 ~@3 a1 a1@3 a2@2 ~ a1 ~ a1@3 e1 ~@2", I: "a1@8 ~@3 a1!2 ~ a1 a1@2 ~ a1@2 ~ a1@2 ~",
  J: "f#1@8 ~@3 f#1 b1 ~ b1 b1@5 ~ e1@3", K: "f#1@8 ~@3 f#1 b1 ~ b1 b1@2 ~ b1@3 f#1 ~@2",
  L: "e1@9 ~@2 e1 ~@2 e1 e1@5 ~ g1 ~@2", M: "a1@9 ~@2 a1 ~@2 a1 a1@8 ~",
  N: "a1@3 b1 ~@2 b1@3 c#2 ~@2 c#2@3 d2 ~@2 d2@3 e2@2 ~", O: "g1@19 ~@5", P: "~@11 a1 ~@2 a1!2 ~@2 a1@4 ~@2",
  Q: "a#1@3 c2 ~@2 c2@3 d2 ~@2 d2@3 d#2 ~@2 d#2@3 f2@2 ~", R: "g#1@8 ~@3 g#1 ~@2 g#1 g#1@3 a#1@3 c2@3",
  S: "g1@7 ~@4 g1 ~@2 g1 g1@2 ~ d2@3 g1@2 ~", T: "f1@9 ~@2 f1 ~@2 f1 f1@2 ~ f1@3 g#1@2 ~",
  U: "a#1@8 ~@3 a#1!2 ~ a#1 a#1@2 ~ a#1@2 ~ a#1@2 ~",
})).s("gm_fretless_bass").gain(0.4)

// chords · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  ~@2 A B C@2 D E F G D H I@2 J@2 K L J@2 K L M D E F G D H I@2 J@2 K L J@2 K L M N E F G D H I@2 J@2 K L J@2 K L M D E
  F G D H I@2 D H I O P Q R@2 P Q R@2 ~@2
>`.pickRestart({
  A: "[g2,a3,b3,d4,f#4]", B: "[a3,e4]", C: "[~@33 g3@8 ~ [f#2,a3,c#4,e4]@5 ~, [b3,d4]@41 ~@7, ~@4 e2@3 ~]/2",
  D: "[a3,d4,f#4]", E: "[a3,b3,e4]@10 [a3,b3,c#4,e4]@13 ~, f#2", F: "~@3 e2, [b3,d4,e4]", G: "[g3,b3,d4,e4]",
  H: "[b3,e4]", I: "[g3,b3,d4]", J: "[[f#2,a3,c#4,e4] [b2,d4,f#4] [f#2,c#4,e4] [b2,a3,d4,f#4], ~ a3@2 ~]/2",
  K: "[e2,g3,b3,d4,e4]", L: "[a2,g3,b3,d4,e4]",
  M: "[a2,a4]@3 [b2,b4] ~@2 [b2,b4]@3 [c#3,c#5] ~@2 [c#3,c#5]@3 [d3,d5] ~@2 [d3,d5]@3 [e3,e5] ~@2", N: "[a3,f#4]",
  O: "[a#2,a#4]@3 [c3,c5] ~@2 [c3,c5]@3 [d3,d5] ~@2 [d3,d5]@3 [d#3,d#5] ~@2 [d#3,d#5]@3 [f3,f5] ~@2", P: "[a#3,d#4,g4]",
  Q: "[c4,f4]", R: "[g#3,c4,d#4]",
})).s("gm_epiano2").gain(0.21).pan(0.6)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~@2 A B C@2 D E F G D E F H I J K@2 I L M N O P E F G D E F Q I R K@2 I J M N O P E F G D E F Q I L S T I L M N O D E
  U V ~@4 W X ~ Y Z AA AB AC Z AA AB AC ~@2
>`.pickRestart({
  A: "[d4,f#4]@3 ~ [b3,d4] ~@4 [d3,g3]@15", B: "[f#2,a3,e4]@22 ~ e2",
  C: "[e2@23 ~ e2@18 [f#2,a3,b3,e4]@5 ~, [d4,e4]@41 ~@7, [g3,b3]@5 ~@3]/2", D: "g2@15 ~@3 g2@5 ~, [d4,f#4]@11 ~",
  E: "[a3,b3,e4]@17 ~@7, f#2@5 ~@3", F: "e2@13 e2@11, [g3,b3,d4,e4]@23 ~",
  G: "[g2,g3,b3,d4,e4]@12 ~ [g3,b3,d4,e4] ~@4 [g3,b3,d4,e4]@4 ~@2, ~@16 a2@5 ~@3", // Em7
  H: "[g3,b3,d4,e4]@14 ~@3 [a3,e4] ~@2 [g3,d4]@4, a2@23 ~", // Em7 A5 G5
  I: "[f#2,a3,e4]@13 ~@5 f#3@4 ~@2, ~@7 b2@4 ~, ~@15 [a3,d4]@7 ~@2", // F#m7 D5
  J: "[f#2,a3,e4]@4 ~ [f#2,a3,c#4]@4 [f#2,a3,c#4] ~@2 [f#2,a3,d4]@12", // F#m7 F#m D
  K: "[~@8 a2@7 ~, ~@21 [e4,g4]@23 ~@4, ~@11 d4@11 ~@2, ~@23 [a3,b3]@21 ~@4]/2", // Em Asus2
  L: "[f#2,a3,e4]@4 ~ [f#2,a3,c#4]@4 [f#2,a3,c#4] ~@2 [f#2,a3,d4]@9 ~@3", // F#m7 F#m D
  M: "[e2,e3,g3]@10 ~ [g3,b3] ~@2 e2@7 g2@2 ~, ~@14 [g3,b3,d4,e4]@9 ~", N: "~@3 [b3,d4,e4]@17 ~@4, [a2,a3]@5 ~",
  O: "[a2,d4,e4,g4,a4]@3 ~", P: "g2@3 g2, [d4,f#4]", Q: "[g3,b3,d4,e4]@14 ~@3 [a3,e4] ~@2 [g3,d4]@3 ~, a2@23 ~",
  R: "[f#2,a3,e4]@4 ~ [f#2,a3,c#4]@4 [f#2,a3,c#4] ~@2 [a3,d4]@12, ~@4 f#2@3 ~", S: "[e2,d4]@23 ~", T: "a2@7 ~",
  U: "[e2,g3,b3,e4]@13 ~ [g3,b3,d4,e4] ~@3 [g3,b3,d4,e4]@4 ~@2, ~@17 e2@6 ~", // Em Em7
  V: "~@15 [g3,b3,d4,e4]@3 [a3,c#4,e4]@4 ~@2, ~@14 a2@9 ~", W: "[a3,b3,d4,f#4]@7 ~, g2@23 ~", X: "[f#2,a3,b3,e4]@11 ~",
  Y: "[a#2,d#4,f4,g#4,a#4]@3 ~", Z: "g#2@15 ~@3 g#2@5 ~, [d#4,g4]@11 ~", AA: "[a#3,c4,f4]@17 ~@7, g2@5 ~@3",
  AB: "f2@13 f2@11, [g#3,c4,d#4,f4]@23 ~", AC: "[g#3,c4,d#4,f4]@14 ~@3 [a#3,f4] ~@2 [g#3,d#4]@3 ~, a#2@23 ~",
})).s("gm_piano").gain(0.32).pan(0.4)

// chords · piano · "A.PIANO 1" · soft notes
const piano_soft = note(`<
  ~@5 A ~ B ~@3 B ~@8 C ~@3 B ~@3 B ~@8 C ~@3 B ~@3 B ~@4 D E ~@2 C ~@3 B F ~@10 G ~@3 G ~@4
>`.pickRestart({
  A: "~@6 [g3,b3]@11 ~@7", B: "~@18 [f#2,a3,b3,e4]@5 ~", C: "~@11 [d4,e4] ~@12", D: "[e3,b3]@23 ~",
  E: "~ a3@21 ~@2, [b3,d4]@11 ~", F: "d4 ~", G: "~@18 [g2,a#3,c4,f4]@5 ~",
})).s("gm_piano").gain(0.18).pan(0.4)

// other · lead 3 calliope · "CALLIOPE"
const lead_3_calliope = note("<~@2 A B C ~@7 C ~@16 C ~@16 C ~@20 C ~@3 D ~@3 D ~@3>".pickRestart({
  A: "~@15 f#5 ~@4 b5 ~@3", B: "a5@4 ~ a5 ~@9 a4 ~@4 e5 ~@3", C: "d5@4 b4 g4 f#4 ~@17", D: "d#5@4 c5 g#4 g4 ~@17",
})).s("gm_lead_3_calliope").gain(0.25).pan(0.3)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@9 A B C D@2 ~@4 E F G H ~ I J K A B C D@2 ~@4 E F G H ~ I J K A B C D@2 ~@4 E F G H ~@3 K A L M N@2 B C O P Q R S@2
  Q R S@2 ~@2
>`.pickRestart({
  A: "a5 b5 d6 f#6", B: "d6", C: "[a5,c#6]", D: "[g5 d6, b5]/2", E: "c#6 d6", F: "e6@2 d6 f#5", G: "b5", H: "a5",
  I: "d5", J: "c#5", K: "b4", L: "[f#5,f#6] ~@5 [f#5,f#6] ~@5 [f#5,f#6] ~@5 [f#5,f#6] ~@5, d6",
  M: "[e5,e6] ~@5 [e5,e6] ~@5 [e5,e6] ~@5 [e5,e6] ~@5, c#6", // E
  N: "[[d5,d6] ~@5 [d5,d6] ~@5 [d5,d6] ~@5 [d5,d6] ~@5 [d5,d6] ~@5 [d5,d6] ~@5 [d5,d6] ~@5 d5@2 ~@4, b5, ~@42 d6 ~@5]/2", // D
  O: "[g5,b5]", P: "[a#4,a#5]", Q: "d#6", R: "[a#5,d6]", S: "[g#5 d#6, c6]/2",
})).s("gm_string_ensemble_1").gain(0.22)

// other · whistle
const whistle = note(`<
  ~@5 A B ~@2 C B ~@6 D E F ~@3 B ~@2 C B ~@6 D E F ~@3 B ~@2 C B ~@6 D E F ~@3 B ~@2 C B ~@3 B ~@3 G ~@3 G ~@5
>`.pickRestart({
  A: "b5 c#6!2 d6!2 e6 f#6 a6", B: "f#6 ~@2", C: "d6 c#6 d6 f#6", D: "~@18 e5@2 f#5 e5@3", E: "c#5 d5", F: "e5 d5",
  G: "g6 ~@2",
})).s("gm_whistle").gain(0.22).pan(0.7)

// bass · slap bass 1 · "SLAPBASS 1"
const bass_2 = note(`<
  ~@2 A B C@2 D B C E D B C F G@2 C F G@2 C F ~ D B C E D B C F G@2 C F G@2 C F ~ D B C E D B C F G@2 C F G@2 C F ~@4 E
  D B C F D B C ~ H A I J H A I J ~@2
>`.pickRestart({
  A: "~@14 g1 ~@9", B: "~@14 f#1 ~@9", C: "~@11 e1 ~@2 e1 ~@9", D: "~@11 g1 ~@2 g1 ~@9", E: "~@14 a1 ~@9",
  F: "~@11 a1 ~@2 a1 ~@9", G: "~@11 f#1 ~@2 b1 ~@9", H: "~@11 g#1 ~@2 g#1 ~@9", I: "~@11 f1 ~@2 f1 ~@9",
  J: "~@11 a#1 ~@2 a#1 ~@9",
})).s("gm_slap_bass_1").gain(0.19)

// chords · orchestral harp · "HARP"
const orchestral_harp = note("<~@22 A ~@16 B ~@16 B ~@11 C ~@10>".pickRestart({
  A: "~@12 f#6 [d6,e6] [a5,b5] [g5,f#6] [d6,e6] [g5,a5,b5] e5 [d6,e6,f#6] [a5,b5] [d5,e5,g5] [g4,a4,b4] ~", // Dsus2 Asus2 Gmaj7 Dsus2 G D Asus2 Em7 …
  B: "~@11 [a4,b4], ~@6 f#6 [a5,b5] [d6,e6] e5 [a5,b5]@2, ~@13 [d6,e6]@2 [g5,f#6]@2 [g5,a5,b5]@2 [d6,e6,f#6]@5, ~@7 [d5,e5,g5], ~@22 g4 ~", // Asus2 Dsus2 Asus2 Dsus2 Gmaj7 G D Em7
  C: "~@11 [a#4,c5], ~@6 g6 [a#5,c6] [d#6,f6] f5 [a#5,c6]@2, ~@13 [d#6,f6]@2 [g#5,g6]@2 [g#5,a#5,c6]@2 [d#6,f6,g6]@5, ~@7 [d#5,f5,g#5], ~@22 g#4 ~", // A#sus2 D#sus2 A#sus2 D#sus2 G#maj7 G# D# Fm7
})).s("gm_orchestral_harp").gain(0.11)

// other · electric guitar jazz · "JAZZ GTR" · E C# D B A B F# E
const electric_guitar_jazz = note(`<
  ~@61
  [[e3,e4]@4 ~ [e3,e4] ~@3 [e3,e4]@12 ~@3]
  [[e3,e4]@4 ~ [e3,e4] ~@3 [e3,e4]@9 [c#3,c#4]@5 ~]
  [[d3,d4]@3 ~ [b2,b3] ~@4 [b2,b3]@13 ~@2]
  [~@3 [a3,a4] ~@2 [a3,a4] [b3,b4] ~@2 [f#3,f#4]@5 ~ [e3,e4]@4 ~ [e3,e4]@3]
  ~@14
>`).s("gm_electric_guitar_jazz").gain(0.31).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~@2 A@20 B A@16 B A@16 B C ~@3 A@7 B A@8 C ~>".pickRestart({
  A: "x ~@10 x!2 ~ x!2 ~@5 x ~@2", B: "x ~@10 x!2 ~@2 x ~@5 x ~@2", C: "x",
})).gain(0.58)

// drums · clap
const clap = s("cp").struct("<~@57 [~@3 x]!4 ~@18>").gain(0.4)

// drums · snare
const snare = s("sd").struct("<~@2 A@20 B A@16 B A@16 B ~@3 C A@7 B A@8 ~@2>".pickRestart({
  A: "~ x ~ x", B: "~@3 x ~@3 x ~ x ~@2", C: "~@3 x",
})).gain(0.52)

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

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

// drums · ride
const ride = s("rd").struct(`<
  ~@2 A B@7 A B@3 A B@3 A B@4 A B@3 A B@3 A B@3 A B@4 A B@3 A B@3 A B@3 A B@8 A B@3 A B@3 A B@3 A B@3 ~@2
>`.pickRestart({
  A: "~ x!7", B: "x!8",
})).gain(0.23)

// drums · tambourine
const tambourine = s("tb").struct("<~@57 [x!8]!4 ~@18>").gain(0.29)

stack(
  bass, epiano2, piano, piano_soft, lead_3_calliope, string_ensemble_1, whistle, bass_2, orchestral_harp,
  electric_guitar_jazz, kick, clap, snare, hihat, crash, ride, tambourine
)