// 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: edit a riff to change every repeat.

// bass · fretless bass · "FRETLESS"
const bass = note(`<
  A B C D E F G H I J K L E M N O E P Q O R S T U V W@2 X Y C Z AA M G R E J AB Q@2 R AC U AD AE C Z AA M G R E J AB Q@2
  R AC U AD AE AF AG AH AI AJ AK AL AM AN AO AH AP AJ AQ AL AR AN@4 AS@2
>`.pickRestart({
  A: "d1@3 ~ d1@2 ~ d1 ~@2 d1@3 ~ d1 ~", B: "d1@2 ~@2 d1@3 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@4 c2@2 ~ c2@2 ~ c2@3 ~ c2@2",
  I: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 ~ d1@2", J: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 ~ e1@2", K: "g1@3 ~ g1@3 g1 a1@2 a1@3 ~ a1@2",
  L: "c2@3 ~ c2@2 ~ c2 g1@2 g1@3 ~ g1@2", M: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 f#1 g1@2", N: "b1@3 ~ b1@3 b1@2 ~ b1@3 ~ b1@2",
  O: "c2@3 ~ c2@2 ~ c2@3 c2@3 ~ c2@2", P: "e1@3 ~ e1@2 ~ e1@3 e1@3 ~ e1@2", Q: "c2@3 ~ c2@2 ~ c2@2 ~ c2@3 ~ c2 ~",
  R: "c2@3 ~ c2@2 ~ c2@2 ~ c2@3 ~ c2@2", S: "c2@4 c2@2 ~ c2@3 c2@3 ~ c2@2", T: "f1@3 ~ f1@3 f1@3 f1@3 ~ f1@2",
  U: "d#1@3 ~ d#1@2 ~ d#1@2 ~ d#1@3 ~ d#1@2", V: "a#1@3 ~ a#1@2 ~ a#1 d1@2 d1@3 ~ d1@2",
  W: "d1@3 ~ d1@2 ~ d1@2 ~ d1@3 ~ d1 ~", X: "d1@3 ~ d1@3 d1@2 ~ d1@3 ~ d1 ~", Y: "d1@3 ~ d1@2 ~ d1@2 ~ d1@3 ~ d1@2",
  Z: "c2@3 ~ c2@3 c2 g1@2 g1@3 ~ g1@2", AA: "e1@3 ~ e1@2 ~ e1@3 e1@4 d1@2", AB: "c2@3 ~ c2@2 ~ c2@3 c2@3 ~ c2 ~",
  AC: "f1@3 ~ f1@2 ~ f1@2 ~ f1@3 ~ f1@2", AD: "a#1@3 ~ a#1@2 ~ a#1 d1 ~ d1@3 ~ d1 ~",
  AE: "d1@3 ~ d1@2 ~ d1@2 ~ d1@2 ~@2 d1@2", AF: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 ~ f#1@2",
  AG: "b1@3 ~ b1@2 ~ b1@2 ~ b1@2 b1 a#1 g#1@2", AH: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1@3 ~ f#1 ~",
  AI: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1 ~ f#1@2 g#1@2", AJ: "a1@4 a1@2 ~ a1@2 ~ a1@3 ~ a1 ~",
  AK: "a1@3 ~ a1@2 ~ a1@2 ~ a1@2 a1!2 a1@2", AL: "e1@3 ~ e1@2 ~ e1@2 ~ e1@3 ~ e1 ~",
  AM: "e1@3 ~ e1@2 ~ e1@2 e1 ~ e1 f#1 a1@2 ~", AN: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 ~ b1 ~",
  AO: "b1@3 ~ b1@2 ~ b1@2 ~ b1@3 a#1 g#1@2", AP: "f#1@3 ~ f#1@2 ~ f#1@2 ~ f#1@3 ~ f#1 g#1",
  AQ: "a1@3 ~ a1@2 ~ a1@2 ~ a1@3 a1 g#1 f#1", AR: "e1@3 ~ e1@2 ~ e1@2 ~ e1 ~ e1 f#1 a1@2", AS: "[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 J@2 ~@3 K@4 L M N@2 O@5 P@3 Q@4 R S T@2 O@5 P@3 U@2 V@2 W@2 X@2 Y@2 V@2 W@2 Z@2 AA@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,a#3,d#4]",
  J: "[f3 [f#3,a3]@3, d4, a#3 ~]/2", // F#m
  K: "[[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
  L: "d5@11 ~ c#5@2 d5@2, [b3,d4,f#4]", M: "[g3,c4,e4,e5]", N: "[a4 b4@15, [g3,b3,e4]]/2",
  O: "[g3@2 g#3@2 [a3,f4], c4@79 ~, e4@4 ~]/5", P: "[[g3,d#4]@16 f3@8 [f#3,a3]@23 ~, a#3 ~, ~@16 d4@31 ~]/3",
  Q: "[[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
  R: "d5@6 c#5 d5, [b3,d4,f#4]", S: "e5@7 a4, [g3,c4,e4]", T: "[g3,b3,e4,b4]/2", U: "[~@3 b5@13, [f#3,b3,d#4]]/2",
  V: "[f#3,a#3,c#4,a#5]/2", W: "[a5@15 b5, [e3,a3,c#4]]/2", X: "[e3,g#3,b3,g#5]/2", Y: "[f#3,b3,d#4,b5]/2",
  Z: "[[e3,g#3,b3], g#5@15 ~]/2", AA: "[[f#3,b3,d#4]@85 ~@11, b5@29 ~@3]/6",
})).s("gm_string_ensemble_2").gain(0.36)

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