// The Crying Game — Boy George
// 100 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 83 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(100/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 · fretless bass · "FRETLESS"
const bass = note(`<
  A B C D E F G H E I C J E K G H E I L@3 H M N O P@3 B C J E K G H E I L@3 H M N O B C J E K G H E I L@3 H M N O B Q R
  S T U V W X Y Z S AA U AB W AC Y@4 AD@2
>`.pickRestart({
  A: "d1@3 ~ d1@2 ~ d1 ~@2 d1@3 ~ d1 ~", B: "d1@3 ~ d1@2 ~ d1@2 ~ d1@2 ~@2 d1@2",
  C: "g1@3 ~ g1@2 ~ g1 a1 ~ a1@3 ~ a1@2", D: "c2@3 ~ c2@2 ~ c2 g1 ~ g1@3 ~ g1@2", E: "e1@3 ~ e1@2 ~ e1@2 ~ e1@4 d1@2",
  F: "e1@3 ~ e1@2 ~ e1@2 ~ e1@4 f#1 g1", G: "b1@3 ~ b1@2 ~ b1@3 b1@3 ~ b1@2", H: "c2@3 ~ c2@2 ~ c2@2 ~ c2@3 ~ c2@2",
  I: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 ~ e1@2", J: "c2@3 ~ c2@3 c2 g1@2 g1@3 ~ g1@2", K: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 f#1 g1@2",
  L: "c2@3 ~ c2@2 ~ c2@2 ~ c2@3 ~ c2 ~", M: "f1@3 ~ f1@2 ~ f1@2 ~ f1@3 ~ f1@2",
  N: "d#1@3 ~ d#1@2 ~ d#1@2 ~ d#1@3 ~ d#1@2", O: "a#1@3 ~ a#1@2 ~ a#1 d1 ~ d1@3 ~ d1 ~",
  P: "d1@3 ~ d1@2 ~ d1@2 ~ d1@3 ~ d1 ~", Q: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 ~ f#1@2",
  R: "b1@3 ~ b1@2 ~ b1@2 ~ b1@2 b1 a#1 g#1@2", S: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1@3 ~ f#1 ~",
  T: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1 ~ f#1@2 g#1@2", U: "a1@4 a1@2 ~ a1@2 ~ a1@3 ~ a1 ~",
  V: "a1@3 ~ a1@2 ~ a1@2 ~ a1@2 a1!2 a1@2", W: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 ~ e1 ~",
  X: "e1@3 ~ e1@2 ~ e1@2 e1 ~ e1 f#1 a1@2 ~", Y: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 ~ b1 ~",
  Z: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 a#1 g#1@2", AA: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1@3 ~ f#1 g#1",
  AB: "a1@3 ~ a1@2 ~ a1@2 ~ a1@3 a1 g#1 f#1", AC: "e1@3 ~ e1@2 ~ e1@2 ~ e1 ~ e1 f#1 a1@2", AD: "[b1@5 ~@3]/2",
})).s("gm_fretless_bass").gain(0.32)

