// A lei — Anna Oxa
// 84 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 80 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(84/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 · piano
const piano = note("<A@2 B@2 C@2 B@2 D@6 E@3 F G H I J K L ~@17 C@2 M@2 D@6 E@3 F N@2 I J O L ~@19>".pickRestart({
  A: "[[a3,d4,f#4]@18 ~@6 [d4,f#4,a4]@4 [a3,d4,f#4]@3 ~]/2", B: "[[b3,d4,g4]@9 ~@7]/2",
  C: "[[a3,d4,f#4]@18 ~@6 [d4,f#4,a4]@3 ~ [a3,d4,f#4]@3 ~]/2", // D
  D: "[a3@27 a3 ~@4 [g3,b3,d4]@28 [a3,d4]@4 a3@23 ~@6 [d3,f#3]@2 ~, [d2,d3,d4,f#4]@32 [g2,g4]@32 d2@31 ~, ~@28 [a3,a4]@32 [g3,b3]@29 f#4 d4@5 ~, ~@29 e4@32 ~@3 d3@27 [a3,f#4]@4 ~, ~@64 [d4,f#4]@23 a3 a4@7 ~]/6", // G D5 D G A G D
  E: "[g3@18 ~@14 [g3,b3,e4]@15 ~, [g2,b3]@2 ~, d4@24 d4@13 ~@11, a3@21 a3@16 ~@11, ~@9 g3@7 ~@8]/3", // Em G
  F: "[b3,d4,g4]@11 ~ [b3,d4,g4]@4", G: "d4@2 d4@3 f#4@3 d4@8, [d2,d3]@13 ~@3, [a3,f#4] ~@3, ~ a4@4 ~@3",
  H: "~@2 [a3,d4,a4]@3 f#4@3 d4@5 ~@3, [d2,d3]@3 ~", I: "[b3,d4,g4]@11 ~ [b3,d4,g4]@3 ~, g2@3 ~",
  J: "[e3,b3,d4,e4]@12 [b3,d4,e4,g4]@3 e3, e2@7 ~, g4@5 ~@3", K: "[a3,d4,g4]@11 ~ [a3,b3,d4,g4]@2 a2 ~, a2@3 ~",
  L: "[a2,a3,c#4,e4]@13 ~@3", // A
  M: "[d4@10 ~ d5@2 d5@2 g4@2 g4@2 g4!3 [d4,g4]@2 [d4,g4]@7 ~, b3@15 d5@5 d4 e4@10 ~, g4@13 a4@18 ~, ~@10 d4@7 e4@2 b3@12 ~, ~@10 a4 b4@20 ~]/2", // G5
  N: "[d4@2 d4@3 f#4@3 ~@10 [a3,d4,a4]@3 f#4@3 d4@5 ~@3, [d2,d3]@13 ~@3 [d2,d3]@12 ~@4, [a3,f#4]@2 ~@2 d4@5 ~@7, ~ a4@4 ~@11]/2", // D5 D
  O: "[a3,d4,g4]@11 ~ [b3,d4]@2 a2 ~, a2@3 [a3,g4]", // Dsus4 Bm A7
})).s("gm_piano").gain(0.54).pan(0.4)

// bass · electric bass finger
const bass = note(`<
  A@10 B@2 A C D@2 E B A@2 B E F G H I H I H J K L M H I H I H J K N A@6 B@2 A C D@2 E B A@2 B E F G H I H I H J K L M H
  I H I H J K L M O
>`.pickRestart({
  A: "d2@5 ~ d2 ~ d2@7 ~", B: "g2@5 ~ g2 ~ g2@7 ~", C: "d2@5 ~ d2 ~ d2@5 ~ d2 ~", D: "g1@5 ~ g1 ~ g1@7 ~",
  E: "e2@5 ~ e2 ~ e2@7 ~", F: "a2@5 ~ a2 ~ a2@6 ~@2", G: "a2@5 ~ a2 ~ a2@7 ~", H: "d2@3 ~ d2@3 ~ d2@3 ~ a1@3 ~",
  I: "g1@3 ~ g1@3 ~ g1@3 ~ a1@3 ~", J: "g1@3 ~ g1@3 ~ g1@7 ~", K: "e2@3 ~ e2@3 ~ a1@3 ~ a1@3 ~",
  L: "d2@3 ~ d2@3 ~ d2@3 ~ d2@3 ~", M: "a1@2 ~ a1@4 ~ a1@2 ~ a1@4 ~", N: "g1@15 ~", O: "d2@11 ~@5",
})).s("gm_electric_bass_finger").gain(0.64)

