// 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: 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 M L N L O P B A B A B A B A B P B A B A B J L J Q J Q J L O A B A B F B A
  B N Q J R J R S L T A U V B A B A ~@4 P B A B W X A B Y B A Z 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]@3 ~ [g4,b4,c#5]@3 ~", N: "[g4,b4,d5]@7 ~ [g4,b4,c#5]@6 ~@2",
  O: "[g4,b4,d5]@7 ~ [g4,b4,c#5]@4 ~@4", P: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, c#5 ~@15",
  Q: "[f#4,a4,c#5]@7 ~ [f#4,b4,d5]@6 ~@2", R: "[f#4,a4,c#5]@7 ~ [f#4,b4,d5]@7 ~", S: "[g4,b4,d5]@6 ~@2 [g4,b4,c#5]@7 ~",
  T: "[g4,b4,d5]@6 ~@2 [g4,b4,c#5]@5 ~@3", // G C#m7b5
  U: "[c#5,d5,f#5] ~ [c#5,d5,f#5] ~ [c#5,d5,f#5]@3 ~ [b4,d5,f#5]@2 ~@2 [b4,d5,f#5]@2 ~@2", // Dmaj7 Bm
  V: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, ~@8 c5 ~@7", // G A7
  W: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, a4 ~@15", // G A7
  X: "[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
  Y: "[g4,b4,d5] ~ [g4,b4,d5] ~ [g4,a4,c#5] ~ [g4,a4,c#5] ~, ~@4 c#5 ~@3 b4 ~@7", // G A7
  Z: "[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 C D E D E D E D E D E D E D E D E D F G H I J I H K L M D E D E D E D E D E D E D E D N O H G P O P Q L E D E
  D E D E D N O R S T O U V L E D E D E D W B W C D N X H Y H Y H I H I H I H Y Z
>`.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: "~@2 d2@2 b1@2 a1@2 d2 ~ d2@2 b1@2 a1 ~",
  D: "e1 f#1 e1 f#1 a1 f#1 a1 c#2", E: "d2 ~ d2 c#2 b1 ~ b1 f#1", F: "d2@2 ~@2 d2@2 c#2@2 b1 ~@3 b1@2 f#1@2",
  G: "e1!2 ~ e1 f#1 f#1@2 f#1 g1!2 ~ g1 a1!2 ~ a1", H: "d2 d2@3 ~@2 f#1!2 b1 b1@3 ~@2 b1 f#1",
  I: "e1 e1@2 e1 f#1!2 ~ f#1 g1!2 ~ g1 a1!2 ~ a1", J: "d2 d2@3 ~@2 f#1 [f#1,g1] b1 b1@3 ~@2 b1 f#1",
  K: "e1 e1@2 e1 f#1 f#1@2 f#1 g1!2 ~ g1 a1 a1@2 ~", L: "e1 ~ e1 f#1 a1 ~ a1 c#2",
  M: "d2@2 ~@2 d2@2 c#2@2 b1@3 ~ b1@2 f#1@2", N: "d2@2 ~@2 d2@2 c#2@2 b1@2 ~@2 b1@2 f#1 ~",
  O: "e1!2 ~ e1 f#1!2 ~ f#1 g1!2 ~ g1 a1!2 ~ a1", P: "d2 d2@2 ~@3 f#1!2 b1 b1@2 ~@3 b1 f#1",
  Q: "e1 e1@2 e1 f#1!2 ~ f#1 g1!2 ~ g1 a1!2 ~@2", R: "d2 d2@2 ~@3 f#1!2 [b1,c#2] b1@2 ~@3 b1 f#1",
  S: "e1 e1@2 e1 f#1 f#1@2 f#1 g1!2 ~ g1 a1 a1@2 a1", T: "d2 d2@2 ~@3 f#1!2 b1 b1@3 ~@2 b1 f#1",
  U: "d2 d2@4 ~ f#1!2 b1 b1@2 ~@3 b1 f#1", V: "e1 e1@2 e1 f#1 f#1@2 f#1 g1 g1@2 g1 a1!2 ~@2",
  W: "d2@2 ~@2 b1@2 a1@2 d2@3 ~ b1@2 a1@2", X: "e1!2 ~ e1 f#1 f#1@2 f#1 g1 g1@2 g1 a1!2 ~ a1",
  Y: "e1 e1@2 e1 f#1!2 ~ f#1 g1 g1@2 g1 a1!2 ~ a1", Z: "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 F C F G ~@18 C D E F C F H ~@10 C F E F I F J ~@8 K B K L ~@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@6 ~@2 e4@7 ~", E: "d4@2 ~@2 d4@2 ~@2 a3 b3 c#4 d4@2 ~ e4 ~",
  F: "f#4@3 ~ e4@3 ~", G: "a3 ~ b3 ~ d4 e4 ~ d4@4 ~@5", H: "a3 ~ b3 ~ d4 e4 ~ d4@6 ~@3",
  I: "a3 ~ b3 ~ d4 ~@3 a3 b3 c#4 d4@2 ~ e4 ~", J: "a3 ~ b3 ~ d4 e4 ~ d4@7 ~@2",
  K: "d4@2 ~@2 b3 ~ a3 ~ d4@2 ~@2 b3 ~ a3 ~", L: "~@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 H I H J K L M N O N P N Q R S T U V U T W X ~@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@4 a5 b5 c6 d6@2 ~ e6 ~", G: "f#6@4 e6@3 ~",
  H: "a5 ~ b5 ~ d6@3 ~ a5 b5 c6 d6@2 ~ e6 ~", I: "d6@8 c#6@4 b5 ~ a5 ~", J: "f#6@7 ~ e6@6 ~@2",
  K: "a5 ~ b5 ~ d6@3 ~ a5 b5 d6@2 ~@2 e6 ~, ~@10 c6 ~@5", L: "d6 ~ e6 ~ f#6 ~ d6 ~ e6 ~ f#6 ~ d6 ~ b5 ~",
  M: "d6@4 b5 ~ a5 ~ d6@4 b5 ~ a5 ~", N: "~@2 f#6 ~@3 e6 ~ d6@4 b5@2 a5 ~", O: "d6@4 b5 ~ a5 ~ d6@4 b5@2 a5 ~",
  P: "d6@4 b5@2 a5 ~ d6@4 b5 a5@2 ~", Q: "d6@4 b5@2 a5 ~ d6@4 b5@2 a5 ~", R: "~@2 [e6,f#6] ~@3 e6 ~ d6@4 b5@2 a5 ~",
  S: "d6@8 c#6@7 ~", T: "c#6@8 b5@5 ~@3", U: "d6@4 c#6@3 ~", V: "c#6@7 ~ d6@6 ~@2", W: "d6@8 c#6@5 ~@3",
  X: "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 D A D A D A D A D A E F G H I F J H I K A D A D A D A D A D A D A D A D L I L I F I F I L A D A D A D A
  D K I F I F I F I K A D A D A D A ~@4 M D A D A D A D A D A D A D A D
>`.pickRestart({
  A: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,a3,c#4] ~ [g3,a3,c#4] ~", // G A7
  B: "[f#3,a3,c#4]@2 ~@2 [f#3,a3,c#4]@3 ~ [f#3,b3,d4]@2 ~@2 [f#3,b3,d4]@2 ~@2", // 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,d4] ~ [f#3,b3,d4] ~", // F#m Bm
  E: "[f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,b3,c#4,d4] ~ [f#3,b3,d4] ~", F: "[g3,b3,d4]@7 ~ [g3,b3,c#4]@6 ~@2",
  G: "[f#3,a3,c#4]@7 ~ [f#3,b3,d4]@6 ~@2", H: "[g3,b3,d4]@7 ~ [g3,b3,c#4]@7 ~", I: "[f#3,a3,c#4]@3 ~ [f#3,b3,d4]@3 ~",
  J: "[f#3,a3,c#4]@7 ~ [f#3,b3,d4]@6 ~@2, ~@8 a3 ~@7", K: "[g3,b3,d4]@3 ~ [g3,b3,c#4]@3 ~",
  L: "[g3,b3,d4]@6 ~@2 [g3,b3,c#4]@7 ~", M: "[g3,b3,c#4,d4] ~ [g3,b3,d4] ~ [g3,a3,c#4] ~ [g3,a3,c#4] ~",
})).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
)