// Blue Morning, Blue Day — Foreigner
// 121 bpm, 4/4, key B minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 95 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(121/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, A@4 for four bars: edit a riff to change every repeat.

// chords · piano · "Track 1"
const piano = note(`<
  ~ A B C@2 A B C@2 D A E F G A E H D A E F D A E F A B I J A B I J A B A B D A E F D A E F D A E F D A E F A B I J A B
  I J K L K L K L K L A B I J A B I J A B A B A B A B A B A B A B A M@2 N
>`.pickRestart({
  A: "[b3,d4,f#4] ~ [b3,d4,f#4] ~ [b3,d4,f#4] ~ [b3,d4,f#4] ~", // Bm
  B: "[b3,d4,f4] ~ [b3,d4,f4] ~ [b3,d4,f4] ~ [b3,d4,f4] ~", // Bdim
  C: "[[b3,d4,f#4]@2 ~@2 [b3,d4,f#4]@2 ~@2 [b3,d4,f#4]@2 ~@2 [b3,d4,f#4]@2 ~@2 [b3,d4,f4]@2 ~@2 [b3,d4,f4]@2 f2@2 [b3,d4,f4]@2 e2@2 [b3,d4,f4]@2 d2 ~, ~@7 g2@3 ~@6]/2", // Bm Bdim
  D: "[f#3,a#3,c#4] ~ [f#3,a#3,c#4] ~ [f#3,a#3,c#4] ~ [f#3,a#3,c#4] ~", // F#
  E: "[a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~ [a3,c#4,e4] ~", // A
  F: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~", // G
  G: "a#3 a3 ~@2 [f#3,a#3,c#4]@2 ~@2 [f#3,a#3,c#4]@2 ~@2 [f#3,a#3,c#4]@2 ~@2, [f#3,c#4] ~@7", // F# F#5
  H: "[g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~ [g3,b3,d4] ~, e4 ~@15", // G
  I: "[b3,c#4,e4] ~ [b3,c#4,e4] ~ [a#3,c#4,e4] ~ [a#3,c#4,e4] ~", // C#m7 A#dim
  J: "[a#3,c#4,e4] ~ [a#3,c#4,e4] ~ [b3,d4,f#4] ~ [b3,d4,f#4] ~", // A#dim Bm
  K: "[f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,a3,c#4] ~ [f#3,a3,c#4] ~", // F#m
  L: "[f#3,a3,c4] ~ [f#3,a3,c4] ~ [f#3,a3,c4] ~ [f#3,a3,c4] ~", // F#dim
  M: "[b3!2 ~ f4 ~@2 d4 ~@4 f4 [b3,f4]!2 f4@2 [b3,f4]!2 ~ f4!2 [b3,d4,f4] f4!2 [d4,f4] [b3,f4] d4!2 d4@2 ~@2, d4@6 ~ d4@3 d4@2 d4@2 d4@6 ~@2 d4@2 ~@8, f4@2 b3@6 b3@4 ~@6 b3@2 ~@3 b3@2 ~@2 b3@3 ~@2, ~@4 f4@5 f4@2 ~@15 f4@2 f4 ~@3]/2", // Bdim Dm Bdim
  N: "[b3,d4,f#4]@3 ~@13", // Bm
})).s("gm_piano").gain(0.46)

