// I Believe I Can Fly — Kelly R
// 60 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 79 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(60/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 nylon · "Guitar"
const acoustic_guitar_nylon = note(`<
  A B C D C D E F E G E B H D E I J K L M H J N O P Q R D S T H F L D L G H U P K V M H P M W P K V Q J N X T Y Z AA AB
  AC AD AE AF Y Z AA AG AA AH AA Z AI AH AA AH AI Z AC AJ AK
>`.pickRestart({
  A: "~@6 a#3@7 ~@2 e4, [g2,e4,g4], d4@7 d4, a#3@6 ~@7 a#3@2 ~, ~ g3@3", // C
  B: "~@6 c4@7 ~@2 f4, [g2,f4,g#4], d4@7 d4, c4@6 ~@7 c4@2 ~, ~ g#3@3", // C#
  C: "~@14 d4 ~, [g2,d4,e4,g4]@15 ~, a#3@13 a#3@2 ~, ~@6 g3@9 ~", D: "[f4,g#4,c5,d5]@13 ~ f4 g#4, c4@12 ~ c4@2 ~",
  E: "~@6 c4@7 c4!2 e4, [c3,e4,g4], c4@3 ~@5, ~ g3@3", F: "~@14 d4 ~, [c3,d4,f4,g#4]@15 ~, c4@13 c4@2 ~, ~@6 g#3@9 ~",
  G: "~@6 c4@7 ~@2 f4, [c3,f4,g#4], d4@7 d4, c4@6 ~@7 c4@2 ~, ~ g#3@3", // Fm
  H: "~@13 c4!2 ~, [c3,e4,g4]@15 ~, c4@13 ~@3, ~@6 g3@9 ~", // C
  I: "[c4,d4,f4,g#4]@5 ~ [d4,f4,g#4]@2 [e2,g#3,c4,d4,e4]@7 ~, c3 ~, ~@5 c4@2 ~@9", // Dm7b5 Ddim Eaug
  J: "~@14 e4 ~, [a2,e4,g4,a4]@15 ~, c4@13 c4@2 ~, ~@6 a3@9 ~", // A7
  K: "~@6 c4@7 ~@2 f4, [g#2,f4,g#4], d4@7 d4, c4@6 ~@7 c4@2 ~, ~ g#3@3", L: "[e4,g4,c5]@13 ~ e4 g4, c4@12 ~ c4@2 ~",
  M: "[f4,a4,c5,d5]@13 ~ f4 a4, c4@12 ~ c4@2 ~", N: "~@14 d4 ~, [d3,d4,f4,a4]@15 ~, c4@13 c4@2 ~, ~@6 a3@9 ~",
  O: "[c4,d4,f4,a4]@5 ~ [d4,f4,a4]@2 b3@4 b3@2 d4@2, g2 [g#2,f4,g#4], ~@5 c4@2 ~ d4@6 ~@2", // Dm7 Dm C#
  P: "~@6 c4@7 ~@2 g4, [a2,g4,a4], e4@7 e4, c4@6 ~@7 c4@2 ~, ~ a3@3", // A7
  Q: "~@14 d4 ~, [g#2,d4,f4,g#4]@15 ~, c4@13 c4@2 ~, ~@6 g#3@9 ~", // Ddim
  R: "~@13 c4!2 ~, [g2,e4,g4]@15 ~, c4@13 ~@3, ~@6 g3@9 ~", S: "[g4,a4,c5,e5]@13 ~ g4 a4, c4@12 ~ c4@2 ~",
  T: "[e4,g4,a4,c5]@13 ~ e4 g4, a3@12 ~ a3@2 ~", U: "[c3,c4,d4,f4,g#4]@7 ~ [e2,g#3,c4,d4,e4]@7 ~",
  V: "~@6 c4@7 c4!2 e4, [g2,e4,g4], c4@3 ~@5, ~ g3@3", W: "[g2,c4,d4,f4,a4]@7 ~ [g#2,b3,d4,f4,g#4]@7 ~",
  X: "~@6 c4@7 c4!2 e4, [e3,e4,g4], c4@3 ~@5, ~ g3@3", Y: "[g#4,a#4,c#5,f5]@13 ~ g#4 a#4, c#4@12 ~ c#4@2 ~",
  Z: "~@6 c#4@7 ~@2 f#4, [a2,f#4,a4], d#4@7 d#4, c#4@6 ~@7 c#4@2 ~, ~ a3@3", // D
  AA: "~@6 c#4@7 c#4!2 f4, [g#2,f4,g#4], c#4@3 ~@5, ~ g#3@3", // C#
  AB: "~@14 d#4 ~, [g#2,d#4,f#4,a#4]@15 ~, c#4@13 c#4@2 ~, ~@6 a#3@9 ~", // D#m
  AC: "~@6 c#4@7 c#4!2 f4, [c#3,f4,g#4], c#4@3 ~@5, ~ g#3@3", // C#
  AD: "~@6 c#4@7 ~@2 g#4, [a#2,g#4,a#4], f4@7 f4, c#4@6 ~@7 c#4@2 ~, ~ a#3@3", // A#7
  AE: "[f#4,a#4,c#5,d#5]@13 ~ f#4 a#4, c#4@12 ~ c#4@2 ~", AF: "[g#2,c#4,d#4,f#4,a#4]@7 ~ [a2,c4,d#4,f#4,a4]@7 ~",
  AG: "[f#4,a4,c#5,d#5]@13 ~ f#4 a4, c#4@12 ~ c#4@2 ~", // D#m7b5
  AH: "~@14 d#4 ~, [a2,d#4,f#4,a4]@15 ~, c#4@13 c#4@2 ~, ~@6 a3@9 ~", AI: "[f4,g#4,c#5]@13 ~ f4 g#4, c#4@12 ~ c#4@2 ~",
  AJ: "[g#3,c#4,f4]@11 ~ [g#3,c#4,f4]@3 ~", AK: "[g#3,c#4,f4]@15 ~",
})).s("gm_acoustic_guitar_nylon").gain(0.48).pan(0.4)

