// Come And Get Your Love — Redbone
// 108 bpm, 4/4, key D major. Source: mcgill + midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 99 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(108/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once.
// A part's distinct bars are riffs (A, B, C...) played in order, A@4 for four bars: edit a riff to change every repeat.

// chords · piano · "PianoBrite"
const piano = note(`<
  ~@5 A B A C D E F B A G A H A H A I J K J L J L J L M N B A B A B A B A B N B A B A B J L J L J L J L M A B A B F B A
  B J L J L J L J L M A B O B A B A ~@4 N B A B P Q A B R B A S A B A B
>`.pickRestart({
  A: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~", // G A7
  B: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2", // Dmaj7 Bm
  C: "[c#5,d5,e5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2, ~@12 e5 ~@3", // Dmaj7 Bm
  D: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, c#5 ~@3 c#5 ~@11", // G A7
  E: "[c#5,d5,e5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2", // Dmaj7 Bm
  F: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, ~@4 c#5 ~@11", // G A7
  G: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2, ~@8 e5 ~@7", // Dmaj7 Bm
  H: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2, ~@12 e5 ~@3", // Dmaj7 Bm
  I: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5] ~@3", // Dmaj7 Bm
  J: "[g4,b4,d5]@7 ~ [g4,b4,c#5]@7 ~", K: "[f#4,a4,c#5]@3 ~ [f#4,b4,d5]@3 ~, ~@8 c#5 ~@7",
  L: "[f#4,a4,c#5]@3 ~ [f#4,b4,d5]@3 ~", M: "[g4,b4,d5]@7 ~ [g4,b4,c#5]@4 ~@4",
  N: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, c#5 ~@15", // G A7
  O: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, ~@8 c5 ~@7", // G A7
  P: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, a4 ~@15", // G A7
  Q: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2, ~@8 e5 ~@3 e5 ~@3", // Dmaj7 Bm
  R: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, ~@4 c#5 ~@3 b4 ~@7", // G A7
  S: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@3 ~", // Dmaj7 Bm
})).s("gm_piano").gain(0.54).pan(0.4)

// bass · electric bass finger · "FingrBass"
const bass = note(`<
  ~ A B A B C D C D C D C D C D C D C D C D C E F G H I H G J K D C D C D C D C D C D C D C D C L H G H G H M J K D C D
  C D C D C L H N H G F G J K D C D C D C O B O B C L H G H G H G H G H G H G H P
>`.pickRestart({
  A: "d2@2 b1 a1 d2@2 b1 a1", B: "~@2 d2@2 b1@2 a1@2 d2 ~ d2@2 b1@2 a1@2", C: "e1 f#1 e1 f#1 a1 f#1 a1 c#2",
  D: "d2 ~ d2 c#2 b1 ~ b1 f#1", E: "d2@2 ~@2 d2@2 c#2@2 b1 ~@3 b1@2 f#1@2",
  F: "e1!2 ~ e1 f#1!2 ~ f#1 g1!2 ~ g1 a1!2 ~ a1", G: "d2 d2@3 ~@2 f#1!2 b1 b1@3 ~@2 b1 f#1",
  H: "e1 e1@2 e1 f#1!2 ~ f#1 g1!2 ~ g1 a1!2 ~ a1", I: "d2 d2@3 ~@2 f#1 [f#1,g1] b1 b1@3 ~@2 b1 f#1",
  J: "e1 e1@2 e1 f#1 f#1@2 f#1 g1!2 ~ g1 a1 a1@2 ~", K: "e1 ~ e1 f#1 a1 ~ a1 c#2",
  L: "d2@2 ~@2 d2@2 c#2@2 b1@2 ~@2 b1@2 f#1 ~", M: "d2 d2@2 ~@3 f#1!2 b1 b1@2 ~@3 b1 f#1",
  N: "d2 d2@2 ~@3 f#1!2 [b1,c#2] b1@2 ~@3 b1 f#1", O: "d2@2 ~@2 b1@2 a1@2 d2@3 ~ b1@2 a1@2",
  P: "d2 d2@3 ~@2 f#1!2 b1 b1@2 ~@3 b1 ~",
})).s("gm_electric_bass_finger").gain(0.72)

// other · sitar
const sitar = note("<~@3 A B ~@17 C D E D C D F ~@18 C D E D C D G ~@10 C D E D H D G ~@8 I B I J ~@16>".pickRestart({
  A: "d4@3 ~ b3 ~ a3 ~ d4@3 ~ b3 ~ a3 ~", B: "~@2 d4 ~ b3 ~ a3 ~ d4 ~ d4 ~ b3 ~ a3 ~",
  C: "a3 ~ b3 ~ d4@2 ~@2 a3 b3 c#4 d4@2 ~ e4 ~", D: "f#4@3 ~ e4@3 ~", E: "d4@2 ~@2 d4@2 ~@2 a3 b3 c#4 d4@2 ~ e4 ~",
  F: "a3 ~ b3 ~ d4 e4 ~ d4@4 ~@5", G: "a3 ~ b3 ~ d4 e4 ~ d4@6 ~@3", H: "a3 ~ b3 ~ d4 ~@3 a3 b3 c#4 d4@2 ~ e4 ~",
  I: "d4@2 ~@2 b3 ~ a3 ~ d4@2 ~@2 b3 ~ a3 ~", J: "~@2 d4 ~ b3 ~ a3 f#4 ~ f#4!2 ~ e4 ~ d4 ~",
})).s("gm_sitar").gain(0.72).pan(0.3)

