// Can You Forgive Her — Pet Shop Boys
// 123 bpm, 4/4, key B minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 111 bars on a 24-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(123/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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 · orchestra hit
const orchestra_hit = note(`<
  A@2 B C A@2 B C D E F G D E F H I J ~@12 A@2 B C D E F G D E F K ~@8 A@2 B C A@2 B C D E F G D E F L I M J N I M I M
  ~@8 A@2 B C A@2 B C D E F G D E F L D E F G D E F L I M O P J
>`.pickRestart({
  A: "[b4@4 ~@14 b4@3 ~ a4@6 ~@14 a4@4 ~@2]/2", B: "e4@3 ~@8 e4", C: "f#4@3 ~@3 f#4@4 ~@2 a4@3 ~@3 a4@4 ~@2",
  D: "~@6 g4@4 ~@4 a4@3 ~ a4@3 ~@3", E: "~@6 b4@4 ~@4 d5@3 ~ d5@3 ~@3", F: "~@6 g4@4 ~@4 a4@3 ~ a4@4 ~@2",
  G: "~@16 f#4@2 a4@2 ~@2 a4 ~", H: "~@6 f#4@3 ~@7 a4@3 ~ a4@3 ~", I: "b4@4 ~@11 c5@3 ~ c5@3 ~@2", J: "b4 ~@5",
  K: "~@2 f#4 ~@5", L: "~@2 f#4 ~@3 g4 ~", M: "b4@4 ~@11 a4@3 ~ a4@3 ~@2", N: "~@15 a4@3 ~ a4@3 ~@2",
  O: "b4@5 ~@10 c5@3 ~ c5@3 ~@2", P: "b4@4 ~@2 b4@4 ~@2 b4 b4@3 ~@2 b4@3 ~ a4 ~",
})).s("gm_orchestra_hit").gain(0.47).pan(0.4)

// bass · synth bass 2
const bass = note(`<
  A B C D A B C D E F E G E F E G H@2 I J K L M N O P I Q L R A B C D E F E G E F E G I J K L M N O P I Q L R A B C D E
  F E G E F E G H@8 I J K L M N O P I Q L R A B C D E F E G E F E G E F E G E F E G H@4 S
>`.pickRestart({
  A: "b1@2 ~ b1@2 ~ b1@2 ~ b1@2 ~", B: "a1@2 ~ a1@2 ~ a1@2 ~ a1@2 ~", C: "e1@2 ~ e1@2 ~ e1@2 ~ e1@2 ~",
  D: "f#1@2 ~ f#1@2 ~ f#1@2 ~ a1@2 ~", E: "g1@2 ~ g1@2 ~ a1@2 ~ a1@2 ~", F: "b1@2 ~ b1@2 ~ d2@2 ~ b1@2 d2",
  G: "f#1@2 ~ f#1@2 ~ a1@2 ~ f#1@2 a1", H: "b1@2 ~ b1@2 ~ b1@2 ~ b1@2 c2", I: "b1@4 ~@2 b1@4 ~@2 b1@4 ~@2 b1@3 ~ b1@2",
  J: "c#2@4 ~@2 c#2@4 ~@2 c#2@4 ~@2 c#2@3 ~ c#2@2", K: "f#1@4 ~@2 f#1@4 ~@2 f#1@4 ~@2 f#1@3 ~ f#1@2",
  L: "e1@4 ~@2 e1@4 ~@2 e1@4 ~@2 e1@3 ~ e1@2", M: "b1@2 ~ b1@2 ~ b1@2 ~ b1@3", N: "c#2@2 ~ c#2@2 ~ c#2@2 ~ c#2@3",
  O: "f#1@2 ~ f#1@2 ~ f#1@2 ~ f#1@3", P: "e1@2 ~ e1@2 ~ e1@2 ~ e1@3", Q: "a1@4 ~@2 a1@4 ~@2 a1@4 ~@2 a1@3 ~ a1@2",
  R: "f#1@2 ~ f#1@2 ~ f#1@2 ~ a1@2 f#1", S: "b1 ~@5",
})).s("gm_synth_bass_2").gain(0.72)