// other · string ensemble 2 · "Strings"
const string_ensemble_2 = note(`<
  A B C D E F G H I J I J I J I K L I@2 J M N O@2 M P M Q R M I J I J I S I T U J I J V@2 J W M J M J M J I X@2 Y Z Y AA
  AB Y AC Z Y AA AD@2 Y AA AE AA Y AF AG AH AI AJ@3
>`.pickRestart({
  A: "~ g5@7 e5@4 c5@4", B: "d5@3 e5 f5@4", C: "g5@2 e5 g5", D: "g#5@3 g5 g#5@2 c6@2", E: "c6@2 g5 c6",
  F: "g#5@3 a#5 c6@2 d6@2", G: "e6@13 g5@3", H: "g#5@13 ~@3", I: "c5", J: "d5", K: "d5@2 c5 b4", L: "a4", M: "e5",
  N: "g5", O: "[c5@12 g#4@3 ~]/2", P: "d5 f5", Q: "d5@3 ~", R: "e5@15 ~", S: "d5 c5", T: "d5 e5",
  U: "~ a5@15, ~ b5 ~@14", V: "[~ e5, c5@9 ~@7]/2", W: "d5 d#5", X: "[~ a#5, f5@21 ~@11]/2", Y: "d#5", Z: "f5",
  AA: "c#5", AB: "a#4", AC: "d#5!2", AD: "[d#5 ~ f5@2, ~@2 f#5@3 ~@3]/2", AE: "d#5 f5", AF: "c#5@8 g#4@5 c#5@3",
  AG: "a4 b4 c#5 d#5", AH: "f5@8 g#5@5 c#6@3", AI: "a5 b5 c#6 d#6", AJ: "[f6@5 ~]/3",
})).s("gm_string_ensemble_2").gain(0.41).pan(0.6)

// other · string ensemble 2 · "Strings"
const string_ensemble_2_2 = note(`<
  A B C D E F G H I J I J I K I L M N I J@2 O P@2 J Q R S T I@2 K I K I U I V W J I J I X J Y J@6 I Z AA AB AC@2 AD N AC
  AE AC@2 AD AF@2 AC AD AG AD AC AH AI AJ AK AL@3
>`.pickRestart({
  A: "~ e4@7 c4@4 a#3@4", B: "c4@3 c#4 d4@4", C: "e4@2 c4 e4", D: "f4@3 d4 f4@2 g#4@2", E: "a#4@2 e4 a#4",
  F: "f4@3 g4 g#4@2 c4@2", G: "c4@13 e4@3", H: "f4@13 ~@3", I: "a3", J: "c4", K: "c4, g#3 ~@15", L: "c4@2 g#3!2",
  M: "g3", N: "g#3", O: "e4", P: "[a3@12 f3@3 ~, ~@24 b3 ~@7]/2", Q: "c4 d4", R: "c4, e4 ~@15", S: "c4@3 ~",
  T: "c4@15 ~", U: "c4 g#3, g#3 ~@15", V: "c4 d4, g#3 ~@15", W: "c4 g4@15", X: "c4, a3 ~@7", Y: "c4 b3", Z: "d4",
  AA: "g#4, c#4@5 ~@11", AB: "c#4, a4 ~@15", AC: "c#4", AD: "a#3", AE: "~ c4, c#4@7 ~",
  AF: "[c#4 ~ c#4@2, ~@2 d#4@3 ~@3]/2", AG: "c#4!2", AH: "a#3@8 f3@5 a#3@3", AI: "f#3!2 a3 c#4", AJ: "c#4@8 f4@5 a#4@3",
  AK: "f#4!2 a4 c#4", AL: "[c#4@5 ~]/3",
})).s("gm_string_ensemble_2").gain(0.47)

