// Sloop John 'B' — The Beach Boys
// 126 bpm, 4/4, key G# major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 90 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(126/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 guitar muted · "MUTED GTR"
const bass = note(`<
  ~@5 A B C D E F@2 G H I J F@7 K D L F@2 G H I J F@2 M@5 N O P M Q R S T U M@7 N O P ~@4 T U M@2 V W@2 X Y Z D L AA@2
  AB AC AD ~ AA AE AA@6 AF AG
>`.pickRestart({
  A: "~@12 ab1@3 ~", B: "eb1@5 ~ bb1@3 ~ eb2@2 f2 ~ ab2 ~", C: "eb2@9 ~ c2 ~ bb1@2 ab1 ~",
  D: "eb2@3 ~ bb1 ~ c2 ~ eb2@3 ~ f2@3 ~", E: "eb2@2 ~@2 bb1 ~ c2 ~ db2@3 ~ bb1@2 ~@2",
  F: "ab1@3 ~ eb1 ~ f1 ~ ab1@3 ~ bb1@3 ~", G: "db2@3 ~ ab1 ~ bb1 ~ db2@3 ~ c2@3 ~",
  H: "bb1@3 ~ f1 ~ ab1 ~ bb1@2 ~@2 c2@3 ~", I: "ab1@3 ~ eb1 ~ f1 ~ ab1@3 ~ db2 ~ c2 ~",
  J: "bb1@5 ~ c2 ~ eb2@3 ~ c2@3 ~", K: "ab1@3 ~ eb1 ~ f1 ~ ab1@3 ~ c2@3 ~",
  L: "eb2@2 ~@2 bb1 ~ c2 ~ db2@3 ~ c2@2 bb1@2", M: "ab1@2 ab1 ~ eb1 ~ f1 ~ ab1@2 ab1 ~ bb1@2 bb1 ~",
  N: "ab1@2 ab1 ~ eb1 ~ f1 ~ ab1@2 ab1 ~ c2@2 c2 ~", O: "eb2@2 eb2 ~ bb1 ~ c2 ~ eb2@2 eb2 ~ f2@2 f2 ~",
  P: "eb2@2 eb2 ~ bb1 ~ c2 ~ db2@2 db2 ~ c2@2 bb1@2", Q: "ab1@2 ab1 ~ eb1 ~ f1 ~ ab1@2 ab1 ~ bb1@3 ~",
  R: "db2@2 db2 ~ ab1 ~ bb1 ~ db2@3 ~ c2@3 ~", S: "bb1@2 bb1 ~ f1 ~ ab1 ~ bb1@2 ~@2 c2@3 ~",
  T: "ab1@2 ab1 ~ eb1 ~ f1 ~ ab1@2 ab1 ~ db2 ~ c2 ~", U: "bb1@2 bb1 ~@3 c2 ~ eb2@3 ~ c2@3 ~", V: "eb2@5 ~ eb2@9 ~",
  W: "[bb1@4 ab1@3 ~ [bb1,bb2] ~ [f1,f2] ~ [ab1,ab2]@2 eb2@6 ~@2 eb2@8 ~@2]/2", // Bb F Ab
  X: "bb1@3 ~ ab1@3 ~ [bb1,bb2] ~ [f1,f2] ~ [ab1,ab2] ~ eb2@2", Y: "~@6 f2@3 ~ eb2 ~ f2 ~ ab2 ~",
  Z: "eb2@5 ~ c2@2 bb1@3 ~ ab1@3 ~", AA: "ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~",
  AB: "db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~", AC: "bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~",
  AD: "ab1 ~@7", AE: "ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ ab1 ~ c2 ~ eb2 ~",
  AF: "eb2 ~ eb2 ~ eb2 ~ eb2 ~ eb2 ~ eb2 ~ eb2 ~ eb2 ~", AG: "eb2 ~ eb2 ~ eb2 ~ eb2 ~ eb2 ~@7",
})).s("gm_electric_guitar_muted").gain(0.37)