// bass · electric bass finger · "Track 2"
const bass = note(`<
  ~@3 A@2 B C D@2 E F G H I F G H I F G H E F G J K L M N K L M N O P Q@2 E F G H E F G H E F G H E F G R K L M N K L M
  N S T U@2 V T W@2 K L M N K L M N K L K L K L X Y Z C AA@2 B C AB@2 ~ AC
>`.pickRestart({
  A: "[~@14 g2@6 ~@2 f2@3 ~ e2@3 ~ d2 ~]/2", B: "b1@2 a#1@2 b1@4 ~@2 a#1@2 b1 ~ c#2 ~", C: "d2 c#2 d2@2 ~ c#2 d2 ~",
  D: "[f#2@2 f2@2 f#2@3 ~@3 f2 ~ f#2 ~ g2@6 ~@2 f2@3 ~ e2@2 ~@2 d2@2]/2", E: "f#1 a#1", F: "b1@3 d2@3 b1@2",
  G: "a1 c#2", H: "g1@3 b1@3 g1@2", I: "f#1@8 a#1@7 ~", J: "g1@6 f#1 ~", K: "b1 ~ b1 ~ b1 ~ b1 ~",
  L: "g1 ~ g1 ~ g1 ~ g1 ~", M: "f#1 ~ f#2 ~ f#2 ~ f#2 ~", N: "f#2@2 a#1@2 ~@2 b1@5 ~@5",
  O: "b1@2 a#1@2 b1@3 ~@3 a#1@2 b1 ~ c#2 ~", P: "d2@2 c#2@2 d2@3 ~@3 c#2@2 d2@2 ~@2",
  Q: "[f#2@2 f2@2 f#2@3 ~@3 f2@2 f#2 ~ g2@14 ~@4]/2", R: "g1@9 ~@3 f#1@4", S: "f#1@2 e1@2 f#1@3 ~@3 e1@2 f#1 ~ g#1 ~",
  T: "a1@2 g#1@2 a1@3 ~@3 g#1@2 a1@2 ~@2", U: "[c#2@2 b1@2 c#2@3 ~@3 b1@2 c#2 ~ d2@6 ~@2 c2@3 ~ b1@2 ~@2 [g1,a1] ~]/2",
  V: "f#1 ~ e1@2 f#1@4 ~@2 e1@2 f#1 ~ g#1 ~", W: "[c#2@2 b1@2 c#2@3 ~@3 b1@2 c#2 ~ d2@6 ~@2 c2@3 ~ b1@2 ~@2 a#1 ~]/2",
  X: "b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~", Y: "g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~",
  Z: "b1 ~ a#1 ~ b1@3 ~@3 a#1@2 b1 ~ c#2 ~",
  AA: "[f#2@2 f2@2 f#2@3 ~@3 f2@2 f#2 ~ g2@6 ~@2 f2@3 ~ e2@2 ~@2 [c#2,d2] ~]/2", // Dmaj7
  AB: "[f#2@2 f2@2 f#2@3 ~@3 f2@2 f#2 ~ g2@18]/2", AC: "b1 ~@3",
})).s("gm_electric_bass_finger").gain(0.64)

// other · overdriven guitar · "Track 6"
const overdriven_guitar = note("<~@5 A B C@2 ~@52 D E F@2 G H I@2 J ~@8 K@2 L@2 M@2 ~@4 N ~@3 N O J>".pickRestart({
  A: "b4@2 a#4 ~ b4@4 ~@2 a#4 ~ b4 ~ c#5 ~", B: "d5@2 c#5@2 d5@3 ~@3 c#5 ~ d5@2 ~@2",
  C: "[f#5@2 f5 ~ f#5@4 ~@2 f5 ~ f#5 ~ g5@6 ~@2 b5@4 g5 ~ d6@4]/2", D: "g#4@2 f#4@3 ~@3", E: "g#4@2 f#4 d4@3 ~@2",
  F: "[~@2 c#4 ~ f#4 ~ a4 ~ c#5 ~ f#5 ~ c#5 ~ d5@6 ~@2 f#5@4 d5 ~ a5@3 ~]/2",
  G: "g#4 a4 g#4 f#4 c#4@2 g#4 a4 g#4 f#4 c#4@2 g#4 a4 g#4 f#4",
  H: "a4 ~ a4 f#4 d4@2 a4 b4 a4 [d4,f#4]@2 ~ [a4,b4] [f#4,a4] ~@2, ~ b4@2 ~@13", // D Asus2 F#m
  I: "[~@2 f#4@2 a4@2 c#5 ~ a5@2 g#5@2 e5@2 f#5@8 g#5@5 ~ a5@3 ~]/2", J: "b5@3 ~@13",
  K: "[~@2 b4@4 g4@3 ~ f4@3 ~ f#4@9 ~@9]/2", L: "[~@2 g4@4 b4@4 d5@2 a5@2 f#5@11 ~@7]/2",
  M: "[~@2 b4@4 g4@3 ~ f4@3 ~ f#4@11 ~@7]/2", N: "~@6 b4@4 g4@2 d5@3 ~", O: "f5@4 ~@2 g5@4 ~@2 a5@3 ~",
})).s("gm_overdriven_guitar").gain(0.64)

