// Secret Lovers — Atlantic Starr
// 120 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 93 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
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.

// chords · epiano1 · "E.PIANO 1"
const epiano1 = note(`<
  ~@3 A B C D E F G H I J K L E M G H I J N O P Q K M R H I J S T K U R H I V W X Y Z AA AB AC AD AE AF AG AH@2 AI AJ
  AK@2 AI AL AM AN AO AP AQ AR G AS AT J AU@2 AV AW AX AY AZ BA J BB BC AV BD BE AT J BF BG BH BI BJ BK BL BM@2
>`.pickRestart({
  A: "[c4,e4]@12 [d4,f4]@3 ~", B: "[f3,a3,c4]@3 ~", C: "[c2,g3,c4,e4] c2 ~@4 c2!2 ~@8, ~@6 [f3,a3,c4]@9 ~",
  D: "c2!2 ~@4 c2!2 ~@5 c2 g2 c3, [g3,b3,d4]@4 ~@2 [g3,c4,e4]@9 ~", // G C
  E: "c2!2 ~@4 c2!2 ~@7 c3, [g3,c4,e4]@5 ~ [f3,a3,c4]@9 ~", // C F
  F: "[c2,c4] c2 ~@4 c2!2 ~@5 c2 g2 c3, [g3,b3,d4]@5 ~ [g3,c4,e4]@9 ~", // C G C
  G: "a2!2 ~@4 a2 a1 ~@8, [a3,c4,e4]@5 ~ [g3,b3,d4]@9 ~", H: "a2!2 ~@4 a2!2 ~@8, [g3,b3,d4]@5 ~ [a3,c4,e4]@9 ~",
  I: "d2!2 ~@4 d2!2 ~@8, [a3,c4,e4]@7 ~", J: "g2!2 ~@4 g2!2 ~@8, [f3,a3,c4]@7 ~",
  K: "c2!2 ~@4 c2!2 ~@8, [g3,c4,e4]@5 ~ [f3,a3,c4]@9 ~", L: "c2!2 ~@4 c2!2 ~@5 c2 g2 c3, [g3,b3,d4]@5 ~ [g3,c4,e4]@9 ~",
  M: "c2!2 ~@4 c2!2 ~@8, [g3,b3,d4]@2 ~ [g3,c4,e4]@5", N: "c3!2 ~@4 c3!2 ~@8, [g3,c4,e4]@7 ~",
  O: "c3!2 ~@4 c3!2 ~@8, [a3,d4,f4]@7 ~", P: "c2!2 ~@4 c2!2 ~@5 c2 g2 c3, [g3,c4,e4]@5 ~ [f3,a3,c4]@9 ~",
  Q: "[c2,c3] c2 ~@4 c2!2 ~@8, [g3,b3,d4]@4 ~@2 [g3,c4,e4]@9 ~", R: "a2!2 ~@4 a2!2 ~@8, [a3,c4,e4]@5 ~ [g3,b3,d4]@9 ~",
  S: "c2!2 ~@4 c2!2 ~@5 c2 g2 c3, [g3,c4,e4]@2 ~ [f3,a3,c4]@4 ~", // C F
  T: "c2!2 ~@4 c2!2 ~@7 c3, [g3,b3,d4]@4 ~@2 [g3,c4,e4]@9 ~", // G C
  U: "c2!2 ~@2 g3 ~ c2!2 ~@8, [g3,b3,d4]@2 ~ [g3,c4,e4]@4 ~", V: "g2!2 ~@4 g2!2 ~@8, [f3,a3,c4]@13 ~@3",
  W: "c3!2 ~@4 c3!2 ~@6 g2 ~, [g3,c4,e4]@15 ~", X: "c2!2 ~@4 c2!2 g3@7 ~, e4@15 ~, ~@4 c4@11 ~",
  Y: "[e3,g3,b3]@4 ~@2 a2 a2@7 ~@2, ~@6 [a3,c4,e4,a4]@7 ~@3", // Em Am
  Z: "[d2,d3,f3,a3,c4,e4]@5 ~ g2 g2@5 ~ g2 f#2 f2, ~@3 [g3,b3,d4]@4 ~", // Dm7 G
  AA: "[e2,e3,g3,b3,e4,g4]@4 ~@2 a2 ~@3 d4 ~ d4 c4@2 ~, ~@6 [a3,c4,e4,a4]@3 ~ g4@4 ~@2, ~@7 a2@7 ~@2, ~@11 e4@2 ~@3", // Em Am
  AB: "[d2,d4,f4]@4 ~@2 g2 g2@5 ~ g2 f#2 f2, ~@6 [g3,b3,d4]@7 ~@3", // Dm G
  AC: "e2 e2@3 ~@3 a2@7 ~@2, [e3,g3,b3,e4,g4]@2 ~ [a3,c4,e4,a4]@3 ~@2", // Em Am
  AD: "d2 d2@4 ~ d2 d2@7 ~@2, [c4,e4]@15 ~, [d3,f3,a3]@13 ~@3", AE: "g2 g2@3 ~@2 g2 g2@7 ~@2, [f3,a3,c4,e4]@13 ~@3",
  AF: "c2 c2@3 ~@2 c2 c2@7 ~@2, [c4,e4,g4]@7 ~, [e3,g3]@11 ~@5", // C Em
  AG: "c2 c2@3 ~@2 c2 ~@3 f4 ~@2 f4 d4@2, [f3,a3]@15 ~, [d4,f4,a4]@7 c2@7 ~@2, ~@9 a4@2 d4@2 ~@3, ~@6 a4 ~", // F Dm
  AH: "[c2 c2@4 ~ c2 g4 e4 ~ g4 ~@2 g4 ~@2 [c2,g4] e4 ~ g4 e4 b4 [c2,g4] e4 ~ g4 ~@2 g4 e4 b4 ~, [e3,g3,b3]@31 ~, [e4,g4,b4]@4 ~@2 b4@2 ~ b4@2 e4@2 ~ e4@2 ~@10 e4@2 ~@4, ~@7 c2@7 ~@3 c2@3 ~@3 c2@7 ~@2, ~@12 b4@2 ~ b4@2 ~ b4@2 ~@4 b4@2 ~ b4@2 ~@3]/2", // C5 Em
  AI: "g2!2 ~ [e4,a4,c5]@2 ~ g2!2 ~@8, [d4,g4,b4] ~@2 [c4,f4,a4]@4 ~", // Am G F
  AJ: "g2!2 ~ [e4,a4,c5]@2 ~ g2!2 ~@5 d2 e2 d2, [d4,g4,b4]@3 ~@3 [c4,f4,a4]@9 ~", // Am G F
  AK: "[g2!2 ~ [g4,b4] ~@2 g2!2 ~@3 a2@3 g2 ~ g2!2 ~@4 g2!2 ~@5 g2 d2 e2, [c4,f4,a4]@3 d4@2 ~ [b3,e4,g4]@16 ~@10]/2", // G F Em
  AL: "g2!2 ~ [e4,a4]@2 ~ g2!2 ~@5 d2 e2 d2, [d4,g4,b4]@2 ~ c5 ~@2 [c4,f4,a4]@9 ~", // A5 G F
  AM: "g2!2 ~@4 g2!2 ~@8, [d4,f4,a4]@7 ~", AN: "g2!2 ~@4 g2 g1@7 b1@2, [g3,f4,a4]@3 ~",
  AO: "c2!2 ~@4 c2!2 ~@8, [c4,e4,g4]@5 ~ [f3,a3,c4]@9 ~", AP: "c2!2 ~@4 c2!2 ~@8, [g3,b3,d4]@5 ~ [g3,c4,e4]@8 ~@2",
  AQ: "c2!2 ~@4 c2!2 ~@5 c2 g2 c3, [c4,e4,g4]@3 [f3,a3,c4]@5", // C F
  AR: "c2!2 ~@4 c2!2 ~@4 [c4,e4]@2 [b3,d4] ~, [g3,b3,d4]@5 ~ [c4,e4]@5 ~@5", // C Bm G C
  AS: "a2!2 ~@4 a2 a1 ~@8, [g3,b3,d4]@5 ~ [a3,c4,e4]@9 ~", AT: "d2!2 ~@4 d2!2 ~@8, [d3,a3,c4,e4]",
  AU: "[c2!2 ~@4 c2!2 ~@8 c2!2 ~@4 c2!2 ~@4 g2@4, [c4,e4]@7 ~, g3@3 g4@4 ~, ~@4 c5@3 ~]/2", // C
  AV: "[e2,e3,g3,b3]@5 ~ a2 a2@7 ~@2, ~@6 [a3,c4,e4]@9 ~", AW: "[d2,d4,f4,a4]@5 ~ g2 g2@7 ~@2, ~@3 [g3,b3,d4]@5",
  AX: "e2 e2@3 ~@2 a2 a2@7 ~@2, [e3,g3,b3]@6 [a3,c4,e4]@9 ~", AY: "d2!2 ~@4 g2 g2@7 ~@2, [d4,f4,a4]@5 ~ [g3,b3,d4]@10",
  AZ: "[e3,g3,b3]@6 a2 a2@7 ~@2, e2@4 ~@2 [a3,c4,e4]@9 ~", BA: "d2!2 ~@4 d2!2 ~@8, [d4,f4]@7 ~",
  BB: "c2!2 ~@4 c2!2 ~@4 d4 ~ d4 c4, [c4,e4]@11 ~ g4@4, ~@13 e4@2 ~", // C
  BC: "[c2,d4] c2 ~@4 c2!2 ~@4 g2@4, g4@3 ~, ~ e4@11 ~@4", // Csus2
  BD: "d2 d2@3 ~@2 [g3,b3,d4]@5 ~ a3 ~ [f2,a3] g3, ~@3 g2@3 d4@2, ~@13 b3@2 ~", // G F
  BE: "e2 e2@3 ~@2 [a2,g3] a2@7 ~@2, [e3,g3,b3]@6 [a3,c4,e4]@9 ~", BF: "c2!2 ~@4 c2!2 ~@6 g4@2, [e3,g3,c4,e4]",
  BG: "c2!2 ~@4 c2!2 ~@8, [d4,f4,a4]", BH: "c2!2 ~@4 c2!2 ~@8, [e3,g3,b3,e4,g4,b4]@15 ~",
  BI: "c2!2 ~@4 c2!2 ~@4 g2@3 ~, [f3,a3,c4,f4,a4,c5]@7 ~", // F
  BJ: "[c2,g3,c4] [c2,c4] g4 c4 g3 c4 [c2,g3,g4] [c2,g3] c4 g4 g3 c4 g4 g3 c4 g4, [c3,e4]@5 ~ [c3,b3,d4]@9 ~", // C5 C C5 C G
  BK: "[c2,g3] [c2,c4] g4 g3 c4 g3 [c2,c4,g4] [c2,c4] g3 g4 c4 g3 g4 c4 g3 g4, [c3,b3,d4]@5 ~ [c3,f3,a3]@9 ~", // C5 C C5 C G F
  BL: "[c2,g3,c4] [c2,g3] g4 c4 g3 g4 [c2,c4] [c2,g3] g4 c4 g3 g4 c4 [c2,g3] [b1,g4] [a1,c4], [c3,e4]@15 ~", // C5 C C5 Em Am C
  BM: "[[g1,g2,f3,a3,c4]@7 ~]/2", // F
})).s("gm_epiano1").gain(0.43)

