// Pregher — Celentano
// 121 bpm, 4/4, key F# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 91 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(121/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 B C D E F A@3 B C D E F A@3 B C D E F A@3 B C D E F A G H I J K L M H N H I J K L M H N H I J K L M H O P Q R S F T
  P U P Q R S F T P U P Q R S F T P U P Q R S F T P U V U W
>`.pickRestart({
  A: "e2@2 ~@4 e2 ~ e2@2 ~@2 b1@2 d#2@2", B: "e2@2 ~@4 e2 ~ e2@2 ~@2 e2@2 d#2@2",
  C: "c#2@2 ~@4 c#2 ~ c#2@2 ~@2 b1@2 g#1@2", D: "c#2@2 ~@4 c#2 ~ c#2@2 ~@2 c#2@2 b1@2",
  E: "a1@2 ~@4 a1 ~ a1@2 ~@2 a1@2 c#2@2", F: "b1@2 ~@4 b1 ~ b1@2 ~@2 b1@2 d#2@2", G: "c2@2 ~@4 c2 ~ c2@2 ~@2 g1@2 b1@2",
  H: "f2@2 ~@4 f2 ~ f2@2 ~@2 c2@2 e2@2", I: "f2 ~@2 f2!2 ~ f2 e2", J: "d2@2 ~@4 d2 ~ d2@2 ~@2 c2@2 a1@2",
  K: "d2@2 ~@4 d2 ~ d2@2 ~@2 d2@2 c2@2", L: "a#1@2 ~@4 a#1 ~ a#1@2 ~@2 a#1@2 d2@2",
  M: "c2@2 ~@4 c2 ~ c2@2 ~@2 c2@2 e2@2", N: "f2 ~@2 f2!2 ~ c2 e2", O: "c#2 ~@2 c#2!2 ~ g#1 c2",
  P: "f#2@2 ~@4 f#2 ~ f#2@2 ~@2 c#2@2 f2@2", Q: "f#2 ~@2 f#2!2 ~ f#2 f2", R: "d#2@2 ~@4 d#2 ~ d#2@2 ~@2 c#2@2 a#1@2",
  S: "d#2@2 ~@4 d#2 ~ d#2@2 ~@2 d#2@2 c#2@2", T: "c#2@2 ~@4 c#2 ~ c#2@2 ~@2 c#2@2 f2@2", U: "f#2 ~@2 f#2!2 ~ c#2 f2",
  V: "f#2@2 f#2@2 ~@2 f#2 ~ f#2@2 ~@2 c#2@2 f2@2", W: "f#2",
})).s("gm_fretless_bass").gain(0.35)

// chords · rock organ
const rock_organ = note(`<
  ~@14 A@3 B C D E F A@3 B C D E F A G H I J K L M H@3 I J K L M H@3 I J K L M H N O P Q R S T O@3 P Q R S T O@3 P Q R S
  T O@3 P Q R S T O@4 U
>`.pickRestart({
  A: "[b4,e5]@6 b4 d#5", B: "[b4,e5]@6 e5 d#5", C: "[g#4,c#5]@6 g#4 b4", D: "[g#4,c#5]@6 c#5 b4", E: "[e4,a4]@6 a4 c#5",
  F: "[f#4,b4]@6 b4 d#5", G: "[g4,c5,e5]", H: "[c5,f5]@6 c5 e5, a4@7 ~", I: "[c5,f5]@6 f5 e5, a4@7 ~",
  J: "[a4,d5]@6 a4 c5, f4@7 ~", K: "[a4,d5]@6 d5 c5, f4@7 ~", L: "[f4,a#4]@6 a#4 d5, d4@7 ~",
  M: "[g4,c5]@6 c5 e5, e4@7 ~", N: "[c#5,f5]@6 c#5 f5, g#4@7 ~", O: "[c#5,f#5]@6 c#5 f5, a#4@7 ~",
  P: "[c#5,f#5]@6 f#5 f5, a#4@7 ~", Q: "[a#4,d#5]@6 a#4 c#5, f#4@7 ~", R: "[a#4,d#5]@6 d#5 c#5, f#4@7 ~",
  S: "[f#4,b4]@6 b4 d#5, d#4@7 ~", T: "[g#4,c#5]@6 c#5 f5, f4@7 ~", U: "[a#4,c#5,f#5]",
})).s("gm_rock_organ").gain(0.16).pan(0.7)

// chords · string ensemble 1
const string_ensemble_1 = note(`<
  ~@24 A B C D E F G H I@2 J K L M N O I@2 J K L M N O I@2 J K L M N P Q R S T U V W@2 X Y Z AA AB@2 AC@2 AD@2 AE AF AG
  AH AI AJ AD@2 AE AF AG AH AI AJ AI AJ AK
