// Figure di cartone — Le Orme
// 100 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: metre changes (4/4 at bar 1, 3/4 at bar 29, 4/4 at bar 30, 3/4 at bar 33, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: Transcription provider: pdmx. https://musescore.com/score/5977929; license: https://creativecommons.org/publicdomain/zero/1.0/
// note: Full arrangement: all 90 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(100/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 · acoustic guitar steel · "Chitarra acustica"
const acoustic_guitar_steel = note(`<
  A B C B C B C B D E F G H G H G I E J K H G H G D L M N O@2 P Q R S T U S U V W S X Y Z AA Z AA Z AA X Y Z AA Z AA Z
  AA Z AA X Y X Y ~@3 AB ~ AC AD AE AB ~ AC ~@2 AB ~ AF AD AG AB ~ AF ~@2 AH@2 AI@2
>`.pickRestart({
  A: "~@2 [e3,g3,b3,e4]!2", B: "[e3,g3,b3,e4]!2 [e3,a3,c#4,e4]!2", C: "[e3,a3,c#4,e4]!2 [e3,g3,b3,e4]!2",
  D: "[e3,a3,c#4,e4]!2 [d3,a3,d4,f#4]!2", E: "[d3,a3,d4,f#4]!2 [d3,f#3,a3,d4]!2",
  F: "[d3,f#3,a3,d4]@2 [d3,f#3,a3,d4]@2 [e3,g3,b3,e4]@2 [e3,g3,b3,e4]!2", // D Em
  G: "[e3,g3,b3,e4]@2 [e3,g3,b3,e4]!2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]!2", // Em A
  H: "[e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2 [e3,g3,b3,e4]@2 [e3,g3,b3,e4]!2", // A Em
  I: "[e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2 [d3,a3,d4,f#4]@2 [d3,a3,d4,f#4]!2", // A D
  J: "[d3,f#3,a3,d4]@2 [d3,f#3,a3,d4]@2 [e3,g3,b3,e4]!2 [e3,g3,b3,e4]@2", // D Em
  K: "[e3,g3,b3,e4]!2 [e3,g3,b3,e4]@2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]!2", // Em A
  L: "[d3,a3,d4,f#4]!2 [d3,a3,d4,f#4]@2 [d3,f#3,a3,d4]@2 [d3,f#3,a3,d4]@2", // D
  M: "[d3,f#3,a3,d4]!2 [d3,f#3,a3,d4]@2 [g3,b3,d4,g4]@2 [g3,b3,d4,g4]@2", N: "[g3,b3,d4]!2 [c3,g3,c4,e4]!2",
  O: "[[g3,c4,e4]@2 [g3,c4,e4]@2 [d3,f3,a#3]@2 [d3,f3,a#3] [f3,a3,c4]@2 [f3,a3,c4] [g3,c4,e4]@2 [g3,c4,e4]@2 [g3,c4,e4]@2]/2", // C A# F C
  P: "[g3,c4,e4] [d3,f3,a#3]!2 [f3,a#3,d4]", Q: "[f3,a#3,d4] [f3,a3,c4]!2 [a3,c4,f4]",
  R: "[a3,c4,f4]@2 [e3,g3,c4]@2 [e3,g3,c4] [f3,a#3,d4]@2 [f3,a#3,d4]", S: "[e3,a3,c#4,e4]!4",
  T: "[e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4] ~", U: "[e3,g3,b3,e4]!4",
  V: "[e3,a3,c#4,e4]!3 [a3,c#4], ~@12 [e3,e4] ~@3", // A E
  W: "[e3,g3,b3,e4] ~ [e3,g3,b3,e4]@2 [e3,g3,b3,e4]@2 [e3,g3,b3,e4]@2", X: "[d3,a3,d4,f#4]!4", Y: "[d3,f#3,a3,d4]!4",
  Z: "[e3,g3,b3,e4]@2 [e3,g3,b3]!2 [e3,g3,b3,e4]@2 [e3,g3,b3]!2 [e3,g3,b3,e4]@2 [e3,g3,b3]!2 [e3,g3,b3,e4]@2 [e3,g3,b3,e4]@2", // Em
  AA: "[e3,a3,c#4,e4]@2 [e3,a3,c#4]!2 [e3,a3,c#4,e4]@2 [e3,a3,c#4]!2 [e3,a3,c#4,e4]@2 [e3,a3,c#4]!2 [e3,a3,c#4,e4]@2 [e3,a3,c#4,e4]@2", // A
  AB: "~@12 e3 [g3,b3] e4 ~", AC: "e3 [a3,c#4] a4 ~@13", AD: "~@4 e3 [g3,b3] e4 ~@9", AE: "~@8 e3 [a3,c#4] a4 ~@5",
  AF: "e3 [a3,c#4] e4 ~@13", AG: "~@8 e3 [a3,c#4] e4 ~@5", AH: "[~@13 [b3,e4]@19, ~@3 [e3,g3]@5]/2",
  AI: "[~ [c#4,e4]@19 ~@12, [e3,a3]@5 ~@3]/2", // C#m A5
})).s("gm_acoustic_guitar_steel").gain(0.4)

