// The Right Thing — Simply Red
// 105 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 104 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(105/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 · slap bass 1 · "SLAPBASS"
const bass = note(`<
  ~@2 A B C B D@2 E F G H E I G H E F G H E F G J K L M N O L M N P B D@2 E I G H E I G Q R S T U R S T U K L M N O L M
  N E F G H E F G H R S T U R S T U R S T U R S V@2 W X Y Z W X Y Z W X Y Z W X Y Z W X AA ~
>`.pickRestart({
  A: "~@2 e2 ~@3 e2@2 ~@2 e2@2 g#2@2 e2 ~", B: "~@2 e2 ~@3 e2@2 g#2 ~ b2 ~ e3@2 g#3 ~",
  C: "~@2 e2@2 ~@2 e2 ~@3 e2@2 g#2@2 e2 ~",
  D: "[~@2 e2 ~@3 e2 ~@3 e2@2 g#2 e2 b2@4 e2!2 f#2 ~ f#2 ~ g#2 ~ g#2 ~ b2@2 c#3 ~]/2",
  E: "~@2 e2 ~@3 e2 ~@3 e2 ~ f#2 ~ b2@2", F: "~@2 e2 ~@3 e2 ~ f#2 ~ b2 ~ b2@2 g#3 ~",
  G: "~@2 e2 ~ b2 ~ b2 ~@3 b2 ~ c#3 b2 c#4 ~", H: "~@2 e2@2 ~@2 e2@2 ~@2 f#2@2 g#2 ~ b2@2",
  I: "~@2 e2@2 ~@2 e2 ~ f#2 ~ b2 ~ b2@2 g#3 ~", J: "~ e2 ~ e2 ~ f#2 g#2 b2", K: "e3 e2 ~ e2@5",
  L: "~@2 g2 g2@2 g2 g2@2 f#2@6 ~@2", M: "f#2 ~ f#2 ~@5 b2 ~ b2 ~@5", N: "e3@2 e2 ~@3 e2@5 ~@5",
  O: "e2 ~ e2@2 ~@2 e2@10", P: "~@2 e2 ~@3 e2 ~@3 e2@2 g#2@2 e2 ~", Q: "~@2 e2@2 ~@2 e2@2 e3!3 ~ e4!2 e4@2",
  R: "e3 ~ e3!2 d3 ~ d3!2 c#3 ~ c#3!2 b2@2 e2 ~", S: "~@2 f#2@3 ~ a2 ~ b2 ~ b2 ~ e3@4",
  T: "~@2 f#2@2 ~@2 f#2 ~ b2 ~ b2 ~ e3 b3@2 ~", U: "~@2 e2!2 ~@2 e2@3 ~ f#2@2 g#2@2 b2@2", V: "[b2@7 ~]/2",
  W: "e3@2 e2@2 ~@3 g#2!2 ~ e3 ~ b2@2 e3 ~", X: "g#2 ~ g#2 ~ d#3 ~ d#3 ~ g#2 ~ g#3 ~ d#3 ~ b2 ~",
  Y: "f#2 ~ f#2 ~ c#3 ~ c#3 ~ b2 ~ b2 ~ b2 b3@3", Z: "e3@2 e2 ~@3 e2!2 g#2 ~ g#2 ~ b2!2 c#3 ~", AA: "f#2",
})).s("gm_slap_bass_1").gain(0.47)

// bass · piano · "FUNK GTR" · E D C# B E D C# B …
const bass_2 = note(`<
  [~@2 [e1,e2]@2 [d1,d2] ~ [d1,d2]@2 [c#1,c#2] ~ [c#1,c#2]@2 [b0,b1]@4]
  [~@2 [e1,e2] e0 [d1,d2] ~ [d1,d2]@2 [c#1,c#2] ~ [c#1,c#2]@2 [b0,b1]@3 ~]
  [~@2 [e1,e2]@2 [d1,d2] ~ [d1,d2]@2 [c#1,c#2] ~ [c#1,c#2]@2 [b0,b1]@4]
  [~@2 [e1,e2] e0 [d1,d2] ~ [d1,d2]@2 [c#1,c#2] ~ [c#1,c#2]@2 [b0,b1]@3 ~]
  ~@100
>`).s("gm_piano").gain(0.2)

