// Besame Mucho — Apollo 100
// 120 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: bank select 127 (Roland MT-32 map) read through the MT-32 patch table: 
// note: duplicate parts dropped: ch 5 "CLEAN GTR" electric guitar clean (copy of ch 4 "STRINGS" string ensemble 1)
// note: Full arrangement: all 105 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: The whole transcription plays 17 ms ahead of the beat; the grid follows it, so its parts stay together.
setcpm(120/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, A@4 for four bars: edit a riff to change every repeat.

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~ A B A C D A E F G H I J A K L M C N A@2 M A O A P C Q R A@2 S T M O U V D K S W A B A X M A O A M C Q Y A@2 S Z M O
  AA@2 A K M@2 A B D X M AB AC A M A AD AE D A L M@2 AF D A U K L M AB B D A C B D AG ~@8
>`.pickRestart({
  A: "a1@3 c2 e2@2 c2@2", B: "b1@5 ~ b1@2 e2@8", C: "a1@6 c2@2 e2@4 c2@3 ~", D: "a1@3 c2 e2@2 c2 b1",
  E: "d2@3 f2 a2@2 f2 e2", F: "d2@2 ~ d2@3 f2@2 a2@4 f2@4", G: "d2@5 d2@3 f2@4 a2@4", H: "e2@5 ~ e2@2 g#2@4 b1@4",
  I: "a1@5 ~ a1@2 e2@4 f#2@4", J: "a1@6 e2@2 f#2@4 g#2@3 ~", K: "a1@3 c#2 e2@2 c#2@2", L: "d2@3 f2 a1@2 f2 e2",
  M: "d2@3 f2 a1@2 f2@2", N: "b1@5 ~ b1@2 e2@7 ~", O: "e2@3 g#1 b1@2 g#1@2", P: "d2@3 f2@2 a1@2 f2",
  Q: "b1@5 ~ b1 ~ f2@6 f2@2", R: "e2@3 e2 g#1@2 b1@2", S: "d2@6 f2@2 a1@3 f2@3 e2@2", T: "d2@3 f2@3 a1@2 f2@4 e2@4",
  U: "a1@3 e2 f#2@2 g#1@2", V: "a1@3 e2 f#2@2 g#2@2", W: "d2@3 d2@3 f2@2 a1@4 f2@4", X: "a1@5 ~ a1@2 a1@8",
  Y: "e2@6 f#2 g#1", Z: "d2@3 a1 f2@2 e2@2", AA: "a1@6 c2@2 e2@3 c2@3 b1@2", AB: "a1@2 c2 e2",
  AC: "e2@5 ~ g#1@2 b1@4 g#1@4", AD: "b1@5 ~ b1 ~ f2@7 ~", AE: "e2@5 ~ e2@2 e2@2 e2@2 f#2 ~ g#1 ~",
  AF: "e2@3 g#1 b1@2 g#1 ~", AG: "a1@5 ~ a1@2 a1 ~@7",
})).s("gm_acoustic_bass").gain(0.35)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~ A B C D E@2 F@2 G H I@2 J K L@2 M N O@2 G P Q R S T U V W R X@2 Y Z AA AB AC AD AE AF AG@3 AH AI AJ AK AL AM AN AO
  AP AQ AR AS AT AU AV AW AX AY AZ BA BB BC BD BE BF BG BH BI BJ BK BH AO BL BM BN BA BO BP BQ BR BS BT BU BV BW@3 BX BY
  BZ@2 CA CB ~@8
>`.pickRestart({
  A: "~@8 e5@2 ~@2 e5@2 c5 ~, ~@6 a4@9 ~, ~@7 c5@3 a5@5 ~",
  B: "~@7 a4 d5 ~@3 [g#4,b4,e5] ~@3, ~@6 d4@3 ~@7, ~@7 f4@2 ~@2 e4@2 ~@3", C: "~@7 c5 e5@3 c5@3 [b4,c5] b4, ~@3 a4 ~@4",
  D: "a4@5 ~@3", E: "[~@10 [a4,c5,e5] ~@5 e5@11 ~@5, ~@14 a4@13 ~@5, ~@15 c5@12 ~@5]/2",
  F: "[~@10 d4@2 f4@2 a4@4 f4@3 ~ e4 [e4,f4] d4@2 [f4,a4] ~@5]/2", G: "~@6 [d4,f4,a4] ~@9", H: "~@6 [e4,g#4,b4] ~@9",
  I: "[~@8 e5@2 ~@6 a4@8 ~@6 [a4,e5] ~, ~@6 a4@7 ~ e5@11 ~@7, ~@7 c5@3 a5@15 ~@7, ~@15 c5@9 ~@8]/2", // A5
  J: "~@6 [a4,c5,e5] ~@3 [a4,c5,e5] ~@3 [a4,c5,e5]@2", K: "~@6 [a4,c#5,e5] ~@3 [a4,c#5,e5] ~@3 [a4,c#5,e5] ~",
  L: "[~@10 d4@2 f4@2 a4@4 f4@3 ~ e4 [e4,f4] d4@5 ~@3]/2", M: "~@3 [a4,c5,e5] ~@8 [a4,c5,e5] ~@3",
  N: "~@3 [b4,d#5,f#5] ~@2 [b4,d#5,f#5] ~@5 [e4,g#4,b4] ~@3", // B E
  O: "[~@7 [c5,e5]@3 ~@6 a4@9 ~@3 c5@2 e5@2, ~@6 a4@6 ~@2 e5@11 ~@7, ~@10 a5@15 ~@7, ~@15 c5@10 ~ a4@6]/2", // C
  P: "~@6 [a4,c5,e5] ~@9", Q: "~@10 [e4,g#4,b4] ~@3 [e4,g#4,b4] ~", R: "~@6 [a4,c5,e5] ~@3 [a4,c5,e5] ~@5",
  S: "~@6 [d4,f4,a4] ~@3 [d4,f4,a4] ~@5", T: "~@8 c5@3 e5@3 c5 ~, ~@6 a4@9 ~",
  U: "[b4,d#5,f#5]@2 ~ [b4,d#5,f#5]@2 f#5 [a4,b4,d#5] ~ [f4,a4,c5]@2 ~ [f4,a4,c5]@2 ~ [f4,a4,c5] ~", // B B7 F
  V: "[e4,g#4,b4]@6 [e4,g#4] b4 g#4 ~@3 g#4@2 b4 ~, ~@10 e4@5 ~", W: "~@6 [a4,c5,e5] ~@7 [a4,c5,e5] ~",
  X: "[~@6 [d4,f4,a4] ~@3 d4@2 f4@2 a4@4 f4@4 e4 [e4,f4] ~@3 f4@3 a4 ~, ~@24 d4@7 ~]/2", // Dm Fmaj7
  Y: "~@6 [d4,f4,a4] ~@7 [d4,f4,a4] ~", Z: "~@6 [e4,g#4,b4] ~@7 [e4,g#4,b4] ~",
  AA: "~@6 a4@2 c5@2 e5@2 c5@2 b4 [b4,c5]", AB: "a4@4 ~@2 [a4,c5,e5] ~@3 [a4,c5,e5] ~@3 [a4,c5,e5] ~",
  AC: "~@3 [a4,c5,e5]@4 ~", AD: "~@6 [a4,c#5,e5]@9 ~", AE: "~@6 d4@2 f4@2 a4@2 f4@2 e4 [e4,f4]",
  AF: "~@6 f4@2 a4@4 f4 ~@3, d4@9 ~@7",
  AG: "[~@3 c5@3 ~@2 c5@5 ~@3 [d#5,f#5]@5 ~@3 [g#4,b4]@5 ~@4 e5@9 c5@4 b4!2, a4@14 ~ b4@6 ~@2 e4@6 ~@2 a4@11 ~@6, ~@6 e5@8 ~@18 c5@5 ~@11]/3", // D#m G#m
  AH: "~@6 e5 ~, a4@7 ~, ~@4 c5@3 ~", AI: "~@6 d4@2 f4@2 a4@2 f4@2 e4 ~",
  AJ: "~@4 c5@2 ~@4 c5@2 a4@2 c5 ~, ~ a4@3 ~@4, ~@3 e5@4 ~", AK: "~@6 g#4@2 ~@3 g#4@3 e4 ~, ~ e4@2 ~, ~@4 b4@3 ~",
  AL: "~@4 c5@2 ~@2 c5@2 a4@4 c5 ~, ~ a4@3 ~@4, ~@3 e5@4 ~", AM: "~@4 f4@2 ~@4 f4@2 d4@2 f4 ~, ~ d4@4 ~@3, ~@3 a4@4 ~",
  AN: "~@4 c5@2 ~@2 c5@2 ~@2 c5@2 e5 ~, ~ a4@3 ~ a4@2 ~, ~@6 e5@5 ~@5",
  AO: "[b4,f#5]@2 ~ [b4,d#5,f#5]@2 ~ [b4,d#5,f#5] ~ [f4,a4,c5] ~@2 [f4,a4,c5]@2 ~ [f4,a4,c5] ~, d#5 ~@15", // B5 B F
  AP: "[e4,g#4,b4]@5 ~@2 g#4 ~@2 g#4@2 e4@2 g#4 ~, ~@6 e4@2 b4@7 ~", AQ: "~@4 c5@2 e5@4 c5@3 ~ b4 [b4,c5], ~ a4@4 ~@3",
  AR: "a4@2 [a4,c5,e5] ~@3 [a4,c5,e5] ~@3 [a4,c5,e5] ~@5", AS: "~@4 f4@2 a4@4 f4@4 e4 [e4,f4], ~@2 d4@9 ~@5",
  AT: "~@6 f4@2 a4@3 f4@3 e4@2, d4@5 ~@3", AU: "d4@5 ~ [d4,f4,a4] ~@5 d4@2 f4 ~",
  AV: "~@8 g#4@3 b4@3 g#4 ~, ~@6 e4@9 ~", AW: "~@6 c5@2 e5@3 c5@2 ~ b4 [b4,c5], ~@4 a4@5 ~@7",
  AX: "a4 ~ [a4,c5,e5] ~@3 [a4,c5,e5] ~@3 [a4,c5,e5] ~@3 [a4,c5,e5] ~", AY: "~@4 c5@2 ~@4 c5@2 a4@2 c5 ~, ~@2 a4@9 ~@5",
  AZ: "[a4,c#5,e5]@2 ~@2 c#5@2 e5@4 c#5@2 a4@2 c#5 ~, ~ a4@4 ~@3", BA: "~@4 f4@2 a4@4 f4@4 e4 [e4,f4], ~ d4@4 ~@3",
  BB: "d4 ~ [d4,f4,a4] ~@5 f4@4 a4 ~@3, ~@6 d4@7 ~@3", BC: "~@3 c5@3 ~@2 c5@4 a4 ~@3, a4@9 ~@7, ~@6 e5@7 ~@3",
  BD: "b4@3 d#5@3 b4 ~ [e4,g#4]@2 ~ g#4@3 e4 ~, f#5@6 ~@2 f#4 ~@2 e4 ~@4, d#5 ~@7 b4@6 ~@2", // E
  BE: "~@3 c5@3 e5@2 c5@4 b4@2 c5 b4, a4@3 ~", BF: "a4@2 [c5,e5] ~@3 [c5,e5]@4 ~@2 c5@2 e5 ~, ~@6 a4@3 ~ a4@4 ~@2",
  BG: "~@2 d4@2 f4@2 a4@4 f4@2 d4 ~@3", BH: "~@4 c5@2 ~@4 c5@2 a4@2 c5 ~, ~ a4@4 ~@3, ~@6 e5@9 ~",
  BI: "~@4 g#4@2 ~@4 g#4@2 e4@2 g#4 ~, ~ e4@4 ~@3, ~@3 b4@3 ~@2", BJ: "~@2 c5 ~@2 c5 a4 ~, ~@2 a4@9 ~@5, ~@6 e5@7 ~@3",
  BK: "~@4 f4@2 ~@4 f4@2 d4 ~@3, d4@5 ~@3, ~@3 a4@4 ~", BL: "[e4,g#4,b4]@6 e4 g#4 ~@2 g#4@2 e4@2 g#4 ~, ~@8 b4@7 ~",
  BM: "~@2 [a4,e5] ~@5 c5@2 e5@2 c5@2 b4 [b4,c5], ~@3 a4@3 ~@2", // A5 Cmaj7
  BN: "a4@2 [c5,e5] ~@3 [a4,c5,e5] ~@5 c5@2 e5 ~, ~@10 a4@5 ~", BO: "~@3 f4@3 a4@2 f4@4 e4@2 f4 e4, d4 ~",
  BP: "~ f4@2 ~@3 d4 ~, d4@8 f4@7 ~, ~@6 a4@9 ~", BQ: "~@3 g#4@3 ~@2 g#4@4 e4@2 g#4 ~, e4@9 ~@7, ~@6 b4@9 ~",
  BR: "~@4 c5@2 e5@4 c5@2 b4@2 c5 b4, ~ a4@4 ~@3", BS: "a4 ~@3 c5@2 ~@4 c5@2 a4@2 ~@2, ~ a4@4 ~@3, ~@3 e5@4 ~",
  BT: "e5@2 ~@2 c5@2 ~@4 c5@2 a4@2 c5 ~, c4 ~ a4@8 ~@6, ~@3 e5@4 ~",
  BU: "[c#5,e5]@2 ~@2 c#5@2 ~@4 c#5@2 a4@2 c#5 ~, a4 ~ a4@8 ~@6, ~@3 e5@4 ~", // C#m
  BV: "~@4 f4@2 a4@4 f4@4 [e4,f4] e4, ~ d4@2 ~@5", // Fmaj7
  BW: "[~@2 f4@4 ~@2 f4@4 d4 ~@3 c5@3 ~@3 c5@2 a4@4 c5@2 ~@2 d#5@3 f#5@3 d#5 ~@4 g#4@3 b4 ~, d4@6 a4@7 ~@2 a4@7 ~@9 b4@7 ~@2 e4@6 ~@2, ~@19 e5@11 ~@18]/3",
  BX: "~@6 c5@2 e5@4 c5@2 b4 [b4,c5], a4@7 ~", BY: "~@6 c5@2 ~@2 c5@2 a4@2 c5 ~, a4@5 ~@3, ~@8 e5@5 ~@3",
  BZ: "[~@3 c5@3 ~@2 c5@4 a4 ~@6 d#5@3 b4 ~@3 g#4@2 b4@2 g#4 ~, a4@9 ~@5 b4@6 ~@4 e4@6 ~@2, ~@6 e5@6 ~@3 d#5@2 ~@15, ~@16 f#5@7 ~@9]/2",
  CA: "~@6 c5@2 e5@3 c5@3 b4@2, a4@13 ~@3", CB: "a4 ~@5 [a4,e5]@2 [a4,c5,e5] ~@7, ~@6 c5 ~@9",
})).s("gm_string_ensemble_1").gain(0.3)

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