// other · harmonica · "Track 8"
const harmonica = note(`<
  ~@9 A B C@2 D E F G H I C@2 D I C@2 J K L M J N L O ~@4 P Q C@2 P I F R S T U@2 V W X@2 J K L M J N L M ~@8 J K L M J
  Y L M J ~ Z ~ AA ~ AB AC ~@10
>`.pickRestart({
  A: "f#3 ~ f#3 ~ f#3 ~ a#3@6 ~@2 a#3 ~", B: "d4 ~ b3@3 ~ b3@6 ~@2 b3 ~", C: "[e4@3 ~ e4 ~ d4@3 ~ c#4@3 ~ b3@8 ~@10]/2",
  D: "f#3 ~ f#3 ~ f#3 ~ a#3@3 ~ a#3 ~ a#3 ~ a#3 ~", E: "d4 ~ b3 ~ a#3 ~ b3@5 ~@3 b3 ~",
  F: "e4@3 ~ e4 ~ d4@3 ~ c#4@2 ~@3 c#4, ~@7 d4", G: "b3@5 ~@11", H: "f#3@2 ~@2 f#3 ~ a#3@3 ~ a#3@3 ~ a#3 ~",
  I: "d4 ~ b3 ~ a#3 ~ b3@6 ~@2 b3 ~", J: "~@4 d4@2 c#4@4 b3@3 ~@3", K: "~@4 d4@2 c#4@3 ~@7",
  L: "~@2 f#3 ~ f#3 ~ a#3@3 ~ a#3@3 ~@3", M: "~ d4@2 c#4@2 ~@3", N: "~@2 e4 ~ d4 ~ d4@4 b3@4 ~@2",
  O: "d4@4 c#4@2 b3@5 ~@5", P: "f#3 ~ f#3 ~ f#3 ~ a#3@3 ~ a#3@3 ~ a#3 ~", Q: "d4@2 b3 ~ a#3 ~ b3@6 ~@2 b3 ~",
  R: "b3@6 ~@8 f#4 ~", S: "b4@2 ~ a4@2 a4@2 ~ g4@2 ~ f#4 ~ d4 ~@2", T: "e4 ~ e4 ~ d4 ~@2 f#4@5 ~@4",
  U: "[~@4 e4 ~ e4 ~ d4@3 ~ c#4 ~ b3@6 ~@10 f#4!2]/2", V: "b4@4 ~ a4 f#4 a4@4 ~@3 d4 ~", W: "e4 ~ e4 ~ d4 ~ f#4@5 ~@5",
  X: "[~@4 e4 ~ e4 ~ d4@3 ~ c#4 ~ b3@6 ~@12]/2", Y: "~@2 e4 ~ d4 ~ d4@3 b3@3 ~@4", Z: "~@2 d4@4 c#4@3 b3@3 ~@4",
  AA: "~@2 d4@4 c#4@4 b3@3 ~@3", AB: "~@2 f#4@2 ~@2 a4@3 ~ b4@2 ~@2 d5@2", AC: "a4 b4@3 ~@5 d5 a4 b4@3 ~@2",
})).s("gm_harmonica").gain(0.64)