// chords · electric guitar muted · "FUNK GTR"
const electric_guitar_muted = note(`<
  ~@4 A B C D E F G H E F G H E F G H E F G I J@4 K@4 A B C D E F G H E F G H E F G L@2 F G M J@4 K@4 A B N O A B N P E
  F G L@2 F G L@2 F G L@2 F ~@2 Q R S M Q R S M Q R S M Q R S M Q R ~@2
>`.pickRestart({
  A: "[e5,g#5]!4 ~ a5 [d5,e5,g#5] ~@3 [b4,e5] ~@5, d5@3 ~ [d5,e5,g#5]@2 ~@10", // E E7 E5 E7
  B: "~@2 [e5,f#5]!3 ~@5 [b4,d5,e5] [d5,e5]!2 ~@3, ~@2 d5@3 ~@11", // Esus2 E7 Dsus2
  C: "~ e5 [b4,d5]!2 ~ d5 [b4,d5] ~@3 [g#4,b4] ~@3 [d5,f#5]@2, [d5,e5] ~ [b4,d5] ~@5", // Bm G#m D Dsus2 Bm
  D: "b4@2 [d5,f#5] ~@3 [g#4,b4]@3 ~ [f#4,a4]@2 ~@4", // D G#m F#m
  E: "~@3 [e4,b4] ~@2 [e4,g#4,b4]@4 [e4,g#4,b4] ~@2 [e4,g#4,b4] ~@2", // E5 E
  F: "~@3 [f#4,b4] ~@2 [a4,b4]@4 ~ [a4,b4] ~ [f#4,b4] ~@2, ~@6 f#4@5 ~@5", // B5 Asus2 B5
  G: "~@3 [a4,c#5] ~@2 [a4,b4,c#5]@4 [a4,b4,c#5] ~@2 [a4,c#5] ~@2", // A
  H: "~@3 [e4,g#4,b4] ~@2 [e4,g#4,b4] e3!2 [e3,e4,g#4,b4] e3!3 [e3,e4,g#4,b4] e3!2", // E
  I: "~@3 [e4,g#4,b4] ~@2 [e4,g#4,b4]@7 ~@3", // E
  J: "[b4@2 e5@2 a5@2 b4@4 ~@4 b5@16 [d5,a5]@15 ~ [g#5,b5]@18, ~@10 e5@19 ~@35]/4", // D5 G#m
  K: "[b4@2 e5@2 a5@2 b4@4 ~@18 a4@2 [d5,a5]@15 ~ [g#5,b5]@18, ~@10 e5@19 ~@35, ~@7 b5@8 ~@17]/4", // D5 G#m
  L: "[~@3 [e4,g#4,b4] ~@2 [e4,g#4,b4] e3 [e3,b3] [e3,c#4,e4,g#4,b4] [e3,e4] [e3,c#4] e3 [e3,g#4,b4] e3!2 ~@3 [e4,b4] ~@2 [e4,g#4,b4]@4 [e4,g#4,b4] ~@2 [e4,g#4,b4] ~@2, ~@12 e4@7 ~@13]/2", // E E5 C#m7 E C#m E E5 E
  M: "~@3 [e4,g#4,b4] ~@2 [e4,g#4,b4]@9 ~", // E
  N: "~ e5 [c#5,e5]!2 ~ e5 [c#5,e5] ~@3 [a4,c#5] ~@3 [b4,d5]@2, [c#5,e5] ~ [c#5,e5] ~@5", // C#m A Bm C#m
  O: "g#4@2 [e3,b4,d5] e3!5 ~@2 [b4,d5,e5] [d5,e5]!2 ~@3", P: "g#4@2 [e3,b4,d5] e3!5 ~@8",
  Q: "~@3 [e4,b4] ~@2 [e4,g#4,b4]@8 ~@2", R: "~@3 [f#4,b4] ~@2 [d#4,f#4,b4]@7 ~@3",
  S: "~@3 [e4,a4] ~@2 [c#4,e4,a4]@4 [c#4,e4,a4] ~@2 [c#4,e4,a4] ~@2", // A5 A
})).s("gm_electric_guitar_muted").gain(0.31)

