// Baby I Love Your Way — Peter Frampton
// 75 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: track names are the Roland MT-32 patch names at their program numbers ("Brass" on 24, "Electric Piano" on 3, "Synth Bass" on 69, "Bells" on 38), so with no bank select the whole file is read through the MT-32 patch table: ch 3 "Brass" Syn Brass 1 -> synth brass 1; ch 4 "Electric Piano" Elec Piano 1 -> epiano1; ch 5 "Synth Bass" Slap Bass 2 -> slap bass 2; ch 7 "Bells" Warm Bell -> pad bowed; ch 8 "Choir" Chorale -> choir aahs
// note: Full arrangement: all 92 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(75/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 · synth brass 1 · "Brass"
const synth_brass_1 = note(`<
  ~@3 A ~@19 B@2 ~@2 C ~@3 D ~@3 C ~ E F ~ F ~@2 G H ~@12 I ~ J@2 I ~@9 I ~@3 I ~@3 I ~@12
>`.pickRestart({
  A: "[c4,e4] [d4,f#4] [e4,g4] [e4,g4,a4]@4 ~", B: "[[c4,e4] [d4,f#4] [e4,g4] [e4,g4,a4]@6 ~@7]/2",
  C: "~@11 g5 f#5 d5 a4 d5", D: "~ d4@2 ~ d5@2 ~ a5@2 ~ d5@2 ~ e4 f#4 e4", E: "~@8 a5@2 ~ a4 ~@2 g4@2", F: "a4 ~@3",
  G: "~@10 g5 f#5@3 d5@2", H: "g5 ~", I: "~@9 e5 ~ a5 ~ b5 g5@2", J: "[~@9 g5 ~ g5 ~ e5 ~ g5@3 a5 b5 ~@12]/2",
})).s("gm_synth_brass_1").gain(0.56)

