// Penetration — The Ventures
// 170 bpm, 4/4, key Bb major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 5 "Organ" named as an organ, played on drawbar organ (its lead 1 square patch is not one)
// note: sustain pedal (CC 64) lengthens the held notes
// note: duplicate parts dropped: ch 5 "Organ" drawbar organ (copy of ch 6 "Organ" church organ)
// note: Full arrangement: all 92 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(170/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 · electric guitar clean · "Lead"
const electric_guitar_clean = note(`<
  ~@3 A B C@2 A B C@2 D E F@2 A B C@2 G H I ~@18 G H I ~@2 J@7 K@8 L@2 ~ M N O@2 M N O@2 D E F@2 M N O@2 G H I ~ G H I ~
  G H P@2 Q
>`.pickRestart({
  A: "d5 c5 bb4 a4", B: "g4@2 f4 g4@2 a4 g4 f4", C: "g4/2", D: "g5 f5 eb5 d5", E: "c5@2 bb4 c5@2 d5 c5 bb4", F: "c5/2",
  G: "[bb3,d4,f4,bb4]@2 ~ [bb3,d4,f4,bb4]@2 ~ [bb3,d4,f4,bb4]@2", // Bb
  H: "[a3,db4,e4,a4]@2 ~ [ab3,c4,eb4,ab4]@2 ~ [ab3,c4,eb4,ab4]@2", I: "[g3,bb3,d4,g4]",
  J: "[~@7 e4@2 ~@14 f4@2 ~@14 ab4@2 ~@14 f4, e4@7 ~@2 e4@6 e4@9 ~@8 ab4@7 ~@2 ab4@6 ab4@9, ~@2 c4@4 c4@2 ~@3 c4@3 c4@2 f4@7 ~@2 f4@6 f4@9 ~@8 f4@7 ~, ~@4 g3@4 ~@4 g3@4 ~@2 d4@4 d4@2 ~@3 d4@3 d4@2 ~@2 eb4@4 eb4@2 ~@3 eb4@3 eb4@2 ~@2 d4@4 d4@2, ~@5 bb3 ~ bb3 ~ c4 ~ c4 ~ bb3]/7",
  K: "[~@15 e4@2 ~@14 f4@2 ~@14 ab4@2 ~@13 g4@2, ~ f4@6 f4@9 ~@8 f4@7 ~@2 f4@6 f4@9 ~@8 b4@8, ~@3 d4@3 d4@2 e4@7 ~@2 e4@6 e4@9 ~@8 ab4@7 ~@2 ab4@6 ab4@9, ~@4 bb3@4 ~@2 c4@4 c4@2 ~@3 c4@3 c4@2 ~@2 d4@4 d4@2 ~@3 d4@3 d4@2 ~@2 eb4@4 eb4@2 ~@3 eb4@3 eb4@2 ~@2 g4@4 ~@2, ~@3 g3 ~ g3 ~ bb3 ~ bb3 ~ c4 ~ c4 ~ d4]/8",
  L: "[~@3 b4@11 ~@2, b4@3 ~@13, ~ g4@13 ~@2, ~ d4@6 ~]/2", M: "d6 c6 bb5 a5", N: "g5@2 f5 g5@2 a5 g5 f5", O: "g5/2",
  P: "[g3,bb3,d4,g4]/2", Q: "[g3,bb3,d4,g4] ~@7",
})).s("gm_electric_guitar_clean").gain(0.64)

// other · electric guitar muted · "Muted Lead"
const electric_guitar_muted = note("<~@24 A B C@2 A B C@2 D E F@2 A B C@2 ~@52>".pickRestart({
  A: "d4 c4 bb3 a3", B: "g3@2 f3 g3@2 a3 g3 f3", C: "g3/2", D: "g4 f4 eb4 d4", E: "c4@2 bb3 c4@2 d4 c4 bb3", F: "c4/2",
})).s("gm_electric_guitar_muted").gain(0.8)