// drums · kick
const kick = s("bd").struct(`<
  ~@3 A ~ B@2 C ~ D E D E D E D E D E D E D E D ~ B@3 F B@3 G B@2 H ~ D E D E D E D I J B D E D E D ~ B@3 F B@3 G B@2 C
  K B@2 C ~ B@3 F B@3 G B@6 L M B@2 C ~ B@2 H ~@2 N
>`.pickRestart({
  A: "~@7 x", B: "x ~@3 x!2 ~@2", C: "x ~@3 x!2 ~ x", D: "x!2", E: "x ~@2 x ~ x ~@2", F: "x!2 ~ x ~ x ~@2",
  G: "x!2 ~ x ~@4", H: "x ~@4 x!3", I: "x ~@6 x", J: "x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2", K: "~ x ~ x ~ x ~@2",
  L: "x!2 ~ x!3 ~ x", M: "~ x ~ x ~ x ~ x", N: "x",
})).gain(0.66)

// drums · snare
const snare = s("sd").struct(`<
  ~@5 A B@2 C B@15 ~ B@7 D A B E ~ B@7 F ~ B@6 ~ B@7 D B@7 G B@7 D B@7 H B@3 C B@2 E ~@2 I
>`.pickRestart({
  A: "~@4 x ~@2 x ~@4 x ~@3", B: "~ x ~ x", C: "~ x ~@6", D: "~@4 x ~@5 x ~ x!2 ~@2", E: "~@4 x ~@2 x!2 ~@7",
  F: "~@4 x ~@3 x!5 ~@3", G: "~ x!2 ~@5", H: "x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2", I: "x",
})).gain(0.66)

// drums · low tom
const low_tom = s("lt").struct("<~@4 A ~@3 B ~@15 B ~@7 C ~@19 B ~@7 C ~@7 A ~@7 C ~@11 B ~@5 D>".pickRestart({
  A: "~@10 x ~ x!3 ~", B: "~@12 x!3 ~", C: "~@15 x", D: "x",
})).gain(0.66)

// drums · hihat
const hihat = s("hh").struct("<A@25 B A@3 B A@23 B A@3 B A@3 ~@8 B A@3 B A@11 B A@3 B A@3 ~@2>".pickRestart({
  A: "x!4", B: "~ x!3",
})).gain(0.66)

// drums · mid tom
const mid_tom = s("mt").struct("<~@4 A ~@3 B ~@15 C ~@7 D ~@3 E ~@15 C ~@7 D ~@7 A ~@7 D ~@11 B ~@5 F>".pickRestart({
  A: "~@3 x!2 ~@3", B: "~@8 x!3 ~@5", C: "~@4 x!3 ~ x ~ x ~@5", D: "~@7 x", E: "~@8 x!8", F: "x",
})).gain(0.66)

// drums · high tom
const high_tom = s("ht").struct("<~@4 A ~@3 B ~@15 C ~@27 C ~@15 A ~@19 B ~@6>".pickRestart({
  A: "~ x!2 ~@5", B: "~@4 x!3 ~@9", C: "x!3 ~@13",
})).gain(0.66)

// drums · crash
const crash = s("cr").struct(`<
  ~@3 A ~ B ~ A ~ B ~@15 B ~@3 B ~@2 C ~@2 D ~ B ~@7 E B ~@6 B ~@3 B ~@2 C B ~@3 B ~@3 B ~@3 B ~@2 C B ~@7 B ~@3 B ~ D F
  G B
>`.pickRestart({
  A: "~@7 x", B: "x", C: "~ x ~ x ~@4", D: "~@5 x!3", E: "x ~@2 x ~ x ~@2 x ~@2 x ~ x ~@2", F: "x!3 ~@7 x ~@3 x ~",
  G: "x!4 ~ x!11",
})).gain(0.59)

// drums · crash · soft notes
const crash_soft = s("cr").struct("<~@92 [~@3 x!7 ~ x!5] [~ x ~@2 x ~@11] ~>").gain(0.33)

// drums · ride
const ride = s("rd").struct("<~@61 [~ x!3] [x!4]!3 [~ x!3] [x!4]!3 ~@26>").gain(0.66)

stack(
  piano, bass, overdriven_guitar, harmonica, kick, snare, low_tom, hihat, mid_tom, high_tom, crash, crash_soft, ride
)