// Boat Drinks — Jimmy Buffett
// 127 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 81 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(127/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.

// chords · piano
const piano = note(`<
  ~@9 A B A B A B A B A B A B A B C B A B A@2 B A B A B A B A B C D E F G D E H I A B A B A B A B A B A B A B A B A B A
  B A B A B A B ~ J@4 K L@2
>`.pickRestart({
  A: "[d3,f#3] ~@2 a3, a3@5 ~@3, ~@4 f#3@5 ~ f#3@6, ~@3 d3@5", B: "[d3,g3,b3]@2 a3!2, ~ [e3,c#4]",
  C: "[f#3,a3]@3 ~@3 f#3@4 ~@2 f#3@4, d3, ~@4 a3@5 ~ a3@6", D: "[f3,a3,c4]@15 ~", E: "[e3,g3,c4]", F: "[g3,b3,d4]@15 ~",
  G: "[g3,c4,e4]", H: "[e3,g#3,b3]@7 ~", I: "[e3,a3,c#4]",
  J: "[[g3,b3,d4]@5 ~ [a3,c#4,e4]@7 ~ [g3,b3,d4]@7 ~ [a3,c#4,e4]@8 [g3,b3,d4]@7 ~ [a3,c#4,e4]@7 ~ [g3,b3,d4]@7 ~ [a3,c#4,e4]@9 ~]/4", // G A G A G A G A
  K: "[g3,b3,d4]@5 ~ [a3,c#4,e4]@8 ~@2", L: "[[a3,d4,f#4]@2 [a3,c#4,e4]@2 [f#3,a3,d4]@11 ~]/2",
})).s("gm_piano").gain(0.56).pan(0.2)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A B A B A B A B A B A B A B A B A B A B A B C B A B A@2 B A B A B A B A B D E F G F H F I J A B A B A B A B A B A B
  A B A B A B A B A B A B A B ~ K@4 L M@2
>`.pickRestart({
  A: "d2@5 ~ d2 ~ d2@7 ~", B: "g2@5 ~ g2 ~ a2@3 ~ a1@3 ~", C: "d2@5 ~ d2 ~ e2@4 f#2@4", D: "d2@5 ~ d2 ~ d2@4 d2@4",
  E: "f2", F: "c2", G: "g1", H: "f2@15 ~", I: "e2 ~ e2@2 e2 ~ e2@2 f#2 ~ f#2@2 g#2 ~ g#2 ~",
  J: "a2 ~ a2@2 g2 ~ g2@2 f#2 ~ f#2@2 e2 ~ e2@2", K: "[g2@3 a2@4 g2@4 a2@4 g2@4 a2@4 g2@4 a2@5]/4",
  L: "g2@3 a2@2 b2 c#3@2", M: "[d3@2 a2@2 d2@11 ~]/2",
})).s("gm_electric_bass_finger").gain(0.72)

// chords · distortion guitar · "Dist. Guitar"
const distortion_guitar = note(`<
  ~@3 A@2 B@2 C@2 ~@6 D E ~@2 F G H G ~@7 D E ~@2 F G H G ~ I J K J I L M N ~@10 F G H G ~@13 O@4 P Q@2
>`.pickRestart({
  A: "[d5@6 a4@25 ~]/2", B: "[d5@3 a4@13]/2", C: "[d5@3 a4@12 ~]/2",
  D: "[f#5,a5]@3 ~ [f#5,a5]@3 ~ [f#5,a5]@2 [e5,g5]@2 [d5,f#5]@4", E: "[g4,e5] [a4,f#5] [b4,g5] [c#5,a5]@5",
  F: "~@4 [d5,f#5]@2 [d5,f#5]@4 [b4,e5]@2 [a4,d5]@3 ~", G: "[b4,d5]", H: "~@2 [d5,f#5] [d5,f#5]@2 [b4,e5] [a4,d5]@2",
  I: "f3", J: "c3", K: "g2", L: "c3@15 ~", M: "e3@8 f#3@4 g#3@3 ~", N: "a3@4 g3@4 f#3@3 ~ e3@4",
  O: "[g3@6 a3@8 g3@8 a3@8 g3@8 a3@8 g3@8 a3@9 ~]/4", P: "g3@6 a3@4 b3@2 c#4@3 ~", Q: "[d3@15 ~]/2",
})).s("gm_distortion_guitar").gain(0.56)

// chords · electric guitar clean · "Clean Guitar"
const electric_guitar_clean = note(`<
  ~@9 A B A B A B A B A B A B A B C B A B A@2 B A B A B A B A B D ~@6 E F A B A B A B A B A B A B A B A B A B A B A B A
  B A B ~ G@4 H I@2
