// You're Still My Man — Whitney Houston
// 100 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 103 bars on a 32-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(100/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 · "A.PIANO"
const piano = note("<A@7 B@8 C@7 D@6 E@2 F@6 G@6 H@6 I@4 J K@5 L@6 M@5 N@6 O@3 P@8 Q@8 R@8 ~>".pickRestart({
  A: "[~ d5@3 eb5@3 ~@25 d5@14 ~@9 f5@4 ~@49 f5@3 ~@18 [c5,eb5]@7 ~@23 bb5@4 ~@58 eb4@3, ~@7 c5@18 f5@7 bb4@14 d5@6 eb5@8 ~@8 g5@9 d5@8 g4@20 eb5@6 g5@12 [d5,f5]@13 [b4,d5]@14 [bb4,eb5]@14 ~@10 c6@44 d4@6, ~@7 d5@18 bb3@34 d5@12 a3@40 ~@3 g3@22 ~@53 eb4@9 f6@26, ~@7 f5@12 c4@40 [bb4,a5]@52 eb5@9 eb4@16 ~@10 g5@10 g5@7 [g5,d6]@61, ~@13 f3@46 ~@7 d3@45 ~@6 d4@19 ~@27 eb5@20 [bb4,eb5,f5]@41]/7", // Cm Dm Bm Eb5 Bbmaj7 G5 Bbsus4
  B: "[~@12 d4@3 d4@13 ~@19 f4@7 ~@49 f4@3 ~@9 g4@3 ~@8 eb4@4 [b3,d4]@13 ~@9 g4@4 ~@25 eb4@16 ~@7 eb4@3 [d4,f4]@9 [d4,f4]@3 ~ d4@12 ~@21 f4@3, bb2@55 ~@10 g4@41 g4@9 ~@3 g4@25 g4@9 ~@17 c5@13 ~@74, ~ f3@7 ~ f3@19 d4@17 d4@10 d4@19 d4@32 ~@6 g3@9 g3@22 [g3,bb3]@14 ~@75 bb3@24, ~@2 [d4,f4]@9 f4@4 f4@27 f4@5 ~@7 a4@46 eb4@6 eb4@18 c4@7 ~@16 eb4@9 [eb4,g4,d5]@26 ~@19 d4@6 ~@25 d4@17 d4@7, ~@80 bb3@26 bb3@24 ~@45 f4@32 ~@12 f4@25 f4@8 ~@4]/8", // Bm Dm Gm Dm Ebmaj7
  C: "[~@49 f4@3 [bb3,g4]@6 ~@2 g4@3 ~@12 [b3,d4]@13 eb4@6 ~@3 g4@4 ~@25 f3@13 ~@8 c4@3 ~@14 bb2@12 [f3,bb3]@6 ~@18 [a3,c4]@13 [g3,b3]@11, ~ [d3,bb3]@26 bb3@25 ~@6 bb3@18 ~@47 f2@3 g3@13 f3@6 bb3@5 d4@26 ~@6 [f3,bb3,f4]@15 g2@27, ~@2 d4@20 d4@31 ~@11 g4@13 ~@37 c5@12 bb3@16 g3@10 ~@24 ab2@12 ab2@12 ~@24, ~@3 a4@25 ~@18 eb4@6 eb4@20 [c4,eb4]@5 ~@43 f4@31 ~@43 g4@6 ~@24, ~@15 g4@13 ~@12 f3@12 ~@17 [d4,f4]@7 ~@18 eb4@7 [eb4,g4,d5]@25 eb4@25 [f3,bb3]@25 [ab1,d4]@24 [g1,f3,d4]@24]/7", // Eb Bm Bb5 Am G Gm Bb5 Cm …
  D: "[~ [b3,g4]@3 ~@3 [ab3,f4]@5 ~@10 g2@3 ~@20 d4@3 ~@21 bb4@4 ~@21 c3@3 ~@12 f3@6 ~@3 f2@2 ~@13 bb2@13 f3@6 ~@17 [a3,c4]@13 [g3,b3]@9 g2, ~ [g1,g2]@11 eb4@12 ~ eb4@23 eb4@16 c4@9 ~@12 f3@11 ~ [bb3,g4]@23 bb3@25 ~@18 g4@3 g2@25 ~, ~@4 [b3,g4]@9 [b1,b2,g3]@12 g3@15 g3@8 g3@18 eb4@6 ~ eb4@47 bb2@13 ~@13 ab2@12 ab2@11 [g1,f3,d4]@23, ~@19 [f3,d4]@7 ~@11 c3@11 bb2 bb1@24 [f1,f2,c4,bb4]@24 f2@6 a3@18 [bb1,d4,f4]@25 [ab1,bb3,d4]@24 ~@22, ~@43 c4@5 c4@13 bb2@12 ~@18 a4@6 f3@5 f4@13 f3@31 ~@6 [f3,f4]@18 ~@22]/6", // Em Db Am G Eb Em G7 Dm …
  E: "[~@2 b3 ~@4 [ab3,f4]@6 ~@6 [f3,d4]@5 ~@22 d4@3 [b1,b2,g3]@12 ~ [bb1,bb2]@2, ~ g4@3 [b3,g4]@9 ~@11 c2@26 ~@14, ~@2 g1@11 [b1,b2,g3,eb4]@12 g3@16 g3@2 c4@6 ~@15, ~@25 c3@13 c3@12 ~@14, ~@26 eb4@23 eb4@13 ~@2]/2", // Db Dm Em Bb Em Baug
  F: "[~@52 d4@3 eb4@2 ~ d4@6 ~@3 f4@3 ~@9 f2@3 ~@18 a1@6 ~@43 g2@3 [eb4,g4]@8 [eb4,g4]@3 ~@8 eb4@3 ~@13 [c2,bb3,eb4,g4]@4 eb4, ~ eb4@6 f2@21 a4@2 c3@27 ~ bb1@36 bb1@12 [g1,bb3,a4]@22 d3 bb3@9 d3@5 bb3@3 eb4@2 f4@4 ~@11 g4@24 ~@5, ~@2 c4@8 eb4@30 a3@19 ~@7 d4@3 ~ d4@27 d4@9 d4@17 d4@29 ~@11 eb4@3 g3@21 ~@5, ~@5 bb4@4 ~ [f1,c4,bb4]@24 ~@5 f4@19 bb2@12 f4@24 f4@5 f4@7 ~@9 g4@14 f3@23 c2@35 ~@5, ~@22 f3@12 [f3,bb3,g4]@12 f3@13 ~@5 f3@18 [bb2,f3]@24 g2@20 g2@15 g3@11 c3@17 c4@5 [b3,d4] c3@17]/6", // Eb Cm7 Gm Fsus4 Gm7 Bb5 Bm
  G: "[~@3 g4@4 ~@24 [f3,g3,bb3]@12 ~@8 eb4@3 ~@9 [d4,f4]@3 ~@11 f4@10 ~@10 f4@4 g2@13 ~@32 f4@3 [bb3,eb4,g4]@6 ~@2 [eb4,g4]@3 ~@21 g2@2 eb4@6 eb4@2 g4, ~@7 [f1,eb4,g4,d5]@24 ~@12 f2@9 ~@2 bb1@23 [bb4,d5,f5]@24 bb3@18 d4@6 [f3,bb3]@12 g2@6 eb4@6 ~@6 bb3@13 [c4,eb4]@4 b3@12 ~@8, ~@7 f2@18 f4@29 [d4,f4]@9 ~@3 d4@24 f4@3 d4@2 a1@6 [g1,a4]@48 c2@34 [c2,bb3]@9, ~@19 c5@12 eb4@17 d4@6 bb2@12 f4@5 f3@16 bb2@15 ~@12 g4@35 ~@11 g4@11 c3@21, ~@27 f2@15 ~ [f3,a3]@12 ~@5 f3@8 bb2@6 bb3@16 [bb1,f3,bb3]@12 ~@14 g2@6 d3@27 c3@11 eb4@3 c3@3 [d4,f4]@5 d4@12 ~@9]/6", // Gm7 Dm Eb Ebmaj7 Bb Bb5 Cm Dm …
  H: "[~@3 f2@12 ~@8 c3@3 ~ f3@12 ~@8 c4@3 ~@13 bb2@12 [f4,bb4]@6 ~@30 [d3,f3,a3,c4,d4]@9 ~@3 [b4,g5]@2 ~@3 [ab4,f5]@6 [g4,eb5]@6 ~@3 g2@2 ~@20 d5@3 bb2@12 ~@8 [bb4,bb5]@4, ~@3 [f1,eb4,g4,d5]@23 eb4@19 bb3@5 [bb1,bb3,d4]@25 [ab1,d5]@24 [g1,f4,a4,c5,d5]@23 ~ g1@12 ~@8 g4@14 c4@2 g4@3 c5@6 ~@16 [eb4,eb5]@8, ~@15 f2@12 g3@12 [f2,f3]@11 bb2@12 ~@13 ab2@12 ab2@12 ~@43 eb5@26 eb5@16 ~@8, ~@15 c5@12 bb3@15 g3@9 f3@25 ~@17 g5@6 ~@26 [b4,g5]@9 ~@6 [f4,d5]@5 ~@9 g3@14 ~@12 bb2@12, ~@20 f4@31 ~@30 [f4,bb4,f5]@15 g2@12 g2@12 g2@14 [b1,b2]@11 [c2,c3]@23 [bb1,g4,c5]@24]/6", // Bb5 Dm7 Em Db Cm Bb Ebmaj7 Bb …
  I: "[~ f2@12 ~@31 f3@3 [bb2,bb3]@9 ~@14 [f4,bb4]@6 ~@29 [g2,f3,a3,c4,d4]@9 d2@3 [b4,g5]@2 ~@3 [ab4,f5]@6, ~ [bb4,bb5]@29 f4@3 f3@2 c3@3 [a3,f4]@3 f1@6 [bb1,f3,d4]@23 [ab1,d5]@20 g2@15 ~@23, ~ f1@20 f3@3 [c4,eb4,g4,eb5,g5]@23 ~@11 bb3@6 bb4@5 ~@7 [f4,bb4,f5]@17 ~@27 b4@8, ~ eb5@17 [a4,a5]@12 f5@17 ~@14 f4@6 ab2@15 ab2@11 [g1,f4,a4,c5,d5]@24 [g1,g2]@11, ~@13 f2@34 ~@9 bb2@14 ~@17 [g4,g5]@6 ~@26 g5@9]/4", // Bb Bb5 Dm7 Em Db Bb Dm Bb …
  J: "~@9 g2@2 ~@17 c5@3 d5, eb5@9 eb5@16 g4@7, ~ [b1,b2]@11 [c2,c3]@20, ~ g4@8 g4@14 c4@9, ~@6 [f4,d5]@5 ~@9 [eb3,g3]@12", // B C Dm Eb
  K: "[~@21 [bb4,bb5]@4 ~ f2@12 ~@5 a5@5 ~@13 [c4,eb4]@12 ~@10 g4@3 g4@6 g4@3 ~@11 d3@3 ~@9 [d3,c5]@3 ~@26 g4@2 ~@3 g2@3 [c3,bb3,e4]@5, ~@2 [b1,b2,g4,b4]@24 ~@12 [f2,eb3]@35 eb3@13 [eb3,eb4,bb4]@9 c5@5 d5@15 d5@6 ~@5 bb4@12 bb4@5 ~@6 g4@5 ~@6, ~@2 eb5@16 [eb4,eb5]@8 ~@17 a4@6 [c4,eb4]@6 [f4,f5]@17 ~@23 [e4,g4]@15 ~@19 d3@12 [d4,gb4,a4]@14 ~@5, ~@14 [bb1,bb2]@12 [f1,bb4,bb5]@47 ~ [eb2,bb2]@23 d2@12 [gb2,gb3,d4,a4]@12 [g2,c5]@22 ~ c2@16, ~@49 [f3,g4,g5,a5]@24 [g3,bb3]@24 d3@9 ~@15 [g3,d4,f4]@11 [g3,d4,f4,a4]@11 ~ c3@11 ~@5]/5", // Bb Cm D7 C7 Em F7 Eb5 Eb …
  L: "[~@13 f5@2 ~@12 c2@3 ~@6 f5@2 ~@12 c2@3 ~@43 f2@7 [c3,g3,c4,e4]@12 [c3,g3,c4,e4]@10 g4@2 [g4,c5,e5]@6 ~@11 [a4,a5]@4 ~@23 e2@3 [db5,a5]@3 ~@3 bb4@6 [db2,db3,a4,f5]@5 e5, ~@7 [f1,g4,bb4,eb5,g5]@23 [f1,g4,bb4,eb5,g5]@23 f1@24 f1@13 f3@14 ~@32 g3@12 a2@14 [a2,g3,b3,d4,e4]@12 ~@18, ~@7 f2@11 f4@11 ~@12 [f3,f4,a4,d5]@11 ~@10 f2@8 f5@3 f2@13 f2@10 ~@7 c2@24 [bb1,bb2]@23 [a1,g4,b4,d5,e5]@24 [a1,a2]@12 ~@6, ~@15 f5@15 ~@8 f5@14 ~@7 d5@18 ~@6 f5@6 ~@50 [c4,e4]@11 ~@29 g5@6 ~@7, ~@19 [f2,f3,a4,d5]@11 f2@12 f2@11 [f2,g4,bb4,eb5]@11 [f3,g4,bb4,eb5]@12 [g4,bb4,eb5,g5]@13 [f4,a4,c5,f5]@14 ~@30 [g4,c5,e5,g5]@17 ~@27 [db5,a5]@9 ~@6]/6", // C A Gbm Dbaug Eb Em7 Dm Bb …
  M: "[~@3 a2@2 ~@11 [d4,a4,d5,f5]@9 [f4,a4,d5]@2 ~@17 d5@3 ~@3 g2@9 ~@33 [g2,d5]@2 ~ c3@11 ~@9 c2@3 [g4,c5,e5]@6 ~@29 [a2,g3,b3,d4,e4]@7, g4@5 [d2,d3]@23 [c2,c3]@11 [d4,f4]@3 f5@5 [f5,c6]@26 g3@5 [b4,g5]@3 g3@3 g2@2 g4@3 b4@5 g4@24 ~@6 [g4,c5,e5,g5]@14 a2@15 ~@7, ~@11 f4@14 ~@3 f4@5 [d5,f5]@3 a3@11 d5@14 g3@6 b5@28 ~@11 [g3,c4,e4]@12 ~@11 [e3,g3,c4]@12 ~@19, ~@11 [a4,d5]@3 f3@14 ~@2 e5@20 ~@9 g2@8 d5@5 [f4,c5,a5] d4@22 [c5,e5]@23 ~@17 [a4,a5]@6 ~@19, ~@13 [a3,e5]@14 ~ [a4,d5]@5 a4@17 g1@45 c2@12 c3@11 [bb1,bb2]@23 [a1,g4,b4,d5,e5]@19]/5", // Dm G5 C Em7 D C Dm F5 …
  N: "[~ e2@3 [db5,a5]@3 ~@3 [bb4,g5]@6 ~@8 a2@3 ~@65 d2@3 ~@6 [g4,b4,d5,g5]@7 ~@2 [b4,g5]@3 g5@3 [g5,d6]@4 ~@21 c2@3 [bb2,g3,c4,e4]@13 ~@9 bb1@2 ~ d4@12 g3@6 ~@2 a2@3, ~@4 [a1,a2]@12 [db2,db3,a4,f5]@11 d2@11 [a3,d4,c5]@3 e5@14 f5@13 g2@4 c5@11 a3@3 [d5,d6]@5 [c5,c6]@4 [g1,f3,b3,b5]@13 [b1,g3,d4]@12 c2@12 [g3,c4,e4]@12 ~@13 [bb2,g3,c4,e4]@12 a2@18 g3@5, ~@7 [db5,a5]@9 ~@5 g4@25 d3@12 f3@2 [a3,db4,db5]@11 [g1,a5]@24 g2@25 c3@24 bb1@22 ~@2 [g3,b3]@12 ~ [b3,d4]@11, ~@21 e5@6 d3@8 [f3,b4]@14 [d2,f4]@22 c6@13 [g2,f3,c4]@11 d5@3 [a4,a5]@10 ~@5 b4@7 [g3,c4,e4]@3 [e5,g5,c6,e6]@46 [a1,d5,g5]@23, ~@32 a4@17 a4@8 e5@6 a4@8 [f3,a3,c4] f5@23 [b4,g5] g3@12 ~@8 [d5,b5]@28 ~@24 [b5,d6]@24]/6", // Gbm Eb G Em G5 C7 A Dbaug …
  O: "[~@6 [bb4,bb5]@6 a2@6 [a2,e5,e6]@6 a5@6 ~@6 [a3,d4,f4]@10 a2@2 ~@18 d6@3 d2@3 [f3,a3,c4,d4]@12 [f3,a3,c4,d4]@12, [a1,g3,b3,db4,e4,db5,db6]@2 [g3,a3,db4,e4,a4,a5]@2 d2@7 d5 ~@4, ~@24 [d3,e5,db6,e6]@25 d3@24 ~@23, ~@8 [a3,d4,f4]@4 ~@4 f4 [d5,d6]@3 [a3,db4,f4,e5,e6]@4 [g1,g2]@8, ~@30 [f5,a5,d6,f6]@19 [a3,db4]@5 [e5,e6]@3 [f5,f6]@12 [f5,a5,d6,f6]@27]/3", // Bb A5 Dm Dm7 A7 Dbm Dm D …
  P: "[g3@12 ~@9 a2@3 [d3,a3,d4,gb4]@13 ~@12 [a4,d5,gb5]@6 ~@40 [eb5,b5]@3 ~@3 [a4,a5]@6 ~@8 b2@3 e3@6 ~@5 [b3,b4,g5]@9 [g4,e5]@3 g4 ~@38 [e5,db6]@6 ~@20 a2@3 [d3,a3,d4]@12 a3@9 ~@3 gb4@6 a3@6 ~@8 b2@3, [g2,b3,d4]@24 d2@25 c2@17 b5@3 b2@12 b2@12 b2@14 ~@11 e2@22 ~@3 [a4,gb5]@12 [b4,g5]@4 e5 a2@11 ~ a2@14 a2@12 db2@12 ~@22 d4@7 [d4,gb4,a4]@11 b4@6, ~@12 [g1,g3]@14 ~@11 [d3,a3,d4,gb4]@12 ~@6 [a4,gb5,a5]@17 gb4@12 ~@11 b4 ~@2 [b4,eb5,b5]@9 ~@6 gb5@6 ~@5 [g4,e5]@14 ~@3 e5@11 b3@11 e5@17 ~@12 [db5,a5]@8 a3@3 e4@6 ~@21 a3@8 ~@9 a3@9, ~@46 c3@14 ~ c3@12 ~@11 [gb3,b3,e4,gb4]@12 ~@30 [e3,g3,a4,gb5]@14 ~ d3@5 [b4,g5]@3 [d3,g3]@14 [a1,g5,d6]@23 [a1,d5,b5]@23 [d2,gb4]@24 c2@23, ~@55 d5@9 d5@8 [b1,db5,e5,gb5]@23 b1@12 [eb2,eb3,g4,g5]@12 ~@22 d2@23 ~@11 [e3,g3,b3,d4]@11 ~@11 db3@12 ~@12 [d3,d4]@12 ~@12 c3@11]/8", // D Abm A Em C Dbm D5 G …
  Q: "[~@21 gb2@2 ~ b4 ~@5 a4@5 ~@8 b2@3 ~@17 e2@5 ~@17 gb2@6 g3@6 g4@2 ~@21 db5@7 [d4,b4]@12 [db4,a4]@15 ~@51 a5@3 ~@45 a5@3, [b1,b3,e4,gb4]@24 b3@11 [eb2,eb3,b3,g4]@11 e3@9 [e3,g3,b3,b4]@14 gb2@13 gb5@9 ~@11 [d4,d5]@9 a3@16 ~@27 d3@15 e4@3 gb4@3 d5@3 a5@2 a4@4 d5@13 gb5@6 g5@5 b2@9 [db4,b5]@3 d4@3 d5@3 gb5@6 b4@13 d5@6 g5@5, ~@12 gb3@12 eb4@23 e2@13 gb5@19 [d4,d5]@12 g2@21 e4@15 ~@30 gb5@10 d4@41 d5@4 gb3@44, ~@27 b4@9 ~@5 gb4@6 ~@5 a4@16 gb3@9 [gb3,a3,b4]@15 ~@7 [g3,b3,g4]@14 g4@26 ~@17 e5@53 gb5@6 b3@41, ~@58 [d4,d5]@11 ~@5 a4@17 ~@6 b4@11 b4@6 [a2,d5]@13 [a1,a2]@29 ~@2 a5@6 a3@45 ~ db6@46]/8", // G Gbm Bsus4 Ebaug Em D Db7 D …
  R: "[~@18 g5@6 ~@10 b5@4 ~@13 d6@4 ~@31 d5@20 ~ a4@26 ~@68 gb6@55, [e3,d5,b5]@12 a5@12 [eb3,eb4]@15 ~@20 a3@6 [g5,e6]@4 g4@7 a5@31 ~@36 gb3@12 gb4@64 ~@37, ~@3 b3@22 ~@22 b5@8 b5@31 ~@60 a3@12 a4@64 ~@34, ~@6 e4@19 ~@14 e5@16 g5@7 e4@24 ~@20 db5@27 d2@18 e4@24 a5@8 d6@64 ~@9, ~@9 gb4@16 [b4,gb5]@13 [b4,g5]@17 ~ gb6@30 ~@63 d4@13 d5@4 e5@64 ~@26]/8", // E7 Eb C B5 Em
})).s("gm_piano").gain(0.4)

