// L'Enfant et la Mer — Clayderman Richard
// 130 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: duplicate parts dropped: ch 2 cello (copy of ch 3 piano)
// note: Full arrangement: all 49 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(130/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 · piano
const piano = note(`<
  A@2 B@2 C D E F G H I J C K L M N@2 O@2 P@2 Q R S T U V W X Y Z G H I J C K L AA N@2 O@2 P@2 Q AB ~
>`.pickRestart({
  A: "[~@3 b2 ~ b2 c3@4 b2@2 a2@2 ~ a2, ~@6 a2@6 c3@5 ~@25 b2@6]/2",
  B: "[~ a2 ~ c3 b2@6 a2@2 g2@2 ~ g2, g2 b2 ~@5 a2]/2", C: "f2 g2 a2 c3", D: "~@3 c3 a2@2 g2 f2, f3@11 ~@13",
  E: "e2 f#2 g#2 b2", F: "~@3 f3 e3@4, e3 ~", G: "~@3 b2 ~ d3 ~ b2, ~ a2 c3!2", H: "~ b2 c3@4 ~ a2, a2 ~@2 b2",
  I: "~@3 a2 b2 c3 ~ c3, g2@12 ~@6 d3@5 ~", J: "~@3 a2 ~@3 g2, b2@4 g2@3 ~, ~@3 a2", K: "f3 g3 f3@4 ~ f3, ~@3 g3",
  L: "~@3 d3 ~@3 f3, e3!2", M: "~@9 f3@3 e3@2 ~@7 b2@3, e3@11 ~@4 d3@9, ~@3 c3", N: "[a2@14 ~ a2, ~@7 b2]/2",
  O: "[~@15 g2, g2@15 ~, ~@7 a2]/2", P: "[~@15 f2, f2@15 ~, ~@7 g2]/2", Q: "e2 f#2 ~ b2, ~@12 g#2@11 ~",
  R: "~@7 e3, e3@7 ~, ~@3 b2", S: "a2@6 a2@6 a3@9 a3@2 ~", T: "a2@12 ~@6 a2@5 ~, ~@12 a3@11 ~",
  U: "g2@5 ~ g2@6 ~@9 g2@3, ~ g3", V: "g2@11 ~@7 g2@6, ~ g3", W: "f2@2 f2@2 ~@3 f2, ~ f3", X: "f2@12 f3@6 f2@5 ~",
  Y: "~@9 f2@3 ~@9 d2@2 ~, e2@11 ~ e2@11 ~", Z: "e2@4 ~@8 b2@3 e2@6 e2 ~@2",
  AA: "~@9 f3@3 e3@2 ~@7 b2@3, e3@4 ~ d3@3, ~@3 c3", AB: "e3@7 ~",
})).s("gm_piano").gain(0.56)

