// Cool Change — Little River Band
// 105 bpm, 4/4, key A major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 119 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(105/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.

// bass · acoustic bass · "Bass"
const bass = note(`<
  A@2 B@2 C ~ D@2 A E F G H I A E A E F G H I E@2 J K J K J K L M N K J K J K O P Q@2 A E F G H I A E A E F G H I E@2 J
  K J K J K L M N K J K J K R S T U V W T X S@2 Y@2 Z AA AB AC AD@2 AE@2 AF@2 AG@2 AH@2 AI AJ J K J K J K L M N K J K J
  K O P Q@2 ~
>`.pickRestart({
  A: "a1@15 ~", B: "a1@7 ~", C: "a3@7 ~", D: "[[c#3,a3]@5 ~ [d3,b3]@5 ~ [e3,b3]@20]/2", E: "a1@7 ~ a2@7 ~",
  F: "g1@15 ~", G: "g1@7 ~ g2@7 ~", H: "f#1@15 ~", I: "f#1@7 ~ f#2@7 ~", J: "[d2,f#3]@15 ~",
  K: "a2@7 ~ a2@7 ~, e3@15 ~", L: "[e2,e3]@15 ~", M: "a2@6 b2@5 ~ c#3@3 ~", N: "[d2,d3]@15 ~", O: "[e2,g#3]@15 ~",
  P: "e2@7 ~ e3@7 ~", Q: "[[e2,e3]@3 [e2,e3]@3 [e2,e3]@10]/2", R: "e2@7 ~ e2@6 b1@2", S: "e2@7 ~ e2@7 ~",
  T: "c2@7 ~ c2@3 ~ g1@3 ~", U: "c2@7 ~ c2@7 ~", V: "a1@7 ~ a1@6 e1@2", W: "a1@7 ~ a1@7 ~", X: "c2@7 ~ c2@3 ~ d2@3 ~",
  Y: "[[c#3,a3]@3 [d3,b3]@3 [e3,b3]@10]/2", Z: "[a3,e4]@15 ~", AA: "a3@15 ~", AB: "[g3,d4]@15 ~",
  AC: "~@3 [b3,d4]@5, g3@15 ~", AD: "[f#3,a3,d4]@15 ~", AE: "[[a3,c#4]@6 [a3,d4]@6 e4@12 e2@7 ~]/2", AF: "[a1@31 ~]/2",
  AG: "[g1@31 ~]/2", AH: "[f#1@9 f#2 a2 d3 f#3 a3 d4 f#4]/2", AI: "a2@3 a3 e3 c#3 a2 e2",
  AJ: "a1@3 ~ a2@3 ~ a1@3 ~ c#2@3 ~",
})).s("gm_acoustic_bass").gain(0.57).pan(0.7)

// chords · piano
const piano = note(`<
  A B C D E F G@2 H ~ I@2 J K@2 L M@2 N@2 O@3 P Q R S R S R T U V W S R S R X Y Z@2 H ~ I@2 J K@2 L M@2 N@2 O@3 P Q R S
  R S R T U V W S R S R AA@2 AB AC AD@2 AB AC AE@2 AF@2 X AG S AH S@2 AI@2 AJ AK AL@2 AM@2 AN@2 Q R S R S R T U V W S R
  S R X Y Z@2 ~
>`.pickRestart({
  A: "[e4,a4,c#5]@2 b4@2 a4@2 a4@3 ~ e4@2 c#4@2 e4@2", B: "a4@2 e4@2 c#5@2 a4@2 e5@2 c#5@2 a5@3 ~",
  C: "[b4,d5,g5]@6 ~@2 g4@2 f#5 ~ d5@2 b4@2, ~@11 g5@4 ~", D: "[d4,g4] [g4,b4] [g4,d5] d4!2 [g4,b4] a3!2",
  E: "[d4,f#4,a4]@6 ~ e4 [f#4,a4]@2 e4@2 d4@2 [d4,a4]@2", F: "~@2 [a3,f#4]@3 ~ [f#3,d4]@3 ~ e3@2 [d3,a3]@3 ~",
  G: "[[e4,a4,c#5]@5 ~ [e4,a4,d5]@5 ~ [d4,a4,e5]@9 ~@11]/2", H: "[e4,a4]@3 ~@5 [c#4,e4]@3 ~@3 [c#4,e4]@2",
  I: "[b4@2 ~@4 [b3,d4]@3 ~@5 [b3,d4]@10 ~@8]/2", J: "[d4,a4]@3 ~@3 [d4,a4]@5 ~@3 [d4,a4]@2",
  K: "[~@6 [d4,a4]@3 ~@5 [c#4,e4]@16 ~@2]/2", L: "~@2 [a3,c#4,e4]@3 ~@3", M: "[[e4,a4]@3 ~@11 [c#4,e4]@11 ~@7]/2",
  N: "[b4@3 ~@5 [b3,d4]@3 ~@3 [b3,d4]@10 ~@8]/2", // Bm
  O: "[[d4,a4]@3 ~@3 [d4,a4]@5 ~@3 [d4,a4]@5 ~@3 [d4,a4]@5 ~@3 [c#4,e4]@16 ~@2]/3", P: "~@2 [a3,c#4,e4]@5 ~",
  Q: "[d4,a4]@13 ~@3", R: "c#4@13 ~@3", S: "d4@13 ~@3", T: "[b3,e4]@13 ~@3",
  U: "[a3,c#4]@5 ~ [a3,d4]@5 ~ [a3,e4]@3 ~, a4@13 ~@3", V: "[a3,f#4]@13 ~@3", W: "a4, c#4@13 ~@3", X: "e4@13 ~@3",
  Y: "~@2 [b3,e4,g#4]@5 ~", Z: "[[a3,d4,f#4]@5 ~@7 [b3,e4,g#4]@10 ~@10, ~@3 [a3,d4,f#4]@4 ~@9]/2",
  AA: "[[c#4,f#4,a4,c#5]@3 ~ [b3,e4,g#4,b4]@8 ~@4]/2", AB: "[e4,g4]@3 ~@3 [e4,g4]@3 ~@5 [e4,g4]@2",
  AC: "~@10 [c4,e4]@3 ~@3", AD: "[[c#4,e4]@3 ~@5 [c#4,e4]@2 ~@4 [c#4,e4]@13 ~@5]/2",
  AE: "[[g#4,b4]@3 ~@3 [g#4,b4]@3 ~@5 [g#4,b4]@12 f#5@2 c#5@3 ~]/2", // G#m
  AF: "[[e4,a4,c#5]@5 ~ [d4,a4,d5]@5 ~ [d4,a4,e5]@9 ~@11, e5@5 ~@11]/2", AG: "~@6 [c#4,e4]@5 ~@5",
  AH: "~@3 [b3,d4]@4 ~", AI: "[~@12 [a4,d5,f#5,a5]@13 ~@7]/2", AJ: "e4", AK: "~@2 e4 c#4 a3 c#4 e4 a4",
  AL: "[b3@9 ~@2 b3 d4 g4 b3 d4, g4@13 ~@19]/2", AM: "[[a3,d4,a4]@11 ~@5]/2",
  AN: "[[a4,c#5]@5 ~ [e4,a4,c#5]@14 ~@2 c#5@2 [e4,a4,d5]@2 c#5@2 b4@2 a4@2]/2", // A Dsus2
})).s("gm_piano").gain(0.5).pan(0.4)

