// Tempted — Squeeze
// 95 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 98 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(95/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 · percussive organ · "ORGAN"
const percussive_organ = note(`<
  ~@2 A@4 B C D E F G H I J K L M N O P Q@4 R@2 Q@4 S T@2 B U D V W X Y I J K L M N O Z AA@2 Q@2 AB AC Q@4 S T@2 AD AE D
  AF AG AH AI Q@4 AB AC Q@4 AJ@3 AK AL AM AL AM AL AN AO AP AQ AK AR T@2 AS ~
>`.pickRestart({
  A: "[[b5,b6]@50 ~@2 [e5,g#5,b5,c#6]@4 [e5,g#5,b5] ~@7]/4", B: "[b3,b4]@8 [a#3,a#4]@7 ~, [f#4,d#5]",
  C: "~ b5, [g#4,b4,d#5,g#5]", D: "~ b4, [g#4,c#5,f5]", E: "g5 ~ b5@2, [b4,d5], ~ g5@3", F: "[b4,d5,f#5]",
  G: "[a4,c#5,e5]", H: "[b4,d5,g5]@8 [a4,c#5,e5,a5]@4 [a4,d5,f#5,a5] ~@3", I: "~ e5, [e3,e4,g#4,b4]",
  J: "g4@2 ~@4 d5 ~, [g3,d4], b4@4 b4@3 ~, ~ g4@3", K: "[b3,f#4,b4,d#5]", L: "[e4,c#5,e5] [f4,c5,f5], a4",
  M: "[f#3,f#4,a4,d5,f#5]", N: "[e3,e4,b4,e5,g#5]", O: "[f#3,a4,d5,f#5] [f3,b4,d5,f5,g5]",
  P: "[e3,b4,e5,g#5] [d3,b4,d5,g#5]", Q: "[b4@8 a4@8 g#4@8 [e4,b4,e5,g#5]@7 ~, b5@31 ~, f#5@3 ~]/2",
  R: "[[f4,g#4,f5]@15 ~ [f#4,a#4,f#5]@16, c#5]/2", S: "[e4,g#4,b4,e5]@13 ~ [c#5,e5] [d#5,f#5]",
  T: "[e5,g5] [d#5,f#5] [e5,g5] [f#5,a5]", U: "~ g#5, [g#4,b4,d#5]", V: "[g4,b4,d5]@12 [g4,b4,e5]@3 ~",
  W: "~ b5, [b4,d5,f#5]", X: "[a4,c#5,e5] [e4,a4,c#5]@3", Y: "[b4,d5,g5]@8 [c#5,e5,a5]@3 ~ [a4,d5]@2 ~@2",
  Z: "e3@8 d3@4 g#4 [d2,d#2,e2,f2,f#2,g2,g#2,a2,b2] [c3,d3,e3] [f3,g3,a3,b3,c4,d4,e4], [b4,e5,g#5,b5]@3 ~", // C Fmaj7 E
  AA: "[[f4,g4,a4] ~@7 a4@8 g#4@8 [e4,b4,e5,g#5]@7 ~, b5@31 ~, f#5@3 ~, b4 ~@3]/2", AB: "[g#4,c#5,f5]",
  AC: "~@11 [c2,d2,e2] [f2,g2,a2,b2] [c3,d3,e3] [e3,f3,g3,a3,b3,c4,d4] [e4,f4,g4,a4,b4,c5], [a#4,c#5,f#5]@13 ~@3", // C G7 C Em7 Cmaj7 F#
  AD: "[b4,f#5,b5]", AE: "g#5@3 f#5, [g#4,b4,d#5]", AF: "~@3 [b5,d6], b4, ~ d5@3, ~ g5",
  AG: "~@14 [e2,f2,f#2,g2,a2,b2] [c3,d3,e3,f3], [b4,d5,f#5], ~ a5", AH: "[a4,c#5,e5], [g3,a3] ~@15",
  AI: "~@4 a5@4 [a4,c#5,e5]@3 ~ [a4,d5,f#5]@3 ~, [g4,b4,d5] ~", // A D G
  AJ: "[[e4,g#4,b4,e5]@25 ~@6 [c4,d4,e4] [f4,g4,a4] ~@7 a4@8, ~@25 [c2,d2,e2]@2 g2@2 [d3,e3]@2 b3@2 ~@15, ~@13 f2 [a2,b2,c3] [f3,g3,a3] [b4,f#5,b5]@8]/3", // E C F C Dsus2 Am F B5
  AK: "[b4,e5,g#5,b5,e6,g#6]", AL: "~ a4, [b4,f#5,b5]",
  AM: "[b5,e6,g#6]@5 e6 [d6,f6,g6] [e5,f5,g5,a5,c6] [e4,g#4,b4,e5,g#5]@8, [b4,e5,g#5] ~, ~@5 g#6@4 ~@7, ~@5 b5@2 b5@2 ~@7, ~@6 e6@3 ~@7", // E G7 Fmaj7 E
  AN: "[b4,e5,g#5,b5,e6,g#6]@8 [f2,f#2,g2,g#2,a2,a#2,b2,c3,d3] [c#3,e3,f3,g3,a3,b3,c4,d4] [a#3,c#4,d#4,e4,f4,f#4,g4,g#4,a4,a#4,b4,c5,c#5,d5,e5] [d#5,f5,f#5,g5,g#5,a5,b5,c6,c#6,d6,d#6,e6] [c6,d6,f6,f#6,g6,g#6,a6] [c5,d5,e5,f5,g5,a5,b5] [f3,g3,a3,b3,c4,d4,e4,f4,g4,a4,b4] [g2,a2,b2,c3,d3,e3]", // E D7 Cmaj7 Fmaj7 Cmaj7
  AO: "f2 ~@7 f#5@8, [b4,b5,f#6,b6]", // B5
  AP: "[e5,g#5,e6,g#6]@7 ~ [d#5,f#5,d#6,f#6]@2 [e5,g#5,e6,g#6]@2 [d#5,f#5,d#6,f#6]@2 [e5,g#5,e6,g#6]@2, [b4,b5]", // E D#m E D#m E B
  AQ: "~ a6, [b4,f#5,b5,f#6]", AR: "[e4,b4,e5,g#5,b5,e6]@13 ~ [c#5,e5] [d#5,f#5]", AS: "[b3,f#4,b4,f#5,b5]",
})).s("gm_percussive_organ").gain(0.24)

