// Standing in the Shadow of Love — Four Tops
// 114 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 74 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(114/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@2 B C A@2 B C D E D F D G D F H@4 I@3 J A@2 B K A@2 B K L G L F L G M F N@4 I@3 J L G L F L G L F N@4 I@3 J A@2 B K
  A@2 B K O@2
>`.pickRestart({
  A: "[a1@4 a1@2 e1@2 a1 ~ a1 ~ g#1@2 g1@4 d2@2 g1@2 d2 g1 ~ e1 d2 f#1 g1@2 f#2@2]/2",
  B: "f2@4 f2@2 c2@2 f2 ~ f2@2 ~@2 f2!2", C: "~ e2 b1@2 e2 b1 e1!3 ~ e1!2 g#1@2 g#1 ~",
  D: "f2@3 ~ f2@3 ~ f2@2 g2 ~ g2@2 c2 ~", E: "c2@3 ~ c2@2 g1 a1 c2 a1 g1 a1 c2 a1 e2 ~",
  F: "c2@3 ~ c2@2 g1 a1 c2 a1 g1 a1 c2 a1 g1 a1", G: "c2@3 ~ c2@2 g1 a1 c2 a1 g1 a1 c2 a1 e2@2",
  H: "[d2@6 a1 c2 d2 c2 a1@4 d2@4 a1@2 d2@2 a1@2 d2@2 a1@2 d2@2 a1@4 e1@2 a1@2 e1@2 a1@2 e1@2 a1@2 a#1@4 e1@2 a#1@2 e1@2 c#2@3 ~ c#2@4]/4",
  I: "a1@2 e1@2 a1 ~ e1 a1 ~ a1 e1!2 a1@2 e1 ~", J: "a1@2 e1@2 a1 ~ e1 a1 ~ a1 e1!2 a1@2 g1@2",
  K: "~ e2 b1 ~ e2 b1 e1!3 ~ e1!2 g#1@2 g#1 ~", L: "f2@4 f2@4 f2@2 g2@2 g2@2 c2 ~", M: "f2@4 f2@4 f2@2 g2 ~ g2 c2!2 ~",
  N: "[d2@6 a1 c2 d2 c2 a1@4 d2@4 a1@2 d2@2 a1@2 d2@2 a1@2 d2@2 a1@4 e1@2 a1@2 e1@2 a1@2 e1@2 a1@2 a#1@4 e1@2 a#1@2 e1@2 c#2@4 c#2@4]/4",
  O: "[a1@2 e1@2 a1@24 ~@2 a1!2]/2",
})).s("gm_electric_bass_finger").gain(0.48)

// chords · flute
const flute = note(`<
  A@2 B@2 A@2 B@2 ~@8 C@4 ~@4 A@2 B@2 A@2 B@2 ~@8 C@4 ~@12 C@4 ~@4 A@2 B@2 A@2 B@2 D ~
>`.pickRestart({
  A: "[~@8 c5 ~ c5@2 d5 ~ e5@18, a4@31 ~]/2", B: "[c5@8 c5 ~ d5 ~ e5 ~ e5@7 ~ [g#4,d5]@10, a4@11 ~@5]/2",
  C: "[g5@8 f5@2 f5@4 a5@32 a#5@13 ~@5]/4", D: "[e4,a4]",
})).s("gm_flute").gain(0.3).pan(0.1)

// other · rock organ · "ORGAN 3"
const rock_organ = note(`<
  A@2 B@2 C@2 D@4 E@2 F@2 G@2 ~@4 H I J K A@2 L@2 C@2 D@4 M@2 F@2 G@2 ~@4 H I J K N@8 ~@4 H I J K A@2 B@2 O@2 P@2 H Q
