// Under Pressure — Queen
// 113 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 116 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(113/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(`<
  ~@2 A B@2 C@2 D@2 ~ E F@4 G H I J K L M N O P Q R S T U V W T X Y Z@2 ~ E G H I J K L M N O P Q R S T U V W T ~@42 AA
  AB@4 AC@3 AD@2 ~@7
>`.pickRestart({
  A: "~@12 [d5,g5,d6] ~@3", B: "[[d5,a5]@28 [d5,g5,d6] ~@3]/2", C: "[[d5,a5]@28 [g5,d6] ~@3]/2", D: "[[d5,a5]@7 ~]/2",
  E: "~@12 [g5,d6] ~@3", F: "[[d5,a5]@28 ~@32 [g5,d6] ~@3, d3]/4",
  G: "[d2,d3,a3,d4,f#4] ~ [d2,d3,a3,d4,f#4] ~ [d2,d3,a3,d4,f#4] ~ [d2,d3,a3,d4,f#4] ~ [d2,d3,a3,d4,f#4]@2 [d2,d3,a3,d4,f#4]@2 [d2,d3,a3,d4,f#4]@2 [d2,d3,a3,d4,f#4]@2, [d5,a5]@3 ~", // D D5
  H: "[d2,d3,a3,c#4,e4]!8", I: "[d2,d3,g3,b3,d4]!8", J: "[d2,d3,a3,c#4,e4]!8, ~@12 [g5,d6] ~@3",
  K: "[d2,d3,a3,d4,f#4]!8, [d5,a5]", L: "[c#2,c#3,a3,c#4,e4]!8", M: "[b1,b2,g3,b3,d4]!8",
  N: "[a1,a2,a3,c#4,e4]!8, ~@12 [g5,d6] ~@3", O: "[d2,d3,d4,f#4,a4]!8, [d5,a5]", P: "[c#2,c#3,c#4,e4,a4]!8",
  Q: "[b1,b2,b3,d4,g4]!8", R: "[a1,a2,c#4,e4,a4]!8, ~@12 [g5,d6] ~@3", S: "[g2,g3,d4,g4,b4]!8",
  T: "[g2,g3]!8, [e4,a4,c#5]@3 [e4,a4,c#5]@5, ~@12 [g5,d6] ~@3", U: "[g2,g3]!8, [d5,a5], [d4,g4,b4]@5 [d4,g4,b4]@3",
  V: "[g2,g3]!8, [e4,a4,c#5]@3 [e4,a4,c#5]@3 [e4,a4,c#5]@2", W: "[g2,g3]!8, [d4,g4,b4]@3 [d4,g4,b4]@3 [d4,g4,b4]@2",
  X: "[f#2,f#3,d4,f#4,a4]@3 ~, [d5,a5]", Y: "[g2,g3,d4,g4,b4]@3 [a2,a3,e4,g4,a4,c#5]@5", Z: "d1/2",
  AA: "[f#2,f#3]@15 ~", AB: "[[g2,g3,g4,b4]@6 [a2,a3,e4,a4,c#5]@6 ~@32 [d5,g5,d6] ~@3 d5@16, d4, ~ d1@3]/4",
  AC: "[b4 g4 ~ [a2,g3,c#4,e4]@5 d1@16, [g2,g3] ~@7, d4 d4@11]/3", // A7 G
  AD: "[b4 g4 ~ [a2,g3,c#4,e4]@9 ~@4, [g2,g3,d4]@3 ~@13]/2", // A7 G5
})).s("gm_piano").gain(0.36).pan(0.3)

// chords · piano
const piano_2 = note("<~@57 A@8 B C D E F G H I J@2 K L K L K L M N O P M N O P M N O P Q R Q R Q R ~@17>".pickRestart({
  A: "[[f#2,f#3]@6 ~@2 [g2,g3,b3,d4,g4]@3 [a2,a3,c#4,e4,g4,a4]@13 [g2,g3,b3,d4,g4]@8 [c3,g3,c4,e4,g4]@8 [g2,g3,b3,d4,g4]@8 [c3,g3,c4,e4,g4]@8 [g2,g3,b3,d4,g4]@8, [f#4,d5,a5], a4@11 ~@53, d4 ~@7]/8", // F# G A7 G C G C G …
  B: "[c3,g3,c4,e4,g4]", C: "[a2,a3]!7 [g2,g3], [c4,e4,a4]@3 [c4,e4,a4]@5", D: "[f2,f3,f4,a4,c5]!8",
  E: "[f2,f3,f4,b4,d5]!8", F: "[f2,f3,f4,c5,e5]!8",
  G: "[f2,f3,f4,c5,e5] [f2,f3,b4,d5] [f2,f3,c5,e5] [f2,f3,b4,d5] [f2,f3,c5,e5] [f2,f3,b4,d5] [f2,f3,a4,c5] [f2,f3,b4,d5]", // Fmaj7 Bdim Fmaj7 Bdim Fmaj7 Bdim F Bdim
  H: "[a2,a3]!8, [c5,e5]@3 [a4,e5,a5]", I: "[a2,a3]!8, [a4,e5,a5]!3 ~",
  J: "[[a2,a3]!8 [a2,a3]!5 ~ [g2,g3,d4,g4,b4]@2, [e4,a4,c#5]@27 ~@5]/2", K: "[d2,d3,d4,f#4,a4]@15 ~",
  L: "~@3 [g2,g3,d4,g4,b4]", M: "[d2,d3]!2 [d2,d3,d4,f#4,a4]!6, [d4,f#4,a4] ~@3", N: "[c#2,c#3,c#4,e4,a4]!8",
  O: "[b1,b2,b3,d4,a4]!8", P: "[a1,a2,c#4,e4,a4]!8", Q: "[g2,g3,d4,g4,b4]!8", R: "[g2,g3,e4,a4,c#5]!8",
})).s("gm_piano").gain(0.36).pan(0.3)

// chords · drawbar organ · "Organ"
const drawbar_organ = note("<~@60 A@2 B@4 ~@50>".pickRestart({
  A: "[~ [b3,d4] [c4,e4]@2, ~ g4@3]/2", B: "[[b3,d4] [c4,e4], g4]/2",
})).s("gm_drawbar_organ").gain(0.18).pan(0.2)

// chords · electric guitar clean · "Clean Guitar"
const electric_guitar_clean = note(`<
  ~@7 A@3 B@8 C@4 D E F G H I J I J I J K L ~@4 M@3 N O P Q R S T U V I J I J I J K W@2 ~ X Y@4 ~@15 A@3 Z A@3 Z A@3 Z I
  J I J I J K AA ~@15