// other · brass section
const brass_section = note(`<
  A B C D A B C D ~@17 E@3 F@2 G@2 H@2 ~@16 G@2 F@2 I J K@2 ~@24 G@2 F@2 G@2 F@2 ~@21
>`.pickRestart({
  A: "f#4@3 ~@13 b3@2 d4@3 ~ f#4@2", B: "~@3 f#4@3 ~@10 b3@2 d4@4 ~@2",
  C: "e4@3 ~ e4 ~ e4@3 ~ e4@4 ~@2 b3@2 d4@3 ~ e4@2", D: "f#4@3 ~ f#4@3 ~@17",
  E: "[~@16 d4@2 e4@3 ~ f#4@4 ~@14 b3@2 d4@3 ~ f#4@4 ~@2 f#4@4 ~@2 f#4@4 ~@2 b3@2 d4@4 ~@2]/3",
  F: "[e4@4 ~@2 e4@2 ~@2 e4@4 ~@2 b3@2 d4@3 ~ e4@4 ~@2 f#4@4 ~@16]/2",
  G: "[f#4@4 ~@12 b3@2 d4@3 ~ f#4@4 ~@2 f#4@4 ~@2 f#4@4 ~@2 b3@2 d4@4 ~@2]/2",
  H: "[e4@3 ~ e4 ~ e4@2 ~@2 e4@4 ~@2 b3@2 d4@3 ~ e4@4 ~@2 f#4@4 ~@16]/2", I: "f#4@4 ~@12 b3@2 d4@3 ~ e4 ~",
  J: "f#4 ~ f#4 ~ f#4@4 ~@2 f#4@4 ~@2 b3@2 d4@4 ~@2",
  K: "[e4 ~ e4 ~ e4@4 ~@2 e4@4 ~@2 b3@2 d4@3 ~ e4@4 ~@2 f#4@4 ~@16]/2",
})).s("gm_brass_section").gain(0.46).pan(0.6)

// chords · synth strings 1
const synth_strings_1 = note(`<
  A B C D A B C D E F E G E F E G H I J K@2 L J K@2 L A B C D A B C D E F E G E F E G J K@2 L J K@2 L A B C D A B C D E
  F E G E F E G H M H M H M H M J K@2 L J K@2 L A B C D A B C D E F E G E F E G E F E G E F E G H M H I ~
>`.pickRestart({
  A: "[f#3,b3,d4,f#4]", B: "[e3,a3,c#4,e4]", C: "[e3,b3,e4]", D: "[f#3,c#4,f#4] [f#3,a3,c#4,f#4]",
  E: "[g3,b3,d4] [a3,c#4,e4]", F: "[b3,d4,f#4] [d4,f#4,a4]", G: "[f#3,a3,c#4] [a3,c#4,e4]",
  H: "[b3,d4,f#4]@3 [c4,d4,g4]", I: "[b3,d4,f#4]", J: "[f#3,b3,d4]", K: "[f#3,b3,c#4]", L: "[e3,f#3,b3]",
  M: "[b3,d4,f#4]@3 [a3,d4,e4]", // Bm Asus4
})).s("gm_synth_strings_1").gain(0.49)

// other · string ensemble 1
const string_ensemble_1 = note("<~@8 A@7 B ~@18 A@7 C ~@16 A@7 C ~@24 A@7 C A@7 C ~@5>".pickRestart({
  A: "b5@2 ~ b5@2 ~ b5@2 ~ b5@2 a5", B: "f#5@2 ~ f#5@2 ~ f#5@2 ~ f#5@2 ~", C: "f#5@2 ~ f#5@2 ~ f#5@2 ~ g5@2 ~",
})).s("gm_string_ensemble_1").gain(0.54).pan(0.7)

// bass · synth bass 1
const bass_2 = note(`<
  A B C D A B C D E F E B E F E G ~@2 A H G C A H G C A B C D A B C D E F E B E F E G A H G C A H G C A B C D A B C D E
  F E B E F E G ~@8 A H G C A H G C A B C D A B C D E F E B E F E G E F E B E F E G ~@5
>`.pickRestart({
  A: "b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~",
  B: "a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~",
  C: "e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~ e2 ~",
  D: "f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~",
  E: "g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~ a2 ~",
  F: "b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ b2 ~ d3 ~ d3 ~ d3 ~ d3 ~ d3 ~ d3 ~",
  G: "f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~",
  H: "c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~ c#3 ~",
})).s("gm_synth_bass_1").gain(0.46)