>`.pickRestart({
  A: "[a4 ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@8 ~@2 e5@2 ~@2 e5 ~ e5 ~]/2",
  B: "[~ a4!2 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@8 ~@10]/2",
  C: "[a4 ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@9 ~ e5@3 ~ e5 ~ d5 ~]/2",
  D: "[a4 ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@7 ~@5 c5@2 f5 c5 f5@7 ~ f5 ~ f5 ~ a5 ~ g5 ~ f5 f5@3 g5@3 ~@5 f5@4 c5@2]/4",
  E: "[f5@2 c5@3 ~ c5@2 f5 ~ a5 ~ g5 ~ f5 f5@3 g5@3 ~@5 c5 f5@3 f5 ~]/2",
  F: "[g5@2 f5@3 ~ d5@2 f5@3 ~ f5@2 g5@6 ~@6 f5 ~ f5 ~ f5@2]/2", G: "[g5@2 f5 ~ f5 ~ d5 ~ f5@3 ~ f5@2 g5@6 ~@12]/2",
  H: "a4!3 ~ b4 ~ b4 c5 ~ c5 ~@2 d5 ~ d5 ~", I: "e5!2 e5@3 ~@11", J: "a5!2 e5@2 d5 ~ c5 d5@2 d5@3 c5@2 a4 ~",
  K: "a4!3 ~@3 a4 ~ a4 ~ c5 c5@2 d5@2 ~", L: "[a4 ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@8 ~@10]/2",
  M: "[f5@2 c5@3 ~ c5@2 f5 ~ a5 ~ g5 ~ f5 f5@2 ~ g5@3 ~@5 c5 f5@3 f5 ~]/2",
  N: "[f5 ~ f5 ~ f5 ~ f5 ~ f5 ~ d5@2 f5 ~ f5@4 g5@2 ~@6 a5 ~ a5 ~ c6@4 a5 ~ g5@2 f5@2 f5 ~ d5 ~ f5 ~ f5@4 g5@3 ~@11]/4",
  O: "[[a4,b4] ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@9 ~ e5@3 ~ e5 ~ d5 ~]/2", // Asus2
  P: "[a4 ~ a4 ~ b4 ~ b4 ~ c5 ~ c5 ~ d5 ~ e5@7 ~@11]/2", Q: "a4!2 a4@3 ~@11",
})).s("gm_rock_organ").gain(0.35)

// chords · electric guitar jazz · "JAZZ GTR"
const electric_guitar_jazz = note(`<
  A B@2 C A B@2 C D E D F D E D E ~@8 G H I J G H I J K L K L K L K L ~@8 K L K L K L K L ~@8 G H I J G H I J ~ M