>`.pickRestart({
  A: "[~@8 e4 ~@6 d4 ~@4 d4!4, d4@5 d4@2 d4@3 d4@3 d4@2 ~ d4@2 d4@2 ~@4, ~@3 a4@3 f#4@2 ~ c#5@2 a4@3 e4@3 b4@2 g4@5]/3",
  B: "[~@4 d4 c#4 ~@2 d4!2 ~@6 e4 ~@6 d4 ~@4 d4!4, c#4@2 c#4@2 ~@2 b3@2 ~@2 f#4@3 d3@2 d4@3 d4@3 d4@2 ~ d4@2 d4@2 ~@4, ~ a4@2 e4@4 a4@4 a4@3 f#4@2 ~ c#5@2 a4@3 e4@3 b4@2 g4@5]/4",
  C: "[~@4 d4 c#4 ~@2 d4!2 ~@8 c#5 ~ a4 ~@5 b4 f#4 ~@2 b4@2, c#4@2 c#4@2 ~@2 b3@2 ~@2 f#4@3 d3@2 d4@2 e4@3 ~ d4@2 d4@2 d4@4 d4@3, ~ a4@2 e4@4 a4@4 a4@3 f#4@2 a4@2 ~ b4@3 [a4,c#5]@2 g4@2 ~@2 g4@2 ~@2]/4", // A
  D: "c#4 ~ a4 f#4 d4 c#4 b3 a3, ~ c#4@2 ~@3 e4@2", E: "~@4 a4@2 ~ d4, d4@3 d4@4 ~, ~ d5 ~ f#4",
  F: "~@7 d4, e4@2 d4@3 d4@2 ~, ~ c#5@2 a4@3 e4@2", G: "~@3 g4@5, d4 d4@3, ~ b4@2 ~@5", H: "e4@3 d4 c#4 b3 a3 g3",
  I: "[g2,d3,g3,b3,g4]", J: "[g2,e3,a3,c#4,e4]", K: "d3 a3 ~ d4@2 c#4@3, ~ d3@3",
  L: "[g2,d3,g3,b3,g4]@3 [g2,e3,a3,c#4,g4]@5", // G A7
  M: "[d4 ~ f#4 ~ f#4 ~@3 e4 ~@6 d4 ~@4 d4!4, ~ d4@3 ~ d4@2 d4@3 d4@3 d4@2 ~ d4@2 d4@2 ~@4, ~@3 a4@3 f#4@2 ~ c#5@2 a4@3 e4@3 b4@2 g4@5]/3",
  N: "~ a4@2 d4 c#4 b3 a4 c#4, e4@3 ~@5", O: "d4 ~ f#4 ~@4 d4, ~ d4@4 d4@2 ~, ~@3 a4@3 f#4@2",
  P: "~@7 d4, e4@2 d4@3 d4@2 ~, ~ c#5@2 b4@3 b4@2", Q: "~ d4 b3 [g4,a4]@2 g4@2 f#4, g4@3 d4@4 ~",
  R: "e4 c#5 e4 d4 c#4 b3 a4 b3", S: "~@2 d5 ~@4 d4, d4@5 d4@2 ~, ~@3 a4@3 f#4@2",
  T: "~ e4 ~@5 d4, a4@3 b4@3 a4@2, ~@2 d4@3 d4@2 ~", U: "~ d4 ~@4 g4 d4, g4@3 a4@2 b4@3, ~ b3 d4 ~",
  V: "~@2 f#4 d4 c#4 b3 a3 g3, f#4 ~@3, ~ e4@2 ~@5", W: "[[g2,d3,g3,b3,g4]@3 [g2,e3,a3,c#4,g4]@13]/2",
  X: "~@4 e4 c4 g3 e4, ~@3 g4@5", Y: "[~ [g4,b4]@2 [g4,b4]@2 [g4,b4]@2 [g4,b4]@2 [g4,b4]@2 [g4,b4]@2 [g4,b4]@2 ~]/4",
  Z: "~@4 d4 c#4 ~ a4, c#4!2 ~ b3, ~ a4@2 e4@4 ~", AA: "[g2,d3,g3,b3]@5 ~ [a2,e3,a3,c#4]@10",
})).s("gm_electric_guitar_clean").gain(0.36).pan(0.8)

// chords · electric guitar clean · "Clean Guitat"
const electric_guitar_clean_2 = note(`<
  ~@11 A@8 B@2 C D E@4 F G F G F G H I ~@2 J ~@2 K@2 L M@3 N E@4 O P F G F G H I ~@5 Q R S T U T U V W X@2 Y Z Y Z Y Z Y
  AA AB AA A@8 AB AA AB AC AB AC AD AE ~@15
