// I Want to Know What Love Is — Foreigner
// 85 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 5 "E.PIANO 1" epiano1 (copy of ch 6 "VIOLIN" violin)
// note: Full arrangement: all 97 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(85/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 · electric bass finger · "FINGERDBAS"
const bass = note(`<
  A B C D E F G H I J K L M@2 N M E F G O J K L P Q R@6 S@2 T U V U T U V U W M E F X O J K L P Q R@6 S@2 T U V U T U V
  U W T U V U T U V U W T U V U T U V U W T U V U T U V U W Y
>`.pickRestart({
  A: "f#1@3 ~ f#1 f#1@2 ~ f#1@3 ~ e1@3 ~", B: "a1@3 ~ a1@3 ~ a1@3 ~ a1@3 ~", C: "d1@3 ~ d1@3 ~ d1@3 ~ d1@3 ~",
  D: "f#1@3 ~ f#1 f#1@3 f#1@3 ~ f#1@3 ~", E: "f#1@3 ~ f#1 f#1@2 ~ c#1 ~ e1 ~ f#1 ~ a1 ~",
  F: "f#1@3 ~ f#1@3 ~ f#1@3 ~ e1@3 ~", G: "a1@3 ~ a1 a1@2 ~ a1@3 ~ a1@3 ~", H: "d1@3 ~ d1@3 ~ f#1@3 ~ f#1 f#1@3",
  I: "f#1@3 ~ f#1@3 ~ f#1@3 ~ f#1 f#1@2 ~", J: "c#1 ~ e1 ~ f#1 ~ a1 ~ f#1@3 ~ f#1@3 ~",
  K: "f#1@3 ~ e1@3 ~ a1@3 ~ a1 a1@2 ~", L: "a1@3 ~ a1@3 ~ d1@3 ~ d1@3 ~", M: "f#1@3 ~ f#1 f#1@2 ~ f#1@3 ~ f#1@3 ~",
  N: "e1@3 ~ e1 e1@2 ~ e1@3 ~ e1@3 ~", O: "d1@3 ~ d1@3 ~ f#1@3 ~ f#1 f#1@2 ~", P: "f#1@3 ~ f#1@3 ~ f#1@3 ~ f#1@3 ~",
  Q: "f#1@3 ~ f#1@3 ~ f#1@3 ~ a1@3 ~", R: "b1@4 ~@2 b1@4 ~@2 b1@3 ~", S: "[d1@3 ~ c#1@3 ~ b1 ~ b1 ~ a1 ~ e1@16 ~@2]/2",
  T: "a1@3 ~ a1@3 ~ a1@3 ~ f#1@3 ~", U: "e2@3 ~ e2@3 ~ e2@3 ~ e2@3 ~", V: "b1@3 ~ b1@3 ~ b1@3 ~ f#1@3 ~",
  W: "e2@8 c#1 ~ e1 ~ f#1 ~ a1 ~", X: "a1@3 ~ a1 a1@3 a1@3 ~ a1@3 ~", Y: "a1@5 ~@3",
})).s("gm_electric_bass_finger").gain(0.27)

// other · epiano1 · "E.PIANO 1"
const epiano1 = note(`<
  A B C D@2 A B E@5 D@2 B D@2 A B F@4 G@2 H I H I H I J@2 K L M L K L M L@2 N@2 A B O@4 G@2 H I H I H I J@2 K L M L K L
  M L P K L M L K L M L P K L M L K L M L P K L M L K L M L P@2
>`.pickRestart({
  A: "f#3@12 e3@3 ~", B: "e3@7 ~", C: "f#3", D: "[f#3@15 ~]/2", E: "[f#3@8 f#3@30 ~@2 f#3@12 e3@3 ~ e3@14 ~@2 f#3@8]/5",
  F: "[f#3@8 f#3@14 ~@2 f#3@12 e3@3 ~ e3@14 ~@2 f#3@8]/4", G: "f#3/2", H: "d4@3 b3@5", I: "b3@3 b3@5",
  J: "[d4@3 ~ e4@3 ~ f#4@3 ~ e4 ~ a3@18]/2", K: "e4@3 f#4", L: "e4", M: "f#4@3 f#4", N: "f#4/2",
  O: "[f#3@8 f#3@14 ~@2 f#3@11 ~ e3@3 ~ e3@14 ~@2 f#3@8]/4", P: "e4@3 ~",
})).s("gm_epiano1").gain(0.28).pan(0)