// drums · rim
const rim = s("rim").struct(`<
  ~ A@3 ~ A@3 ~ A@3 ~ A@15 ~ A@7 ~ A@7 ~ A@3 ~ A@3 ~ A@7 ~ A@7 ~ A@3 ~ A@3 ~ A@7 ~ A@3 ~ A@3 ~ A ~ A@2 ~@8
>`.pickRestart({
  A: "~ x ~@2",
})).gain(0.4)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@4 A ~@3 A ~@3 A ~@15 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@3 A ~@3 A ~ A ~@10
>`.pickRestart({
  A: "~@10 x ~ x!3 ~",
})).gain(0.35)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@4 A ~@3 A ~@3 A ~@15 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@3 A ~@3 A ~ A ~@10
>`.pickRestart({
  A: "~@3 x!2 ~@3",
})).gain(0.35)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@4 A ~@3 A ~@3 A ~@15 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@7 A ~@3 A ~@3 A ~@7 A ~@3 A ~@3 A ~ A ~@10
>`.pickRestart({
  A: "x ~ x!3 ~@11",
})).gain(0.35)

// drums · crash
const crash = s("cr").struct("<~@96 [x ~@2 x!2 ~@3] ~@8>").gain(0.2)

// drums · ride
const ride = s("rd").struct("<~ [x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~]!95 ~@9>").gain(0.25)

// drums · congas
const congas = s("conga:18").struct(`<
  A B@3 ~ B@3 ~ B@3 ~ B@15 ~ B@7 ~ B@7 ~ B@3 ~ B@3 ~ B@7 ~ B@7 ~ B@3 ~ B@3 ~ B@7 ~ B@3 ~ B@3 ~ B ~ B ~@9
>`.pickRestart({
  A: "~@4 x!2 ~@2", B: "~ x ~@3 x ~@2",
})).gain(1.27)

// drums · congas
const congas_2 = s("conga:33").struct(`<
  A B@3 ~ B@3 ~ B@3 ~ B@15 ~ B@7 ~ B@7 ~ B@3 ~ B@3 ~ B@7 ~ C B@6 ~ B@3 ~ B@3 ~ B@7 ~ B@3 ~ B@3 ~ B ~ B ~@9
>`.pickRestart({
  A: "~@12 x!3 ~", B: "~@6 x!2", C: "~@3 x ~@2 x!2",
})).gain(1.27)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<[~@4 x!4] [x!4]!95 ~@9>").gain(1.01)

stack(bass, string_ensemble_1, kick, rim, low_tom, mid_tom, high_tom, crash, ride, congas, congas_2, cabasa)