>`.pickRestart({
  A: "[[d3,d4]@2 ~@6 e4 ~@15 c#4 a4@2 e4 d4 c#4 b3 a3, ~@2 d4@3 d3@2 [d3,d4]@3 d4@3 [d3,d4]@2 d3@3 d3@3 d3@2 d3@9, ~@3 [f#4,a4]@3 f#4@2 ~ c#5@2 a4@3 e4@2 d4@2 ~@4 d4@2 ~@8, ~@17 b4@2 g4@3 ~@10]/4", // D F#m
  B: "[[d3,d4]@2 ~@6 e4 ~@5 a4@2, ~@2 d4@3 d3@2 [d3,d4]@3 d3@3 e4@2 ~, ~@3 [f#4,a4]@3 f#4@2 ~ c#5@2 b4@3 ~@2]/2", // D F#m
  C: "~ d4 ~@2 d4 ~@2 b3, g4@3 f#4@3 e4@2, ~@2 b3@2 ~ b3@2 ~", D: "~@2 c#4 e4 d4 c#4 b3 a3, c#4 ~@3, ~ e3@5 ~@2",
  E: "[[d3,d4]@2 ~@6 e4 ~@7 d4 ~@7 c#4@3 d4 c#4 b3 a3@2, ~@2 d4@3 d3@2 [d3,d4]@3 d4@3 [d3,d4]@2 d3@3 d3@3 d3@2 d3@5 ~@4, ~@3 [f#4,a4]@3 f#4@2 ~ c#5@2 a4@3 e4@2 ~ b4@2 g4@3 d4@2 ~@8]/4", // D F#m
  F: "[g3,b3,g4]@3 g4 f#4 d4 b3@2, [g2,d3]", G: "[g2,e3,a3,c#4,g4]@3 ~ e4 ~ c#4@2, ~@3 c#4@3 ~@2, ~@5 a4@3",
  H: "~ d4 e4 d4@2 c#4@3, a3", I: "b3@3 a3@5", J: "[d3,a3,d4]", K: "d4", L: "~@4 c#4 d4 e4@2",
  M: "[[d3,d4]@2 ~@6 e4 ~@9 b4 a4@2 g4@3, ~@2 d4@3 d3@2 [d3,d4]@3 d4@3 [d3,d4]@2 d3@2 d4@7, ~@3 [f#4,a4]@3 f#4@2 ~ c#5@2 a4@3 e4@2 g4@2 ~@6]/3", // D F#m
  N: "e4@3 d4 c#4 b3 a3@2", O: "[g2,d3,g3,b3,g4]@3 [g2,d3,g3,b3,g4]@5",
  P: "[g2,e3,a3,c#4,g4]@3 g4@2 a4@3, ~@3 [g2,e3,a3,c#4]@5", Q: "~@4 e4 c4 g3 e4, ~@3 g4@5", R: "~@3 c4@2 a3 g3 d3",
  S: "~ e3 [a3,c4,e4] [e3,a3,c4,e4]@2 [e3,a3,c4,e4]!2 [g2,d3,g3,d4], a2@3 a2@4 ~", // Am G5
  T: "~ c3 ~@2 c3 ~ a3@2, a3@3 c4@3 ~@2, ~@2 f3@2 ~ f3@3", U: "~ d3 ~@2 d3 ~ b3@2, b3@3 b3@3 ~@2, ~@2 g3@2 ~ g3@3",
  V: "[a2,e3,a3,c4,e4]", W: "[a2,e3,a3,c4,g4]@15 ~", X: "[[a2,e3,a3,c4,e4]@27 ~ [g2,d3,g3,b3,g4]@4]/2",
  Y: "[d3,a3,d4,f#4]@5 ~ [d3,a3,d4,f#4]@10", Z: "[g2,d3,g3,b3,g4]@5 ~ [a2,e3,a3,c#4,e4]@4 ~@2 [g2,d3,g3,b3,g4]@4",
  AA: "[a2,e3,a3,c#4,e4]@5 ~ [a2,e3,a3,c#4,e4]@10", AB: "[g2,d3,g3,b3,g4]@5 ~ [g2,d3,g3,b3,g4]@10",
  AC: "[a2,e3,a3,c#4]@5 ~ [a2,e3,a3,c#4]@10", AD: "~ d4 e4 d4@2 c#4 e4@2, a3",
  AE: "[g2,d3,g3,b3]@5 ~ [a2,e3,a3,c#4]@10", // G A
})).s("gm_electric_guitar_clean").gain(0.36).pan(0.2)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A@17 B C D E F C G H I J@6 K L A@7 B M D N I O P Q I J R S R J S K T@2 U ~@3 V W X Y@4 Z@3 AA AB AC AD AC AD AC AB
  AE AF I AG AH AI AJ AK AL AM AN AO AP AQ AR AS@2 AT L A@6 AU@2 ~@7
>`.pickRestart({
  A: "d3@2 d3@2 d3@2 d3!2 d3@2 a2 ~@5", B: "d3@2 d3@2 d3@2 d3!2 d3@2 ~@2 a2@4", C: "d2@2 d2@2 d2@2 d2!2 d2@2 a1@2 ~@4",
  D: "c#2@2 c#2@2 c#2@2 c#2!2 c#2@2 a1@2 ~@4", E: "b1@2 b1@2 b1@2 b1!2 b1@2 a1@2 ~@4",
  F: "a1@2 a1@2 a1@2 a1!2 b1@2 a1@2 c#2@2 a1@2", G: "c#2!2 c#2@2 c#2@2 c#2!2 c#2@2 a1@2 ~@4",
  H: "b1@2 b1@2 b1@2 b1!2 b1@2 ~@2 d2@4", I: "a1!4 b1 a1 c#2 a1", J: "g2!8", K: "f#1@3 ~", L: "g1@3 a1@3 ~@2",
  M: "d2@2 d2@2 d2@2 d2!2 d2@2 d2@2 d2@2 e2@2", N: "b1@2 b1@2 b1@2 b1!2 b1@2 a1@2 ~@2 b1@2",
  O: "d2@2 d2@2 d2@2 d2!2 d2@2 d2@2 d2 ~ d2 ~", P: "c#2@2 c#2@2 c#2@2 c#2!2 c#2@2 c#2@2 ~@4", Q: "b1!5 g2 ~ b1",
  R: "g2@2 g2@2 g2@2 g2@2 g2@2 g2!2 g2@2 g2@2", S: "g2!6 d2@2", T: "[g1@3 a1@10 ~@3]/2", U: "g2@3 ~", V: "g3",
  W: "~@3 a3", X: "a1@3 a1!4 g1", Y: "f1!8", Z: "a1!8", AA: "a1!5 ~ g2@2", AB: "d2@2 d2@2 d2!4",
  AC: "g1@2 g1 a1@3 g2@2", AD: "d2@4 d2@4 d2@2 d2@2 d2@2 b1 a1", AE: "c#2@2 c#2!6", AF: "b1!8",
  AG: "d2@3 d2!2 a2 d2 a2", AH: "c#2@3 a2@2 c#3 a2 c#2", AI: "b1@3 b1 c#2 d2 a1@2", AJ: "a1@3 a1 b1 a1 c#2 a1",
  AK: "d2@3 d2!5", AL: "c#2!8", AM: "b1!6 b1@2", AN: "a1!6 a1@2", AO: "g1!5 d2 d2@2", AP: "g1!6 d2@2", AQ: "g1!7 d2",
  AR: "g1@2 g1@2 g1@2 g1@2 g1@2 g1!2 g1@2 g1@2", AS: "g1!8", AT: "f#1@11 ~@3 f#1@2", AU: "[g1@3 a1@9 ~@4]/2",
})).s("gm_electric_bass_finger").gain(0.49)