// other · epiano1 · "E.PIANO 1"
const epiano1_2 = note(`<
  A B C D@2 A B E@5 D@2 F D@2 A B G@4 H@2 I J I K I J L@2 M N O N M N O N@2 P@2 A B Q@4 H@2 I J I J I J L@2 M N O N M N
  O N R M N O N M N O N R M N O N M N O N R M N O N M N O N R S
>`.pickRestart({
  A: "a3@12 g#3@3 ~", B: "a3@7 ~", C: "a3", D: "[a3@15 ~]/2", E: "[a3@8 a3@30 ~@2 a3@12 g#3@3 ~ a3@14 ~@2 a3@8]/5",
  F: "g#3@7 ~", G: "[a3@8 a3@14 ~@2 a3@12 g#3@3 ~ a3@14 ~@2 a3@8]/4", H: "a3/2", I: "f#4@3 d4@5", J: "e4@3 d4@5",
  K: "e4@6 d4@9 ~", L: "[f#4@3 ~ a4@3 ~ b4@3 ~ a4 ~ d4@18]/2", M: "a4@3 a4", N: "g#4", O: "b4@3 a4", P: "a4/2",
  Q: "[a3@8 a3@14 ~@2 a3@11 ~ g#3@3 ~ a3@14 ~@2 a3@8]/4", R: "g#4@3 ~", S: "a4@3 ~",
})).s("gm_epiano1").gain(0.28)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  A B C D@2 E F G@5 H@2 I J@2 K L M@4 N@2 O P Q R S P T U V W X Y Z AA AB AC AD AE@2 E F AF@4 AG@2 AH P O P AI P T U AJ
  AK AL W Z AM AN AO AP AQ AR AS AT AU AK AB AV AW AX Y AY AZ Z Y BA AO AW BB Y BC BD BE BF BG AO BH BI
