// That's What Love Is For — Amy Grant
// 74 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 65 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(74/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 · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~@12 A B A C D E F G H I H J K L M N O ~ A B A C D E F G H I H J K L M N P Q H I H J K L M N R ~@8
>`.pickRestart({
  A: "f1 a1", B: "bb1", C: "bb1@2 c2 bb1", D: "a1@5 ~ a1@2 bb1@5 ~ bb1@2", E: "a1 bb1", F: "g1@5 ~ g1@2 a1@5 ~ a1@2",
  G: "bb1@2 ~ bb1 d2@2 c2@2", H: "d2@3 gb1 g1@2 b1@2", I: "a1@5 ~ a1@2 b1@4 db2@4", J: "a1@2 ~ a1 b1@2 db2@2",
  K: "b1@5 ~ b1@2 db2@8", L: "b1@3 b1 db2@4", M: "bb1@5 ~ bb1@2 c2@5 ~ c2@2", N: "d2@5 ~ d2@2 e2@8",
  O: "d2@5 ~ d2@2 gb2@5 ~ gb2@2", P: "d2@6 d2@2 gb1@5 ~ gb1@2", Q: "g1@5 ~ g1@2 a1@4 a1@4", R: "d2",
})).s("gm_electric_bass_finger").gain(0.22)

// chords · piano · "A.PIANO 2"
const piano = note(`<
  A B C D E F G H I J K L E M G H I N O P Q R S T U@2 V W X Y Z AA G H I N O P Q AB S AC AD U V W AE AF AG AB S T AD U V
  W AH ~@8
>`.pickRestart({
  A: "f3 a3 f3@2 ~ c4 a3@2, ~@2 a3 ~", B: "bb3@2 d4@2 bb3@3 ~@3 d4@2 bb3@4, ~@2 bb3 ~", C: "a3 ~ a3@2 c4@4, ~ c4@3 ~@4",
  D: "~@2 d3 e3, bb3@5 ~@3", E: "f3 [a2,g3]", F: "[d3,f3]@3 ~ d3@4, ~@4 f3@3 ~", G: "f3@3 ~ [a2,f3]@4",
  H: "bb2@2 c3 bb2", I: "[a2,f3] [bb2,f3]", J: "[a2,f3] bb2, ~@4 f3@3 ~", K: "f3, g2@13 ~@3",
  L: "[c3,e3]@2 ~ c3 bb2@2 c3@2, ~@4 e3@5 ~@7", M: "[d3,f3]@7 ~ [d3,f3]@8", N: "[a2,f3] bb2", O: "g2 a2",
  P: "bb2@2 d3 e3", Q: "~@3 gb3 g3@2 b3@2, d3 ~", R: "[db3,a3]@8 b2@4 db3@3 ~", S: "d3@3 gb3 g3@2 b3@2",
  T: "[db3,a3]@2 g3 a3", U: "[b2,g3] [db3,a3]", V: "bb2 c3", W: "d3 e3", X: "d3@6 d3@2 gb3@5 ~ gb3@2", Y: "g3@2 d3 e3",
  Z: "f3 a2, ~@4 g3@3 ~", AA: "[d3,f3]@3 ~ [d3,f3]@4", AB: "[db3,a3]@2 b2 db3", AC: "[db3,a3]@7 ~ g3@4 a3@4",
  AD: "[b2,g3] db3, ~@4 a3@3 ~", AE: "d3@3 d3 gb3@3 gb3", AF: "g3@5 ~ g3@2 a3@3 ~ a3@4", AG: "d3@5 ~ gb3@2 g3@4 b3@4",
  AH: "[d3,gb3]", // D
})).s("gm_piano").gain(0.36)

// chords · lead 5 charang · "CHARANG"
const lead_5_charang = note("<~@20 A B A B C D E F G ~@9 A B A B C D E F G ~ A B A B C D E F H ~@8>".pickRestart({
  A: "[d3,a3] [d3,b3]", B: "[e3,a3]@2 [d3,g3] [e3,a3]", C: "[d3,g3] [e3,a3]", D: "[d3,g3] [e3,a3], f3 ~@15",
  E: "[f3,bb3] [g3,c4]", F: "[bb2,f3] [c3,g3]", G: "[d3,a3]@3 ~", H: "[d3,a3,d4]",
})).s("gm_lead_5_charang").gain(0.05).pan(0.4)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note(`<
  ~@16 A@3 B C D E@2 F G H I J@2 ~@4 A@3 B C D E@2 F G H I J@2 C D E@2 F G H I K@8 ~