// other · marimba
const marimba = note(`<
  ~@5 A B ~ C D ~@6 E F G@2 ~ H I ~@3 J K ~@6 L M N ~@2 O P Q R S T S U ~ V@2 W@2 X@2 Y@2 Z@2 AA@2 AB@2 AC@2 AD@2 AE AF
  O P AG@2 ~ AH AI AJ ~ O P AK AL AM ~@2 AN AO AP AQ AR AS AT AU ~
>`.pickRestart({
  A: "[c5,c6]@9 ~@7", B: "~@13 c5 g5 c6", C: "~@12 [c6,e6] [b5,d6] [a5,c6] [g5,b5]", D: "[a5,c6] ~@3", E: "~@12 g4@3 ~",
  F: "a4@3 g4@5", G: "[b4@5 ~ c5@20 ~@6, ~@3 a4@5 ~@8]/2", H: "[g3,c4,e4]@15 ~", I: "~@8 a4@7 ~, [a3,d4,f4]@15 ~",
  J: "~@12 [c7,e7] [b6,d7] [a6,c7] [g6,b6]", K: "[a6,c7] ~@3", L: "c5@15 ~", M: "a5@6 g5@9 ~", N: "b5@5 ~ [a5,c6]@10",
  O: "[c5,c6]@3 ~ [d5,d6]@3 ~ [e5,e6]@3 ~ [g5,g6]@3 ~", P: "[c6,c7]@3 ~ [d6,d7]@3 ~ [e6,e7]@3 ~ [g6,g7]@3 ~",
  Q: "[g6,g7]@5 ~ [e6,e7]@10", R: "~@2 [c6,c7]@3 ~ [d6,d7]@5 ~ [e6,e7] ~ [g6,g7] ~", S: "[a6,a7]@5 ~ [g6,g7]@8 ~@2",
  T: "[c6,c7]@3 ~ [e6,e7] ~ [d6,d7]@6 [e6,e7] ~ [g6,g7] ~", U: "[e6,e7]",
  V: "[[c5,e5,g5,c6,e6]@14 ~@2 [d5,f5,a5,d6,f6,a6]@15 ~, ~@7 c5@7 ~@2]/2", W: "[[e5,g5,b5,e6,g6,b6]@15 ~]/2",
  X: "[[g6,g7]@27 ~ a7@4, ~@14 a6 ~]/2", Y: "[[g5,b5,d6]@15 ~, [f5,a5,c6] ~@31]/2",
  Z: "[b6,b7]@3 [c7,c8]@2 ~ [a6,a7]@10", AA: "[[d6,d7]@15 ~]/2",
  AB: "[[c6,c7]@24 ~@2 [e6,e7] [d6,d7] [c6,c7] ~ [b5,b6]@2]/2", AC: "[[c6,c7]@13 ~@3]/2",
  AD: "[[a5,c6,e6]@5 ~ [g5,b5,d6]@15 ~ [a5,c6,e6]@9 ~]/2", AE: "[d5,a5,c6,e6]@15 ~", AF: "[f5,a5,c6]@7 ~",
  AG: "[[g5,g6]@11 ~ e6@8 ~@2 d6@10]/2", AH: "[d5,d6,f6]@5 ~ [g5,b5,d6]@10", AI: "e5@3 ~@5", AJ: "e6", AK: "g6@15 ~",
  AL: "a6@3 b6@3 a6@2", AM: "g6@5 ~ e6@10", AN: "[g4,c5,e5]", AO: "[a4,d5,f5]", AP: "[b4,e5,g5]",
  AQ: "[c5,f5,a5]@5 ~@3", AR: "[e6,e7]@5 ~ [d6,d7]@7 ~ [b5,b6] [c6,c7]", AS: "[d6,d7]@4 ~@2 [c6,c7]@5 ~@5",
  AT: "[e6,e7]@5 ~ [f6,f7] ~", AU: "[d6,d7] ~",
})).s("gm_marimba").gain(0.42)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@13 A B A C D E F G H I ~@8 A C A B J K F G L@2 M N M O M P Q R S T@2 U@2 V@2 U@2 W X Y Z AA Z D E AB AC AD@2 AE AF
  AG AF AG F AH R AI AJ AK AL AM AN AO AP AQ AR AS@3 AT@2