// chords · epiano2 · "E.PIANO"
const epiano2 = note(`<
  A@2 B@2 C@3 D E F@2 G E F@2 G E F@2 G E F@2 G H@8 C@3 D E F@2 G E F@2 G@2 F@2 G I F@2 G H@8 E J@2 G E J@2 G@2 F@2 G@2
  F@2 G@2 F@2 G@2 K@3 L M N O L M N O L M N O L M N O L M P ~
>`.pickRestart({
  A: "[[b3,d4,e4,g#4]@12 ~@2 [a3,b3,d4,f#4]@13 ~ [a3,b3,d4,f#4]@3 ~]/2", // E7 Bm7
  B: "[[b3,d4,e4,g#4]@11 ~ [b3,d4,e4,g#4] ~ [a3,b3,d4,f#4]@16 ~@2]/2", // E7 Bm7
  C: "[[b3,d4,e4,g#4,b4]@7 [a3,b3,d4,f#4,c#5]@7 [a3,b3,d4,f#4]@2 [b3,d4,e4,g#4]@6 [b3,d4,e4,g#4]@2, ~@7 d5@5]/3", // E7 Dmaj7 Bm7 E7
  D: "[a3,b3,d4,f#4,c#5]", E: "[b3,e4,g#4,e5]", F: "[[b3,d4]@7 ~ [a4,b4,c#5,e5]@8, [f#4,a4,c#5] ~, ~@7 [c#4,e4]@9]/2",
  G: "[b3,e4,g#4,b4]", // E
  H: "[b4 [b4,e5] [e5,a5] b4@2 [b4,e5]@2 [a3,b3,d4,f#4,e5,b5]@8 [a3,b3,d4,f#4,d5,a5]@8 b5@8 ~ b4 [b4,e5] [e5,a5] b4@2 [b4,e5]@2 [a3,b3,d4,f#4,e5,b5]@8 [a3,b3,d4,f#4,d5,a5]@8 [b3,d4,e4,g#4,e5,b5]@9, [b3,d4,g#4]@7 ~@16 [b3,d4,e4,g#4,e5]@9 [b3,d4,g#4]@7 ~@25, e4@3 e4@4 ~@24 b5@2 ~@31, ~@32 e4@3 e4@4 ~@25]/8", // E5 A5 E5 Bm7 E5 A5 E5 Bm7 …
  I: "[b3,e4,g#4], b4 ~@15", J: "[[b3,d4]@7 e4 [e4,a4,b4,c#5]@8, [f#4,a4,c#5] ~, ~@7 c#4@9]/2",
  K: "[[b3,d4]@7 ~ [a4,b4,c#5,e5]@14 ~@2, [f#4,a4,c#5] ~@2, ~@7 [c#4,e4]@9 ~@8]/3", // Bm A F#m C#m
  L: "[e4,g#4,b4,e5]@3 [e4,g#4,b4,e5]@5", M: "[f#4,g#4,b4,d#5]@3 [f#4,g#4,b4,d#5]@5", N: "[a4,b4,c#5,e5]!2",
  O: "[e4,g#4,b4,e5]", P: "[a4,b4,c#5,e5]",
})).s("gm_epiano2").gain(0.26)