// other · electric guitar muted · D E D E D E D E …
const electric_guitar_muted = note(`<
  [[d4,d5] ~ [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5]!2]!21
  [[e4,e5] ~ [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5]!2]!2
  [[d4,d5] [e4,e5] ~ [d4,d5] [e4,e5] ~ [d4,d5] [e4,e5]@5 [a3,a4]@2 ~@2]
  ~@17
  [[d4,d5] ~ [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5] ~@2 [d4,d5]!2]!17
  [[e4,e5] ~ [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5] ~@2 [e4,e5]!2]!2
  [[d4,d5] [e4,e5] ~ [d4,d5] [e4,e5] ~ [d4,d5] [e4,e5]@5 [a3,a4]@2 ~@2]
  ~@19
>`).s("gm_electric_guitar_muted").gain(0.42).pan(0.2)

// other · pad poly
const pad_poly = note("<A@2 B@2 A@2 B@2 ~@33 A@2 B@2 ~@35>".pickRestart({
  A: "[d5@21 ~@3 a5@4 f#5@3 ~]/2", B: "[d5@27 ~@5]/2",
})).s("gm_pad_poly").gain(0.32).pan(0.6)

// other · lead 1 square
const lead_1_square = note("<A@2 B@2 C@2 D E ~@16 F@8 G F@8 H@2 D E ~@16 F@8 G F@8 G I>".pickRestart({
  A: "[[d4,d5]@23 ~ [a4,a5]@4 [f#4,f#5]@4]/2", B: "[[d4,d5]@7 ~]/2", C: "[[d4,d5]@6 [a4,a5] [f#4,f#5]]/2",
  D: "[d4,d5]@15 ~", E: "~@2 d3 g3 a3 d4 d3@5 ~@5",
  F: "[d5,d6] ~ [d5,d6]!2 ~ [d5,d6]!2 ~ [d5,d6] ~ [d5,d6] ~ [d5,d6] ~ [e5,e6] ~", // D E
  G: "[a4,a5] ~ [a4,a5]!2 ~ [a4,a5]!2 ~ [a4,a5] ~ [a4,a5] ~ [d5,d6] ~ [e5,e6] ~", H: "[[d5,d6]@6 [a4,a5] [f#4,f#5]]/2",
  I: "[d5,d6] ~@15", // D
})).s("gm_lead_1_square").gain(0.24)

// chords · distortion guitar
const distortion_guitar = note(`<
  ~@24 A B C D E F G H I A B C D E F G J ~@20 A B C D E F G H I A B C D E F G H I K
>`.pickRestart({
  A: "[d3,a3,d4]@10 ~@2 [a2,e3,a3]@3 ~", B: "[g2,d3,g3]@11 ~ [a2,e3,a3]@4", C: "[d3,a3]@12 [a2,e3,a3]@3 ~, d4@5 ~@3",
  D: "[g2,d3,g3]@11 ~ [a2,e3,a3]@3 ~", E: "[d3,d4]@11 ~ [a2,e3,a3]@3 ~, a3@9 ~@7", F: "[g2,g3]@15 ~",
  G: "[e3,g3,d4]@4 [a2,a3,c#4]@3 ~", H: "[d3,f#3,d4]@2 ~ [d3,f#3,d4]@13", I: "[a2,e3,a3]!16", J: "[d3,g3,d4]@15 ~",
  K: "[d3,a3,d4]@3 ~", // D5
})).s("gm_distortion_guitar").gain(0.32)

// chords · church organ
const church_organ = note(`<
  ~@24 A B A B A C D E F A B A B A C D C ~@20 A B A B A C D E F A B A B A C D E F G
>`.pickRestart({
  A: "[f#4,a4,d5]@3 [c#4,e4,a4]", B: "[b3,d4,g4]@3 [c#4,e4,a4]", C: "[b3,d4,g4]", D: "[e4,g4,b4,d5] [e4,a4,c#5]",
  E: "[f#4,a4,d5]", F: "[c#4,e4,a4]@15 ~", G: "[d4,f#4,a4]@3 ~",
})).s("gm_church_organ").gain(0.19).pan(0.4)

