// Homely Girl — UB40
// 82 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 76 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(82/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once.
// A part's distinct bars are riffs (A, B, C...) played in order: edit a riff to change every repeat.

// chords · piano · "A.PIANO 1"
const piano = note(`<
  ~ A B C D E F ~ G H G F I J@2 H ~ K L J@2 M@2 N@2 M@2 N@2 E F ~ G H G F I M@2 N@2 O M O M P ~ Q R M S ~ M@2 N@2 M@2
  N@2 M@2 N@2 M@2 N@2 M@2 N@2 T U S V
>`.pickRestart({
  A: "~@2 [d3,g3,b3] ~@7 [c3,f3,a3] ~ [c3,f3,a3] ~ [c3,f3,a3] ~", // G F
  B: "~@2 [d3,g3,b3] ~ [d3,g3,b3] ~ [d3,g3,b3] ~@3 [c3,f3,a3] ~ [c3,f3,a3] ~ [c3,f3,a3] ~", // G F
  C: "~@2 [d3,g3,b3] ~ [d3,g3,b3] ~@5 [c3,f3,a3] ~ [c3,f3,a3] ~ [c3,f3,a3] ~", // G F
  D: "[d3,g3,b3] ~ [d3,g3,b3] ~@2 [d3,g3,b3] ~@2 [d3,g3,b3] ~ [d3,g3,b3] ~@2 [d3,g3,b3] ~@2", // G
  E: "~@2 [d3,g3,b3] ~@2 [d3,g3,b3] ~@2 [d3,g3,b3] ~@7", F: "~@2 [d3,g3,b3] ~@2 [d3,g3,b3] ~@10",
  G: "~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@4", // D
  H: "~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@7", I: "~@2 [d3,g3,b3] ~@13",
  J: "~@6 [d3,g3,b3] ~@2 [d3,g3,b3] ~@2 [d3,g3,b3] ~@3", // G
  K: "~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~", // D
  L: "~@2 [d3,f#3,a3] ~@2 [d3,f#3,a3] ~@10", M: "~@2 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~",
  N: "~@2 [d4,g4,b4] ~@3 [d4,g4,b4] ~@3 [d4,g4,b4] ~@3 [d4,g4,b4] ~", // G
  O: "~@2 [e4,g4,b4] ~@3 [e4,g4,b4] ~@3 [e4,g4,b4] ~@3 [e4,g4,b4] ~", // Em
  P: "~@2 [e4,g4,c5] ~@3 [e4,g4,c5] ~@3 [e4,g4,c5] ~@3 [e4,g4,c5] ~", // C
  Q: "~@2 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~", // Bm
  R: "~@2 [c4,e4,a4] ~@3 [c4,e4,a4] ~@3 [c#4,e4,a4] ~@3 [c#4,e4,a4] ~", // Am A
  S: "~@2 [d4,g4,b4] ~ [d4,g4,b4] ~@5 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // G F
  T: "~@2 [d4,g4,b4] ~@7 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // G F
  U: "~@2 [d4,g4,b4] ~ [d4,g4,b4] ~ [d4,g4,b4] ~@3 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", V: "[d4,g4,b4] ~@15",
})).s("gm_piano").gain(0.38)

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  A B C D E F G H I@3 F J K G H I@3 J L I@2 F G H I F@2 J M H I@3 F J H I F J N O P O Q R S T I D E I@2 F G H I F@2 I@2
  F U H V F G H I F G C@2 D E
