// Still Cruisin — The Beach Boys
// 116 bpm, 4/4, key F major. Source: mcgill.
// Generated by strudelify. One cycle = one bar.
setcpm(116/4)

const chords = arrange(
  // intro (8 bars)
  [8, "<~!7 F>"],
  // chorus (8 bars)
  [8, "<[F@2 Dm@2]!4 [Gm@2 C@2]!2 ~ F>"],
  // verse (18 bars)
  [18, "<F!4 Gm11 C Gm11 C ~!2 F!4 Gm11 C Gm11 C>"],
  // prechorus (10 bars)
  [10, "<Bb!2 [F@2 Dm@2]!2 Bb!2 ~!4>"],
  // chorus (8 bars)
  [8, "<[F@2 Dm@2]!4 [Gm@2 C@2]!2 ~ F>"],
  // solo (18 bars)
  [18, "<F!4 Gm11 C Gm11 C ~!2 F!4 Gm11 C Gm11 C>"],
  // prechorus (10 bars)
  [10, "<Bb!2 [F@2 Dm@2]!2 Bb!2 ~!4>"],
  // chorus (16 bars)
  [16, "<[F@2 Dm@2]!4 [Gm@2 C@2]!2 F!2 [F@2 Dm@2]!4 [Gm@2 C@2]!2 ~ F>"],
  // fadeout (6 bars)
  [6, "<[F@2 Dm@2]!4 [Gm@2 C@2]!2>"],
)
const bassline = arrange(
  [8, "<~!7 f2>"],
  [8, "<[f2@2 d2@2]!4 [g2@2 c2@2]!2 ~ f2>"],
  [18, "<f2 a2 f2 a2 g2 c2 g2 c2 ~!2 f2 a2 f2 a2 g2 c2 g2 c2>"],
  [10, "<bb2!2 [f2@2 d2@2]!2 bb2!2 ~!4>"],
  [8, "<[f2@2 d2@2]!4 [g2@2 c2@2]!2 ~ f2>"],
  [18, "<f2 a2 f2 a2 g2 c2 g2 c2 ~!2 f2 a2 f2 a2 g2 c2 g2 c2>"],
  [10, "<bb2!2 [f2@2 d2@2]!2 bb2!2 ~!4>"],
  [16, "<[f2@2 d2@2]!4 [g2@2 c2@2]!2 f2!2 [f2@2 d2@2]!4 [g2@2 c2@2]!2 ~ f2>"],
  [6, "<[f2@2 d2@2]!4 [g2@2 c2@2]!2>"],
)

// chords · gm_piano
const keys = chord(chords).voicing().s("gm_piano").gain(0.8)
// bass · gm_electric_bass_finger
const bass = note(bassline).s("gm_electric_bass_finger").gain(0.9)
// drums
const drums = s("[bd hh] [sd hh] [bd hh] [sd hh]").gain(0.8)

stack(keys, bass, drums)