>`.pickRestart({
  A: "[g3,c4,e4]@5 ~ [a3,c4,f4]@9 ~", B: "[b3,d4,g4]@5 ~ [g3,c4,e4]@9 ~", C: "[b3,d4,g4]@5 ~ [g3,c4,e4]@9 ~, f4 ~@15",
  D: "[a3,c4,e4]@5 ~ [g3,b3,d4]@9 ~", E: "[g3,b3,d4]@5 ~ [a3,c4,e4]@10", F: "[a3,c4,e4]@15 ~", G: "[f3,a3,c4]@7 ~",
  H: "[g3,c4,e4]@15 ~", I: "~@8 a4@7 ~, [a3,d4,f4]@15 ~", J: "[a3,c4,e4,a4]@6 [g3,b3,d4,g4]@9 ~, g4 ~@15",
  K: "[g3,b3,d4,g4]@5 ~ [a3,c4,e4]@10, ~@3 a4@4 ~", L: "[[g3,c4,e4]@15 ~]/2", M: "[e4,g4,b4]@5 ~ [a3,c4,e4,a4]@9 ~",
  N: "[d4,f4,a4,c5]@4 ~@2 [g3,g4,b4]@9 ~", O: "[d4,f4,a4,c5]@5 ~ [g3,d4,g4,b4,d5]@9 ~", P: "[d4,f4,a4,c5,e5]",
  Q: "[f4,a4,c5]@15 ~", R: "[c4,e4,g4]@15 ~", S: "[d4,f4,a4]", T: "[[e4,g4,b4]@15 ~]/2",
  U: "[g4,b4,d5]@2 ~ [a4,c5,e5]@2 ~ [f4,a4,c5]@9 ~", V: "[[f4,a4,c5]@2 ~ [g4,b4,d5]@2 ~ [e4,g4,b4]@24 ~@2]/2",
  W: "[d4,f4,a4,c5]@15 ~", X: "[d4,g4,b4,d5]@7 ~", Y: "~ [c4,e4]@5 [f3,a3,c4]@10, g4@5 ~@11",
  Z: "[g3,b3,d4]@6 [c4,e4,g4]@9 ~", AA: "[c4,e4,g4]@6 [f3,a3,c4]@9 ~", AB: "[d3,a3,c4,e4]@15 ~",
  AC: "[g3,f4,a4,c5]@15 ~", AD: "[[c4,e4,g4,c5]@15 ~]/2", AE: "~ [e4,g4]@5 [a3,c4]@10, b4@5 ~ e4@5 ~@5",
  AF: "[d4,f4,a4]@3 [g3,b3,d4]@5", AG: "[e4,g4,b4]@3 [a3,c4,e4]@5", AH: "[f3,f4,a4,c5]@15 ~", AI: "[c4,e4,g4,c5]@7 ~",
  AJ: "[e4,g4,b4]@5 ~ [a4,c5,e5]@10, g5@15 ~", AK: "[d4,f4,a4,a5]@6 b5@5 ~ a5@3 ~, g4 ~@5 [g4,b4,d5]@10",
  AL: "[e4,g4,b4,g5]@5 g5 [a4,c5,e5]@10", AM: "[d4,a4,c5]@15 ~, e5 ~@15", AN: "[f4,a4,c5,d5]@15 ~",
  AO: "[e4,g4]@15 ~, c5 ~@15", AP: "[d4,f4,d5], a4 ~@15", AQ: "[e4,g4,b4,e5]@15 ~", AR: "[f4,a4,c5,f5]@7 ~",
  AS: "[[g3,c4,e4]@5 ~ [g3,b3,d4]@9 ~ [g3,b3,d4]@5 ~ [f3,a3,c4]@8 ~@2 [g3,c4,e4]@15 ~, g5@15 ~]/3", // C G F C
  AT: "[[f4,a4]@19 ~@13]/2", // F
})).s("gm_string_ensemble_1").gain(0.27)

// drums · kick
const kick = s("bd").struct(`<
  ~ A@21 B A@17 B A C A C A C A C A C A@2 C A C A C A B A@9 B A C A C A C A@2 B A C A C A C A@2 C A C D E ~