// chords · piano
const piano = note(`<
  ~@2 A B A B C D E F G H I J K L M N O P Q R S T S ~ U V W X W Y Z@2 C D E F G H AA J K L M N O P Q R S T S ~ AB V W X
  W Y Z@2 AC AD AE F G H AF AG AH AG AI AJ AK AG AL AG AI AM@2 AG AH AG AH AG AH AG AH AG AH AG AH AN Z@2 AO ~
>`.pickRestart({
  A: "[b3,d#4,f#4]!2 [f#3,a3,d#4,f#4]!2, b2 a2", B: "[g#3,b3,e4]!2 [e3,g#3,b3]!2, g#2 e2",
  C: "[f#3,b3,d#4]!2 [f#3,a#3,d#4]!2, b2 a#2", // B D#m
  D: "[g#3,b3,d#4]@2 [g#3,b3,d#4]@2 ~ d#2 [g#2,g#3,b3,d#4]@2, g#2@5 ~@3, ~@2 [g#3,b3,d#4] ~", // G#m
  E: "[f3,g#3,c#4]@2 ~ f2 [f3,g#3,b3]@2 [f3,g#3,b3]@2, f2@3 ~ f2@4, ~ [f3,g#3,c#4] ~@2", // C# Fdim C#
  F: "[e3,g3,b3] [g3,b3,e4] [b3,e4,g4] [e4,g4,b4], e2", G: "[f#3,b3,d4]!4, b2!2",
  H: "[f#3,a3,c#4]!2 ~ [f#3,a3,c#4], f#2@5 f#2@3, ~@2 [f#3,a3,c#4] ~", // F#m
  I: "[b3,d4,g4]@4 [b3,d4,g4]@4 [a2,a3,c#4,e4]@4 [d3,a3,d4,f#4] ~@3, a2 ~", // G A D
  J: "[g#3,b3,e4]@2 [g#3,b3,e4]@2 [e2,g#3,b3,e4]@2 e2 f#2, e2@2 ~ [g#3,b3,e4]", // E
  K: "[g3,b3,d4]@2 [g3,b3,d4]@2 g2 ~ [b3,d4,g4] ~, g2@2 [g3,b3,d4] ~, ~@5 g2@3", L: "[f#3,b3,d#4]!4, b2!2",
  M: "[e3,a3,c#4]@2 [e3,a3,c#4] a3 [f3,a3,c4]@2 a3!2, e2 f2, ~@3 [f3,c4]", // A F F5
  N: "[f#3,a3,d4]@2 [f#3,a3,d4]@2 [f#3,a3,d4]@2 a3!2, f#2@11 ~ [f#2,f#3,d4]@4", // D
  O: "[g#3,b3,e4]@2 [g#3,b3,e4]@2 [g#3,b3,e4]@2 ~ [e2,e3], [e2,e3]@3 [g#3,b3,e4]", // E
  P: "[a3,d4,f#4]!2 [b3,d4,f4,g4]!2, f#2 f2", Q: "[b3,e4,g#4]!2 [b3,d4,g#4]!2, e2 d2",
  R: "[b5,b6]@2 ~@2 [b5,b6]@2 ~@3 [b5,b6]@2 ~ [b5,b6]@2 ~@2, [b2,b3] [a2,a3]", // B A
  S: "~ [b5,b6]@2 ~ [b5,b6]@2 ~@2 [a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2, [g#2,g#3] [e2,e3]", // B A B G# E
  T: "[b5,b6]!2 ~@2 [b5,b6]@2 ~@3 [b5,b6]@2 ~ [b5,b6]@2 ~@2, [b2,b3] [a2,a3]", U: "~@7 f#2, ~@2 f#3!2, ~@5 f#2@2 ~",
  V: "[b5,b6]!2 ~@2 [b5,b6]@2 ~@2 [a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2, [b2,b3] [a2,a3]", // B A B A
  W: "[a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2 [a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2, [g#2,g#3] [e2,e3]", // A B A B G# E
  X: "[a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2 [a5,a6] [b5,b6] ~@2 [b5,b6]@2 ~@2, [b2,b3] [a2,a3]", // A B A B A
  Y: "~@14 [c#4,e4] [d#4,f#4]", Z: "[e4,g4] [d#4,f#4] [e4,g4] [f#4,a4]",
  AA: "[b3,d4,g4]@2 [b3,d4,g4]@2 [a2,c#4,e4,a4]@2 [d3,a3,d4,f#4] ~, a2 ~", // G A D
  AB: "f#2!5 f#3!2 [f#2,f#3], ~@5 f#2@2 ~, ~@3 f#4", // F#
  AC: "[b2,b3,f#4,b4,d#5]@3 [b2,b3,f#4,b4,d#5] [a#2,a#3,f#4,a#4,d#5]@3 [a#2,f#3,a#3,d#4]", // B D#m
  AD: "[g#2,g#3,b3,d#4]@3 [b3,d#4,g#4] ~ [g#4,g#5] f#5 [g#4,g#5], ~ [b3,d#4], ~@2 f#4!2", // G#m G# B
  AE: "[c#4,f4]@3 ~ c#5@4, g#3, ~@3 c#4@5, ~@7 [f4,g#4]@9", AF: "[b3,d4,g4]!2 [a2,a3,c#4,e4] [d3,a3,d4,f#4], a2 ~",
  AG: "[b4,f#5,b5]@2 ~@2 [b4,f#5,b5]@2 ~@3 [b4,f#5,b5]@2 ~ [b4,f#5,b5]@2 ~@2, [b2,b3] [a2,a3]", // B5 B A
  AH: "~ [b4,f#5,b5]@2 ~ [b4,f#5,b5]@2 ~@3 [b4,e5,b5]@2 ~ [b4,e5,b5]@2 ~@2, [g#2,g#3] [e2,e3]", // B5 E5 G# E
  AI: "~ [b4,f#5,b5]@2 ~ [b4,f#5,b5]@2 ~@3 [b4,e5,g#5,b5]@2 ~ [b4,e5,g#5,b5]@2 ~@2, [g#2,g#3] [e2,e3]", // B5 E G# E
  AJ: "[c#3,g#3,c#4,f4]", // C#
  AK: "[f#2,f#3] [f#2,f#3,f#4,f#5] [f#2,f#3,g#4,g#5] [f#2,f#3] [f#2,f#3,d#5,d#6] [f#2,f#3,e5,e6] [f#2,f#3]!2, ~@6 [b4,b5] ~ [d5,d6] ~@7", // F# F#sus2 F# D#m F#7 F# B D
  AL: "~ [b4,f#5,b5]@2 ~ [b4,f#5,b5]@2 ~@2 [b4,e5,b5]!8, [g#2,g#3] [e2,e3]", AM: "[c#3,e3,g#3,b3,c#4]/2",
  AN: "[e3,g#3,b3,e4,b4]@4 [g#3,b3,e4,g#4,b4,e5]@4 [b3,e4,g#4,b4,e5,g#5]@4 [e4,g#4,b4,e5,g#5,b5]@2 [c#4,e4] [d#4,f#4]", // E C#m D#m
  AO: "[b2,d#3,f#3,b3,d#4,f#4,b4]", // B
})).s("gm_piano").gain(0.32)