// chords · overdriven guitar
const overdriven_guitar = note(`<
  ~@65 A B C D C D E@2 F@2 G H G H G H G I J I G I J I G I J I J I J K J K ~@17
>`.pickRestart({
  A: "~@3 c4 a3!2 g3 d3", B: "e3@3 [e3,a3]@2 [e3,a3]!2 [g2,d3,g3], ~@3 a2@4 ~",
  C: "[f2,c3,f3]@3 [f2,c3,f3]@2 [f2,c3,f3]!3", D: "[g2,b2,d3]@15 ~", E: "[a2,e3,a3]@15 ~",
  F: "[[a2,e3,a3]@27 ~ [g2,d3,g3,b3,g4]@4]/2", G: "[d3,a3,d4,f#4]@5 ~ [d3,a3,d4,f#4]@10",
  H: "[g2,d3,g3,b3,g4]@5 ~ [a2,e3,a3,c#4,e4]@4 ~@2 [g2,d3,g3,b3,g4]@4", I: "[a2,e3,a3,c#4,e4]@5 ~ [a2,e3,a3,c#4,e4]@10",
  J: "[g2,d3,g3,b3,g4]@5 ~ [g2,d3,g3,b3,g4]@10", K: "[a2,e3,a3,c#4]@5 ~ [a2,e3,a3,c#4]@10",
})).s("gm_overdriven_guitar").gain(0.39).pan(0.9)