// chords · epiano1 · "Electric Piano"
const epiano1 = note(`<
  A B C D E F G H I J K L M N O P Q R Q S Q S T U Q V W X I Y Z AA AB AC AD AE AB AF AG AH AI AH E F G H I J K L M N O P
  Q R Q S Q S Q S Q S Q S AJ AK Q S Q S Q S Q S Q S Q S Q S Q AL ~@8
>`.pickRestart({
  A: "[g4,b4,d5]@3 [g4,b4,d5]@2 d4 g4 b4 [d4,f#4,a4]@3 [d4,f#4,a4]@3 f#4 a4, g3 f#3", // G D
  B: "[e4,g4,b4]@3 [e4,g4,b4]@2 e4 g4 b4 e5 b4 g4 e4 [e3,b3,e4,g4]@2 [d3,a3,d4,f#4]@2, e3@3 ~", // Em D
  C: "[g3,c4,e4]@3 [g3,c4,e4]@3 e4 [c3,d4] [f#3,a3,d4]@2 [f#3,a3,d4]@4 d4 [b2,c4], c3@7 ~ b2@7 ~", // C Csus2 D Cmaj7
  D: "[a2,a3,c4,e4] [b2,b3,d4,f#4] [c3,c4,e4,g4] [d3,c4,e4,g4,a4]@5", // Am Bm C Am7
  E: "[b3,d4,g4]@3 [b3,d4,g4] [a3,d4,f#4]@3 [a3,d4,f#4]", F: "[g3,b3,e4]@6 [g4,b4] [f#4,a4]",
  G: "[c4,e4]@9 ~@5 c4 e4, g4@7 ~", H: "[a3,d#4,g4]@8 g4 d4 c4 a3 f3@4", I: "[b3,d4,g4]@4 [a3,d4,f#4]@3 [a3,d4,f#4]",
  J: "[g3,b3,e4]@8 ~@3 e4@3 [f#4,a4]@2, ~@4 e5@3 ~, ~@9 b4@5 ~@2, ~@5 g4@2 ~", K: "[c4,e4,g4]@4 g4@2 g4 e4",
  L: "[a3,d#4,g4]@2 ~ f3, ~ g4, ~@9 d#4@7, ~@5 c4@3, ~@11 a3@5", M: "[b3,d4,f#4]@5 [b3,d4,f#4]@2 [f#3,b3,d4]",
  N: "[g#3,b3,e4]@9 [a3,b3,e4]@7", O: "[a3,c4,e4]@10 [a3,c4,e4]@3 [a3,c4,e4]@3",
  P: "[a3,c4,e4]@5 [a3,c4,e4]@3 [a3,d4,f#4]@5 [a3,d4,f#4]@3", Q: "[b3,d4,g4] [a3,d4,f#4]",
  R: "~@2 [a3,c4,e4]@4 [a3,c4,e4]@2 [a3,c4,e4] [c4,e4]@3 [c4,e4] [b3,d4] [a3,c4]@2", // Am C Bm Am
  S: "[a3,c4,e4]@3 [a3,c4,e4]@3 [a3,c4,e4]@3 [a3,c4,e4]@3 [c4,e4] [b3,d4] [a3,c4]@2", // Am C Bm Am
  T: "[g3,c4,e4]@3 [g3,c4,e4]@3 e4 d4 [f#3,b3,d4]@2 [f#3,b3,d4]@4 d4 c4", // C Bm
  U: "[a3,c4,e4] [b3,d4,f#4] [c4,e4,g4] a4 a4@4, ~@3 [c4,e4,g4]@5", V: "[b3,e4,g4]@7 [g3,b3,e4]",
  W: "[c4,e4,a4]@4 [g3,c4,e4]@3 [g3,c4,e4]", X: "d4@9 ~@2 g5 f#5 d5 a4 d5, [f#3,a3], ~@9 d4@7",
  Y: "[b3,e4,g4]@5 ~@3 b4@6 [g3,b3,e4]@2, ~@5 b3@4 ~@7, ~@6 e4@3 ~@7, ~@7 g4@2 ~@7", // Em
  Z: "f4@4 f4@2 a4@2 [g3,c4,e4]@4 c4@2 c4 e4, [a3,c4] ~", AA: "d4@8 d4 e4 f#4 g4@2 e4 g4 e4, [f#3,a3]",
  AB: "[b3,d4,g4]@2 d4 g4 [a3,d4,f#4]@2 d4 f#4", // G D
  AC: "[b3,e4,g4]@4 [b3,e4,g4] ~@3 b4@4 e4@2 g4@2, ~@5 b3@7 ~@4, ~@3 e4@3 ~@2, ~@7 g4@5 ~@4", // Em
  AD: "[c4,e4,a4]@2 c4 a4 e4@2 e4@2, ~ [g3,c4]", AE: "d4@4 d4@4 [f#3,a3,d4]@3 g5 f#5 d5 a4 d5, [f#3,a3] ~",
  AF: "[b3,e4,g4]@4 [b3,e4,g4] ~@3 b4@4 ~@2 [e4,g4,b4]@2, ~@5 b3@7 ~@4, ~@3 e4@3 ~@2, ~@7 g4@5 ~@4", // Em
  AG: "[c4,f4,a4] ~@2 a4 [c4,e4,g4,a4]@3 [c4,e4,g4], ~ c4 ~@2, ~@5 f4@3 ~@8", AH: "[a3,d4,f#4] [a3,d4,f#4]@3",
  AI: "[c4,f4,a4]@2 ~@2 c4 f4 a4@2 [g3,c4,e4]@4 g3 c4 e4@2", // F C
  AJ: "[g3,c4,e4]@3 [g3,c4,e4] [g3,c4,e4]@2 e4 d4 [f#3,b3,d4]@2 [f#3,b3,d4]@4 d4 c4", // C Bm
  AK: "[a2,a3,c4,e4] [b2,b3,d4,f#4] [c3,c4,e4,g4] e4 e4@4, ~@3 [d3,c4,g4,a4]@5", // Am Bm C Dsus4
  AL: "[a3,c4,e4]@3 [a3,c4,e4]@3 [a3,c4,e4]@3 ~@7", // Am
})).s("gm_epiano1").gain(0.64)