// chords · pad warm
const pad_warm = note(`<
  A@2 B@2 A@2 B@2 A@2 B@2 A@2 C@2 D E F@2 G D H I ~@17 A@2 B@2 A@2 B@2 A@2 C@2 D E F@2 G D H I ~@19
>`.pickRestart({
  A: "[[a3,d4,f#4]@31 ~]/2", B: "[[b3,d4,g4]@31 ~]/2", C: "[b3,d4,g4]/2", D: "[e3,g3,b3,d4]@15 ~", E: "[g3,b3,d4]@15 ~",
  F: "[[f#3,a3,d4]@31 ~]/2", G: "[g3,b3,d4]@7 ~", H: "[g3,a3,b3,d4]", I: "[a3,c#4,e4]@15 ~",
})).s("gm_pad_warm").gain(0.27)

// drums · kick
const kick = s("bd").struct(`<
  A B A B A B A C A B A B A B A C A B A B A B D E A@8 F A@7 G A B A B A B A B A B A C A B A B A B D E A@8 H A@8 H I
>`.pickRestart({
  A: "x!4", B: "x ~@3 x!2 ~@2 x ~@3 x ~@3", C: "x ~@3 x!2 ~@2 x ~@2 x ~@4", D: "x ~@3 x ~@3 x ~@2 x ~@4",
  E: "x ~@3 x!2 ~ x ~@3 x ~@4", F: "x ~@3 x ~@2 x ~@4 x ~@3", G: "x ~@10 x ~ x ~@2", H: "x ~@3 x ~@2 x ~@5 x ~@2",
  I: "x",
})).gain(0.72)

// drums · snare
const snare = s("sd").struct("<A@7 B A@7 C A@6 B D A@8 E A@7 F A@3 B A@7 C A@6 B D A@8 E A@8 E ~>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@7 x ~ x!2", C: "~@4 x ~@7 x!2 ~@2", D: "~@10 x ~ x!3 ~", E: "~@4 x ~@5 x!2 ~@4", F: "~@3 x",
})).gain(0.72)

// drums · hihat
const hihat = s("hh").struct(`<
  A B C B A B C B A B C B C B C B A B C B C B C D A B A B A E F B G E C E C E A H C A B C@2 A B C B C B C B A B C B C B
  C D A B A B A E F B I A B A B A E F B I ~
>`.pickRestart({
  A: "~ x!13 ~@2", B: "x!14 ~ x", C: "x!14 ~@2", D: "x!2 ~ x ~@2 x!2 ~ x!4 ~@3", E: "~ x!13 ~ x", F: "~ x!7 ~ x!5 ~@2",
  G: "~@3 x ~@2 x ~@2 x ~@6", H: "~ x!7 ~ x!5 ~ x", I: "x!2 ~ x ~@2 x!2 ~ x!2 ~ x ~@3",
})).gain(0.48)

// drums · low tom
const low_tom = s("lt").struct("<~@23 [~ x] ~@36 [~ x] ~@19>").gain(0.8)

// drums · mid tom
const mid_tom = s("mt").struct("<~@23 A ~@8 B ~@27 A ~@8 B ~@8 B ~>".pickRestart({
  A: "~@5 x ~@10", B: "~@5 x ~@2 x ~@4 x!2 ~",
})).gain(0.8)

// drums · open hat
const open_hat = s("oh").struct("<[~@7 x]!32 [x ~@6 x] [~@7 x]!46 ~>").gain(0.56)

// drums · high tom
const high_tom = s("ht").struct("<~@23 A ~@8 B ~@27 A ~@8 B ~@8 B ~>".pickRestart({
  A: "~ x ~@6", B: "~ x ~@4 x ~",
})).gain(0.8)

// drums · crash
const crash = s("cr").struct(`<
  A ~@3 A ~@3 A ~@7 A ~@7 A ~ A ~ A@2 B ~@2 A ~ A ~ A@2 B ~ A ~@3 A ~@7 A ~@7 A ~ A ~ A@2 B ~@2 A ~ A ~ A@2 B ~@2 A
>`.pickRestart({
  A: "x", B: "x!2",
})).gain(0.64)

// drums · congas
const congas = s("conga:18").struct("<A ~ A ~ A ~ A ~@3 A ~@3 A ~@3 A ~@22 A ~ A ~@3 A ~@3 A ~@3 A ~@24>".pickRestart({
  A: "~@10 x!2 ~ x ~@2",
})).gain(1.54)

stack(
  piano, bass, electric_guitar_muted, pad_poly, lead_1_square, distortion_guitar, church_organ, pad_warm, kick, snare,
  hihat, low_tom, mid_tom, open_hat, high_tom, crash, congas
)