>`.pickRestart({
  A: "[a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~ [a3,c4,e4] [a3,c4,e4]@2 ~ [a3,c4,e4]@3 ~", // Am
  B: "[[a3,b3,d4,e4]@3 ~ [a3,b3,d4,e4]@3 ~ e4 e4@2 e4 [a3,b3,d4]@3 ~ [a3,c4]@3 ~ [a3,c4,e4]@3 ~ [a3,c4,e4] [a3,c4,e4]@2 ~ [a3,c4,e4]@3 ~, ~@8 [a3,b3,d4]@3 ~ e4@8 ~@12]/2", // Asus4 Bm7 Am Bm7
  C: "[a3,b3,d4,e4]@3 ~ [a3,d4,e4]@4 [g#3,d4]@4 [g#3,d4]@3 ~, ~@2 b3 ~@5", // Asus4 G#dim
  D: "[f3,c4]@4 [f3,c4]@3 ~ [f3,c4]@2 [f3,d4]@2 [f3,d4] ~ [e3,d4]@2", // F5 Dm E7
  E: "[g3,c4]@3 ~ [g3,c4]@3 ~ [g3,c4]@2 ~@2 c4 ~@3, ~@5 c4 ~@2, ~@11 g3@2 ~@3", // C5
  F: "[g3,c4]@3 ~ [g3,c4]@3 ~ [g3,c4]@2 c4 ~ c4 ~@3, ~@11 [g3,c4]@2 ~@3", // C5
  G: "[a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~", // Am
  H: "[b3,d4,e4]@3 ~ [b3,d4,e4]@3 ~ [b3,d4,e4]@2 e4 ~ [b3,d4,e4]@3 ~", // E7
  I: "[a3,c4,e4]@3 ~ [a3,c4,e4]@3 ~ [a3,c4,e4]@2 e4 ~ [a3,c4,e4]@3 ~", // Am
  J: "[b3,d4,e4]@3 ~ [d4,e4]@4 [g#3,d4]@4 [g#3,d4]@3 ~, ~@2 b3 ~@5", // E7 Dsus2 G#dim
  K: "[f3,c4]@4 [f3,c4]@3 ~ [f3,c4]@2 [f3,d4] ~ d4 ~ [e3,d4]@2", L: "[g3,c4]@3 ~ [g3,c4]@3 ~ [g3,c4]@2 c4 ~ c4 ~@3",
  M: "~@6 a2 e3 ~ a2 d3 a2 c3 a2 ~@2",
})).s("gm_electric_guitar_jazz").gain(0.2)

// chords · piano · "A.PIANO 1"
const piano = note("<~@16 A@4 B@2 C@2 ~@16 A@4 B@2 C@2 ~@8 A@4 B@2 C@2 ~@8 B@2>".pickRestart({
  A: "[[d4,f4,g4]@7 ~ [d4,f4] ~ [d4,f4]@3 ~ [d4,f4,a4]@13 ~ [d4,f4,a4] ~ [c#4,e4,a4]@13 ~ [c#4,e4,a4] ~ [c#4,e4,a#4]@11 ~@7, ~@46 f4 ~@17]/4", // G7 Dm A A#dim
  B: "[[a2,e3,a3]@31 ~]/2", C: "[a2,e3,a3]/2",
})).s("gm_piano").gain(0.4)

// chords · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~@20 A B C D@2 ~@19 A B C D@2 ~@11 E ~ F ~ E ~ G ~ E ~ F ~@3>".pickRestart({
  A: "a3 [a3,c4,e4] ~@2 [a3,c4,e4] ~ [a3,c4,e4]!2 ~ [c4,e4] ~ c4 [c4,e4] [a3,c4,e4] ~ c4", // Am C Am
  B: "c4 ~ [a3,c4,e4] ~ [a3,c4,e4] ~ [a3,e4] [a3,c4] a3 [a3,c4,e4] ~ a3 [c4,e4]@4", // Am A5 Am C
  C: "~ e4 [a3,c4] ~ [a3,c4,e4] ~ e4 [a3,c4,e4] ~ [a3,c4] ~ [a3,c4,e4]!3 [c4,e4]!2", // Am C
  D: "[c4 ~ [a3,c4,e4] ~ [a3,c4,e4] ~@2 [a3,c4,e4] ~ [a3,c4] ~ c4 [a3,c4]!2 [a3,c4,e4]@4 ~@14]/2", E: "[a3,c4]@15 ~",
  F: "[a3,c4,e4,a4]", G: "[a3,c4,e4,g4]",
})).s("gm_overdriven_guitar").gain(0.18).pan(0)

// chords · overdriven guitar · "OVERDRIVE" · soft notes
const overdriven_guitar_soft = note("<~@20 A B C D ~@20 A B C D ~@26>".pickRestart({
  A: "~@9 a3 ~ [a3,e4] a3 ~@2 [a3,e4]", B: "[a3,e4] ~@11 a3@4", C: "c4 ~ e4 ~@3 [a3,c4] ~@7 a3!2",
  D: "~@11 [a3,e4] e4!2 ~@2", // A5
})).s("gm_overdriven_guitar").gain(0.09).pan(0)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  A B C D E F G H I J K J K J K J L M N O ~@4 P B G H E B G H I J K J K J K J L M N O ~@4 K J K J K J K J L M N O ~@4 P
  B G H E B G Q@2 ~
>`.pickRestart({
  A: "[a3,c4,e4] ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,d4] [a3,c4], ~@7 e4", // Am D7 Am
  B: "[g3,b3,d4] ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!2", // G
  C: "[f3,a3,c4] ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!2, ~@7 e4", // F
  D: "[e3,a3,b3,a4] ~ [e3,a3,b3,a4]!3 ~ [e3,a3,b3,a4]!2 [e3,g#3,b3,g#4] ~ [e3,g#3,b3,g#4]!3 ~ [g#3,b3,g#4] [e3,g#3,b3,g#4], ~@6 d4@3 ~@7", // Esus4 E G#m E
  E: "[e3,a3,c4,e4] ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,d4,e4] [a3,c4,e4]", // Am
  F: "[g3,b3,d4] ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!3 ~ [g3,b3,d4]!2, ~@5 e4@2 ~", // G
  G: "[f3,a3,c4] ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!3 ~ [f3,a3,c4]!2", // F
  H: "[e3,a3,b3,a4] ~ [e3,a3,b3,a4]!3 ~ [e3,a3,b3,a4]!2 [e3,g#3,b3,g#4] ~ [e3,g#3,b3,g#4]!3 ~ [g#3,b3,g#4] [e3,g#3,b3,g#4]", // Esus4 E G#m E
  I: "[e3,f3,a3,c4,f4] ~ [f3,a3,c4,f4]!3 ~ [f3,a3,c4,f4]!3 ~ [g3,a#3,d4] ~ [g3,a#3,d4] ~ d3 ~", // Fmaj7 F Gm
  J: "[c3,g3,c4,e4] ~ [g3,c4,e4]!3 ~ [g3,c4,e4]!3 ~ [g3,c4,e4]!5 ~", // C
  K: "[f3,a3,c4,f4] ~ [f3,a3,c4,f4]!3 ~ [f3,a3,c4,f4]!3 ~ [g3,a#3,d4] ~ [g3,a#3,d4] ~ d3 ~", // F Gm
  L: "[a3,d4,f4]@2 [d4,f4]!2 [a3,d4,f4] ~ [a3,d4,f4] [d4,f4] [a3,d4,f4]@2 [a3,d4,f4] [d4,f4] [a3,d4,f4] f4 [a3,d4,f4] f4", // Dm
  M: "[a3,d4,f4]@2 [a3,d4,f4] f4 [d4,f4]@2 [d4,f4]!2 [a3,d4,f4]@2 [a3,d4,f4] f4 [d4,f4]!3 ~", // Dm
  N: "[a3,c#4,e4]@2 e4 [a3,c#4,e4]!2 ~ [a3,c#4,e4]!2 [c#4,e4]@2 [a3,c#4,e4]!3 [c#4,e4] [a3,c#4,e4] ~", // A C#m A C#m A
  O: "[c#4,e4,g4] ~ [e4,g4]!4 [c#4,e4,g4] g4 [c#4,e4] ~@3 [a2,c#4,e4,g4] ~@3, ~@2 g4 ~", // C#dim Em C#dim C#m A7
  P: "[a3,c4,e4] ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,e4]!3 ~ [a3,c4,d4,e4] [a3,c4,e4]", // Am
  Q: "[[e3,a3,b3,a4] ~ [e3,a3,b3,a4]!3 ~ [e3,a3,b3,a4]!2 [e3,g#3,b3,g#4] ~ [e3,g#3,b3,g#4]!3 ~ [g#3,b3,g#4] [g#3,b3]@12 ~@5, ~@15 [e3,g#4] ~@16]/2", // Esus4 E G#m E
})).s("gm_acoustic_guitar_steel").gain(0.22).pan(0.1)

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@9 A ~ A ~@11 A ~@9 A ~ A ~@11 A ~ A ~ A ~@11 A ~@10>".pickRestart({
  A: "~@7 x",
})).gain(0.3)