// other · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note("<~@2 A@8 B@8 A@8 B@8 A@8 B@8 A@8 ~@4 C@8 D@8 C@8 E@4>".pickRestart({
  A: "[ab3 ~@62 eb4, c5@2 eb4@3 ab4@2 ab4@2 ab4@2 ~ c5@2 ~@5 db5@2 ab4@2 ab4@2 ab4@2 ~ c5@2 ~@2 c5@2 eb4@3 ab4@2 ab4@2 ab4@2 ~ c5@2 ~@4 eb4@2 g4@2 ~@3 g4@2 ab4@2 eb4@2 ~, ~ ab4@2 db5@2 ~@6 db5@2 ab4@2 ab4@2 ab4@2 ~ c5@2 ~@5 db5@2 ab4@2 ab4@2 ab4@2 db5@2 ~@6 db5@2 ab4@2 ab4@2 g4@2 ab4@2 eb4@2 eb4@2 ~ eb4@2 g4@2 ~@2, ~@8 c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@4 eb4@4 [ab3,c5]@4 eb4@4 ~@4 eb4@4 [ab3,c5]@4 eb4@4 ~@4 eb4@4 ab3@7 ~ c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@4 eb4@4 [eb3,bb4]@4 ~@8 bb3@4 [eb3,bb4]@4 ~@8 bb3@4]/8", // Ab Eb5
  B: "[~@63 ab4, ab3@7 ~ c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@2 ab4@4 ab4@4 db4@4 gb4@4 db4@4 db4@4 db4@4 ~@2 f4@8 c5@4 eb4@6 ab4@4 ab4@4 eb4@4 ab4@4 eb4@4 eb4@4 ab4@4 db5@4 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4, c5@2 eb4@3 ab4@2 ab4@2 ab4@2 ~ c5@2 eb4@2 f4@2 ab3@2 ~@2 ab3@2 ~@2 bb3@2 ~ db4@2 db4@2 ab4@2 db5@2 ~@7 g4@2 ~@2 c5@2 eb4@3 ~ eb4@2 [ab3,c5]@2 eb4@2 ~ ab4@2 ~, ~@2 ab4@4 db5@4 ~@12 db5@4 ~@14 f4@8 f4@4 ~@2 gb4@4 ~@2 bb3@4 ab3@7 ~ c5@4 eb4@4 [eb3,g4]@4 bb3@4 ~@4 bb3@4 ab3@7 ~ c5@4 ~@10 db5@4 ~@6]/8", // Ab Eb
  C: "[~@32 ab3 ~@30 ab4, ab3@7 ~ c5@4 eb4@4 [eb3,g4]@4 bb3@4 ~@2 eb4@4 eb4@4 ab4@4 db5@4 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4 ~@4 eb4@6 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@2 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4, c5@2 eb4@3 ab4@2 ab4@2 eb4@2 ab4@2 ~@3 c5@2 eb4@3 ~ eb4@2 [ab3,c5]@2 eb4@2 ~ ab4@2 ab4@2 ab4@2 ~ c5@2 eb4@2 [ab3,c5]@2 eb4@2 ~ ab4@2 ab4@2 ab4@2 ~ c5@2 eb4@2 [ab3,c5]@2 eb4@2 ~ ab4@2 ~, ~@2 ab4@4 db5@4 ~@14 g4@4 bb3@4 ab3@7 ~ c5@4 ~@10 db5@4 ~@6 c5@4 ~@2 db5@4 ~@12 db5@4 ~@12 db5@4 ~@12 db5@4 ~@6]/8", // Eb Ab
  D: "[~@63 db4, ab3@7 ~ c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@2 ab4@4 ab4@4 g4@4 ab4@4 eb4@4 eb4@4 ~@2 eb4@4 g4@4 ~@4 c5@4 eb4@6 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4 f4@4 ab3@4 ~@2 db4@4 db4@4 db4@4 ~@2 f4@8, c5@4 eb4@6 ab4@4 ab4@4 ab4@4 ~@2 c5@4 eb4@4 [eb3,bb4]@4 ~@8 bb3@4 [eb3,bb4]@4 ~@8 bb3@4 ab3@7 ~ c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@2 ab4@4 ab4@4 db4@4 gb4@4 ~@2 ab3@4 ~@4 bb3@4 ~@2 db4@4 ~@2, ~ ab4@2 db5@2 ~@6 db5@2 ~@5 eb4@2 g4@2 ~@3 g4@2 ab4@2 eb4@2 eb4@2 ab4@2 db5@2 ~@6 db5@2 ~@7 f4@4 f4@2 ~ gb4@2 ~ bb3@2]/8", // Ab Eb5 Ab
  E: "[~@14 g4 ~, ab3@7 ~ c5@4 eb4@4 [ab3,c5]@4 eb4@4 ~@2 ab4@4 ab4@4 g4@4 ab4@4 eb4@4 eb4@4 ~@2 eb4@4 ~@8, c5@2 eb4@3 ab4@2 ab4@2 ab4@2 ~ c5@2 eb4@2 [eb3,bb4]@2 ~@4 bb3@2 [eb3,bb4]@2 ~@6, ~ ab4@2 db5@2 ~@6 db5@2 ~@5 eb4@2 g4@2 ~@3 g4@2 ab4@2 ~@3]/4", // Ab Eb5
})).s("gm_acoustic_guitar_steel").gain(0.25).pan(0.3)