// chords · overdriven guitar · "GtrOvrdrv"
const overdriven_guitar = note("<~@29 A ~@24 A ~ B ~ C ~ C ~ C ~@8 A ~ D ~ D ~@23>".pickRestart({
  A: "a4@2 d5 a4 d5@2 a4@2 d5 a4 d5@2 a4@2 ~@2", B: "~@8 [f#4,a4] ~ [e4,f#4,b4] ~@5", C: "~@8 [f#4,a4] ~ [f#4,b4] ~@5",
  D: "~@12 [f#4,a4] ~ [f#4,b4] ~", // F#m B5
})).s("gm_overdriven_guitar").gain(0.64).pan(0.4)

// other · string ensemble 1 · "Strings1"
const string_ensemble_1 = note(`<
  ~@38 A ~ A ~ B C ~ D E F G F E F H F I J K J K L K J M N O N P N O N Q ~@28
>`.pickRestart({
  A: "~@2 f#6 ~@5", B: "~@4 f#6 ~@11", C: "~@2 f#6@4 e6 ~@9", D: "~@2 f#6 ~ f#6 ~ d6 ~ e6 ~ f#6 ~@5",
  E: "d6@8 c#6@4 b5@2 a5 ~", F: "a5 ~ b5 ~ d6@3 ~ a5 b5 c6 d6@2 ~ e6 ~", G: "f#6@4 e6@3 ~", H: "f#6@7 ~ e6@6 ~@2",
  I: "d6 ~ e6 ~ f#6 ~ d6 ~ e6 ~ f#6 ~ d6 ~ b5 ~", J: "d6@4 b5 ~ a5 ~ d6@4 b5 ~ a5 ~",
  K: "~@2 f#6 ~@3 e6 ~ d6@4 b5@2 a5 ~", L: "d6@4 b5@2 a5 ~ d6@4 b5 a5@2 ~", M: "~@2 [e6,f#6] ~@3 e6 ~ d6@4 b5@2 a5 ~",
  N: "d6@4 c#6@3 ~", O: "c#6@8 b5@5 ~@3", P: "c#6@7 ~ d6@6 ~@2", Q: "c#6@2 d6 ~",
})).s("gm_string_ensemble_1").gain(0.64).pan(0.7)

// chords · electric guitar clean · "GtrClean"
const electric_guitar_clean = note(`<
  ~@5 A B A C A B A B A B A B A B A D E F E F E G E F E A B A B A B A B A B A B A B A B E F E F E F E F E A B A B A B A
  B E F E F E F E F E A B A B A B A ~@4 H B A B A B A B A B A B A B A B
>`.pickRestart({
  A: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,a3,c#4] ~ [g3,a3,c#4] ~", // G A7
  B: "[f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,b3,d4] ~ [f#3,b3,d4] ~", // F#m Bm
  C: "[e3,f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,b3,d4] ~ [f#3,b3,d4] ~", // F#m7 F#m Bm
  D: "[f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,b3,c#4,d4] ~ [f#3,b3,d4] ~", E: "[g3,b3,d4]@7 ~ [g3,b3,c#4]@6 ~@2",
  F: "[f#3,a3,c#4]@3 ~ [f#3,b3,d4]@3 ~", G: "[f#3,a3,c#4]@7 ~ [f#3,b3,d4]@6 ~@2, ~@8 a3 ~@7",
  H: "[g3,b3,c#4,d4] ~ [g3,b3,d4] ~ [g3,a3,c#4] ~ [g3,a3,c#4] ~", // G A7
})).s("gm_electric_guitar_clean").gain(0.64).pan(0.7)

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

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

// drums · hihat
const hihat = s("hh").struct(`<
  A B@4 C@15 A D B D B D B D B D C@16 D B D E D B D B F G@8 D B D B D B D B D C@11 D B D E D B D B D B D E D B D B
>`.pickRestart({
  A: "x!2 ~@2", B: "x!8", C: "x ~ x!3 ~ x!2", D: "~ x!7", E: "x!4 ~@4", F: "x!2 ~ x!3 ~@2", G: "x!4",
})).gain(0.66)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@21 A ~@3 A ~@2 A B ~@16 A ~@3 A ~@2 A C ~@8 A ~@3 A ~@2 A B ~@11 A ~@3 A ~@2 A@2 ~@3 A ~@2 A
>`.pickRestart({
  A: "~@5 x ~@2", B: "~@11 x ~@3 x", C: "~ x ~ x",
})).gain(0.66)

// drums · crash
const crash = s("cr").struct(`<
  ~@5 A ~@15 A ~ A ~ A ~ A ~ A ~@16 A ~ A ~ A ~ A ~@10 A ~ A ~ A ~ A ~ A ~@11 A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~
>`.pickRestart({
  A: "x",
})).gain(0.66)

// drums · woodblocks
const woodblocks = s("woodblock:4").struct("<~@5 A B@15 C@9 B@16 C@8 ~ B@8 C@9 B@11 C@16>".pickRestart({
  A: "~@2 x!3 ~ x!2", B: "x ~ x!3 ~ x!2", C: "x!4",
})).gain(0.95)

stack(
  piano, bass, sitar, overdriven_guitar, string_ensemble_1, electric_guitar_clean, kick, snare, hihat, open_hat, crash,
  woodblocks
)