// chords · string ensemble 2 · "SLOWSTRING"
const string_ensemble_2 = note(`<
  ~@2 A@2 B@3 C@3 D@4 E F G@6 H I@3 ~@3 J@4 K L M@2 N@5 O@3 P@4 K Q R@2 N@5 O@3 S@2 T@2 U@2 V@2 W@2 T@2 U@2 X@2 Y@6
>`.pickRestart({
  A: "[[g3,b3,d4]@8 c#4@7 ~ c4@7 [g3,b3,d4]@9, ~@8 [a3,e4]@15 ~@9]/2", // G A5
  B: "[g3@32 [f4,f#4] ~ f#4@14, b3@47 ~, e4@31 ~ d4@16]/3", C: "[c4@16 b3@31 ~, [g3,e4]@47 ~]/3",
  D: "[[g3,b3,d4]@8 c#4@7 ~ c4@8 [b3,d4]@8 [b3,e4]@32, ~@8 [a3,e4]@15 ~ g3@40]/4", E: "[b3,d4,f#4]", F: "[g3,c4,e4]",
  G: "[[g3,e4] [g3,e4] g#3, b3@17 ~@31, ~@32 c4@63 ~]/6", H: "[a3,c4,f4]",
  I: "[[g3,d#4]@2 f3 [f#3,a3]@3, a#3 ~, ~ d4@2, ~ a#3 ~]/3", // Cm F#m
  J: "[[g3,b3,d4,b4]@8 [c#4,a4]@8 [c4,e5]@8 d5@6 b4@2 a4@2 b4@27 ~@3, ~ [a3,e4]@2 g3@5, ~@3 [b3,d4] [b3,e4]@4]/4", // G F#m C A5 Bm E5
  K: "d5@11 ~ c#5@2 d5@2, [b3,d4,f#4]", L: "[g3,c4,e4,e5]", M: "[a4 b4@15, [g3,b3,e4]]/2",
  N: "[g3@2 g#3@2 [a3,f4], c4@79 ~, e4@4 ~]/5", O: "[[g3,d#4]@16 f3@8 [f#3,a3]@23 ~, a#3 ~, ~@16 d4@31 ~]/3",
  P: "[[g3,b3,d4,b4] [c#4,a4] ~ [b3,d4] [b3,e4,e5]@4, ~ [a3,e4]@2 g3@5, ~@2 [c4,c5] ~@5, ~@11 b4@5 ~@16]/4", // G F#m Bm E5 A5 C
  Q: "e5@7 a4, [g3,c4,e4]", R: "[g3,b3,e4,b4]/2", S: "[~@3 b5@13, [f#3,b3,d#4]]/2", T: "[f#3,a#3,c#4,a#5]/2",
  U: "[a5@15 b5, [e3,a3,c#4]]/2", V: "[e3,g#3,b3,g#5]/2", W: "[f#3,b3,d#4,b5]/2", X: "[[e3,g#3,b3], g#5@15 ~]/2",
  Y: "[[f#3,b3,d#4]@85 ~@11, b5@29 ~@3]/6", // B
})).s("gm_string_ensemble_2").gain(0.36)

// other · sitar
const sitar = note(`<
  ~@2 A B C ~ D@2 E ~@20 A B F ~@13 A B F ~ G@2 E ~@9 H I J K L M N O P I J K L Q N O I ~@5
>`.pickRestart({
  A: "~@4 b2 ~ b2@2 a2@5 ~ a2@2", B: "c3@3 ~ c3@2 b2@7 ~ b2@2", C: "a2 g2@2 b1@4 ~",
  D: "[~@6 b1@2 c2@2 d2@4 c2@9 ~@5 f#2@2 g2@2]/2", E: "f#3 e3@2 b2@5", F: "a2 g2@2 b1@5",
  G: "[~@2 b1@2 c2 d2@2 c2@4 ~@3 f#2 g2]/2", H: "~@7 f#2", I: "b2@13 ~@3", J: "~@7 c#3", K: "a#2@3 f#3@3 a#2@2",
  L: "a2@5 ~@2 e2", M: "a2@13 ~@3", N: "~@7 b2", O: "g#2@5 ~ b2@6 g#2@4", P: "b2@6 ~ f#2", Q: "a2@7 ~",
})).s("gm_sitar").gain(0.32)

// drums · kick
const kick = s("bd").struct(`<
  A B A B A B A B A B A B A B A B A B A B A B A B A B A@2 B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B
  A B A B A B A B A B A B A B A B A B A B A B C ~
>`.pickRestart({
  A: "x ~@6 x!2 ~ x ~@3 x ~", B: "x ~@3 x!2 ~@2", C: "x",
})).gain(0.4)

// drums · snare
const snare = s("sd").struct(`<
  A B A B A B A B A B A B A B A B A B A B A B A B A B A@2 B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B
  A B A B A B A B A B A B A B A B A B A B A B ~@2
>`.pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@2 x ~ x ~@2 x ~ x!2",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct("<[x!16]!81 ~@2>").gain(0.24)

// drums · tambourine
const tambourine = s("tb").struct("<~@61 [~ x ~ x ~ x ~ x]!20 ~@2>").gain(0.48)

// drums · crash
const crash = s("cr").struct("<~@18 A ~@14 A ~@3 A ~@11 A ~@3 A ~@7 A ~@7 A ~@7 A ~@3 A ~>".pickRestart({
  A: "x",
})).gain(0.48)

stack(bass, string_ensemble_2, sitar, kick, snare, hihat, tambourine, crash)