>`.pickRestart({
  A: "[~@7 f4@4 ~@4 f4@5 ~@4, ~@5 c4@6 ~@2 c4@7 ~@4, ~@6 g4@5 ~@3 g4@6 ~@4]/3", B: "~@8 [f3,bb3,f4]@3 ~ [g3,c4,g4]@4",
  C: "~@3 gb2 ~@2 b3@2, d3@4 g2@3 ~, ~ a3@2 d4@7 d3@5 ~, ~ e4@4 ~@3, ~@5 a3@11",
  D: "~@3 db4@2 b3 a3@2 ~@2 d4@2 ~@2 e4@2, a2@3 ~ b2@2 db3@2, ~ e3@6 ~@2 g3@3 ~ a3@2 ~, ~ d4 ~@6",
  E: "[~@6 gb2@2 ~@4 b3@4 ~@3 db4@2 b3 a3@2 ~@2 d4@2 ~@2 e4@2, d3@5 a3@13 ~@7 g3@3 ~ a3@2 ~, ~ a3@2 d4@7 d3@4 ~@3 e3@6 ~@9, ~ e4@4 ~@4 d4 ~@6, ~@8 g2@6 ~@2 a2@6 ~@2 b2@4 db3@3 ~]/2",
  F: "~@3 d4@5 ~@3 e4@5, b2@7 ~ db3@8, ~ g3@7 ~@2 b3@6, ~@2 a3@6 ~ a3@6 ~",
  G: "~@3 d4@5 ~@3 e4@5, b2@8 db3@7 ~, ~ g3@7 ~@2 b3@6, ~@2 a3@6 ~ a3@6 ~",
  H: "~@3 c4@5 ~@3 d4@5, d3@4 ~ c4@3, ~ f3@7 e3@8, ~@2 bb3@6 ~ g3@7",
  I: "~@3 d4@5 ~@3 e4@4 ~, f3 g3, ~ bb3@7 ~@2 d4@5 ~, ~@2 c4@6 ~ c4@6 ~",
  J: "[~@3 gb4@25 ~@4, a3@7 ~, ~ d4@27 ~@4, ~ e4@13 ~@2]/2", K: "[~@3 gb4@13 ~@112, a3 ~@7, ~ d4@15 ~@112, ~ e4@63]/8",
})).s("gm_electric_guitar_clean").gain(0.12).pan(0.6)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  A@3 B C D@2 E F G H I C D@2 E F G J@2 K L M L N@2 O P Q R C D@2 E F G J@2 K L M L N@2 O P S@2 K L M L N@2 O P T ~@8
>`.pickRestart({
  A: "[[f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [e4,c5] ~ [c4,e4] ~ [e4,c5] ~ [c4,e4] ~, f2@5 ~, [c3,a3] [d3,bb3] c3, ~@4 a3 [e3,g3]]/3", // F5 C F Gm Em
  B: "[f4,c5] ~ [c4,f4] ~ [f4,c5] ~ [c4,f4] ~ [d2,f3,c4,f4]@4 [e2,g3,c4,g4]@4, [bb2,d3,f3,bb3] ~", // F5 Dm7 C Bb
  C: "[f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~, [f2,a3] a2", // F5 F
  D: "[[f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~, f3@23 ~@9, ~ d4 [f2,a3] [a2,g3]]/2", // F5 F A7
  E: "[f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [g3,e4]@2 c4 ~ [f3,d4]@2 c4 ~, d4@7 ~ [f4,c5] ~@3 [f4,c5] ~@3", // F5 C Dm F5
  F: "[f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~, g3@2 ~@2 f3@11 ~, ~@8 d4@7 ~", // F5
  G: "[f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~ [f4,c5] ~ c4 ~, a2 ~, g3@2 ~@2 f3@4 [f3,d4]@7 ~", // F5 Dm
  H: "[f4,bb4] ~@3 [f4,bb4] ~@3 [f4,bb4] ~@3 [f4,bb4] ~ d4 ~, bb3@15 ~, d4 d4@2 d4@2 d4@2 ~", // Bb5
  I: "[g4,c5] ~ c4 ~ [g4,c5] ~ c4 ~ [bb3,d4]@2 d4@2 [g4,c5] ~ c4@2, [c3,g3,e4]@8 [f4,bb4] ~@3 [c3,e4]@4", // C5 Bb C5 C Bb5 C
  J: "[[g4,bb4] ~ d4 ~ [g4,bb4] ~ d4 ~ [a4,c5] ~ f4 ~ [a4,c5] ~ f4 ~ [bb4,d5] ~ f4 ~ [bb4,d5] ~ f4 ~ [bb4,d5]@2 f4@2 [c5,e5]@2 g4@2, [g2,d3,bb3]@2 f3@5 ~, ~@2 [a2,c4]@2 [bb2,d4]@2 [d3,bb3] [c3,g3,c4]]/2", // Gm Am Bb C Gm Am Bb Gm …
  K: "~@2 gb5 a5 b5@2 gb5@2", L: "e5@3 gb5 g5 gb5 e5 d5", M: "d5@2 gb5 a5 b5@2 gb5@2", N: "d5!2 b5@2 a5 e5 b4 db5",
  O: "d5!3 e5!2 d5 c5@2", P: "f5!4 g5@2 a5@2", Q: "a5@6 g5 gb5 e5@5 d5 db5 ~", R: "b4@5 a4 g4 ~ f4@4 e4@4",
  S: "[a5@6 g5 gb5 e5@5 d5 db5 b4@6 ~ [g4,a4] ~ gb4@4 e4@4]/2", T: "a5",
})).s("gm_string_ensemble_1").gain(0.19)

