// Thrill Me — Simply Red
// 97 bpm, 4/4, key G minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: pitch bends are ignored
// note: Full arrangement: all 96 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(97/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 · piano
const piano = note(`<
  A B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B C D E B F D E B C D G H I J G H I J ~@8 E B C D E
  B C D E B C D E B C D E B C D E B C D E B C D E B C D K@4
>`.pickRestart({
  A: "~@2 [a3,d4,f4] ~ g3 [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3, g2@3 ~@5", // Dm C Gm
  B: "~@2 [g3,bb3,d4] ~ g3 [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3, g2 ~", // Gm C Gm
  C: "~@2 [a3,d4,f4] ~ g3 [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3, g2@5 ~@11", // Dm C Gm
  D: "[g2,g3] [g3,bb3,d4] g3 ~ [g3,bb3,d4] [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3, ~ g2@3 ~@4", // G Gm C Gm
  E: "g2@2 [a3,d4,f4] ~ g3 [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3", // Dm C Gm
  F: "~@2 [d5,a5,d6] ~ g3 [g3,c4,e4] ~ g3 [g3,bb3,d4] g3 ~ g3@3 f3 d3, g2@5 ~@11", // D5 C Gm
  G: "a2@2 [b3,e4,g4] ~ a3 [a3,d4,gb4] ~ a3 [a3,c4,e4] a3 ~ a3@3 g3 e3", // Em D Am
  H: "~@2 [a3,c4,e4] ~ a3 [a3,d4,gb4] ~ a3 [a3,c4,e4] a3 ~ a3@3 g3 e3, a2 ~", // Am D Am
  I: "~@2 [b3,e4,g4] ~ a3 [a3,d4,gb4] ~ a3 [a3,c4,e4] a3 ~ a3@3 g3 e3, a2@5 ~@11", // Em D Am
  J: "[a2,a3] [a3,c4,e4] a3 ~ [a3,c4,e4] [a3,d4,gb4] ~ a3 [a3,c4,e4] a3 ~ a3@3 g3 e3, ~ a2@3 ~@4", // A Am D Am
  K: "[[d4,f4,a4,c5]@3 [bb3,d4,f4,a4]@26 ~@3]/4", // Dm7 Bbmaj7
})).s("gm_piano").gain(0.35)

// other · synth drum
const synth_drum = note("<~@7 A ~@35 B ~@7 C ~@15 D ~@28>".pickRestart({
  A: "~ b4 ~@3 f4 ~ c4 ~ g3 ~@2 c3 ~ g2 ~", B: "~@11 [b3,d4] [e3,g3] c3 a2 ~", C: "~@11 d5 a4 d4 a3 d3",
  D: "g3 g4!3 d4 b3 ~ g3 ~ d3 ~ a2 f2 d2 c2 ~",
})).s("gm_synth_drum").gain(0.4)

// bass · slap bass 2
const bass = note(`<
  ~@4 A B A B C D C E F D F G F D F G F D F G F H F G F D F G F D F G F D F G F D F G I J I K I J I K L ~@7 F D F G F D
  F G F D F G F D F G F D F G F D F G F D F G F D F G M@4
>`.pickRestart({
  A: "g1@3 ~@5", B: "g1 ~ g1@6 ~@8", C: "g1 ~ g1@4 ~ bb1 ~ c2 ~ bb1 g1 f1 d1 f1", D: "g1@7 bb1 ~ c2 ~ d2 c2 bb1 d1 f1",
  E: "g1 ~ g1@4 ~ bb1 ~ c2@2 d2 c2 bb1 d1 f1", F: "g1 ~ g1@5 bb1 ~ c2 ~ bb1 g1 f1 d1 f1",
  G: "g1 ~ g1@5 bb1 ~ c2@2 d2 c2 bb1 d1 f1", H: "g1@6 ~ bb1 ~ c2 ~ d2 c2 bb1 d1 f1",
  I: "a1 ~ a1@5 c2 ~ d2 ~ c2 a1 g1 e1 g1", J: "a1@7 c2 ~ d2 ~ e2 d2 c2 e1 g1", K: "a1 ~ a1@5 c2 ~ d2@2 e2 d2 c2 e1 g1",
  L: "g1@5 ~@11", M: "[g1@6 g1@51 ~@7]/4",
})).s("gm_slap_bass_2").gain(0.45)

// other · electric guitar clean
const electric_guitar_clean = note(`<
  ~@16 A B A B ~@8 A B A B A B A B ~ C ~ C ~ C ~ C ~@16 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
  ~@4
>`.pickRestart({
  A: "~@4 g3!4 g3@3 ~@5", B: "~@4 f3@2 e3@2 f3 e3 ~ g3@4 ~", C: "~@10 [a4,d5]!3 ~@3",
})).s("gm_electric_guitar_clean").gain(0.3).pan(0.3)