// chords · synth strings 1 · "SYN STR 1"
const synth_strings_1 = note(`<
  ~@18 A B A B C D E@2 F@2 G@2 B H F@2 A B A B C D E@2 F@2 G@2 B H F@2 A B A B C D E@2 F@2 G@2 B H F@2 A B A B C D E@2
  F@2 G@2 B H F@2 A B A B C D I@2
>`.pickRestart({
  A: "[c5,eb5]@3 [db5,f5]", B: "[c5,eb5]@15 ~", C: "[ab4,c5]@3 [bb4,db5]",
  D: "[c5,eb5]@5 ~ [c5,eb5]@4 db5@2 [ab4,c5]@4, ~@10 ab4 ~@5", // Cm Ab
  E: "[[g4,bb4]@21 ~ [g4,bb4]@4 [ab4,db5]@2 [bb4,db5]@4]/2", F: "[ab4,c5]/2", G: "[db5,f5]/2", H: "bb4@3 g4, eb5",
  I: "[[g4,bb4]@21 ~ [g4,bb4]@4 ~@6]/2", // Gm
})).s("gm_synth_strings_1").gain(0.24)

// other · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  ~@10 A B C D E F E@2 G A G E G E H F E G D I E F G E G A G E G E H F E G D I E F G E G A G E G E H F ~@4 E F G E G A G
  E G E H F E G D I E F G E G A G E G E H J
>`.pickRestart({
  A: "ab4@5 ~ eb4@5 ~ eb4@4", B: "ab4@3 eb4@2 ~ eb4@2", C: "db4@5 ~ ab3@5 ~ ab3@3 ~", D: "db4@6 ab3@5 ~ ab3@4",
  E: "ab4@6 eb4@5 ~ eb4@3 ~", F: "eb4@6 bb3@5 ~ bb3@3 ~", G: "ab4@6 eb4@5 ~ eb4@4", H: "eb4@6 bb3@6 bb3@3 ~",
  I: "db4@6 ab3@5 ~ ab3@3 ~", J: "eb4@3 ~@5",
})).s("gm_acoustic_guitar_nylon").gain(0.33).pan(0.6)

// other · music box
const music_box = note(`<
  A B C ~@7 D@2 E@2 D F G H@7 I@2 D@2 J E D F D@2 H@6 I@2 D@2 J E D F D@2 H@6 I@2 ~@4 D F D@2 ~@8 D@2 J E D F D@2 H@6 I
  K