// chords · piano
const piano_2 = note(`<
  A B C D E F G H I J K L M N O P Q@2 R@2 S@2 T U V W X Y Z AA AB AC I J K L M N O P AD@2 R@2 S@2 AE AF ~
>`.pickRestart({
  A: "[c5,e5,a5]@6 [c5,e5,a5]@3 ~@3 [c5,e5,a5]@5 ~ [c5,e5,a5]@3 ~@3", // Am
  B: "[c5,e5]@2 ~@4 [c5,e5,a5]@3 ~@3 [c5,e5,a5]@6 [c5,e5,a5]@6, a5 ~@3", // C Am
  C: "[b4,e5,g5]@2 [b4,e5,g5]@2 [b4,e5,g5] ~ [b4,e5,g5]@2", D: "[b4,e5,g5] [b4,g5] [b4,e5,g5]!2, ~@3 e5 ~@8",
  E: "[c5,f5,a5]@6 [c5,a5]@3 ~@3 [c5,f5,a5]@2 ~@4 [c5,f5,a5]@6, ~ f5 ~@2", // F
  F: "[c5,f5,a5]@3 ~@3 [c5,f5,a5]@6 [c5,f5]@2 ~@4 [c5,f5,a5]@3 ~@3, ~@2 a5 ~", // F F5 F
  G: "[b4,e5,g#5]@3 ~@3 [b4,e5] ~@5 [b4,e5,g#5]@5 ~ [b4,e5,g#5]@6, ~ g#5 ~@2", // E E5 E
  H: "[b4,e5]@2 ~@4 [b4,e5,g#5]@6 [b4,e5,g#5]@3 ~@3 [b4,e5,g#5]@6, g#5 ~@3", // E5 E
  I: "[c5,e5,a5] ~ [c5,e5,a5]@2 [c5,e5,a5]@2 [c5,e5,a5]@2", // Am
  J: "[c5,e5,a5]@6 [c5,e5,a5]@3 ~@3 [c5,e5,a5]@6 [c5,e5,a5]@2 ~@4", // Am
  K: "[b4,d5,g5]@3 ~@3 [b4,d5,g5]@6 [d5,g5]@3 ~@3 [b4,d5,g5]@5 ~, ~@2 b4 ~", // G G5 G
  L: "[b4,d5,g5] ~ [b4,d5,g5]@2 [b4,d5,g5] ~ [b4,d5,g5]@2", // G
  M: "[c5,f5,a5]@6 [c5,f5]@3 ~@3 [c5,f5,a5]@6 [c5,f5,a5]@2 ~@4, ~ a5 ~@2", // F F5 F
  N: "[c5,f5,a5]@2 ~@4 [c5,f5,a5]@4 ~@2 [c5,f5,a5]@6 [c5,f5,a5]@3 ~@3", // F
  O: "[b4,e5,g#5]@2 [b4,e5,g#5]@2 [b4,e5,g#5] ~ [b4,e5,g#5]@2", // E
  P: "[b4,e5,g#5] ~ [b4,e5,g#5]@2 [b4,e5,g#5] ~ [b4,e5,g#5]@2", // E
  Q: "[~@6 [a4,c5]@2 ~@4 [a4,c5]@2 ~@4 [a4,c5]@2 ~@4 [a4,c5]@4 [a4,c5]@4 [a4,c5,e5]@4 [e4,a4,d5]@3 ~@3 [e4,a4]@2 ~@4, e5@16 ~@5 c5@3, ~@28 f5@9 ~@11]/2", // Am Dsus2 A5
  R: "[[g4,b4]@3 ~@3 [g4,b4]@6 [g4,b4]@6 [g4,b4]@6 [g4,b4]@4 [g4,b4]@4 [g4,b4,e5]@4 e4@6 [e4,a4,c5]@6, e5@8 ~ [b4,d5]@3, ~@28 f5@9 ~@11]/2", // G Em Am Bm
  S: "[[a4,c5,e5]@3 ~@3 [a4,e5]@2 ~@4 [a4,c5,e5]@2 ~@4 [a4,c5,e5]@6 [a4,c5,e5]@4 [a4,c5,e5]@4 [a4,c5]@4 [e4,a4]@6 [e4,a4,d5]@6, a5@2 [e5,a5], ~@6 c5 ~@21 g5@20, ~@3 c5]/2", // Am A5 Am A5 Dsus2 A5
  T: "e5 ~@2 f5@3 [g#4,b4]@3 ~@3 [g#4,b4]@3 ~@6 d5@3, [g#4,b4] e5@3, ~@3 [g#4,b4]", // G#m
  U: "[g#4,b4]@2 [g#4,b4]@2 [g#4,b4]@2 ~ d5, e5, ~@3 [g#4,b4]", // G#m
  V: "[c4,e4]@6 ~@3 b4@3 c5@2 ~@7 d5@2 ~, ~@6 [c4,e4,a4]@6 [e4,a4]@6 [e4,a4,c5]@5 ~, ~@15 b4@8 ~", // C Am A5 Am
  W: "e4@6 [c4,e4,b4]@6 [c4,e4,a4]@3 ~@6 a4@2 ~, [a4,c5]@12 ~@6 [c4,e4,b4]@5 ~", // Cmaj7 Am Cmaj7
  X: "g4@3 a4@2 ~ b4 ~@2 c5@3 [e4,g4]@6 ~@3 a4@3, [b3,e4]@5 ~ [e4,g4]@6 b4@12, ~@3 [e4,g4]", // Em E5 Em
  Y: "[b3,e4]@2 ~ a4 e4@2 ~ g4, g4@11 ~ b4@12, ~@2 [b3,e4]@2 g4@3 ~, ~@3 [b3,e4,a4]", // E5 Esus4
  Z: "[c4,f4] [a3,c4,g4] [f4,a4] [f4,a4,c5], a3 ~@11 c4@12", // F5 Am7 F
  AA: "a4@6 [a4,c5]@6 [a4,c5]@5 ~@4 f5@2 ~, f5@3 ~, c5@3 ~@15 [a4,c5,e5]@5 ~", // Am
  AB: "[g#4,b4]@2 ~ f5 g#4@2 ~ d5, e5@12 e5@11 ~, ~@6 [g#4,b4]@6 b4@2 ~@4 [g#4,b4]@5 ~", // G#m
  AC: "[g#4,b4,e5]@3 ~@6 f5@3 [g#4,b4]@3 ~@3 [g#4,b4]@4 ~@2, ~@3 f5@6 ~@3 e5@10 ~@2, ~ [g#4,b4,e5] ~@2", // E G#m E
  AD: "[~@6 [a4,c5]@2 ~@4 [a4,c5]@2 ~@4 [a4,c5]@2 ~@4 [a4,c5]@4 [a4,c5]@4 [a4,c5,e5]@4 [e4,a4,d5]@3 ~@3 [a4,c5]@6, e5@16 ~@5 e4 ~@2, ~@28 f5@9 ~@11]/2", // Am Dsus2 Am
  AE: "e5 ~@2 f5@3 [g#4,b4]@3 ~@3 [g#4,b4]@3 ~@6 d5@2 ~, [g#4,b4] e5@3, ~@3 [g#4,b4]", AF: "[g#4,b4] ~@3, e5",
})).s("gm_piano").gain(0.56)