// other · lead 8 bass lead
const lead_8_bass_lead = note(`<
  ~@16
  [f#4 d4 b3 f#4 d4 b3 f#4 d4 b3 g4 e4 g4]!2
  ~@48
  [f#4 d4 b3 f#4 d4 b3 f#4 d4 b3 g4 e4 g4]!8
  ~@32
  [f#4 d4 b3 f#4 d4 b3 f#4 d4 b3 g4 e4 g4]!4
  ~
>`).s("gm_lead_8_bass_lead").gain(0.2).pan(0.4)

// other · marimba
const marimba = note(`<
  ~@16
  [f#5 d5 b4 f#5 d5 b4 f#5 d5 b4 g5 e5 g5]!2
  ~@48
  [f#5 d5 b4 f#5 d5 b4 f#5 d5 b4 g5 e5 g5]!8
  ~@32
  [f#5 d5 b4 f#5 d5 b4 f#5 d5 b4 g5 e5 g5]!4
  ~
>`).s("gm_marimba").gain(0.38).pan(0.6)

// other · ocarina
const ocarina = note("<~@18 A@2 B C A@2 B C ~@16 A@2 B C A@2 B C ~@24 A@2 B C A@2 B C ~@29>".pickRestart({
  A: "~@3 f#5 ~ c#5 ~ c#5 ~ g#5 ~ c#5", B: "~@3 g#5 ~ c#5 ~ c#5 ~ f#5 ~ c#5", C: "~@3 f#5 ~ c#5 ~ c#5 ~ f#5 ~ c#5",
})).s("gm_ocarina").gain(0.34).pan(0.4)

// other · pad sweep
const pad_sweep = note("<~@18 A B@2 A@2 B@2 A ~@16 A B@2 A@2 B@2 A ~@24 A B@2 A@2 B@2 A ~@29>".pickRestart({
  A: "b4", B: "c#5",
})).s("gm_pad_sweep").gain(0.3).pan(0.6)

// other · pad choir
const pad_choir = note("<~@42 A@3 B A@2 C B D E F G D E F G ~@16 A@3 B A@2 C B D E F G D E F G ~@21>".pickRestart({
  A: "~@3 b4@2 ~ c#5@2 ~ d5@2 ~", B: "b4@2 ~ c#5@2 ~ d5@2 ~ e5@2 ~", C: "~@3 b4@2 ~ c#5@2 ~ e5@2 ~",
  D: "f#5@4 ~@6 d5@2 b4@5 ~@7", E: "e5 ~@5", F: "e5@4 ~@6 d5@2 b4@5 ~@7", G: "f#5 ~@5",
})).s("gm_pad_choir").gain(0.26).pan(0.6)

// other · tubular bells
const tubular_bells = note("<~@66 [b4 ~@23]!3 ~ [b4 ~@23]!4 ~@37>").s("gm_tubular_bells").gain(0.37)

// drums · clap
const clap = s("cp").struct(`<
  ~@7 A ~@25 A ~@3 B ~@3 C ~@15 C ~@3 B ~@3 C ~@23 C ~@3 C ~@3 C ~@3 C ~@3 C ~@3 A ~
>`.pickRestart({
  A: "~@6 x!6", B: "~@7 x ~ x ~ x", C: "~@7 x!2 ~ x!2",
})).gain(0.36)

// drums · clap · soft notes
const clap_soft = s("cp").struct("<~@7 [x!6 ~@6] ~@25 [x!6 ~@6] ~@77>").gain(0.2)

// drums · tambourine
const tambourine = s("tb").struct("<[~ x ~ x]!16 ~@34 [~ x ~ x]!18 [~@3 x]!2 [~ x ~ x]!4 ~@8 [~ x ~ x]!28 ~>")
  .gain(0.31)

stack(
  orchestra_hit, bass, brass_section, synth_strings_1, string_ensemble_1, bass_2, lead_8_bass_lead, marimba, ocarina,
  pad_sweep, pad_choir, tubular_bells, clap, clap_soft, tambourine
)