// drums · hihat
const hihat = s("hh").struct("<A@8 B@8 ~@8 A@8 B@8 ~@8 B@8 ~@8 A@8 ~@2>".pickRestart({
  A: "x!4", B: "x!8",
})).gain(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@19 [~@4 x!2 ~@2] ~@23 [~@4 x!2 ~@2] ~@15 [~@4 x!2 ~@2] ~@14>").gain(0.4)

// drums · china
const china = s("cr").struct("<~@72 x ~>").gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<[x!16]!73 [x!15 ~]>").gain(0.15)

// drums · bongos
const bongos = s("bongo:18").struct("<~@20 A@4 ~@20 A@4 ~@12 A@4 ~@8 A B>".pickRestart({
  A: "~@3 x ~@3 x", B: "~@3 x ~@4",
})).gain(0.91)

// drums · congas
const congas = s("conga:18").struct("<~@20 A B C D ~@20 A B C D ~@12 A B C D ~@8 A E>".pickRestart({
  A: "~@7 x!3 ~@2 x!2 ~ x", B: "x!2 ~@2 x!2 ~ x!3 ~@2 x!2 ~ x", C: "x!2 ~@2 x!2 ~ x ~ x ~@2 x!2 ~ x",
  D: "~ x ~@2 x!2 ~ x ~ x ~@2 x!2 ~@2", E: "x!2 ~@2 x!2 ~ x!3 ~@2 x!4",
})).gain(1.11)

// drums · congas
const congas_2 = s("conga:33").struct("<~@20 A@2 B C ~@20 A@2 B C ~@12 A@2 B C ~@8 A@2>".pickRestart({
  A: "~@2 x!2 ~@6 x!2 ~@4", B: "~@2 x!2 ~@4 x ~ x!2 ~@4", C: "x ~ x!2 ~@4 x!4 ~@4",
})).gain(1.11)

stack(
  bass, flute, rock_organ, electric_guitar_jazz, piano, overdriven_guitar, overdriven_guitar_soft,
  acoustic_guitar_steel, kick, snare, low_tom, hihat, mid_tom, china, tambourine, bongos, congas, congas_2
)