// other · english horn · "Corno inglese"
const english_horn = note(`<
  ~@2 A B C B C B D ~ A B C B C B E ~ A B C B C B E ~@2 F@2 ~ G@3 ~@2 H I H I H J K ~@25 L M@4 N O@3 ~ L M@4 L O@3 ~ P
  Q@2
>`.pickRestart({
  A: "~@6 b4!2", B: "d5@3 f#5!2 e5!2 d5", C: "e5 e5@3 ~@2 b4!2", D: "e5!2 d5 e5 f#5@4", E: "e5@2 d5 e5 f#5@4",
  F: "[g5@3 a5@2 g5@3 g5@4 g5@12 ~@8]/2", G: "[~@12 f5@3 g5@2 f5@3 a5@4 g5@2 f5@10 ~@12]/3", H: "~@2 b4!2 d5@3 f#5",
  I: "f#5 e5!2 d5 e5 e5@3", J: "f#5 e5!2 d5 e5!2 d5 e5", K: "f#5 f#5@3", L: "~ b4@2 b4@2 ~ d5@5 f#5@5",
  M: "[f#5@2 e5@2 ~ e5@2 d5@2 ~ e5@2 e5@7 ~@6 b4@2 b4@2 ~ d5@5 f#5@5 f#5@2 e5@2 ~ e5@2 d5@2 ~ e5@2 e5@7 ~@5]/4",
  N: "~ b4@2 b4@2 ~ d5@5 f#5@2 f#5@2 ~", O: "[f#5@2 e5@2 ~ e5@2 d5@2 ~ e5@2 e5@2 ~ d5@2 e5@2 ~ f#5@2 f#5@17 ~@9]/3",
  P: "~ b4@2 b4@2 ~ d5@7 f#5@2 ~", Q: "[f#5@2 e5@2 ~ e5@2 d5@2 ~ e5@2 e5@7 ~@13]/2",
})).s("gm_english_horn").gain(0.4)