// chords · acoustic guitar steel
const acoustic_guitar_steel = note(`<
  ~@8 A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A C A B A C D E D F D E D F ~@8 A B A C A B A C A B A
  C A B A C A B A C A B A C A B A C A B A C ~@4
>`.pickRestart({
  A: "~@2 [a3,d4,f4] ~@2 [g3,c4,e4] ~@2 [g3,bb3,d4] ~@2 g3@3 ~@2", // Dm C Gm
  B: "~@2 [g3,bb3,d4] ~@2 [g3,c4,e4] ~@2 [g3,bb3,d4] ~@2 g3@3 ~@2", // Gm C Gm
  C: "~ [g3,bb3,d4] ~@2 [g3,bb3,d4] [g3,c4,e4] ~@2 [g3,bb3,d4] ~@7", // Gm C Gm
  D: "~@2 [b3,e4,g4] ~@2 [a3,d4,gb4] ~@2 [a3,c4,e4] ~@2 a3@3 ~@2", // Em D Am
  E: "~@2 [a3,c4,e4] ~@2 [a3,d4,gb4] ~@2 [a3,c4,e4] ~@2 a3@3 ~@2", // Am D Am
  F: "~ [a3,c4,e4] ~@2 [a3,c4,e4] [a3,d4,gb4] ~@2 [a3,c4,e4] ~@7", // Am D Am
})).s("gm_acoustic_guitar_steel").gain(0.35).pan(0.7)

// other · lead 5 charang
const lead_5_charang = note("<~@8 [g2!16]!36 [a2!16]!8 ~@8 [g2!16]!32 ~@4>").s("gm_lead_5_charang").gain(0.3)

// other · synth strings 1
const synth_strings_1 = note(`<
  ~@8 A@14 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C@2 A@2 D ~ A@2 D ~ A@2 D ~ A@2 E@4 F@4 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2
  A@2 B@2 A@2 B@2 A@2 B@2 G@4
>`.pickRestart({
  A: "d6/2", B: "[c6@3 d6]/2", C: "[d6@31 ~]/2", D: "d6 ~@15", E: "[bb4@63 ~]/4", F: "bb4/4", G: "[d6@29 ~@3]/4",
})).s("gm_synth_strings_1").gain(0.25).pan(0.3)

// other · string ensemble 2
const string_ensemble_2 = note("<~@8 A@44 ~@8 A@32 ~@4>".pickRestart({
  A: "d4/2",
})).s("gm_string_ensemble_2").gain(0.35).pan(0.7)

// chords · pad sweep
const pad_sweep = note(`<
  ~@44 A@8 B@8 C@2 D@2 E@2 D@2 C@2 D@2 E@2 D@2 C@2 D@2 E@2 D@2 C@2 D@2 E@2 D@2 ~@4
>`.pickRestart({
  A: "[~@4 a3@15 ~ [g3,b3]@4 [a3,c4]@10 ~@2 a3@14 ~@2 [g3,b3,d4]@4 [a3,c4,e4]@8]/4", B: "[g3,bb3,d4]/8", C: "g4/2",
  D: "c5/2", E: "[g4@7 d5]/2",
})).s("gm_pad_sweep").gain(0.4).pan(0.3)

// chords · lead 8 bass lead
const lead_8_bass_lead = note("<~@53 A@7 ~@36>".pickRestart({
  A: "[~@16 c5@25 ~@7 bb4@25 ~@7 c5@25 ~ d5@6, ~@10 d5@31 ~ d5@31 ~ d5@31 ~@7]/7",
})).s("gm_lead_8_bass_lead").gain(0.3).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~@3 A B C@2 D E@44 B F C G B F C G E@32 H ~@3>".pickRestart({
  A: "~@15 x", B: "x ~@14 x", C: "x ~ x ~@12 x", D: "x ~ x ~@6 x!7", E: "x ~ x ~@4 x ~@2 x ~ x ~@2 x",
  F: "x ~ x ~@7 x!2 ~@3 x", G: "x ~ x ~@6 x!2 ~@2 x ~ x", H: "x ~@2 x ~@4",
})).gain(0.45)

// drums · rim
const rim = s("rim").struct("<~@52 [~ x ~@2] ~@43>").gain(0.3)

// drums · snare
const snare = s("sd").struct("<~@8 [~ x ~ x]!44 ~@7 [~@10 x!4 ~@2] [~ x ~ x]!32 [x ~@2 x ~@4] ~@3>").gain(0.45)

// drums · hihat
const hihat = s("hh").struct("<~@8 [x!16]!44 ~ [~@13 x ~@2] ~@6 [x!16]!32 ~@4>").gain(0.35)

// drums · crash
const crash = s("cr").struct(`<
  ~@4 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@7 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3 A ~@3
  A ~@3 A ~@3 B ~@3
>`.pickRestart({
  A: "x", B: "x ~@2 x ~@4",
})).gain(0.4)

// drums · ride
const ride = s("rd").struct("<~@52 [x!4]!8 ~@36>").gain(0.4)

// drums · bongos
const bongos = s("bongo:18").struct("<~@56 [~@9 x ~@6]!4 ~@36>").gain(1.04)

// drums · congas
const congas = s("conga:13").struct("<~@56 [~@5 x!2 ~]!4 ~@36>").gain(1.27)

// drums · congas
const congas_2 = s("conga:18").struct("<~@56 [x ~ x ~@4 x ~@3 x ~ x ~@2]!4 ~@36>").gain(1.27)

// drums · congas
const congas_3 = s("conga:33").struct("<~@56 [~@2 x!2 ~@4]!4 ~@36>").gain(1.27)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@8 [x!16]!44 ~@8 [x!16]!32 ~@4>").gain(1.51)

stack(
  piano, synth_drum, bass, electric_guitar_clean, acoustic_guitar_steel, lead_5_charang, synth_strings_1,
  string_ensemble_2, pad_sweep, lead_8_bass_lead, kick, rim, snare, hihat, crash, ride, bongos, congas, congas_2,
  congas_3, cabasa
)