>`.pickRestart({
  A: "[e4,e5]@4 ~@2 [e4,e5]@5 ~ [e4,e5]@2 [d#4,d#5]@2", B: "[e4,e5]@5 ~ [e4,e5]@6 [e4,e5]@2 [d#4,d#5]@2",
  C: "[c#4,c#5]@4 ~@2 [c#4,c#5]@5 ~ [b3,b4]@2 [g#3,g#4]@2", D: "[c#4,c#5]@4 ~@2 [c#4,c#5]@5 ~ [c#4,c#5]@2 [b3,b4]@2",
  E: "[a3,a4]@4 ~@2 [a3,a4]@5 ~ [a3,a4]@2 [c#4,c#5]@2", F: "[b3,b4]@4 ~@2 [b3,b4]@5 ~ [e4,e5]@2 [d#4,d#5]@2",
  G: "[e4,e5]@4 ~@2 [e4,e5]@5 ~ [b3,b4]@2 [d#4,d#5]@2", H: "[e4,e5]@5 ~ [e4,e5]@5 ~ [c4,c5]@2 [e4,e5]@2",
  I: "[f4,f5]@4 ~@2 [f4,f5]@5 ~ [f4,f5]@2 [e4,e5]@2", J: "[d4,d5]@4 ~@2 [d4,d5]@5 ~ [c4,c5]@2 [a3,a4]@2",
  K: "[d4,d5]@4 ~@2 [d4,d5]@5 ~ [d4,d5]@2 [c4,c5]@2", L: "[a#3,a#4]@4 ~@2 [a#3,a#4]@5 ~ [a#3,a#4]@2 [d4,d5]@2",
  M: "[c4,c5]@4 ~@2 [c4,c5]@5 ~ [f4,f5]@2 [e4,e5]@2", N: "[f4,f5]@4 ~@2 [f4,f5]@5 ~ [c4,c5]@2 [e4,e5]@2",
  O: "[f4,f5]@5 ~ [f4,f5]@5 ~ [c4,c5]@2 [e4,e5]@2", P: "[f4,f5]@5 ~ [f4,f5]@5 ~ [c#4,c#5]@2 [f4,f5]@2",
  Q: "[f#4,f#5]@3 ~ [f#4,f#5]@5 ~ [g#4,g#5]@4 [a#4,a#5]@2", // F# G# A#
  R: "[a#4,a#5]@4 [g#4,g#5]@2 [f#4,f#5]@5 ~ [f4,f#5]@2 [d#4,d#5]@2, ~@12 f5 ~@3", // A# G# F# F#maj7 D#
  S: "~ f5 ~ f5!2 ~ f5 ~ f5!3 ~ [f4,f5]@4, [d#4,d#5]@3 ~", T: "[f4,f5]@9 [d#4,d#5]@2 ~ [a#3,a#4]@2 [f#3,f#4]@2",
  U: "[d#3,d#4]", V: "~@2 f#4!2 ~ f#4 [g#4,g#5]@2 [g#4,g#5]@7 ~, [f3,f4]@3 ~@5",
  W: "[[g#4,g#5]@6 [a#4,a#5]@2 [a#4,a#5]@11 ~ [c#4,c#5]@4 [f#4,f#5]@3 [g#4,g#5]@3 [a#4,a#5]@2]/2", // G# A# C# F# G# A#
  X: "[f#5,f#6]@3 ~ [f#5,a#5,f#6]@5 ~ [g#5,b5,g#6]@4 [a#5,c#6,a#6]@2, a#5 ~@15", // F# G#m A#m
  Y: "[a#5,c#6,a#6]@4 [g#5,b5,g#6]@2 [a#5,f#6]@5 ~ [g#5,f#6]@2 [d#5,f#5,d#6]@2, ~@3 f#5@4 ~, ~@12 [f5,f6] ~@3", // A#m G#m D#m G#7 D#m F
  Z: "~ f6 ~ f6!2 ~ f6 ~ f6!3 ~ [f5,g#5,f6]@4, [d#5,f#5,d#6]@3 ~", // Fm D#m
  AA: "[f5,g#5,f6]@9 [d#5,f#5,d#6]@2 ~ [a#4,d#5,a#5]@2 [f#4,a#4,f#5]@2", // Fm D#m D#5 F#
  AB: "[[d#4,d#5]@16 f4 ~ f#5!2 ~ f#5 [g#5,b5,g#6]@2 [g#5,b5,g#6]@7 ~, f#4@11 ~@5, ~@8 [g#4,f5]@3 ~@5]/2", // D# G#m C#
  AC: "[[g#5,b5,g#6]@3 [a#5,c#6,a#6] [a#5,c#6]@7 [f#5,a#5]@3 [f#5,a#5]@2, ~@8 a#6@23 ~]/2", // G#m A#m F#
  AD: "[f#4,f#5,f#6]@4 ~@2 [f#4,f#5,f#6]@5 ~ [f#4,f#5,f#6]@2 [f4,f5,f6]@2, a#4@3 a#4", // F# F
  AE: "[d#4,d#5,d#6]@4 ~@2 [d#4,d#5,d#6]@5 ~ [c#4,c#5,c#6]@2 [a#3,a#4,a#5]@2, f#4@3 f#4", // D# C# A#
  AF: "[d#4,d#5,d#6]@4 ~@2 [d#4,d#5,d#6]@5 ~ [d#4,d#5,d#6]@2 [c#4,c#5,c#6]@2, f#4@3 f#4", // D# C#
  AG: "[b3,b4,b5]@4 ~@2 [b3,b4,b5]@5 ~ [b3,d#4,b4,b5]@2 [d#4,d#5,d#6]@2, d#4@3 ~", // B D#
  AH: "[c#4,c#5,c#6]@4 ~@2 [c#4,c#5,c#6]@5 ~ [f#4,a#4,f#5,f#6]@2 [f4,g#4,f5,f6]@2, f4@3 ~", // C# F# Fm
  AI: "[f#4,f#5,f#6]@4 ~@2 [f#4,f#5,f#6]@5 ~ [c#4,c#5,c#6]@2 [f4,f5,f6]@2, a#4@3 a#4", // F# C# F
  AJ: "[f#4,f#5,f#6]@5 ~ [f#4,f#5,f#6]@5 ~ [c#4,c#5,c#6]@2 [f4,f5,f6]@2, a#4@3 a#4", AK: "[f#3,f#4,a#4,f#5,f#6]",
})).s("gm_string_ensemble_1").gain(0.14)

// other · french horn
const french_horn = note("<~@56 A@2 B C D E ~ F G@2 B C D E H@2 ~@19>".pickRestart({
  A: "[a#4@2 g#4@2 g#4@2 f#4@2 f#4@23 ~]/2", B: "~ f4@2 c#4 a#3@2 f#3@2", C: "f4@3 d#4@13",
  D: "~@2 d#4 f4 f#4 g#4 f#4 g#4", E: "~ f4@15", F: "~@8 f#4@3 g#4@2 ~ a#4@2", G: "[a#4 g#4 f#4@14]/2",
  H: "[[f#4,c#5]@15 ~]/2", // F#5
})).s("gm_french_horn").gain(0.27).pan(0.7)

// chords · orchestral harp · Gsus2 C Gsus2 C Am7 G#sus2 C# G#sus2 …
const orchestral_harp = note(`<
  ~@31
  [~@12 [g3,a3] [c4,d4,e4] [g4,a4] [c5,d5,e5]]
  [[g5,a5,c6] ~@15]
  ~@22
  [~@12 [g#3,a#3] [c#4,d#4,f4] [g#4,a#4] [c#5,d#5,f5]]
  [[g#5,a#5,c#6] ~@15]
  ~@34
>`).s("gm_orchestral_harp").gain(0.12)

// drums · kick
const kick = s("bd").struct("<~@32 A@7 B A@7 B A@7 B A@7 B A@7 B A@7 B A@7 B A B C>".pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x!2", C: "x",
})).gain(0.45)

// drums · snare
const snare = s("sd").struct("<~@32 A@7 B A@7 C A@7 C A@7 C A@7 C A@7 C A@9 C ~>".pickRestart({
  A: "~ x ~ x", B: "~@2 x ~ x ~ x ~ x ~ x ~ x ~ x!2", C: "~@4 x ~@2 x!2 ~ x ~ x ~ x ~",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@32 A@2 B A B@2 A C D A B A B@2 A C D A B A B@2 A C A@2 B A B@2 A C D A B A B@2 A C D A B A B@2 A C D A B A B@2 A@3 C
  ~
>`.pickRestart({
  A: "x!8", B: "x!3 ~ x ~ x ~ x ~ x ~ x ~ x ~", C: "x!3 ~ x ~ x ~", D: "~ x!7",
})).gain(0.3)

// drums · open hat
const open_hat = s("oh").struct("<~@39 A ~@7 A ~@7 A ~@7 A ~@7 A ~@7 A ~@9 A ~>".pickRestart({
  A: "~@7 x",
})).gain(0.25)

// drums · crash
const crash = s("cr").struct("<~@40 A ~@7 A ~@15 A ~@7 A ~@7 A ~@9 A>".pickRestart({
  A: "x",
})).gain(0.3)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<[~ x ~@2]!90 ~>").gain(2.26)

// drums · shaker
const shaker = s("sh").struct("<[~ x ~@6]!90 ~>").gain(0.35)

// drums · triangle
const triangle = s("triangles:35").struct("<[~@3 x]!90 ~>").gain(3.02)

stack(
  bass, rock_organ, string_ensemble_1, french_horn, orchestral_harp, kick, snare, hihat, open_hat, crash, cabasa,
  shaker, triangle
)