// chords · string ensemble 1
const string_ensemble_1 = note(`<
  A B C D E F G H I J K L M N O P Q R S T U V@2 W X@5 Y@3 I J K L Z AA AB AC AD AE AF AG U AH AI AJ ~
>`.pickRestart({
  A: "[c4,e4,a4] ~@5 [c4,e4] ~@5 [c4,e4,a4] ~@5 [c4,e4] ~@5, ~@3 a4 ~@5 a4 ~@2", // Am C Am C
  B: "[c4,e4] ~@5 [c4,e4] ~@5 [c4,e4] ~@5 [c4,e4] ~@5, a4 ~@2 a4 ~@2 a4 ~@2 a4 ~@2", // C
  C: "[g4,b4]@2 ~@4 [e4,g4] ~@5 [e4,g4] ~@5 [e4,g4] ~@5, e4 ~@5 b4@2 ~@4 b4@2 ~@4 b4@2 ~@4", // G Em
  D: "[e4,g4] ~@5 [g4,b4]@2 ~@4 [g4,b4]@2 ~@4 [e4,g4,b4] ~@5, b4@2 ~@4 e4 ~@5 e4 ~@11", // Em G Em
  E: "[f4,a4,c5] ~@5 [a4,c5]@2 ~@4 [f4,c5]@2 ~@4 [f4,a4] ~@5, ~@6 f4 ~@5 a4 ~@5 c5@2 ~@4", // F Am F5 F
  F: "[a4,c5] ~@2 [f4,c5] ~@2 [a4,c5] ~@2 [a4,c5] ~@2, f4 ~@5 a4 ~@5 f4 ~@5 f4 ~@5", // Am F5 Am
  G: "[g#4,b4]@2 ~@4 [g#4,b4]@2 ~@4 [e4,g#4] ~@5 [e4,b4] ~@4 g#4, e4 ~@5 e4 ~@5 b4@2 ~@3 g#4@2 ~@5", // G#m E E5
  H: "b4@2 ~@3 [e4,g#4] ~@5 g#4 e4 ~@4 [g#4,b4] e4 ~@5, e4 ~@4 b4@2 ~@4 b4@2 ~@11", // E G#m
  I: "[a4,c5] ~@5 [a4,c5] ~@5 [a4,c5,e5] ~@5 [a4,c5,e5] ~@5, e5 ~@2 e5 ~@8", // Am
  J: "[a4,c5,e5] ~@5 [a4,c5,e5] ~@5 [a4,c5,e5] ~@5 [a4,c5] ~@5, ~@9 e5 ~@2", // Am
  K: "[g4,b4] ~@5 [g4,b4] ~@5 [g4,b4] ~@5 [g4,b4] ~@5, d5 ~@2 d5 ~@2 d5 ~@2 d5 ~@2", // G
  L: "[g4,b4] ~@5 [g4,b4] ~@5 [g4,b4,d5] ~@5 [g4,b4] ~@5, d5 ~@2 d5 ~@5 d5 ~@2", // G
  M: "[f4,a4,f5] ~@5 [f4,a4,c5,f5] ~@5 [f4,a4,c5] ~@5 [c5,f5]@2 ~@4, c5@2 ~@10 f5@2 ~@4 [f4,a4] ~@5", // F F5 F
  N: "[f4,a4,c5] ~@5 [f4,a4,c5,f5] ~@5 [f4,a4,c5,f5] ~@5 [f4,a4,c5] ~@5, f5 ~@8 f5 ~@2", // F
  O: "e5@2 ~@4 [g#4,b4] ~@5 [e4,g#4,b4] ~@5 [e4,g#4,b4] ~@5, b4 ~@5 e5@2 ~@4 e5@2 ~@4 e5@2 ~@4", // G#m E
  P: "[g#4,b4] ~@4 b4 e5@2 ~@4 g#4@2 ~@4 [g#4,e5]@2 ~@4, e5@2 ~@3 e4@2 ~@4 [e4,b4,e5]@2 ~@11, ~@6 g#4 ~@11 b4 ~@5", // G#m C#m E5
  Q: "a4@2 ~@3 e5@2 ~@4 c5@2 ~@5 [a4,c5] ~@5, c5 ~@10 a4 ~@6 e5@2 ~@4", // Am
  R: "[a4,c5] ~@2 e5 ~@2 a4 ~@2 e5 ~@2, ~@12 c5 ~@11", S: "[f4,g4,b4] ~@5 e5@2 ~@4 [g4,b4] ~@5 e5@2 ~@4",
  T: "g4@2 ~@4 e5@2 ~@4 [g4,b4] ~@4 [a4,c5] ~@6, b4 ~@23", U: "[f4,a4] ~@5 e5@2 ~@4 f4@2 ~@4 e5@2 ~@4, ~@12 a4 ~@11",
  V: "[f4@2 ~@4 e5@2 ~@4 f4@2 ~@4 e5@2 ~@4 e4@4 ~@2 e5@2 ~@4 e4@2 ~@3 e5@2 ~@5, a4 ~@11 a4 ~@10 g#4@4 ~@8 g#4@3 ~@10]/2",
  W: "[e4,g#4]@2 ~@4 e5@2 ~@4 [e4,g#4]@4 ~@2 e5@3 ~@3", // E
  X: "[[a4,c5]@6 e5@2 ~@4 [a4,c5]@6 e5@3 ~@3 c5@5 e5@4 [a4,c5]@6 e5@6 [g4,b4]@6 e5@6 [g4,b4]@7 ~@8 b4@6 e5@5 ~@4 e5@6 [f4,a4]@7 ~@2 e5@6 [f4,a4]@6 e5@6, ~@23 a4@6 ~@37 e5@6 f4 ~@47, ~@71 g4@7 ~@5 [g4,b4]@9 ~@28]/5", // Am G F G
  Y: "[[f4,a4]@6 e5@5 [f4,a4]@6 e5@6 [e4,g#4]@6 e5@6 ~ e4@5 e5@5 ~ [e4,g#4]@7 e5@5 ~ e4@6 e5@3 ~@3, ~@35 g#4@6 ~@18 g#4@7 ~@6]/3", // F E
  Z: "[f4,a4,c5,f5] ~@5 [f4,a4,c5,f5] ~@5 [f4,a4,c5] ~@5 [f4,a4,c5] ~@5, ~@6 f5 ~@2 f5 ~@2", // F
  AA: "[f4,a4,c5] ~@5 [f4,a4,c5] ~@5 [f4,a4,c5] ~@5 [f4,a4,c5] ~@5, f5 ~@2 f5 ~@2 f5 ~@2 f5 ~@2", // F
  AB: "e5@2 ~@4 [g#4,b4] ~@5 [e4,g#4,b4] ~@5 [e4,g#4,b4] ~@4 b4, b4 ~@5 e5@2 ~@4 e5@2 ~@4 e5@2 ~@4", // G#m E
  AC: "e5@2 ~@3 [e4,e5]@2 ~@5 g#4@2 ~@4 [g#4,e5]@2 ~@4, g#4 ~@4 [g#4,b4] ~@5 [b4,e5]@2 ~@5 b4 ~@5, ~@12 e4 ~@11", // E C#m G#m E5
  AD: "[a4,c5] ~@4 e5@2 ~@4 [a4,c5]@2 ~@5 [a4,c5] ~@5, ~@9 e5 ~@2", AE: "c5 ~@2 e5 ~@2 a4 ~@2 e5 ~@2, a4 ~@11 c5 ~@11",
  AF: "[f4,b4] ~@5 e5@2 ~@4 [g4,b4] ~@5 e5@2 ~@4, g4 ~@11", AG: "g4@2 ~@4 e5@2 ~@4 [g4,b4] ~@4 a4 c5 ~@5, b4 ~@23",
  AH: "f4 ~@2 e5 ~@2 f4 ~@2 e5 ~@2, a4 ~@11 a4 ~@11", AI: "[e4,g#4]@4 ~@2 e5@2 ~@4 [e4,g#4]@3 ~@3 e5@2 ~@4",
  AJ: "[e4,g#4] ~@11", // E
})).s("gm_string_ensemble_1").gain(0.3).pan(0.2)