>`.pickRestart({
  A: "x!2 ~@4 x!2 ~@8", B: "x!2 ~@4 x!2 ~@6 x ~", C: "x!2 ~@4 x!2 ~@5 x ~@2", D: "x!2 ~@4 x!2 ~@7 x", E: "x",
})).gain(0.4)

// drums · rim
const rim = s("rim").struct("<~ [~ x ~ x]!20 ~@2 [~ x ~ x]!16 ~@21 [~ x ~ x]!8 ~@25>").gain(0.4)

// drums · snare
const snare = s("sd").struct("<~@21 A B ~@16 A B A@18 B ~@8 A B A@8 B A@12 C ~>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "x",
})).gain(0.4)

// drums · low tom
const low_tom = s("lt").struct("<~@4 A ~@17 A ~@17 A ~@10 A ~@7 A ~@9 A ~@6 A ~ A ~@6 A ~@7>".pickRestart({
  A: "~@15 x",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<~ [~ x!3 ~ x!3 ~ x!3 ~ x!3]!89 [~ x!3 ~ x ~@4 x!2 ~@3 x] ~@2>").gain(0.4)

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 A ~@16 B C ~@16 B C B@10 D B@7 C ~@8 B C B@6 D B C B@6 D B@4 E F ~>".pickRestart({
  A: "~@6 x!2", B: "~ x ~ x", C: "~@2 x ~@3 x!2", D: "~@7 x", E: "~@4 x ~@7 x ~@2 x", F: "x",
})).gain(0.4)

// drums · open hat
const open_hat = s("oh").struct("<[~@7 x] [x!4]!89 [x ~@3 x ~ x ~ x!2 ~@3 x ~@2] x ~>").gain(0.4)

// drums · high tom
const high_tom = s("ht").struct("<~@4 A ~@17 A ~@17 A ~@10 B ~@7 A ~@9 A ~@6 B ~ A ~@6 B ~@7>".pickRestart({
  A: "~@9 x ~ x ~@4", B: "~@13 x ~@2",
})).gain(0.4)

// drums · ride
const ride = s("rd").struct("<~@90 [~@3 x ~@4] x ~>").gain(0.4)

// drums · congas
const congas = s("conga:18").struct("<~ A@50 ~ A@24 ~ A@8 ~ A@4 B ~@2>".pickRestart({
  A: "x!2 ~@4 x ~@9", B: "~ x ~@4 x ~@2 x ~ x ~@2 x ~",
})).gain(1.29)

// drums · congas
const congas_2 = s("conga:33").struct("<~ A@20 B@2 A@16 B@12 ~ B@8 A@8 B@8 ~ B@8 ~ B@4 C ~@2>".pickRestart({
  A: "~@2 x ~ x!2 ~@10", B: "~@2 x ~@2 x ~@10", C: "~@5 x ~@7 x ~@2",
})).gain(1.29)

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

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

stack(
  epiano1, marimba, string_ensemble_1, kick, rim, snare, low_tom, hihat, mid_tom, open_hat, high_tom, ride, congas,
  congas_2, cabasa, cabasa_soft
)