>`.pickRestart({
  A: "[f#3,a3,d4]", B: "[g3,b3,d4]@7 ~ [a3,c#4,e4]@8", C: "d3@2 e3 f#3, [a3,d4,f#4]", D: "[d3,a3,d4,f#4]",
  E: "g#3@2 f#3 g#3, [e3,b3]", F: "a3@4 g3@3 ~ f#3@4 e3@3 ~, c#4, e3@11 ~@5",
  G: "[[g3,b3,d4]@5 ~ [a3,c#4,e4]@6 ~@2 [g3,b3,d4]@6 ~@2 [a3,c#4,e4]@8 [g3,b3,d4]@7 ~ [a3,c#4,e4]@7 ~ [g3,b3,d4]@7 ~ [a3,c#4,e4]@9 ~]/4", // G A G A G A G A
  H: "[g3,b3,d4]@5 ~ [a3,c#4,e4]@8 ~@2", I: "[[a3,d4,f#4]@2 [a3,c#4,e4]@2 [f#3,a3,d4]@11 ~]/2",
})).s("gm_electric_guitar_clean").gain(0.56).pan(0.7)

// chords · epiano2 · "E. Piano"
const epiano2 = note("<~@5 A B C B ~@30 D E F G D E H I ~@27 J@4 K L@2>".pickRestart({
  A: "~@4 [f#4,a4]@2 [d4,f#4]@3 ~ [d4,f#4] ~ [f#4,a4]@4", // F#m D F#m
  B: "g4@2 f#4@2 g4@2 a4@3 ~ [a4,c#5] ~ [g4,b4]@2 ~@2, b4 ~ a4 ~ b4 ~ c#5 ~@9", // A G
  C: "[g4,b4] ~ [f#4,a4]@2 ~@2 [d4,f#4]@3 ~ [d4,f#4] ~ [f#4,a4]@4", D: "[f3,a3,c4]@15 ~", E: "[e3,g3,c4]",
  F: "[g3,b3,d4]@15 ~", G: "[g3,c4,e4]", H: "[e3,g#3,b3]@7 ~", I: "[e3,a3,c#4]",
  J: "[[g3,b3,d4]@5 ~ [a3,c#4,e4]@7 ~ [g3,b3,d4]@7 ~ [a3,c#4,e4]@8 [g3,b3,d4]@7 ~ [a3,c#4,e4]@7 ~ [g3,b3,d4]@7 ~ [a3,c#4,e4]@9 ~]/4", // G A G A G A G A
  K: "[g3,b3,d4]@5 ~ [a3,c#4,e4]@8 ~@2", L: "[[a3,d4,f#4]@2 [a3,c#4,e4]@2 [f#3,a3,d4]@11 ~]/2",
})).s("gm_epiano2").gain(0.56).pan(0.8)

// chords · steel drums
const steel_drums = note("<~ A B A B A B A B ~@72>".pickRestart({
  A: "~@2 [d4,f#4] ~@3 [d4,f#4] ~@3 [d4,f#4] ~@3 [d4,f#4] ~", B: "[g4,b4] ~ [g4,b4] ~@3 [g4,b4] ~@3 [a4,c#5] ~@5",
})).s("gm_steel_drums").gain(0.64).pan(0.4)

// chords · percussive organ · "Organ"
const percussive_organ = note("<~@47 A B A B A C D E ~@26>".pickRestart({
  A: "[g5,b5] ~ [f#5,a5]@14", B: "[g5,b5]@2 [g5,b5]@3 [g5,b5]@3 [a5,c#6]@2 [g5,b5]@3 [g5,b5]@3",
  C: "[g5,e6]@2 [g5,e6]@3 [g5,e6]@3 [g5,e6]@2 [f#5,d6]@3 [g5,e6]@3", // C D C
  D: "[f#5,a5]@8 [e6,f6] [a5,b5,c6,d6] [e5,f5,g5] [a4,c5,d5] g4 [c5,d5,e5] [f5,g5,a5] [b5,c6], ~@11 b4@2 ~@3", E: "d6",
})).s("gm_percussive_organ").gain(0.49).pan(0.6)

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

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

// drums · low tom
const low_tom = s("lt").struct("<[~@7 x] ~@44 [x!8] [x!4 ~@4] ~@34>").gain(0.42)

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

// drums · mid tom
const mid_tom = s("mt").struct("<[~@10 x ~ x!2 ~@2] ~@80>").gain(0.48)

// drums · open hat
const open_hat = s("oh").struct("<~@39 [~@3 x] ~@2 [~@3 x] ~@38>").gain(0.6)

// drums · high tom
const high_tom = s("ht").struct("<[~@6 x!3 ~@7] ~@80>").gain(0.48)

// drums · crash
const crash = s("cr").struct("<~@8 A ~@15 B ~ B ~@12 B@6 ~@29 C D@2 E@2 F ~>".pickRestart({
  A: "~@7 x", B: "x", C: "x ~@2 x ~@3 x", D: "~@3 x ~@3 x", E: "~@3 x ~@4", F: "x!3 ~",
})).gain(0.6)

stack(
  piano, bass, distortion_guitar, electric_guitar_clean, epiano2, steel_drums, percussive_organ, kick, snare, low_tom,
  hihat, mid_tom, open_hat, high_tom, crash
)