>`.pickRestart({
  A: "c6", B: "~@6 db6 ~ c6 ~ ab5 ~ db5@3 ~", C: "c5@3 ~@5", D: "ab7 ~@3 ab6 ~ eb7 ~@3 ab6 ~ eb7 ~@3",
  E: "db7 ~@3 ab6 ~ db7 ~@3 ab6 ~ db7 ~@3", F: "eb7 ~@3 eb6 ~ bb6 ~@3 eb6 ~ eb7 ~@3",
  G: "ab6 ~@5 ab7 ~@3 ab6 ~ eb7 ~@3", H: "ab7 ~@3 ab6 ~ ab7 ~@3 ab6 ~ eb7 ~@3",
  I: "eb7 ~@3 eb6 ~ bb6 ~@3 eb6 ~ bb6 ~@3", J: "db7 ~@5 ab6 ~@3 ab6 ~ db7 ~@3", K: "eb7 ~@3 eb6 ~@11",
})).s("gm_music_box").gain(0.25).pan(0.3)

// other · flute
const flute = note("<A@2 B ~@56 C D E F ~@27>".pickRestart({
  A: "[c6@21 ~ db6@2 c6@2 ab5 ~ db5@3 ~]/2", B: "c5@9 ~@7", C: "~@2 ab5 ~ ab5 ~ ab5 ~ ab5 ~ bb5@2 c6@3 ~",
  D: "db6@13 ~@3", E: "ab5 ~ ab5@2 ~@2 bb5@2 c6@3 ~ db6@3 ~", F: "c6@3 ~",
})).s("gm_flute").gain(0.42).pan(0.7)

// chords · electric guitar muted · "+FUNK GTR"
const electric_guitar_muted = note(`<
  ~@18 A B C@2 B D E F D G H I J K J L A B C@2 B D E M D G H I J K J L A B C@2 B D E F ~@4 J K J L A B C@2 B D E F D G H
  I J K J L A B C@2 B D E N
>`.pickRestart({
  A: "~ ab4 eb4 [db5,f5] ~ ab4 eb4 ab4, [c5,eb5]@3 ~ [c5,eb5]@3 ~", // Db Cm
  B: "~ ab4 eb4 [db5,f5] ~ ab4 eb4 ab4, [c5,eb5]@6 ~@2 [c5,eb5]@7 ~", // Db Cm
  C: "~@2 ab4@2 eb4 ~ [db5,f5]@2 ~@2 ab4@2 eb4@2 ab4@2, [c5,eb5]@6 ~@2 [c5,eb5]@7 ~", // Db Cm
  D: "~@2 ab4@2 eb4@2 [db5,f5]@2 ~@2 ab4@2 eb4@2 ab4 ~, [c5,eb5]@6 ~@2 [c5,eb5]@7 ~", // Db Cm
  E: "~ g4 eb4 [db5,f5] ~ g4 eb4 g4, [bb4,eb5]@6 ~@2 [bb4,eb5]@7 ~", // Db Eb5
  F: "~@2 g4 ~ eb4@2 [bb4,f5]@2 ~@2 g4@2 eb4@2 g4 ~, [bb4,eb5]@6 ~@2 [bb4,eb5]@7 ~", // Bb5 Eb5
  G: "~@2 ab4@2 eb4@2 [db5,f5]@2 ~@2 ab4@2 eb4@2 ab4 ~, [c5,eb5]@3 ~ [c5,eb5]@4", // Db Cm
  H: "~@2 ab4@2 db4@2 [eb5,gb5]@2 ~@2 ab4@2 db4@2 ab4 ~, [db5,f5]@5 ~@3 [db5,f5]@7 ~", // Ebm Db
  I: "~@2 ab4@2 db4 ~ [eb5,gb5]@2 ~@2 ab4@2 db4@2 ab4 ~, [db5,f5]@6 ~@2 [db5,f5]@7 ~", // Ebm Db
  J: "~@2 ab4@2 eb4 ~ [db5,f5]@2 ~@2 ab4@2 eb4@2 ab4 ~, [c5,eb5]@6 ~@2 [c5,eb5]@7 ~", // Db Cm
  K: "~@2 g4@2 eb4 ~ [bb4,f5]@2 ~@2 g4@2 eb4@2 g4 ~, [bb4,eb5]@6 ~@2 [bb4,eb5]@7 ~", // Bb5 Eb5
  L: "~@2 ab4@2 eb4 ~ [db5,f5]@2 ~@2 ab4@2 eb4@2 ab4 ~, [c5,eb5]@3 ~ [c5,eb5]@3 ~", // Db Cm
  M: "~@2 g4@2 eb4@2 [bb4,f5]@2 ~@2 g4@2 eb4@2 g4 ~, [bb4,eb5]@6 ~@2 [bb4,eb5]@7 ~", // Bb5 Eb5
  N: "~@2 g4 ~ eb4@2 [bb4,f5]@2 [bb4,eb5]@7 ~, [bb4,eb5]@3 ~@5", // Bb5 Eb5
})).s("gm_electric_guitar_muted").gain(0.2).pan(0.8)

// other · harpsichord · "HARPSICHRD"
const harpsichord = note(`<
  ~@2 A B C B C@3 B C B D E F C B@2 G B C B C@3 B C B D E F C B@2 G B C B C@3 B C B D E F C B@2 G B C B C@3 B ~@4 F C
  B@2 ~@16 G B C B C@3 H