// chords · piano · "A.PIANO" · soft notes
const piano_soft = note(`<
  A@7 B@8 C@4 D@2 ~ E@2 ~@7 F ~@2 G@2 ~ H ~ I ~ J@2 ~@3 K@2 ~@26 L ~@10 M N@2 ~@5 O ~ P@8
>`.pickRestart({
  A: "[~@8 bb2@51 ~@18 bb3@34 c3@25 b3@14 bb3@13 ~@20 g4@41, ~@59 g2@52 ~@25 c3@27 f2@61]/7",
  B: "[~@29 [f3,bb3]@26 bb3@25 [f3,g3]@24 ~@2 c3@24 c3@13 ~@38 [g3,bb3]@14 a3@12 ~@25 f3@24, ~@55 [g2,d3]@49 c2@52 f3@25 f3@26 ~@6 f3@19 ~@24, ~@143 c3@64 bb2@22 bb2@27, ~@157 f2@51 bb1@48]/8", // Bb5 Fsus2 Gm G5
  C: "[~@27 [d3,g3]@25 c3@24 c3@12 ~ c3@12 f1@25 ~@2, g2@53 ~@35 [g3,bb3]@13 f2@21 ~@6, ~@27 f3@13 ~@12 c2@50 ~@26]/4", // G5 Gm
  D: "[~@11 f2@12 bb1@26 ~@15, ~@23 bb2@13 ~@28]/2", E: "[~@25 c2@24 ~@15, ~@25 c3@12 ~@27]/2", F: "~ f2@12 ~@3",
  G: "[~@29 g3@8 ~@27]/2", H: "~@7 c3@3 ~@10 f2@3 ~@9", I: "~@5 d4@18 ~@9", J: "[~@24 g3@11 ~@29]/2",
  K: "[~@13 eb3@7 ~@12]/2", L: "~@9 b1 ~@22", M: "~@6 c3@15 ~@11", N: "[~@24 [b1,b2]@11 ~@29]/2", O: "~ gb4@15",
  P: "[~@6 [e3,e4]@16 a2@32 [a3,e4,g4,b4]@20 ~ [a2,g4]@28 ~@63 a5@63 ~@27, ~@74 a3@27 ~@5 a2@64 ~@86, ~@109 d3@64 ~@83, ~@69 gb5@32 ~@27, ~@165 d5@64 ~@27]/8", // E Em A7
})).s("gm_piano").gain(0.24)

stack(piano, piano_soft)