>`.pickRestart({
  A: "~@3 c2", B: "g1@2 ~ g1 g1@2 ~ d2 f1!2 ~ f1!2 ~ c2 ~", C: "g1@3 g1 g1@3 d2 f1!2 ~ f1!2 ~ c2 ~",
  D: "g1@2 ~ g1 g1@3 d2 f1!2 ~ f1!2 ~ c2 ~", E: "g1 ~@15", F: "g1@2 ~ g1 g1@3 b1 g1!2 ~ g1!2 ~ d2 ~",
  G: "g1@2 ~ g1 g1@3 b1 g1!2 ~ g1 g1@2 c2 ~", H: "d2@3 d2 d2@3 f#2 d2!2 ~ d2 ~@2 a2 ~",
  I: "d2@2 ~ d2 d2@3 f#2 d2!2 ~ d2 ~@2 a2 ~", J: "g1@2 ~ g1 g1@3 b1 g1!2 ~ g1 g1@2 d2 ~",
  K: "g1@3 g1 g1@3 b1 g1!2 ~ g1!2 ~ d2 ~", L: "g1@3 g1 g1@3 b1 g1!2 ~ g1!2 ~ c2 ~",
  M: "g1@3 g1 g1@3 b1 g1!2 ~ g1 g1@2 c2 ~", N: "e2@3 e2 e2@3 b1!2 e2 ~ e2 e2@2 b1 ~",
  O: "d2@2 a1 ~ b1 ~ d2 ~ d2@3 a1 b1 ~ d2 ~", P: "e2@2 ~ e2!2 ~@2 b1!2 e2 ~ e2 e2@2 b1 ~",
  Q: "c2@3 c2 c2@3 g1!2 c2 ~ c2 c2@2 g1 ~", R: "d2@2 ~@2 b1@2 ~@2 g1@7 ~",
  S: "f#2@3 f#2 f#2@2 f#2@2 f#2@3 f#2 f#2@2 g2@2", T: "a2@2 ~ e2 f#2@2 a2@2 a2@3 e2 g2@2 a2@2",
  U: "g1@2 ~ g1!2 ~@2 b1 g1!2 ~ g1 g1@2 c2 ~", V: "d2@2 ~ d2!2 ~@2 f#2 d2!2 ~ d2 ~@2 a2 ~",
})).s("gm_electric_bass_finger").gain(0.36)

// chords · distortion guitar · "DISTORTION"
const distortion_guitar = note(`<
  ~ A B C ~ D@2 E@4 D@4 E@4 D@2 E@2 D@2 E@2 D@4 E@4 D@2 E@2 D@2 F E F E G ~ H I E C ~ J@2 K@2 J@2 K@2 J@2 K@2 J@2 K@2
  J@2 K@2 A B C ~
>`.pickRestart({
  A: "~@2 [d4,g4,b4] ~@7 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // G F
  B: "~@2 [d4,g4,b4] ~ [d4,g4,b4] ~ [d4,g4,b4] ~@3 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // G F
  C: "~@2 [d4,g4,b4] ~ [d4,g4,b4] ~@5 [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // G F
  D: "~@2 [d4,g4,b4] ~@3 [d4,g4,b4] ~@3 [d4,g4,b4] ~@3 [d4,g4,b4] ~", // G
  E: "~@2 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~@3 [d4,f#4,a4] ~", // D
  F: "~@2 [e4,g4,b4] ~@3 [e4,g4,b4] ~@3 [e4,g4,b4] ~@3 [e4,g4,b4] ~", // Em
  G: "~@2 [e4,g4,c5] ~@3 [e4,g4,c5] ~@3 [e4,g4,c5] ~@3 [e4,g4,c5] ~", // C
  H: "~@2 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~@3 [d4,f#4,b4] ~", // Bm
  I: "~@2 [c4,e4,a4] ~@3 [c4,e4,a4] ~@3 [c#4,e4,a4] ~@3 [c#4,e4,a4] ~", // Am A
  J: "~@2 [a3,d4,f#4,a4] ~@3 [a3,d4,f#4,a4] ~@3 [a3,d4,f#4,a4] ~@3 [a3,d4,f#4,a4] ~", // D
  K: "~@2 [b3,d4,g4,b4] ~@3 [b3,d4,g4,b4] ~@3 [b3,d4,g4,b4] ~@3 [b3,d4,g4,b4] ~", // G
})).s("gm_distortion_guitar").gain(0.4)

// chords · brass section · "BRASS 1"
const brass_section = note("<~@35 A ~@25 B ~ C ~ B ~ C ~ B ~ C ~@4>".pickRestart({
  A: "~@6 [g3,b3,d4] ~@9", B: "[f#2,a2,d3] ~@5 [f#2,a2,d3] ~@9", C: "~@6 [g2,b2,d3] ~@9",
})).s("gm_brass_section").gain(0.4).pan(0.7)

// chords · brass section · "BRASS 1"
const brass_section_2 = note(`<
  ~ A B@2 C ~@2 D E ~@22 D E ~@8 F G F H I J K L H B C M@2 N O P M Q R P M Q R P M Q R P M Q R A B@2 C