// chords · string ensemble 1 · "STRINGS" · soft notes
const string_ensemble_1_soft = note("<~@4 A B ~ C D E F G A B ~ C D E ~@12 A B ~ C D E ~@29>".pickRestart({
  A: "~ g3", B: "[bb2,bb3]", C: "[bb2,f3,bb3]@2 c3 [bb2,bb3]", D: "a2 [bb2,bb3]", E: "~ [bb2,bb3]", F: "g2",
  G: "~@2 [bb2,f3] g3, ~@6 c4 ~", // Bb5
})).s("gm_string_ensemble_1").gain(0.11)

// other · pad new age · "FANTASIA"
const pad_new_age = note(`<
  [~@4 a5@2 c6@2 g6@4 f6@3 ~]
  [f6@3 d6]
  [c6@5 ~ c6@2 bb5@2 a5@2 g5@2 f5@2]
  [bb5 a5 f5 g5]
  ~@61
>`).s("gm_pad_new_age").gain(0.22).pan(0.6)

// drums · kick
const kick = s("bd").struct("<~@11 A B@2 C B C B D@2 E@8 B ~ B@2 C B C B D@2 E@9 B E@8 B@2 ~@7>".pickRestart({
  A: "~@7 x", B: "x", C: "x ~@6 x", D: "x!2", E: "x ~@2 x!2 ~@3",
})).gain(0.46)

// drums · snare
const snare = s("sd").struct("<~@20 A@7 B ~ C ~@8 A@7 B A C A@7 B ~@9>".pickRestart({
  A: "~ x ~ x", B: "~@2 x ~@2 x ~@2", C: "~@2 x ~@6 x!2 ~@5",
})).gain(0.46)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@13 A ~ B ~ B ~ C ~@3 C ~ A ~ A ~ D ~ A ~ B ~ B ~ C ~@3 C ~ A ~ A ~ D ~@3 C ~ A ~ A E ~@8
>`.pickRestart({
  A: "~@7 x", B: "~@3 x", C: "~@13 x!2 ~", D: "~@6 x ~@6 x!2 ~", E: "~@15 x",
})).gain(0.36)

// drums · pedal hat
const pedal_hat = s("hh").struct("<~@12 [~ x ~ x]!7 [~@4 x ~@6 x ~@4] ~@10 [~ x ~ x]!7 [~@4 x ~@6 x ~@4] ~@27>")
  .gain(0.46)

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

// drums · open hat
const open_hat = s("oh").struct("<~@19 [~@3 x] ~@17 [~@3 x] ~@27>").gain(0.36)

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

// drums · ride
const ride = s("rd").struct(`<
  ~@12 A ~ A ~ A@2 ~@2 B C B D E F G H ~ I A ~ A ~ A@2 ~@2 B C B D E F G H J K B C B D E F G H ~@9
>`.pickRestart({
  A: "x", B: "~@2 x ~ x ~ x!3 ~ x ~ x ~ x ~", C: "x ~ x ~ x ~ x!3 ~ x ~ x ~ x!2", D: "x!3 ~ x ~ x!3 ~ x ~ x!3 ~",
  E: "~@2 x ~ x ~ x ~ x!3 ~ x ~ x!2", F: "~@2 x ~ x ~ x!3 ~ x ~@3 x!2", G: "~@2 x ~ x ~ x ~@3 x ~ x!3 ~",
  H: "~@2 x ~ x!3 ~@3 x ~ x ~ x!2", I: "~ x ~@6", J: "~@2 x ~ x ~ x!3 ~ x ~ x ~ x!2", K: "x!2 ~@14",
})).gain(0.36)

stack(
  bass, piano, lead_5_charang, electric_guitar_clean, string_ensemble_1, string_ensemble_1_soft, pad_new_age, kick,
  snare, low_tom, pedal_hat, mid_tom, open_hat, crash, ride
)