// bass · fretless bass · "BASS"
const bass = note(`<
  ~@2 A B A C D E F G H I J K L M N O G P Q A R A S T I A C A U T V W D E F G H I J K L M N O G X Q A Y A U T I A B A S
  T V W D E F G H I J A C A U T I A C A S Z@2 AA C A U AB AC A AD A C A C T V W AE ~
>`.pickRestart({
  A: "b1 ~ b1@2 b1 ~ b1@2 a1 ~ a1@2 a1 ~ a1@2", B: "g#1 ~ g#1@2 g#1 ~ g#1@2 e1 ~ e1@2 g#1@2 a1@2",
  C: "g#1 ~ g#1@2 g#1 ~ f#1@2 e1 ~ e1@2 g#1@2 a1@2", D: "b1 ~ b1@2 b1 ~ b1@2 a#1 ~ a#1@2 a#1 ~ a#1@2",
  E: "g#1 ~ g#1@2 g#1 ~ g#1@2 g#1 ~ g#1@2 g#1 ~ g#1@2", F: "f2 ~ f2@2 f2 ~ f2@2 f2 ~ f2@2 f2 ~ f2@2",
  G: "e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2", H: "b1 ~ b1@2 b1 ~ b1@2 b1 ~ b1@2 b1 ~ b1@2",
  I: "f#1 ~ f#1@2 f#1 ~ f#1@2 f#1 ~ f#1@2 f#1 ~ f#1@2", J: "a1 ~ a1@2 a1 ~ a1@2 a1@4 d2@4",
  K: "e1 ~ e1@2 e1 ~ e1@2 e1 ~ e1@2 e1@2 f#1@2", L: "g1 ~ g1@2 g1 ~ g1@2 g1 ~ g1@2 a1@2 a#1@2",
  M: "b1 ~ b1@2 b1 ~ b1@2 b1 ~ c#2@2 d2@2 d#2@2", N: "e2 ~ e2@2 e2 ~ e2@2 f2 ~ f2@2 f2 ~ f2@2",
  O: "f#2 ~ f#2@2 f#2 ~ f#2@2 f#2 ~ f#2@2 f#2 ~ f#2@2", P: "f#1 ~ f#1@2 f#1 ~ f#1@2 f2 ~ f2@2 f2 ~ f2@2",
  Q: "e2 ~ e2@2 e2 ~ e2@2 d2 ~ d2@2 d2 ~ d2@2", R: "g#1 ~ g#1@2 g#1 ~ g#1@2 e1 ~ e1@2 e1 ~ a1@2",
  S: "g#1 ~ g#1@2 g#1 ~ f#1@2 e1 ~ e1@2 e1 ~ e1@2", T: "c#2 ~ c#2@2 c#2 ~ c#2@2 c#2 ~ c#2@2 c#2 ~ c#2@2",
  U: "g#1 ~ g#1@2 g#1 ~ g#1@2 e1 ~ e1@2 e1 ~ e1@2", V: "e1 ~ e1@2 e1 ~ e1@2 e2 ~ e2@2 e2 ~ e2@2",
  W: "e1 ~ e1@2 e2 ~ e2@2 e1@2 f#2@2 a2@2 g#2@2", X: "f#2 ~ f#2@2 f#2 ~ f#2@2 f2 ~ f2@2 f2 ~ f2@2",
  Y: "g#1 ~ g#1@2 g#1 ~ f#1@2 e1 ~ e1@2 e1 ~ a1@2", Z: "c#2/2", AA: "b1 ~ b1@2 b1 ~ b1@2 a1 ~ a1@2 a1 ~ a1!2",
  AB: "b1 ~ b1!4 b1@2 a1 ~ a1@2 a1 ~ a1@2", AC: "g#1 ~ g#1@2 g#1 ~ f#1@2 e1 ~ e1!4 a1@2",
  AD: "g#1 ~ g#1@2 g#1 ~ f#1@2 e1!2 e1@2 e1!2 g#1 a1", AE: "b1",
})).s("gm_fretless_bass").gain(0.44)

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

// drums · snare
const snare = s("sd").struct("<~@2 A@31 B A@31 B A@8 C A@13 C A@6 C ~@2>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@6 x!2 ~@3", C: "~ x ~@2",
})).gain(0.73)

// drums · low tom
const low_tom = s("lt").struct("<~@65 A ~@8 B ~@13 C ~@6 C A D>".pickRestart({
  A: "~@15 x", B: "~@12 x!3 ~", C: "~@10 x ~ x!4", D: "x",
})).gain(0.65)

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

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

// drums · open hat
const open_hat = s("oh").struct("<~@74 [~ x] ~@13 [~@3 x ~@4] ~@6 [~@3 x ~@4] ~@2>").gain(0.58)

// drums · crash
const crash = s("cr").struct("<~@40 A B ~@24 B ~ A B ~ B ~@3 B ~@5 B ~ B ~ B ~ B ~ B ~@3 B ~@2 B ~>".pickRestart({
  A: "~@2 x!2", B: "x",
})).gain(0.65)

stack(percussive_organ, piano, bass, kick, snare, low_tom, hihat, mid_tom, open_hat, crash)