// bass · slap bass 2 · "Synth Bass"
const bass = note(`<
  ~ A B C D E F G D E H I J K L M N O N O N O P Q R S T U R V T W R S T U R S T X T Y D E F G D E H I J K L M N O N O N
  O N O N O N O N Z N O N O N O N O N O N O N O N AA ~@8
>`.pickRestart({
  A: "~@6 e2 d2", B: "c2@6 ~ c2 b1@6 ~ b1", C: "a1@2 b1@2 c2@2 d2@6 e2 g2@2 e2", D: "g2 g2@2 g2 f#2 f#2@3",
  E: "e2@2 e2@5 b1 e2!2 b1 e1@3 d2@2", F: "c2@2 c2@5 g1 c2@2 c2@4 d2 e2", G: "f2@7 c2 f2 c2 f2@4 f2 f#2",
  H: "c2@2 c2@4 g1@2 c2@2 c2@4 d2 e2", I: "f2@7 c2 f2 c2 f2@6", J: "b1@7 f#1 b1@2 b1@4 d2@2",
  K: "e2@7 b1 e2!2 b1 e1@3 e2@2", L: "a1@4 a1@3 e1 a1@2 a1@2 a1@2 b1 c2", M: "d2@7 a1 d2 a1 d2@4 b1 a1",
  N: "g1 g1@2 b1 d2 d2@2 b1", O: "a1@2 a1@4 a1 b1 c2 c2@2 c2@2 b1 a1@2", P: "c2@7 c2 b1@2 b1@4 b1@2",
  Q: "a1@2 b1@2 c2@2 ~@6 e2 g2@2 e2", R: "g2@2 g2@5 g2 f#2@2 f#2@6",
  S: "e2@2 e2@5 ~ e2 ~@2 e1 e1@2 d2 e2, ~@7 b1@2 e2@2 ~@5, ~@5 b1 ~@2", T: "f2@2 f2@5 ~ c2@2 c2@5 c2, ~@7 f2@3 ~@6",
  U: "d2@2 d2@5 a1 d2!2 a1 d1!2 e2 f#2 e2", V: "e2@2 e2@5 ~ e2 ~@2 e1@3 d2 e2, ~@7 b1@2 e2@2 ~@5, ~@5 b1 ~@2",
  W: "d2@2 d2@5 a1 d2 e2 f#2 g2@2 e2 f#2 e2", X: "d2@2 d2@5 a1 d2 a1 d2@4 d2 e2",
  Y: "d2@2 d2@5 a1 d2 e2 f#2 g2@2 e2 g2 e2", Z: "a1 b1 c2 d2@2 d2 d2@2", AA: "a1@2 a1@4 a1 b1 c2 ~@7",
})).s("gm_slap_bass_2").gain(0.64)

// other · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  ~@16 A B A B A B A C A D E F A D E F A D E F A D E G H F I J K L I J K M N O P Q L R L R S R T R L R T R A U L R L R L
  R L R L R L R L R L V ~@8
>`.pickRestart({
  A: "g4 f#4", B: "e4", C: "e4 f#4 g4 a4@5", D: "g4", E: "f4 e4", F: "d4", G: "d4@8 d4 g4 a4 g4 a4 g4 a4!2",
  H: "a4 f4 e4@2", I: "b4 a4", J: "b4", K: "c5", L: "d5", M: "d5@2 d5!2", N: "b4@3 a4", O: "g#4@4 a4@4 b4@3 c5 d5@4",
  P: "e5 c5@3", Q: "e5 d5", R: "d5 c5 b4 a4", S: "d5@12 d5@3 e5", T: "d5@15 e5",
  U: "[c4,e4] [d4,f#4] [e4,g4] [e4,g4,a4]@4 ~", V: "d5 c5 ~@2",
})).s("gm_string_ensemble_1").gain(0.64)

// other · pad bowed · "Bells"
const pad_bowed = note("<~@16 A@6 ~@32 B C B C A@7 D E F A@15 G ~@8>".pickRestart({
  A: "d5!4", B: "d5", C: "~ d5!3", D: "d5@4 d5@4 ~ e5 ~ a5 ~ b5 g5@2", E: "g4 f#4",
  F: "[c4,e4] [d4,f#4] [e4,g4] [e4,g4,a4]@4 ~", G: "d5!2 ~@2",
})).s("gm_pad_bowed").gain(0.56)

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

// drums · snare
const snare = s("sd").struct(`<
  ~@2 A B C A@6 B A@11 B A@7 B A@3 B A@3 B A B C A@6 B A@3 B A@13 B A@15 D ~@8
>`.pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@7 x ~ x!2", C: "~@3 x ~@8 x ~@3", D: "~ x ~@2",
})).gain(0.56)

// drums · hihat
const hihat = s("hh").struct("<~@2 A B C A@6 B A@11 B A@7 D A@3 D A@3 D A D C A@6 B A@33 E ~@8>".pickRestart({
  A: "x!8", B: "x!6 ~@2", C: "x ~ x ~ x ~ x ~ x ~ x ~ x ~@2 x", D: "x!7 ~", E: "x!4 ~@4",
})).gain(0.64)

stack(synth_brass_1, epiano1, bass, string_ensemble_1, pad_bowed, kick, snare, hihat)