// Wooden Heart (Muss I Denn) — Elvis Presley
// 166 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: coarse tuning (RPN 2) transposes the affected channels
// note: Full arrangement: all 39 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(166/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.

// bass · acoustic bass · "ACOU BASS"
const bass = note("<~ A B C D C A E F C G H E I C@2 A E J K G L F C M N O P Q A B I@2 C A R F K S>".pickRestart({
  A: "f1@7 ~ a1@7 ~", B: "c2@7 ~ g1@6 ~@2", C: "f1@7 ~ c2@7 ~", D: "f1@3 ~ c2@3 ~", E: "c2@7 ~ g1@7 ~",
  F: "c2@7 ~ g1@3 ~ c2@3 ~", G: "f1@5 ~@11", H: "f1@7 ~ a1@6 ~@2", I: "f1@6 ~@2 c2@7 ~", J: "c2@7 ~ g1@4 c2@3 ~",
  K: "f1@7 ~ bb1@7 ~", L: "c2@6 ~@2 g1@7 ~", M: "f1@7 ~ g1@4 a1@3 ~", N: "bb1@7 ~ f1@7 ~", O: "bb1@7 ~ d2@7 ~",
  P: "f2@7 ~ a1@7 ~", Q: "c2@3 ~ bb1@3 ~ a1@2 ~@2 g1@2 ~@2", R: "c2@7 ~ g1@8", S: "f2 ~ c2 ~ f1@2 ~@2",
})).s("gm_acoustic_bass").gain(0.35)

// chords · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~ A B A C A D B E F G A B A D A H B E I G B J A@2 K@2 L M A B A H A D B E I N
>`.pickRestart({
  A: "~ [a3,c4,f4] ~ [a3,c4,f4]", B: "~ [g3,bb3,c4,e4] ~ [g3,bb3,c4,e4]",
  C: "~@2 [c4,f4,a4] ~ [a3,c4,f4] ~ [f3,a3,c4]@2", D: "~@4 [c4,f4,a4] ~ [c4,f4,a4] ~ [a3,c4,f4]@2 ~@2 [f3,a3,c4]@4",
  E: "~ [g3,bb3,c4,e4] ~ [c4,e4,g4]", F: "~@4 [a3,c4,f4]@4 ~@4 [a3,c4,f4] ~ [a3,c4,f4] ~", G: "[a3,c4,f4] ~@3",
  H: "~@4 [c4,f4,a4] ~ [c4,f4,a4] ~ [a3,c4,f4]@3 ~ [f3,a3,c4]@4", // F
  I: "~@4 [a3,c4,f4] ~ [a3,c4,f4] ~ [bb3,d4,f4]@2 ~@2 [bb3,d4,f4] ~ [bb3,d4,f4] ~", // F Bb
  J: "~ [g3,bb3,c4,e4] ~ [g3,bb3,c4,e4], ~@4 f4 ~@11", K: "~ [bb3,d4,f4] ~ [bb3,d4,f4]",
  L: "~@2 [c4,f4,a4] ~ [a3,c4,f4] ~ [f3,a3,c4] ~", M: "[c4,e4]@4 [bb3,d4]@4 [a3,c4]@3 ~ [g3,bb3]@4",
  N: "[a3,c4,f4]@3 ~ c3@4 f2@3 ~@5", // F
})).s("gm_acoustic_guitar_steel").gain(0.22).pan(0.8)

// chords · flute
const flute = note("<~ A B A C A C B D E F A B A C A G B D H F B D A I J K I L A B A C A G B D M N>".pickRestart({
  A: "~@4 [f4,a4] ~@7 [f4,a4] ~@3", B: "~@4 [e4,g4] ~@7 [e4,g4] ~@3", C: "~@4 [c5,a5] ~@3 [a4,f5] ~@3 [f4,c5] ~@3",
  D: "~@4 [g4,bb4] ~@7 [g4,bb4] ~@3", E: "~@4 [f4,a4] ~ [f4,a4] ~ [f4,a4] ~@3 [f4,a4] ~ [f4,a4] ~", F: "[f4,a4] ~@7",
  G: "~@4 [c5,a5] ~ [c5,a5] ~ [a4,f5] ~@3 [f4,c5] ~@3", H: "~@4 [f4,a4] ~ [f4,a4] ~ [f4,bb4] ~@3 [f4,bb4] ~ [f4,bb4] ~",
  I: "~@4 [a4,c5] ~@7 [a4,c5] ~@3", J: "~@4 [f4,bb4] ~@7 [f4,bb4] ~@3", K: "~@4 [bb4,d5] ~@7 [bb4,d5] ~@3",
  L: "[c5,e5] [bb4,d5] [a4,c5] [g4,bb4]", // C Bb Am Gm
  M: "~@4 [c5,f5,a5] ~ [c5,f5,a5] ~ [d5,f5,bb5] ~@3 [d5,f5,bb5] ~ [d5,f5,bb5] ~", N: "[c5,f5,a5] ~@7",
})).s("gm_flute").gain(0.16).pan(0.2)

// other · bassoon
const bassoon = note("<~ A B C@3 A B D C E A B C@3 A B D F E B D C G H I J K A B C@3 A B D F L>".pickRestart({
  A: "f2 ~@7 a2 ~@7", B: "c3 ~@7 g2 ~@7", C: "f2 ~@7 c3 ~@7", D: "c3 ~@7 g2 ~@3 c3 ~@3", E: "f2 ~@15",
  F: "f2 ~@7 bb2 ~@7", G: "f2 ~@7 g2 ~@3 a2 ~@3", H: "bb2 ~@7 f2 ~@7", I: "bb2 ~@7 d3 ~@7", J: "f3 ~@7 a2 ~@7",
  K: "c3 bb2 a2 g2", L: "f3 ~@3 c3 ~@3 f2 ~@7",
})).s("gm_bassoon").gain(0.4).pan(0.9)

// drums · kick
const kick = s("bd").struct("<~ [x!2]!9 x [x!2]!9 x [x!2]!18>").gain(0.35)

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~ A@2 B C B C A@2 B D B C B C B C B A B D A@3 C A@2 B E A@2 B C B C@2 A B D
>`.pickRestart({
  A: "x ~ x!3 ~ x ~", B: "x ~ x!3 ~ x!2", C: "x ~ x!3 ~@3", D: "x!3 ~", E: "x!2",
})).gain(0.3)

// drums · open hat
const open_hat = s("oh").struct("<~@4 A ~ A ~@5 A ~ A ~ A ~@7 A ~@3 B ~@3 A ~ A@2 ~@3>".pickRestart({
  A: "~@3 x", B: "~ x ~@2",
})).gain(0.3)

stack(bass, acoustic_guitar_steel, flute, bassoon, kick, snare, hihat, open_hat)