// other · string ensemble 2 · "Strings"
const string_ensemble_2_3 = note(`<
  A B C D E F G H I J I J I K I L M N I O@2 P Q@2 O R O S T P I K I K I U I V W J I O X@2 O Y O J O J O@2 I P Z AA AB@2
  J N AB AC AB O J AD@2 O J AE J O AF AG AH AI AJ@3
>`.pickRestart({
  A: "~ c4@7 a#3@4 g3@4", B: "g#3@3 a#3 c4@4", C: "c4@2 a#3 c4", D: "d4@3 c4 d4@2 f4@2", E: "g4@2 c4 g4",
  F: "d4@3 d#4 f4@2 g#4@2", G: "a4@13 c4@3", H: "d4@13 ~@3", I: "g3", J: "g#3", K: "g#3, f3 ~@15", L: "g#3@2 e3!2",
  M: "e3", N: "f3", O: "a3", P: "c4", Q: "[f3@12 d3@3 ~]/2", R: "g#3 c4", S: "g#3@3 ~", T: "a3@15 ~",
  U: "g#3 f3, f3 ~@15", V: "g#3 b3, f3 ~@15", W: "g3 e4@15", X: "[~ a3, g3@9 ~@7]/2", Y: "a3 g#3", Z: "f4, g#3@5 ~@11",
  AA: "a3, f#4 ~@15", AB: "a#3", AC: "~ a3, a#3@7 ~", AD: "[a3 ~ a#3@2, ~@2 c#4@3 ~@3]/2", AE: "a3!2",
  AF: "g#3@8 c#3@5 g#3@3", AG: "d#3!2 f#3 a3", AH: "a#3@8 c#4@5 g#4@3", AI: "d#4!2 f#4 a4", AJ: "[a#4@5 ~]/3",
})).s("gm_string_ensemble_2").gain(0.46).pan(0.6)

// other · cello
const cello = note(`<
  A B C D E F G H I J I J I J I K L M I J N O P@2 N Q N R S N I J I J I T I Q U J I J V@2 J W N J N J N J I O X Y Z AA J
  AB Y AC Z Y J AD@2 Y J AC J Y AE AF AG AH AI@3
>`.pickRestart({
  A: "~ a#3@7 g3@4 e3@4", B: "f3@3 g3 g#3@4", C: "a#3@2 g3 a#3", D: "c4@3 g#3 c4@2 d4@2", E: "e4@2 a#3 e4",
  F: "c4@3 c4 d4@2 f4@2", G: "g4@13 a3@3", H: "c4@13 ~@3", I: "e3", J: "f3", K: "f3@2 d3!2", L: "c3", M: "d3", N: "g3",
  O: "a3", P: "[d3@12 b2@3 ~]/2", Q: "f3 g#3", R: "f3@3 ~", S: "g3@15 ~", T: "f3 d3", U: "g3 c4@15",
  V: "[~ g3, e3@9 ~@7]/2", W: "f3!2", X: "c#4, g#3@5 ~@11", Y: "f#3", Z: "g#3", AA: "f#3, a#3 ~@15", AB: "c#3",
  AC: "f#3!2", AD: "[f#3 ~ g#3@2, ~@2 a3@3 ~@3]/2", AE: "f3@8 a#2@5 f3@3", AF: "c#3!2 d#3 f#3", AG: "g#3@8 a#3@5 f4@3",
  AH: "c#4!2 d#4 f#4", AI: "[g#4@5 ~]/3",
})).s("gm_cello").gain(0.36).pan(0.3)