// chords · drawbar organ · "Organo Hammond"
const drawbar_organ = note(`<
  ~@26 A@7 B@2 C D C D C D E@2 ~@8 F G F G F G F G H I H I J@2 ~@9 K@4 L@5 M@4 ~@3
>`.pickRestart({
  A: "[~@4 [g4,b4,d5]@8 [g4,c5,e5]@8 [f4,a#4,d5]@3 [f4,a4,c5]@3 [g4,c5,e5]@8 [f4,a#4,d5]@8 [f4,a4,c5]@8 [e4,g4,c5]@3 [f4,a#4,d5]@3]/7", // G C A# F C A# F C …
  B: "[a4,c#5,e5]/2", C: "[b4,e5,g5] [g4,b4,e5] [b4,e5,g5] [g4,b4,e5] [b4,e5,g5] [g4,b4,e5] [b4,e5,g5] [g4,b4,e5]",
  D: "[c#5,e5,a5] [a4,c#5,e5] [c#5,e5,a5] [a4,c#5,e5] [c#5,e5,a5] [a4,c#5,e5] [c#5,e5,a5] [a4,c#5,e5]", // A
  E: "[d5,f#5,a5] [a4,d5,f#5] [d5,f#5,a5] [a4,d5,f#5] [d5,f#5,a5] [a4,d5,f#5] [d5,f#5,a5] [a4,d5,f#5]", F: "[g4,b4,e5]",
  G: "[a4,c#5,e5]", H: "[f#4,a4,d5]", I: "[a4,d5,f#5]", J: "[[e4,g4,b4]@5 ~@3]/2",
  K: "[~ [a4,d5,f#5]@10 [g4,b4,e5]@5]/4", L: "[[a4,c#5,e5] [g4,b4,e5] [a4,c#5,e5] [g4,b4,e5]]/5",
  M: "[[a4,c#5,e5]@5 [a4,d5,f#5]@10 ~]/4", // A D
})).s("gm_drawbar_organ").gain(0.4)

// other · piano
const piano = note("<~@64 A@3 B C@2 D@2 B E@2 ~@3 F@2 G@2 ~ F@2 ~@5>".pickRestart({
  A: "[~@9 b4@5 g4@5 a4@5 e4@5 b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~ e4@2 e5@2]/3",
  B: "~ b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~",
  C: "[e4@2 e5@2 ~ b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~ e4@2 e5@2 ~ b4@2 b5@2 ~ g4@2]/2",
  D: "[g5@2 ~ a4@2 a5@2 ~ e4@2 e5@2 ~ b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~ e4@2 e5@2]/2",
  E: "[e4@2 e5@2 ~ b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~@13]/2", F: "[~@5 b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~@13]/2",
  G: "[~@13 b4@2 b5@2 ~ g4@2 g5@2 ~ a4@2 a5@2 ~@5]/2",
})).s("gm_piano").gain(0.4)

// bass · electric bass finger · "Basso elettrico"
const bass = note("<~@76 A@2 B@5 C@5 D@2>".pickRestart({
  A: "[~@3 e2@5]/2", B: "[a2 e2 a2 e2]/5", C: "[a2@2 d2 d3 d2 d3 e2@2]/5", D: "[a2@5 ~@3]/2",
})).s("gm_electric_bass_finger").gain(0.4)