// drums · rim
const rim = s("rim").struct("<~ A@12 ~@22 A@16 ~@8 B@6 C D ~@34 A@6 ~ B@8>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~ x!2 ~", D: "~ x ~@2",
})).gain(0.11)

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

// drums · clap
const clap = s("cp").struct("<~ A@3 B A@3 B A@3 B A@2 ~@20 A@3 B A@12 ~@50 A@3 B A@2 ~@9>".pickRestart({
  A: "~ x ~@2", B: "~@2 x ~@4 x",
})).gain(0.27)

// drums · snare
const snare = s("sd").struct("<~@14 A B@12 C D@5 E ~@5 B@12 C D@5 E ~@17 F G H G B@13 C D@6 E ~@16>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~ x!3", D: "x!4", E: "~@3 x ~@2 x ~", F: "~@4 x ~@2 x ~@4 x ~@2 x", G: "~ x ~@2",
  H: "~@4 x ~@2 x ~@4 x ~@3",
})).gain(0.38)

// drums · pedal hat
const pedal_hat = s("hh").struct(`<
  ~ A B@2 C B C@9 B@12 D B D B D E F ~ C@4 B@3 E G B@3 D E B E D B D B D E F ~@27 B@4 D B@8 E F ~ H@6 ~@9
>`.pickRestart({
  A: "x ~ x!6", B: "x!8", C: "x!7 ~", D: "~ x!7", E: "x!6 ~@2", F: "~@3 x!3 ~@2", G: "x!5 ~ x!2", H: "x!4",
})).gain(0.33)