// chords · electric guitar muted · "Rhythm Guitar"
const electric_guitar_muted_2 = note(`<
  ~ A@10 B@4 A@4 C D A@11 B@4 A@4 C D A@3 E F G H I J G H E F G H I J A@12 B@4 A@4 C D A@2 C D A@2 C D K@2 L
>`.pickRestart({
  A: "g2 d3 f2 d3 g2 d3 f2 d3", B: "c3 g3 bb2 g3 c3 g3 bb2 g3",
  C: "[bb3,d4,f4,bb4]@2 ~ [bb3,d4,f4,bb4]@2 ~ [bb3,d4,f4,bb4]@2", // Bb
  D: "[a3,db4,e4,a4]@2 ~ [ab3,c4,eb4,ab4]@2 ~ [ab3,c4,eb4,ab4]@2", // A Ab
  E: "[c4,e4,g4,c5]@2 [c4,e4,g4,c5]@2 [c4,e4,g4,c5]@2 [c4,e4,g4,c5]!2", // C
  F: "~@2 [c4,e4,g4,c5]@2 ~@2 [c4,e4,g4,c5]@2 [c4,e4,g4,c5]!8", // C
  G: "[bb3,d4,f4,bb4]@2 [bb3,d4,f4,bb4]@2 [bb3,d4,f4,bb4]@2 [bb3,d4,f4,bb4]!2", // Bb
  H: "~@2 [bb3,d4,f4,bb4]@2 ~@2 [bb3,d4,f4,bb4]@2 [bb3,d4,f4,bb4]!8", // Bb
  I: "[ab3,c4,eb4,ab4]@2 [ab3,c4,eb4,ab4]@2 [ab3,c4,eb4,ab4]@2 [ab3,c4,eb4,ab4]!2", // Ab
  J: "~@2 [ab3,c4,eb4,ab4]@2 ~@2 [ab3,c4,eb4,ab4]@2 [ab3,c4,eb4,ab4]!8", K: "[g3,bb3,d4,g4]/2", L: "[g3,bb3,d4,g4] ~@7",
})).s("gm_electric_guitar_muted").gain(0.4).pan(0.3)

// bass · electric bass pick · "Bass"
const bass = note(`<
  ~ A@10 B@4 A@4 C D E A@10 B@4 A@4 C D E A@2 F@2 G@2 H@2 G@2 F@2 G@2 H@2 A@12 B@4 A@4 C D A@2 C D A@2 C D I@2 J
>`.pickRestart({
  A: "g1 f1 g1 f1", B: "c2 bb1 c2 bb1", C: "bb1@2 ~ bb1@2 ~ bb1@2", D: "a1@2 ~ ab1@2 ~ ab1@2", E: "g1",
  F: "e2 c2 e2 c2", G: "d2 bb1 d2 bb1", H: "c2 ab1 c2 ab1", I: "g1/2", J: "g1 ~@7",
})).s("gm_electric_bass_pick").gain(0.32).pan(0.7)

// chords · church organ · "Organ"
const church_organ = note(`<
  ~@6 A ~@3 A ~@3 B ~@3 A ~@8 A ~@3 A ~@3 B ~@3 A ~@26 A ~@3 A ~@3 B ~@3 A ~@13
>`.pickRestart({
  A: "[bb6,d7,g7] [bb1,d2,g2]@3", B: "[eb7,g7,c8] [eb2,g2,c3]@3",
})).s("gm_church_organ").gain(0.32).pan(0)

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

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

// drums · crash
const crash = s("cr").struct("<~@19 A@2 B ~@18 A@2 B ~@36 A@2 ~@2 A@2 ~@2 A@2 B ~ B>".pickRestart({
  A: "x ~@2 x ~@2 x ~", B: "x",
})).gain(0.45)

// drums · ride
const ride = s("rd").struct("<~ A@18 ~@2 B C@2 A@16 ~@2 B C@2 A@34 ~@13>".pickRestart({
  A: "x!8", B: "~@2 x!6", C: "x!6 ~@2",
})).gain(0.4)

stack(
  electric_guitar_clean, electric_guitar_muted, electric_guitar_muted_2, bass, church_organ, kick, snare, crash, ride
)