>`.pickRestart({
  A: "d5 b4 g4@2 g4@3 ~ c5 a4 f4@2 f4@3 ~", B: "d5 b4 g4@2 g4@4 c5 a4 f4@2 f4@4", C: "d5 ~@15",
  D: "~@10 [f#4,a4,d5] ~ [g4,c5,e5] ~ [g4,b4,d5] ~", E: "[f#4,a4,d5] ~@15", F: "[e4,g4,b4]", G: "[d4,f#4,a4]",
  H: "[d4,f#4,a4]@15 ~", I: "[e4,g4,c5]", J: "[f#4,a4,d5]@3 ~ [e4,g4,b4]@3 ~ [b3,d4,g4]@7 ~", K: "[d4,f#4,b4]@15 ~",
  L: "c4@7 ~ c#4@8, [e4,a4]", // A5
  M: "f#5 ~ [f#4,a4,d5] f#5 ~@2 [f#4,a4,d5,f#5] ~ f#5 g5 [f#4,a4,d5,f#5] ~@3 [f#4,a4,d5,f#5] ~", // D
  N: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5] ~, ~@5 g5 ~@2", // G
  O: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5] ~, ~@10 g5@3 ~@3", // G
  P: "f#5 ~ [f#4,a4,d5] f#5 ~@2 [f#4,a4,d5,f#5] ~ f#5 g5 [f#4,a4,d5,f#5] ~ f#5 ~ [f#4,a4,d5] ~", // D
  Q: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5,g5] ~ g5 ~ [g4,b4,d5] ~", // G
  R: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5,g5] ~, ~@10 g5@3 ~@3", // G
})).s("gm_brass_section").gain(0.3).pan(0.3)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~ A B@2 C ~@2 D E ~@12 F@2 G@2 F@2 G@2 ~@2 D E ~@4 F@2 G@2 H I H J K L M N J B C O@2 P Q R O S T R O S T R O S T R O S
  T A B@2 C
>`.pickRestart({
  A: "d5 b4 g4@2 g4@3 ~ c5 a4 f4@2 f4@3 ~", B: "d5 b4 g4@2 g4@4 c5 a4 f4@2 f4@4", C: "d5 ~@15",
  D: "~@10 [f#4,a4,d5] ~ [g4,c5,e5] ~ [g4,b4,d5] ~", E: "[f#4,a4,d5] ~@15",
  F: "~@2 [f#4,a4,d5] ~@3 [f#4,a4,d5] ~@3 [f#4,a4,d5] ~@3 [f#4,a4,d5] ~", // D
  G: "~@2 [g4,b4,d5] ~@3 [g4,b4,d5] ~@3 [g4,b4,d5] ~@3 [g4,b4,d5] ~", H: "[e4,g4,b4]", I: "[d4,f#4,a4]",
  J: "[d4,f#4,a4]@15 ~", K: "[e4,g4,c5]", L: "[f#4,a4,d5]@3 ~ [e4,g4,b4]@3 ~ [b3,d4,g4]@7 ~", M: "[d4,f#4,b4]@15 ~",
  N: "c4@7 ~ c#4@8, [e4,a4]", // A5
  O: "f#5 ~ [f#4,a4,d5] f#5 ~@2 [f#4,a4,d5,f#5] ~ f#5 g5 [f#4,a4,d5,f#5] ~@3 [f#4,a4,d5,f#5] ~", // D
  P: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5] ~, ~@5 g5 ~@2", // G
  Q: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5] ~, ~@10 g5@3 ~@3", // G
  R: "f#5 ~ [f#4,a4,d5] f#5 ~@2 [f#4,a4,d5,f#5] ~ f#5 g5 [f#4,a4,d5,f#5] ~ f#5 ~ [f#4,a4,d5] ~", // D
  S: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5,g5] ~ g5 ~ [g4,b4,d5] ~", // G
  T: "g5 ~ [g4,b4,d5] g5 ~@2 [g4,b4,d5,g5] ~ g5 a5 [g4,b4,d5] ~@3 [g4,b4,d5,g5] ~, ~@10 g5@3 ~@3", // G
})).s("gm_string_ensemble_1").gain(0.16)

// drums · kick
const kick = s("bd").struct("<~ [x ~@2 x ~@2 x ~ x ~@2 x ~@2 x ~]!74 x>").gain(0.54)

// drums · rim
const rim = s("rim").struct("<~ [~ x ~ x]!74 ~>").gain(0.62)

// drums · hihat
const hihat = s("hh").struct("<~ [x!16]!74 ~>").gain(0.39)

// drums · crash
const crash = s("cr").struct("<~@75 x>").gain(0.54)

// drums · tambourine
const tambourine = s("tb").struct("<~ [~ x ~ x]!74 ~>").gain(0.62)

// drums · congas
const congas = s("conga:18").struct("<~ [~@3 x ~@3 x]!74 ~>").gain(1.74)

// drums · congas
const congas_2 = s("conga:33").struct("<~ [x ~@2 x!2 ~@3 x ~@2 x!2 ~@3]!74 ~>").gain(1.74)

stack(
  piano, bass, distortion_guitar, brass_section, brass_section_2, string_ensemble_1, kick, rim, hihat, crash,
  tambourine, congas, congas_2
)