>`.pickRestart({
  A: "eb5@5 ~ eb5@6 eb5@4", B: "eb5@2 eb5 eb5@2 eb5 eb5@2", C: "eb5@3 eb5@2 eb5 eb5@2", D: "db5@2 db5 db5@2 db5 db5@2",
  E: "db5@3 db5@2 db5 db5@2", F: "eb5@3 eb5@2 eb5@2 eb5", G: "~@3 eb5@3 eb5@2", H: "eb5@2 eb5 eb5@2 ~@3",
})).s("gm_harpsichord").gain(0.27)

// other · woodblock
const woodblock = note("<[c8 ~ c7 ~ c8 ~ c7 ~ c8 ~ c7 ~ c8 ~ c7 ~]!34 ~@56>").s("gm_woodblock").gain(0.18)

// drums · kick
const kick = s("bd").struct("<~@18 A@16 B@24 ~@4 B@4 ~@8 C@4 A ~ C@2 D@7 E>".pickRestart({
  A: "x", B: "x ~@2 x ~ x ~@2", C: "x!4", D: "x!8", E: "x!5 ~@3",
})).gain(0.33)

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

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

// drums · open hat
const open_hat = s("oh").struct("<~@50 [~@7 x]!8 ~@4 [~@7 x]!4 ~@24>").gain(0.24)

// drums · ride
const ride = s("rd").struct("<~@34 x ~@55>").gain(0.24)

// drums · tambourine
const tambourine = s("tb").struct("<~@50 A@8 ~@4 A@4 ~@14 B C@2 D C D C D C E>".pickRestart({
  A: "x!4", B: "x ~ x!6", C: "x!8", D: "x!5 ~ x ~", E: "x!5 ~@3",
})).gain(0.33)

// drums · tambourine · soft notes
const tambourine_soft = s("tb").struct("<~@80 A ~@2 B ~ B ~ B ~@2>".pickRestart({
  A: "~ x ~@6", B: "~@5 x ~ x",
})).gain(0.19)

// drums · shaker
const shaker = s("sh").struct("<~@51 A ~ A ~@2 A ~@5 A ~ A ~@25>".pickRestart({
  A: "~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2",
})).gain(0.19)

stack(
  bass, acoustic_guitar_steel, synth_strings_1, acoustic_guitar_nylon, music_box, flute, electric_guitar_muted,
  harpsichord, woodblock, kick, snare, hihat, open_hat, ride, tambourine, tambourine_soft, shaker
)