// drums · kick
const kick = s("bd").struct(`<
  ~@2 A B C D E B C D F G H G I G H G H@10 J K L M N O P H O@7 H@2 Q H Q H Q H@12 R S ~@10 T U V W X Y U Z W AA AB U Z
  ~@3
>`.pickRestart({
  A: "~ x ~ x ~ x ~ x!2 ~@2 x ~@4", B: "x!2 ~ x ~@4 x ~ x ~@4 x", C: "x ~ x!2 ~@3 x!2 ~@2 x ~@4",
  D: "x!2 ~ x ~@4 x ~@2 x!2 ~@3", E: "x ~@3 x ~@3 x ~@2 x ~@4", F: "x ~@3 x ~@3 x ~@2 x ~@3 x",
  G: "~@3 x ~ x ~ x!2 ~@2 x ~@3 x", H: "x ~@2 x ~@3 x!2 ~@2 x ~@3 x", I: "x ~@2 x!2 ~@3 x ~@2 x ~@3 x",
  J: "x ~@2 x ~@3 x!2 ~@5 x ~", K: "~@4 x ~@2 x ~ x ~ x!2 ~@2 x", L: "~ x ~ x!2 ~@2 x ~ x ~ x!2 ~@2 x",
  M: "~ x ~ x!2 ~@2 x ~ x ~ x!2 ~@3", N: "x ~ x ~@2 x ~@2", O: "x ~@2 x ~ x ~ x!2 ~@2 x ~ x ~ x", P: "x!4",
  Q: "x ~@2 x ~@3 x ~@3 x ~ x ~ x", R: "x ~@2 x ~@3 x!2 ~@2 x ~@4", S: "x", T: "~@4 x ~@3 x ~@4 x!3",
  U: "~@2 x ~ x ~@2 x!2 ~@3 x ~@3", V: "~ x!3 ~@2 x!2 ~@4 x ~@3", W: "x ~@4 x!3 ~@2 x ~ x ~@2 x",
  X: "x ~@3 x ~@4 x!3 ~@2 x!2", Y: "~@3 x!2 ~@3 x ~@4 x!3", Z: "~ x!3 ~@2 x ~ x ~@2 x!2 ~@3",
  AA: "x ~@3 x ~@4 x!3 ~@2 x ~", AB: "x ~@2 x!2 ~@3 x ~@4 x!3",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct(`<
  ~@2 A B C D E B C F E G@3 E G@13 H I J@2 K G ~ G@27 L ~@11 M N ~ O P M N Q O P M N Q ~@3
>`.pickRestart({
  A: "x!2 ~ x ~@8 x ~@3", B: "~@4 x ~@2 x ~@4 x!2 ~@2", C: "~@4 x!2 ~@6 x ~@2 x", D: "~@4 x ~@2 x ~@4 x!4", E: "~@3 x",
  F: "~@4 x!2 ~ x ~@4 x!4", G: "~ x ~ x", H: "~@4 x ~@3 x ~@2 x!2 ~ x ~", I: "~ x!2 ~@5 x ~@7", J: "x!2",
  K: "~@4 x ~@2 x!2 ~ x ~@2 x!2 ~", L: "~ x ~@2", M: "~@9 x ~@6", N: "~@3 x ~@9 x ~@2", O: "~ x ~@9 x ~@4",
  P: "~@5 x ~@10", Q: "~@7 x ~@8",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@2 A B@2 C A B D C A B@3 E B@3 E B@9 F G B C ~ B ~ B@15 C B@11 C ~@11 H I J K L M I N K L M I O ~@3
>`.pickRestart({
  A: "~@4 x!4", B: "x!8", C: "x!6 ~@2", D: "x!4 ~ x!3", E: "x!2 ~@2 x!4", F: "x!4 ~@4", G: "~@2 x!6",
  H: "~@6 x ~@2 x ~ x ~@2 x ~", I: "x ~@2 x ~ x ~@2 x ~ x ~@2 x ~ x", J: "~ x!2 ~@3 x!2",
  K: "~ x ~ x ~@2 x ~ x ~@2 x ~ x ~@2", L: "x ~ x ~@2 x ~ x ~@2 x ~ x ~@3", M: "~@4 x ~ x ~@2 x ~ x ~@2 x ~",
  N: "~@2 x ~ x ~@2 x ~ x ~@2 x ~ x ~", O: "~@2 x ~ x ~@2 x ~ x ~@6",
})).gain(0.4)

// drums · low tom
const low_tom = s("lt").struct("<~@34 [~@8 x!4 ~@4] ~@38 [~@12 x ~ x!2] [~ x ~@14] ~@15>").gain(0.4)

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

// drums · crash
const crash = s("cr").struct(`<
  ~@2 A ~@3 A@3 ~ A ~ A ~ A ~ A ~ A ~@5 A ~ A ~ B C@2 D E F ~ F ~@5 F ~ F ~ F ~ F ~ F ~ F ~ F ~ F ~ F ~ F ~ F ~ F ~@10 C
  ~@9 C ~ D ~@3
>`.pickRestart({
  A: "~ x", B: "~@4 x ~@2 x", C: "~ x ~@2", D: "~@3 x", E: "~@2 x ~@2 x ~@2", F: "x",
})).gain(0.4)

stack(acoustic_guitar_steel, english_horn, drawbar_organ, piano, bass, kick, snare, hihat, low_tom, mid_tom, crash)