// other · string ensemble 2
const string_ensemble_2 = note("<A@2 B@2 C@2 B@2 D@6 E@4 F@2 C@2 G@2 H@8 D@6 I@4 F@2 C@2 J@2 ~>".pickRestart({
  A: "[~ a3@7]/2", B: "e3/2", C: "f3/2", D: "[a3@47 g3@48 f3@48 ~]/6", E: "[e3@40 c3@7 a2@43 g2@6]/4",
  F: "[g3@41 a3@7]/2", G: "[e3@41 ~ c3@6]/2", H: "[a2@47 g2@41 b2@7 a3@48 e3@48 ~]/8", I: "[e3@20 c3@3 a2@22 g2@3]/4",
  J: "[e3@41 ~@7]/2",
})).s("gm_string_ensemble_2").gain(0.35).pan(0.9)

// other · flute
const flute = note("<~@16 A@4 B@2 C D@2 E F G H I J K ~@8 A@2 L@2 B@2 C M ~>".pickRestart({
  A: "[e5@14 f5@2 e5@2 d5@3 c5@3]/2", B: "[a5@14 g5@2 a5@2 c5@3 d5@3]/2", C: "e5 f5 e5@5 d5",
  D: "[e5@7 d5@2 ~ a4 b4 c5 b4 c5 d5]/2", E: "c5@2 b4@2 a4@2 b4 a4", F: "g4 a4 b4 c5 b4@3 a4", G: "g4@3 a4 b4@2 a4 g4",
  H: "f4 g4 a4 c5", I: "f5@6 e5 f5", J: "e5@9 f5@3 e5@8 ~ d5@3", K: "e5@3 f5@3 e5@3 f5@3 e5@8 ~@4",
  L: "[e5@28 f5@4 e5 ~@3 d5@6 c5@6]/2", M: "e5@7 ~",
})).s("gm_flute").gain(0.28).pan(0.4)

// other · timpani
const timpani = note("<~@31 A B ~ C ~ D ~ E A F G C H D I E ~@2>".pickRestart({
  A: "~@21 e2!2 ~", B: "[a2,b2] ~@7", C: "g2 ~@7", D: "f2 ~@7", E: "e2 ~@7", F: "a2 ~@7", G: "~@6 a2 ~", H: "~@6 g2 ~",
  I: "~@6 f2 ~",
})).s("gm_timpani").gain(0.48).pan(0.7)

stack(piano, piano_2, string_ensemble_1, string_ensemble_2, flute, timpani)