// chords · french horn · "Brass"
const french_horn = note("<~@23 A ~@33 A ~@23 B ~@17 C ~@19>".pickRestart({
  A: "[a3,c#4,a4,c#5]@5 ~ [a3,d4,a4,d5]@5 ~ [a3,e4,a4,e5]@3 ~", B: "~@10 f#5@2 c#5@3 ~",
  C: "~@3 [c#4,c#5] [e4,a4,d5] [c#4,c#5] [b3,b4] [a3,a4]", // C# Dsus2 C# B A
})).s("gm_french_horn").gain(0.5).pan(0.7)

// chords · pad warm · "Backsound"
const pad_warm = note(`<
  ~@24 A B A B C B D B A B A B A B E@2 F@2 ~@16 A B A B C B D B A B A B A B G@2 ~@26 A B A B C B D B A B A B A B E@2 H@2
  ~
>`.pickRestart({
  A: "[d4,f#4,a4]@15 ~", B: "[c#4,e4,a4]@15 ~", C: "[f#4,a4,d5]@15 ~", D: "[e4,g#4,b4]@15 ~", E: "[b3,e4,g#4]/2",
  F: "[d4,e4,f#4,a4,d5]/2", G: "[[e4,f#4,a4,c#5]@2 [b3,e4,g#4]@5 ~]/2", H: "[[d4,e4,f#4,a4,d5]@27 ~@5]/2",
})).s("gm_pad_warm").gain(0.5)

// drums · kick
const kick = s("bd").struct("<[x!2]!117 [x ~@2 x] ~>").gain(0.4).pan(0.3)

// drums · snare
const snare = s("sd").struct("<~@7 [~ x ~@2] [~ x ~ x]!109 [x ~ x!3 ~ x ~] ~>").gain(0.4).pan(0.3)

// drums · hihat
const hihat = s("hh").struct("<[x!8]!117 ~@2>").gain(0.35).pan(0.3)

// drums · low tom
const low_tom = s("lt").struct("<~@117 x ~>").gain(0.5).pan(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@117 [~ x ~@2] ~>").gain(0.5).pan(0.3)

// drums · high tom
const high_tom = s("ht").struct("<~@117 [~ x] ~>").gain(0.5).pan(0.3)

// drums · crash
const crash = s("cr").struct("<~@117 [~@3 x] ~>").gain(0.5).pan(0.3)

// drums · ride
const ride = s("rd").struct("<~@7 A B ~@31 C ~@33 B ~@3 B ~@5 B ~ B ~@5 B ~@3 B ~@20 D ~>".pickRestart({
  A: "~ x ~@2", B: "x", C: "x ~@2 x ~@2 x ~", D: "x!7 ~",
})).gain(0.5).pan(0.3)

// drums · tambourine
const tambourine = s("tb").struct(`<
  ~@24 A@16 ~@18 A@16 ~@3 B ~@3 B ~@3 B ~ B ~@2 C ~@4 B ~@3 D A@16 E F ~
>`.pickRestart({
  A: "x!8", B: "x!2 ~@6", C: "~@6 x!2", D: "x!3 ~@5", E: "x ~@2 x ~@2 x ~", F: "~@3 x",
})).gain(0.35).pan(0.3)

stack(bass, piano, french_horn, pad_warm, kick, snare, hihat, low_tom, mid_tom, high_tom, crash, ride, tambourine)