// chords · epiano2 · "E.PIANO" · soft notes
const epiano2_soft = note(`<
  ~@8 A ~@2 A@2 ~@2 A@2 ~@2 A@2 ~@2 A B@2 ~@2 B@2 ~@6 A ~@2 A@2 ~@2 A C ~@2 A C ~@2 A B@2 ~@2 B@2 ~@2 A ~@2 A@2 ~@2 A C
  ~@2 A C ~@2 A C ~@2 A C ~@23
>`.pickRestart({
  A: "d5", B: "[~@7 e6@8 ~]/2", C: "e5",
})).s("gm_epiano2").gain(0.15)

// chords · french horn · "T.SAX/HORN"
const french_horn = note(`<
  ~@8 A B@2 A@2 B@2 A@2 B@2 A@2 B@2 A C@7 D@8 A@2 B@2 A@2 B@2 A@2 B@2 A E@8 A B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2
  F@3 G@2 H@2 G@2 H@2 G@2 H@2 G@2 H@2 G@2 I@2
>`.pickRestart({
  A: "[g#4,b4]", B: "[f#4 e4, a4]/2", C: "[~@4 g#3 b3 a3, b4]/7", D: "[~@6 f#4 e4, g#3, ~@3 a4]/8",
  E: "[~@5 b3 a3 ~, b4, ~ g#3]/8", F: "[f#4@8 e4@13 ~@3, a4@7 ~]/3", G: "[[e4,e5] [f#4,d#5], [g#4,b4]]/2",
  H: "[[a4,c#5] [g#4,b4], [e4,e5]]/2", I: "[[e4,a4,c#5,e5]@3 ~]/2",
})).s("gm_french_horn").gain(0.2)

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

// drums · kick · soft notes
const kick_soft = s("bd").struct(`<
  ~@2 A B ~@2 C D ~@2 C D ~@2 C D ~@2 C D ~@2 C D ~@10 C D ~@2 C D ~@2 C D ~@18 C D ~@2 C D ~@36
>`.pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x ~@2", C: "~@13 x ~@2", D: "~@3 x ~@12",
})).gain(0.15)

// drums · rim
const rim = s("rim").struct("<~@31 [~@12 x!2 ~@2] ~@27 [~@12 x!2 ~@2] ~@7 [~@10 x ~ x!2 ~@2] ~@36>").gain(0.2)

// drums · snare
const snare = s("sd").struct("<~@4 A@20 ~@7 B A@11 C A@8 ~@7 D A@7 E A@14 ~@2 A@18 ~@2>".pickRestart({
  A: "~ x ~ x", B: "~@5 x ~@2", C: "~@4 x ~@3 x!3 ~ x!3 ~", D: "~@10 x!2 ~@4", E: "~ x!2 ~",
})).gain(0.36)

// drums · hihat
const hihat = s("hh").struct("<~@44 [x!16]!8 ~@16 [x!16]!14 ~@2 [x!16]!18 ~@2>").gain(0.26)

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

// drums · mid tom · soft notes
const mid_tom_soft = s("mt").struct("<~@24 A B ~@5 C ~@20 A B ~@5 C ~@44>".pickRestart({
  A: "~@3 x ~ x ~@2", B: "~ x ~@6", C: "~@5 x ~@2",
})).gain(0.05)

// drums · cowbell
const cowbell = s("cb").struct("<~@2 A@22 ~@11 B A@16 ~@8 A@7 C A@14 ~@2 A@18 ~@2>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~@7 x", C: "~ x ~ x ~@4",
})).gain(0.2)

// drums · shaker
const shaker = s("sh").struct("<~@32 [x!8] [x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~]!2 [x ~ x!3 ~ x ~ x ~ x ~ x ~@3] ~@68>")
  .gain(0.26)

stack(
  bass, bass_2, electric_guitar_muted, epiano2, epiano2_soft, french_horn, kick, kick_soft, rim, snare, hihat, mid_tom,
  mid_tom_soft, cowbell, shaker
)