// other · cello
const cello_2 = note(`<
  A B C D E F G H I J I J I J I K L I@2 J M N O@2 M P M Q R M I J I J I S I T U J I J V@2 J W M J M J M J I X@2 Y Z Y AA
  AB Y AC Z Y AA AD@2 Y AA AE AA Y AF AG AH AI AJ@3
>`.pickRestart({
  A: "~ g3@7 e3@4 c3@4", B: "d3@3 e3 f3@4", C: "g3@2 e3 g3", D: "g#3@3 g3 g#3@2 c4@2", E: "c4@2 g3 c4",
  F: "g#3@3 a#3 c4@2 d4@2", G: "e4@13 g3@3", H: "g#3@13 ~@3", I: "c3", J: "d3", K: "d3@2 c3 b2", L: "a2", M: "e3",
  N: "g3", O: "[c3@12 g#2@3 ~]/2", P: "d3 f3", Q: "d3@3 ~", R: "e3@15 ~", S: "d3 c3", T: "d3 e3",
  U: "~ a3@15, ~ b3 ~@14", V: "[~ e3, c3@9 ~@7]/2", W: "d3 d#3", X: "[~ a#3, f3@21 ~@11]/2", Y: "d#3", Z: "f3",
  AA: "c#3", AB: "a#2", AC: "d#3!2", AD: "[d#3 ~ f3@2, ~@2 f#3@3 ~@3]/2", AE: "d#3 f3", AF: "c#3@8 g#2@5 c#3@3",
  AG: "a2 b2 c#3 d#3", AH: "f3@8 g#3@5 c#4@3", AI: "a3 b3 c#4 d#4", AJ: "[f4@5 ~]/3",
})).s("gm_cello").gain(0.44).pan(0.3)

// other · oboe
const oboe = note(`<
  ~@3
  [~@14 g3 ~]
  [g3 c4!2 d4!2 e4!2 c4]
  [d4 d4@8 ~@7, ~ e4 ~@14]
  ~@23
  [~@4 g4@2 d4@2 e4@6 g3 ~]
  [g3@5 ~@11]
  ~@48
>`).s("gm_oboe").gain(0.8)

// bass · contrabass · "Contraba"
const bass = note(`<
  A@8 B@8 C D E@2 F C G H C D I D C I B@8 C D E@2 F C G H C D I D C G J I K@2 D@2 L M N O M P Q@2 D C D C D C D C D C
  R@3
>`.pickRestart({
  A: "[g2@63 ~]/8", B: "[c2@15 e2]/8", C: "a2", D: "g#2", E: "g2/2", F: "c2", G: "d2", H: "g2 g#2", I: "g2", J: "e2",
  K: "[a#2@17 a2@15]/2", L: "c#2", M: "a#2", N: "d#2", O: "g#2 a2", P: "a2, a#2 ~@15", Q: "[~ a2, g#2@9 ~@7]/2",
  R: "[c#2@5 ~]/3",
})).s("gm_contrabass").gain(0.72).pan(0.6)

// other · bassoon · G#sus2
const bassoon = note("<~@6 [~@5 b4@2 c5@6 ~ g#4 [g#4,a#4], ~@4 g5@2 ~@7 g4@2 ~] [g#4@5 ~@3, g4 ~@15] ~@71>")
  .s("gm_bassoon").gain(0.64)

// chords · electric guitar jazz · "Elec. Gu" · F#m G#m A B C# D#m Fm F#m …
const electric_guitar_jazz = note(`<
  ~@75
  [[f#3,a3] [g#3,b3] [a3,c#4] [b3,d#4] [c#4,f4] [d#4,f#4] [f4,g#4] [f#4,a4]]
  [[g#4,c#5]@5 ~@3]
  ~@2
>`).s("gm_electric_guitar_jazz").gain(0.8)

// bass · fretless bass · "Bass"
const bass_2 = note(`<
  ~@8 A B@2 C B@4 D E F@2 A D G H D G F E D F A B@2 C B@4 D E F@2 A D G H D G F E D G I F J D K E L J M E J D E D E N E
  D E D E D E D L@2 O
>`.pickRestart({
  A: "c2@4 ~@2 c2 ~@9", B: "c2 ~@5 c2 ~@9", C: "c2@2 ~@4 c2 ~@9", D: "a2 ~@5 a2 ~@9", E: "g#2 ~@5 g#2 ~@9",
  F: "g2 ~@5 g2 ~@9", G: "d2 ~@5 d2 ~@9", H: "g2@2 ~@4 g2 ~@9", I: "e2 ~@5 e2 ~@9", J: "a#1 ~@5 a#1 ~@9",
  K: "g#2@2 ~@4 g#2 ~@9", L: "c#2 ~@5 c#2 ~@9", M: "d#2 ~@5 d#2 ~@9", N: "a2@2 ~@4 a2 ~@9", O: "c#2@2 ~@4 c#2 ~@9",
})).s("gm_fretless_bass").gain(0.29).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~@8 [x ~@2 x ~@4]!71>").gain(0.49)

// drums · snare
const snare = s("sd").struct("<~@8 [~ x ~ x]!71>").gain(0.44)

// drums · hihat
const hihat = s("hh").struct("<~@8 [x!16]!71>").gain(0.49)

stack(
  acoustic_guitar_nylon, string_ensemble_2, string_ensemble_2_2, string_ensemble_2_3, cello, cello_2, oboe, bass,
  bassoon, electric_guitar_jazz, bass_2, kick, snare, hihat
)