>`.pickRestart({
  A: "f#4@7 ~", B: "~@2 a6@2 e6@2 f#6@2 c#6@5 ~@3", C: "d4@15 ~", D: "[f#4@31 ~]/2", E: "a4@11 ~ g#4@3 ~",
  F: "~ a6 e6 f#6 c#6@3 ~, a4@7 ~",
  G: "[f#4@7 ~ c#5@31 ~ a4@12 g#4@3 ~@3 a6@2 e6@2 f#6@2 c#6@7 ~ f#4@6 ~@2, ~@56 a4@17 ~@7]/5", H: "[[f#4,a4]@31 ~]/2",
  I: "b4@7 ~", J: "[c#5@27 ~@5]/2", K: "a4@10 ~@2 g#4@3 ~", L: "~@2 a6@2 e6@2 f#6@2 c#6@7 ~, a4@3 ~",
  M: "[f#4@7 ~ c#5@14 ~@2 a4@10 ~@2 g#4@3 ~@3 a6@2 e6@2 f#6@2 c#6@7 ~ f#4@6 ~@2, ~@40 e4@17 ~@7]/4",
  N: "[f#4@28 ~@2 a4 ~, a4@25 ~@3 f#4@4]/2", O: "a4@6 f#4@9 ~", P: "g#4@3 f#4@5", Q: "a4@3 f#4@4 ~",
  R: "g#4@5 ~ f#4@8 ~@2", S: "a4@3 f#4@5", T: "a5@4 c#6@3 ~ d6@3 ~ c#6 ~ a5 e5",
  U: "[f#5,f#6]@12 [g5,g6] [f#5,f#6] [e5,e6]@2", V: "[e4,c#5]@11 ~ c#5@2 b4@2",
  W: "b4@9 ~ [e5,e6]@2 b4@2 c#6@2, ~@14 c#5 ~", X: "d6@7 f#4@3 ~@2 a4@3 ~, d5@5 ~@11",
  Y: "b4@5 e6 b4 c#6, ~@10 e5 ~@3 c#5 ~", Z: "[e4,c#5]@3 [f#4,c#5]", AA: "b4@5 [e5,e6] b4 c#6, ~@14 c#5 ~",
  AB: "d5@3 [a4,c#5], f#4@5 ~@3", AC: "b4@6 b4 c#5, g#4@7 ~", AD: "e4, d5@7 ~", AE: "[f#5@15 ~]/2",
  AF: "[f#4@7 ~ c#5@16 a4@12 g#4@3 ~@3 a6@2 e6@2 f#6@2 c#6@6 ~@2 f#4@7 ~, ~@40 e4@13 ~@11]/4",
  AG: "[[f#4,a4]@28 f#4@2 a4 ~]/2", AH: "a4@5 ~ f#4@10", AI: "a4@5 ~ f#4@8 ~@2", AJ: "e4@6 ~ b4, c#5@11 ~ c#5@4",
  AK: "b4@5 e6 b4 [c#5,c#6], ~@10 e5 ~@5", AL: "~@7 f#4@4 ~ [a4,c#5]@3 ~, d5@5 ~@3",
  AM: "b4@9 ~ e6@2 b4@2 [c#5,c#6]@2, ~@10 e5 ~@5", AN: "[f#4,d5]@3 [a4,c#5]", AO: "g#4@6 b4 c#5, b4@5 ~@3",
  AP: "[e4,d5]", AQ: "c#5@5 ~ c#5 b4, e4@7 ~", AR: "b4@9 ~ e6@2 b4@2 c#6@2, ~@10 e5 ~@3 c#5 ~",
  AS: "~@7 f#4@4 ~ [a4,c#5]@3 ~, d5@3 ~", AT: "b4@4 ~ [e5,e6] b4 c#6, ~@14 c#5 ~", AU: "c#5@3 [f#4,c#5], e4@7 ~",
  AV: "[g#4,b4]@12 b4 ~ c#5@2", AW: "d5@7 ~, e4@3 ~", AX: "[e4,c#5]@6 ~ b4, ~@3 c#5",
  AY: "~@7 f#4@3 ~@2 [a4,c#5]@4, d5@3 ~", AZ: "~@5 e6 b4 c#6, b4@12 ~@2 c#5 ~, ~@10 e5 ~@5",
  BA: "d5@3 [a4,c#5], f#4@7 ~", BB: "e4@6 c#5 b4, c#5@5 ~@3", BC: "~@7 f#4@4 ~ [a4,c#5]@4, d5@7 ~",
  BD: "b4@4 ~ e6 b4 c#6, ~@10 e5 ~@3 c#5 ~", BE: "c#5@5 ~ [f#4,c#5]@2, e4@7 ~",
  BF: "~@10 e6@2 b4 ~ c#6@2, b4@12 ~@2 c#5 ~, ~@10 e5 ~@5", BG: "~@3 [a4,c#5], [f#4,d5]@7 ~", BH: "d5, e4@3 ~",
  BI: "e4@7 ~, c#5@3 ~",
})).s("gm_string_ensemble_1").gain(0.14).pan(0.2)

// chords · synth strings 1 · "SYN STR 1"
const synth_strings_1 = note(`<
  A B C D@2 E F G@5 H@2 I J@2 K L M@4 N@2 O P@2 Q R S T@3 U@2 V W X Y Z AA AB@3 AC AD@4 AE@3 AF AG AF R AH AI@2 AJ AK@2
  X W AL@2 X AM W AN@2 X AO Z Y AA AP AQ AR@2 AS@2 AT@2 Z AU AJ AV@2 AW AX X AY X AZ BA
