// Friday I'm In Love — The Cure
// 135 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: duplicate parts dropped: ch 9 electric guitar clean (copy of ch 1 electric guitar clean); ch 11 electric guitar clean (copy of ch 3 electric guitar clean); ch 13 electric bass finger (copy of ch 4 "Frank Tang" electric bass finger)
// note: Full arrangement: all 117 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 27.
setcpm(135/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.

// other · electric guitar clean
const electric_guitar_clean = note(`<
  A B@2 C@2 D@2 E@2 F@2 G@2 H@2 I@2 ~@7 J K@2 L@2 M@2 E@2 ~@2 N@2 E@2 ~@7 J K@2 L@2 M@2 E@2 ~@10 N@2 E@2 O P Q R O P Q R
  O P Q S O P Q ~@8 J ~@7 J K@2 L@2 M@2 E@2 K@2 L@2 M@2 T@2
>`.pickRestart({
  A: "~@2 a4 b4 c#5 b4 a4 b4", B: "[b4 c#5!2 b4 c#5 b4@2 b4@2 a4@2 ~ a4@2 ~ a4]/2",
  C: "[b4 c#5!2 b4!2 c#5@2 e5@2 ~ d5@2 c#5@4, ~@9 e5@2 ~@5]/2",
  D: "[b4@2 ~ b4!2 c#5@2 d5@2 c#5@2 b4!2 a4@2 a4, ~ c#5 ~@6]/2", E: "[a4@2 e4!3 f#4@2 e4@2 d4@2 ~ a4 g#4 f#4@2]/2",
  F: "[b4 c#5!2 b4 c#5 b4@2 b4@2 a4@2 b4!2 a4@2 a4]/2", G: "[b4 c#5!2 b4!2 c#5@2 e5@2 e5 d5@2 c#5@4]/2",
  H: "[b4@2 c#5 b4 c#5 c#5@2 [b4,d5]@2 b4@2 b4!2 a4!2 b4]/2", I: "[a3@2 a4 e4 c#5 b4@2 e3@2 b3 d4 a4 c#5 b4 a4 b4]/2",
  J: "~ d4@2 ~ a4 g#4 f#4@2", K: "[b4 c#5!2 b4 c#5 b4@2 b4@2 a4@6 a4]/2",
  L: "[b4 c#5!2 b4 c#5 c#5@2 e5@2 e5 d5@2 c#5@4]/2", M: "[b4@2 c#5 b4 c#5 c#5@2 d5@2 c#5@2 b4!2 a4@2 a4]/2",
  N: "[b4@2 c#5 b4 c#5 c#5@2 d5@2 c#5@2 b4@2 a4@2 a4]/2", O: "~@2 f#5!3 e5!3", P: "e5 d5!4 c#5!3", Q: "c#5@4 ~@3 b4",
  R: "a4 g#4 e4@6", S: "a4 g#4 e4@4 ~@2", T: "[a4@2 e4!3 f#4@2 e4@2 ~@7]/2",
})).s("gm_electric_guitar_clean").gain(0.31)

// bass · electric bass finger · "Frank Tang"
const bass = note(`<
  ~ A@2 B C D@2 E@2 A@2 E@2 F@2 E@2 A@2 B C D@2 E@2 A@2 B C D@2 G@2 H@2 F@2 E@2 A@2 B C D@2 E@2 A@2 B C D@2 E@2 A@2 B C
  D@2 E@2 I@4 J@2 K@2 L@2 K@2 L@2 K@2 L@2 K@2 M@2 A@2 B C D@2 E@2 A@2 B C D@2 E@2 A@2 B C D@2 E@2 A@2 B C D@2 N@2
>`.pickRestart({
  A: "[a1@2 a1@2 a1 a1@2 d2@2 d2@2 d2!2 d2@2 ~]/2", B: "a1@2 a1!3 a1@2 e2", C: "e2 e2@2 e2!2 e2@2 ~",
  D: "[f#2@2 f#2!2 f#2@2 ~ d2@2 d2@2 d2!2 d2@2 ~]/2", E: "[a1@2 a1@2 a1 a1@2 e2@2 e2@2 e2!2 e2@2 ~]/2",
  F: "[f#2@2 f#2@2 f#2 f#2@2 d2@2 d2@2 d2!2 d2@2 ~]/2", G: "[a1@2 a1@2 a1 a1@2 e2@2 e2@2 e2 e2@2 ~@2]/2",
  H: "[d2@2 d2@2 d2 d2@2 e2@2 e2@2 e2 e2@2 ~@2]/2",
  I: "[d2@2 d2@2 d2 d2@2 e2@2 ~@7 f#2@2 f#2@2 f#2 f#2@2 d2@2 d2@2 d2@2 ~@3, ~@15 e2@2 ~@15]/4",
  J: "[a1@2 a1@2 a1 a1@2 e2@2 e2@2 e2@2 ~@3]/2", K: "[f#2@2 ~@2 f#2@2 ~ g2@2 ~@2 g2@2 g2@2 g2, ~@3 f#2 ~@4]/2",
  L: "[a1@2 a1@2 a1@2 ~ e2@2 ~ e2@2 e2@2 ~ f#2, a2@2 ~ a1 ~@3 e2]/2", M: "[a1@2 a1@2 a1@2 ~ e2@2 ~@7, a2@2 ~ a1 ~@4]/2",
  N: "[a1@2 a1@2 a1 a1@2 e2@2 ~@7]/2",
})).s("gm_electric_bass_finger").gain(0.51).pan(0)

// chords · electric guitar clean
const electric_guitar_clean_2 = note(`<
  ~ A@2 B@2 C@2 D@2 E@2 F@2 C@2 D@2 E@2 B@2 C@2 D@2 E@2 F@2 C@2 D@2 G@2 H@2 I@2 A@2 B@2 C@2 D@2 E@2 F@2 C@2 D@2 E@2 F@2
  C@2 D@2 J@2 K@2 L@2 M@2 N@4 O@4 P@3 ~@3 A@2 B@2 C@2 D@2 A@2 B@2 C@2 D@2 E@2 B@2 C@2 D@2 E@2 Q@2 C@2 B@2
>`.pickRestart({
  A: "[[c#4,e4,a4]@4 ~@3 [a3,d4,a4]@4 ~@5]/2", B: "[[c#4,e4,a4]@4 ~@3 [b3,e4,g#4]@8 ~]/2",
  C: "[[f#4,a4]@4 ~@3 [d4,f#4,a4]@6 ~@3, c#4@3 ~@5]/2", // F#m D
  D: "[[c#4,e4,a4]@4 ~@3 [b3,e4]@4 [b3,e4,a4]@3 ~@2, ~@7 g#4@6 ~@3]/2", // A E5 Esus4
  E: "[[a3,e4,a4]@6 ~ [d4,f#4,a4]@6 ~@3, c#4@4 ~@3 a3@4 ~@5]/2", F: "[[a3,e4,a4]@6 ~ [b3,e4,g#4]@8 ~, c#4 ~@3]/2",
  G: "[[a3,d4,f#4]@4 ~@3 [b3,e4,g#4]@4 ~@5]/2", H: "[[c#4,f#4,a4]@4 ~@3 [a3,d4,f#4]@8 ~]/2",
  I: "[[a3,c#4,e4]@12 ~@2 [b3,e4]@9 [b3,e4,a4]@6 ~@3, ~@7 g#4@6 ~@3]/2", J: "[[a3,e4,a4]@6 ~ [d4,f#4,a4]@6 ~@3]/2",
  K: "[[a3,e4,a4]@6 ~ [b3,e4,g#4]@6 ~@3]/2", L: "[[a3,e4,a4]@4 ~@3 [b3,e4,g#4]@4 ~@5]/2",
  M: "[[c#4,f#4,a4]@4 ~@3 [g3,b3,d4]@4 ~@5]/2", // F#m G
  N: "[[a3,c#4,e4]@4 ~@3 [b3,e4,g#4]@4 ~@4 [c#4,f#4,a4]@4 ~@4 [g3,b3,d4]@4 ~@5]/4", // A E F#m G
  O: "[[a3,c#4,a4]@6 ~ [b3,e4,g#4]@6 ~@2 [c#4,f#4,a4]@6 ~@2 [g3,b3,d4]@6 ~@3]/4", // A E F#m G
  P: "[[a3,e4,a4]@6 ~ [b3,e4,g#4]@6 ~@2 [c#4,f#4,a4]@6 ~@3]/3", Q: "[[a3,e4,a4]@6 ~ [b3,e4,g#4]@6 ~@3, c#4 ~@3]/2",
})).s("gm_electric_guitar_clean").gain(0.36)

// drums · kick
const kick = s("bd").struct(`<
  ~ 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 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 A B A B A B
  A B A B@2 A B A B A B@2 A B A B A B@2 A B A B A B@2 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 A B A B A C
>`.pickRestart({
  A: "x ~@3 x!2 ~@2", B: "x ~@2 x!2 ~@3", C: "x",
})).gain(0.51)

// drums · snare
const snare = s("sd").struct("<~ [~ x ~ x]!115 ~>").gain(0.51)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~ [x!2]!115 x>").gain(0.51)

// drums · crash
const crash = s("cr").struct("<~ A ~@7 A ~@49 A ~@6 A ~@6 A ~@6 A ~@6 A ~@29>".pickRestart({
  A: "x",
})).gain(0.51)

// drums · ride
const ride = s("rd").struct("<~ [~ x ~ x]!115 ~>").gain(0.51)

// drums · shaker
const shaker = s("sh").struct("<~ [~@2 x ~@2 x ~@2]!115 ~>").gain(0.46)

stack(electric_guitar_clean, bass, electric_guitar_clean_2, kick, snare, pedal_hat, crash, ride, shaker)