// drums · open hat
const open_hat = s("oh").struct("<A ~@3 A ~ A@8 ~@19 B ~ A@4 ~@3 C D ~@4 B ~@8 B ~@41 B ~@2 A ~ A ~@11>".pickRestart({
  A: "~@7 x", B: "~@3 x", C: "~@6 x!2", D: "~@5 x ~@2",
})).gain(0.33)

// drums · mid tom
const mid_tom = s("mt").struct("<~@68 A ~ B ~ C D E ~@41>".pickRestart({
  A: "~@6 x!2", B: "~@8 x ~ x ~ x!4", C: "~@3 x ~ x!2 ~@5 x!4", D: "x!8", E: "x!7 ~",
})).gain(0.33)

// drums · high tom
const high_tom = s("ht").struct("<~@67 A B C D E F G H ~@41>".pickRestart({
  A: "~@10 x ~ x!3 ~", B: "~@3 x ~ x!2 ~ x ~ x ~@5", C: "~@3 x ~ x!2 ~@3 x ~ x!4", D: "~@3 x ~ x!2 ~@9",
  E: "~@3 x ~ x!2 ~@2 x!4 ~ x ~", F: "~@8 x!4 ~@4", G: "x!8", H: "x!7 ~",
})).gain(0.33)

// drums · crash
const crash = s("cr").struct(`<
  ~@27 A ~ A ~ A ~ A B ~@16 A ~ A ~ A ~ A B ~@8 A@7 C D@9 E ~@4 A ~@9 A B ~@15
>`.pickRestart({
  A: "x", B: "x ~@2 x ~@4", C: "~@3 x", D: "x!4", E: "x!3 ~",
})).gain(0.22)

// drums · ride
const ride = s("rd").struct("<~@59 [x!4]!8 ~@49>").gain(0.22)

stack(
  piano, piano_2, drawbar_organ, electric_guitar_clean, electric_guitar_clean_2, bass, overdriven_guitar, rim, kick,
  clap, snare, pedal_hat, open_hat, mid_tom, high_tom, crash, ride
)