>`.pickRestart({
  A: "[f#4,a4,c#5]@12 [e4,g#4,b4]@3 ~", B: "[e4,a4,c#5]@7 ~", C: "[f#4,a4,d5]", D: "[[f#4,c#5], a4@29 ~@3]/2",
  E: "[a4,c#5]@12 [e4,g#4,b4]@3 ~, f#4@5 ~@3", F: "e4, a4@7 ~, c#5@3 ~",
  G: "[[f#4,a4]@7 ~ [f#4,a4,c#5]@31 ~ [a4,c#5]@11 ~ [e4,b4]@4 [e4,a4]@16 [f#4,a4,d5]@8, d5@4 ~@16 f#4@7 ~@13, ~@26 g#4 ~ c#5@7 ~@5]/5", // F#m A E5 A5 D
  H: "[[f#4,a4]@31 ~, c#5@13 ~@3]/2", I: "[e4,g#4,b4]@7 ~", J: "[f#4,a4,c#5]/2", K: "[f#4,a4]@3 [e4,b4], c#5@5 ~ g#4 ~",
  L: "[e4,c#5]@7 ~, a4", // C#m
  M: "[[f#4,a4,d5]@8 [a4,c#5]@14 ~@2 [f#4,c#5]@10 ~@2 [e4,g#4,b4]@3 ~ [e4,a4,c#5]@13 ~@3 [f#4,a4,d5]@7 ~, ~@2 f#4@4 a4@3 ~@7]/4", // D A F#5 E A D
  N: "[[f#4,c#5]@29 ~@3, a4]/2", O: "[d5,f#5,a5]@3 [b4,f#5]@5, ~@3 d5@4 ~",
  P: "[[b4,e5,g#5]@3 [d5,f#5]@5 [d5,f#5,a5]@3 [d5,f#5]@4 ~, ~@3 b4@6 ~@2 b4@5]/2", // E D
  Q: "[b4,e5]@3 [b4,d5,f#5]@5, g#5@5 ~@11", R: "[d5,f#5,a5]@3 [b4,d5]@5, ~@3 f#5@4 ~",
  S: "[b4,e5,g#5]@3 [b4,f#5]@5, ~@3 d5@4 ~", // E B5
  T: "[[d5,f#5,a5]@3 ~ [e5,a5,c#6]@4 [f#5,b5,d6]@4 [e5,c#6] ~ a5@2 f#5@12 g5 f#5 e5@2 [e5,a5,c#6]@12 [f#5,a5,c#6]@4, ~@12 a5@2 d5@21 ~@13, ~@7 a4@8 ~@9]/3", // D A Bm C#m A F#m
  U: "[b5@4 [b5,d6]@3 [f#5,a5,c#6], g#5@19 ~@13, e5@14 ~@2 f#5@11 ~@5]/2", V: "[e5,g#5,b5]@7 ~",
  W: "[e5,a5,c#6]@3 [f#5,a5,c#6]", X: "[e5,g#5,b5]", Y: "[f#5,d6]@3 [f#5,a5,c#6], b5@5 ~@3", Z: "[g#5,b5], e5@7 ~",
  AA: "[e5,g#5,b5]@15 ~", AB: "[[f#5,a5]@8 [f#4,a4]@3 [e4,g#4,b4], c#6@31 ~ c#5@14 ~@2]/3", AC: "[e4,a4]@7 ~, c#5",
  AD: "[[a4,d5]@8 [a4,c#5]@14 ~@2 [f#4,a4,c#5]@11 ~ [e4,g#4,b4]@4 [e4,a4]@14 ~@2 [f#4,a4,d5]@8, f#4@7 ~ f#4@16 ~@16 c#5@16 ~@8]/4", // D5 A F#m E A5 D
  AE: "[f#4@16 [d5,a5]@3 [b4,d5]@5, c#5@13 ~@3, a4@37 ~@11, ~@32 f#5@5 ~ f#5@7 ~@3]/3", // D5 Bm
  AF: "[b4,e5,g#5]@3 [b4,d5,f#5]@5", AG: "[d5,f#5,a5]@3 [b4,f#5]@4 ~, ~@3 d5@5",
  AH: "[b4,e5,g#5]@3 [d5,f#5]@5, ~@3 b4@4 ~", // E D
  AI: "[[d5,f#5,a5]@3 ~ [e5,a5,c#6]@4 [f#5,b5,d6]@4 [e5,a5]@2 a5@2 f#5@12 g5 f#5 e5@2, ~@12 c#6 ~ d5@18, ~@7 a4@8 ~]/2", // D A Bm A5
  AJ: "[e5,a5,c#6]@11 ~ [f#5,a5,c#6]@4", AK: "[[g#5,b5]@4 [b5,d6]@3 [f#5,a5,c#6], e5@9 ~@7, ~@8 f#5@5 ~@3]/2",
  AL: "[[g#5,b5]@15 ~ [f#5,b5]@10 ~@2 [f#5,a5,c#6]@3 ~, e5@19 ~@13, ~@4 d6@3 ~]/2", AM: "[e5,b5]@3 ~, g#5@15 ~",
  AN: "[[g#5,b5]@4 [f#5,b5]@3 [f#5,a5,c#6], e5@19 ~@13, ~@8 d6@7 ~]/2", AO: "[e5,a5]@5 ~ [f#5,a5,c#6]@2, c#6@3 ~",
  AP: "[e5,g#5]@11 ~@5, b5@15 ~", AQ: "[e5,a5]@3 [f#5,a5,c#6], c#6@5 ~@3",
  AR: "[b5@4 [f#5,d6]@3 [f#5,a5,c#6], g#5@19 ~@13, e5@7 ~ b5@7 ~]/2", // D F#m
  AS: "[e5@4 [e5,a5,c#6]@3 [f#5,a5,c#6], g#5@9 ~@7, b5@7 ~@9]/2", // A F#m
  AT: "[b5@4 [f#5,d6]@3 [f#5,a5,c#6], [e5,g#5]@19 ~@13, ~@8 b5@5 ~@3]/2", AU: "[e5,g#5]@3 ~, b5@7 ~",
  AV: "[[g#5,b5]@15 ~ [f#5,b5,d6]@11 ~ [f#5,a5,c#6]@4, e5@19 ~@13]/2", AW: "[e5,b5], g#5@7 ~",
  AX: "[e5,c#6]@3 [f#5,a5,c#6], a5@5 ~@3", AY: "[f#5,b5,d6]@3 [f#5,a5,c#6]", AZ: "[e5,g#5,b5]@3 ~",
  BA: "c#6@7 ~, a5@3 ~, e5@5 ~@3",
})).s("gm_synth_strings_1").gain(0.16).pan(0.8)

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

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

// drums · hihat
const hihat = s("hh").struct("<[x!8]!96 ~>").gain(0.36)

// drums · mid tom
const mid_tom = s("mt").struct("<~@95 [x!4 ~@12] x>").gain(0.31)

// drums · open hat
const open_hat = s("oh").struct("<~@23 [~@7 x] ~@26 [~@7 x] ~@46>").gain(0.36)

// drums · high tom
const high_tom = s("ht").struct("<~@23 A B ~@25 A B ~@43 C ~>".pickRestart({
  A: "~@11 x!2 ~ x ~", B: "~@3 x", C: "~@4 x!4 ~@3 x!2 ~ x ~",
})).gain(0.31)

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

// drums · ride
const ride = s("rd").struct(`<
  ~@5 A ~@3 B ~@4 A@4 ~@2 B ~@2 A C A ~@5 D ~ E A E A E A E A@5 ~@2 B ~@2 A C A ~@5 D A E A E A E A E A@2 E A E A E A E
  A@2 E A E A E A E A@2 E A E A E A E A@3
>`.pickRestart({
  A: "x", B: "~ x", C: "x!2", D: "x!4", E: "x ~@2 x",
})).gain(0.36)

stack(
  bass, epiano1, epiano1_2, string_ensemble_1, synth_strings_1, kick, snare, hihat, mid_tom, open_hat, high_tom, crash,
  ride
)