// The Great Gig in the Sky — Pink Floyd
// 59 bpm, 4/4, key G minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: track names are the Roland MT-32 patch names at their program numbers ("Harmo Pan Lead" on 33, "Fantasy Lead" on 32, "chorale" on 34, "Shakuhachi" on 107), so with no bank select the whole file is read through the MT-32 patch table: ch 5 "Bass Line" Acou Bass 2 -> acoustic bass; ch 6 "Harmo Pan Lead" Harmo Pan -> pad warm; ch 4 "Celeste" Celesta 1 -> celesta; ch 7 "Fantasy Lead" Fantasy -> pad new age; ch 8 "chorale" Chorale -> choir aahs; ch 9 "Shakuhachi" Shakuhachi -> shakuhachi
// note: Full arrangement: all 65 bars on a 48-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(59/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 Line"
const bass = note(`<
  ~ A@3 B@7 C@6 D E F G H I J K@3 L@3 M N@2 O P Q@3 R S T@4 U V W@5 X Y X Z X AA@2 AB X AB AC Z AD AE
>`.pickRestart({
  A: "[~@47 bb1@48 f2@49]/3", B: "[d2@47 e2@48 d2@48 e2@37 ~@11 f2@48 bb1@48 g1@42 ~@6 c2]/7",
  C: "[~@47 f2@47 ~ bb2@24 eb2@24 ~@24 bb2@24 ~@13 f1@12 bb1@21 ~@2 g2@13 d2@12 g2@12 d2@11 ~, ~@143 bb1@48 bb1@25 ~@72]/6",
  D: "c2 g1 c2 g1", E: "g2@11 d2@13 g2@12 d2@11 ~", F: "c2@12 g1@11 c2@13 g1@12", G: "g2@12 d2@12 g2@12 d2@11 ~",
  H: "c2@3 g1@3 c2@3 g1@2 ~", I: "g2@4 bb2@5 ~ g2@2 bb2@3 c3@4 ~@2 d3@4 ~@4 d3@6 ~ c3@3 bb2@3 g2@3 ~@3",
  J: "~@6 d3@3 c3@4 ~@5 d3@3 c3@15 ~@12", K: "[g2@17 d2@6 g2@19 d2@5 c2@17 ~ g1@4 c2@26 g2@18 ~ d2@3 g2@26 ~]/3",
  L: "[c2@18 g1@3 c2@25 ~ g2@13 d2@11 g2@13 d2@11 c2@12 g1@12 d1@12 ~ g1@10 ~@2]/3", M: "d3 g2 a2 bb2 c3 f2 g2 a2",
  N: "[bb2@5 ~ eb2@6 f2@6 g2@6 a2@6 d2@6 e2@5 f2@6 b2@13 gb2@12 d2@12 b1@12]/2", O: "b2@6 gb2@6 d2@6 b1@5 ~",
  P: "b2@43 ~@5", Q: "[f2@12 d2@11 ~ a1@12 d2@11 bb1@20 ~@28 f2@12 c2@12 ~ f2@12 c2@9 ~@3]/3",
  R: "g2@11 d2@12 ~ g2@12 d2@10 ~@2", S: "c2@12 g1@11 c2@13 g1@6 ~@6",
  T: "[g2@11 d2@12 g2@12 d2@11 ~ c2@12 g1@12 c2@12 g1@8 ~@4 f2@12 c2@12 f1@12 c2@12 bb2@12 f2@13 bb1@12 f2@9 ~@3, ~@23 d2 ~@168]/4",
  U: "g2@12 d2@12 g1@11 d2@12 ~", V: "c2@11 g1@12 ~ c2@12 g1@9 ~@3",
  W: "[f2@12 c2@12 f1@12 c2@10 ~ bb1@12 f1@12 ~ eb2@12 bb1@11 bb2@11 ~ f2@13 bb1@11 f2@12 bb2@12 ~ f2@12 bb1@12 f2@8 ~@3 g2@18 d2@6 ~ g2@12 d2@6 g2@6, ~@228 e2 ~@11]/5",
  X: "e2@3 g1 e2@2 c2@2", Y: "g2@18 d2@6 g2@12 d2@5 g2@7", Z: "g2@3 d2 g2@2 d2 g2",
  AA: "[g2@18 d2@6 g2@12 d2@6 g2@5 c2@18 ~ g1@6 c2@12 c2@11 ~]/2", AB: "g2@18 d2@6 g2@12 d2@6 g2@5 ~",
  AC: "c2@3 g1 c2@4", AD: "c2@18 g1@6 c2@23 ~", AE: "g2@5 ~",
})).s("gm_acoustic_bass").gain(0.24)

// chords · piano
const piano = note("<A B C@2 D@5 E F@2 G H I@2 ~@32 J@3 K@3 L M N O L P L M L Q@2>".pickRestart({
  A: "~ [d4,gb4]@6 b3@5 ~ gb4@5 b3@6 [d4,gb4]@6 b3@6 [d4,gb4]@6 b3@6, ~@12 d4@7 ~@29", // D
  B: "[f4,a4]@6 d4@6 [f4,a4]@6 d4@6 [f4,a4]@6 d4@6 [f4,a4]@6 d4@5 ~", // F
  C: "[[d4,f4]@5 bb3@6 ~ f4@6 bb3@5 ~ [d4,f4]@5 bb3@6 [d4,f4,c5]@6 [bb3,bb4]@6 f4@6 c4@7 f4@6 c4@6 [f4,a4]@6 c4@6 [f4,a4]@6 c4@6, ~@11 d4@7 ~@5 d5@12 ~@12 a4@13 a4@12 ~@24]/2", // Dm Dm7 Bb F
  D: "[[g4,bb4]@6 ~ g4 ~@4 [g4,bb4]@6 d4@6 [g4,bb4]@6 d4@6 [g4,bb4]@6 d4@5 [e4,g4]@6 c4@6 [e4,g4]@6 c4@6 [e4,g4]@6 c4@6 [e4,g4]@6 c4@6 [g4,bb4]@6 d4@6 [g4,bb4]@6 d4@6 [g4,bb4]@6 d4@6 [g4,bb4]@6 d4@5 ~ [e4,g4]@6 c4@6 [e4,g4]@6 c4@6 [e4,g4]@6 c4@6 [e4,g4]@6 c4@4 ~@2 [a3,c4]@6 f3@6 [a3,c4]@6 f3@6 [a3,c4]@6 f3@6 [a3,c4]@7 f3@6, ~@6 d4@7 ~@227]/5", // Gm Em Gm Em Am
  E: "[bb3,d4]@5 f3@6 [bb3,d4]@6 f3@7 [bb3,d4]@6 f3@6 [bb3,d4]@5 f3@6 ~", // Bb
  F: "[[bb3,d4]@6 g3@5 ~ d4@6 g3@5 ~ d4@6 g3@6 [bb3,d4]@5 g3@6 [c4,e4]@6 g3@6 [c4,e4]@7 g3@6 [c4,e4]@5 g3@6 [c4,e4]@7 g3@5 ~, ~@11 bb3@8 ~@4 bb3@8 ~@65]/2", // Bb C
  G: "[a3,c4] f3 [a3,c4] f3 [a3,c4] f3 [a3,c4] f3", // Am
  H: "~@5 f3@6 [bb3,d4]@6 f3@6 [g3,bb3]@6 eb3@6 ~ g3@5 eb3@6 ~, [bb3,d4]@8 ~@27 bb3@7 ~@6", // Bb Gm Bb
  I: "[[bb3,d4]@6 bb4@5 d5@6 f5@7 bb5@6 f5@5 d5@6 f5@4 ~@9 bb4@6 d5@5 f5@6 bb5@6 f5@6 d5@6 f5@3 ~@4, ~@47 [bb3,d4,f4]@44 ~@5]/2", // Bb
  J: "[~@5 bb4@6 d5@6 f5@6 bb5@6 f5@6 d5@6 f5@6 bb2@6 [bb3,f4] bb4@6 [bb2,d5]@6 [bb3,d4,f4] ~@5 bb2@5 [bb3,d4,f4] ~@5 [bb2,d5]@6 [bb3,d4,f4] f5@3 ~@3 d4@5 g3@3 ~@4 [bb3,d4]@6 g3@3 ~@3 [bb3,d4]@6 g3@6 [bb3,d4]@6 g3@6, ~@54 d4 ~@11 f5@5 bb5@6 f5@6 ~@12 bb3@7 ~@42]/3", // Bb5 Bb
  K: "[[c4,e4]@6 g3@5 ~ c4@6 g3@5 ~ c4@5 g3@6 ~ c4@6 g3@5 ~ d4@5 g3@7 [bb3,d4]@6 g3@6 [bb3,d4]@6 g3@5 ~ d4@5 ~ g3@5 [e4,g4]@6 c3@6 [e4,g4]@7 c3@6 [e4,g4]@6 c3@6 [e4,g4]@5 ~ c3@6, ~@11 e4@7 ~@5 e4@7 ~@5 e4@6 ~@6 bb3@8 ~@28 bb3@5 ~@56]/3", // C Bb Em
  L: "[bb3,d4] g3 [bb3,d4] g3 [bb3,d4] g3 [bb3,d4] g3", M: "[c4,e4] g3 [c4,e4] g3 [c4,e4] g3 [c4,e4] g3",
  N: "[bb3,d4]@6 g3@6 [bb3,d4]@6 g3@5 ~ d4@6 g3@5 ~ d4@5 ~ g3@6, ~@23 bb3@6 ~@6 bb3@5 ~@8", // Bb
  O: "[e4,g4]@5 c3@6 ~ e4@6 c3@6 [e4,g4]@6 c3@6 [e4,g4]@6 c3@6, ~@11 g4@7 ~@30", // Em
  P: "[c4,e4] c3 [c4,e4] c3 [c4,e4] c3 [c4,e4] c3", // C
  Q: "[[c4,e4]@6 g3@6 [c4,e4]@6 g3@5 ~ [c4,e4]@6 g3@6 [c4,e4]@6 ~@6 [bb3,d4]@48, ~@7 g3@9]/2", // C Bb
})).s("gm_piano").gain(0.26)

// other · pad warm · "Harmo Pan Lead"
const pad_warm = note("<~@3 A@6 B@3 C@4 ~@7 D@5 ~@21 E F@4 ~@11>".pickRestart({
  A: "[~@42 c4@5 d4@49 e4@46 f4@49 e4@35 ~@12 c5@37 bb4@3 a4@3 g4@7]/6", B: "[d5@46 d5@49 e5@36 d5@3 e5@3 d5@7]/3",
  C: "[c5@45 f4@26 g4@24 f4@83 ~@14]/4",
  D: "[~@47 d5@19 bb4@3 d5@26 c5@48 g4@13 d4@3 g4@8 bb4@4 c5@5 d5@9 g5@4 e5@43 ~@8]/5", E: "~@45 g3@2 ~",
  F: "[d3@3 g3@5 bb3@5 ~@2 c4@5 ~ d4@20 f4@6 e4@43 ~@5 g4@4 ~ bb4@5 g4@2 bb4@4 c5@5 ~ d5@21 f5@5 e5@42 ~@7]/4",
})).s("gm_pad_warm").gain(0.51)

// other · celesta · "Celeste" · Asus2 Fmaj7 Cmaj7 Fmaj7 Asus2 Dsus2 Fsus2 Asus2 …
const celesta = note(`<
  ~@15
  [~@23 e2 f2 g2 [a2,b2] c3 d3 [e3,f3] g3 a3 [b3,c4] d4 [e4,f4] g4 [a4,b4] c5 [d5,e5] [f5,g5] [a5,b5] [c6,d6] [e6,f6] [g6,a6] ~@4]
  ~@35
  [~@35 d6 c6 b5 a5 g5 f5 e5 ~ d5 c5 b4 ~ a4]
  ~@13
>`).s("gm_celesta").gain(0.1)

// chords · epiano2 · "Elect Piano"
const epiano2 = note("<~@15 A@2 B C D E F G H I@2 J@4 K L@2 M N O P@2 Q R@3 S T U V W@3 ~@16>".pickRestart({
  A: "[~@47 [bb3,d4,f4]@6 g3@7 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6]/2", // Bb
  B: "[c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 ~ g4@6 g3@5, ~@6 [c4,e4] ~", // C
  C: "~ [d4,f4]@5 g3@7 [bb3,d4,f4]@5 g3@6 ~ f4@5 g3@6 [bb3,d4,f4]@6 g3@6, bb3@8 ~@16 [bb3,d4]@7 ~@17", // Dm Bb
  D: "[c4,e4,g4]@6 g3@6 [c4,e4,g4]@7 g3@5 ~ [e4,g4]@5 g3@6 ~ g4@5 ~ g3@5, ~@24 c4@7 ~@5 [c4,e4]@6 ~@6", // C Em C
  E: "~ [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@5", // Bb
  F: "~ [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@5", // C
  G: "~ [bb3,d4,f4]@5 g3@6 ~ f4@5 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6, ~@12 [bb3,d4]@7 ~@29", // Bb
  H: "[c4,e4,g4]@6 g3@5 [c4,e4,g4]@7 g3@5 ~ g4@6 g3@6 [c4,e4,g4]@6 g3@6, ~@23 [c4,e4]@7 ~@18", // C
  I: "[[bb3,d4,f4]@6 g3@5 ~ f4@5 g3@6 ~ f4@6 g3@5 ~ f4@5 g3@6 ~ g4@5 g3@6 ~ g4@5 g3@6 ~ e4@6 g3@6 [c4,e4,g4]@6 g3@6, ~@11 [bb3,d4]@7 ~@5 [bb3,d4]@7 ~@5 [bb3,d4]@7 ~@5 [c4,e4]@7 ~@5 [c4,e4]@7 ~@5 [c4,g4]@7 ~@18]/2", // Bb C Bb C C5
  J: "[[bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@5 ~ g4@5 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 ~ g3@5 ~ f4@6 g3@5 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [bb3,d4,f4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@6 g3@6 [c4,e4,g4]@7 g3@5 ~, ~@47 [c4,e4]@7 ~@41 [bb3,d4]@8 ~@89]/4", // Bb C Bb C Bb
  K: "[bb4,d5] g4 [bb4,d5] g4 [a4,c5] f4 [a4,c5] f4, g4 ~@15", // Bb Am
  L: "[[g4,bb4]@6 eb4@5 ~ g4@6 eb4@6 gb4@6 d4@5 ~ gb4@6 d4@3 ~@9 b2@2 d3@3 ~@12 b4@6 ~@12 d4@7, ~@11 bb4@6 ~@7 a4@3 ~@8 a4@6 ~@6 b3@36 b3@13, ~@47 [d4,gb4]@19 d4@14 d4@9 ~@7, ~@59 gb3@36 ~, ~@68 gb4@9 gb4@19]/2", // Gm D
  M: "~@9 d4@3 gb4@6 d4@3 gb4@2 b4@6 gb4@2 d4@4 b3@7 d4@6, b2@43 ~@5, ~ b3 ~@6",
  N: "~ b3 [d4,gb4] b3 [d4,gb4] b3 [d4,gb4] b3, [b2,d4,gb4]@5 ~@19", O: "[f4,a4] d4 [f4,a4] d4 [f4,a4] d4 [f4,a4] d4",
  P: "[[f4,bb4]@6 d4@5 ~ f4@6 d4@5 [f4,bb4]@6 d4@6 [f4,bb4]@7 d4@5 [f4,a4]@7 c4@6 [f4,a4]@6 c4@6 [f4,a4]@6 c4@6 [f4,a4]@6 c4@5 ~, ~@11 bb4@8 ~@77]/2", // Bb5 F
  Q: "[g4,bb4] d4 [g4,bb4] d4 [g4,bb4] d4 [g4,bb4] d4", // Gm
  R: "[[e4,g4]@6 c4@5 ~ g4@6 c4@6 [e4,g4]@6 c4@5 [e4,g4]@7 c4@5 ~ bb4@6 d4@5 [g4,bb4]@7 d4@5 ~ bb4@6 d4@5 ~ bb4@6 d4@5 [e4,g4]@7 c4@6 [e4,g4]@6 c4@5 [e4,g4]@6 c4@6 [e4,g4]@6 c4@7, ~@11 e4@8 ~@28 g4@8 ~@16 g4@7 ~@5 g4@6 ~@55]/3", // Em Gm Em
  S: "[a4,c5] f4 [a4,c5] f4 [a4,c5] f4 [a4,c5] f4", T: "[bb4,d5] f4 [bb4,d5] f4 [bb4,d5] f4 [bb4,d5] f4",
  U: "[bb4,d5]@6 g4@5 ~ d5@6 g4@6 [bb4,d5]@6 g4@6 [bb4,d5]@6 g4@6, ~@11 bb4@8 ~@29", // Bb
  V: "[c5,e5]@3 g4@3 [c5,e5]@3 g4@3 [c5,e5]@3 g4@3 [c5,e5]@3 g4@2 ~, d5 ~@47", // C
  W: "[~@6 f3@6 ~@6 f3@6 ~@6 f3@5 ~ a3@6 f3@5 [bb3,d4]@7 f3@5 [bb3,d4]@6 f3@6 [bb3,eb4]@6 g3@6 [bb3,eb4]@6 g3@6 [bb3,d4]@7 f3@5 ~ d4@6 f3@6 [bb3,d4]@6 f3@5 ~ d4@6 f3@4 ~@2, [a3,c4]@10 ~@2 [a3,c4]@11 ~ [a3,c4]@10 ~ c4@7 ~@65 bb3@7 ~@17 bb3@7 ~@6]/3", // Bb Eb5 Bb Am
})).s("gm_epiano2").gain(0.26)

// other · shakuhachi
const shakuhachi = note("<~@57 A@4 B C D ~>".pickRestart({
  A: "[~@41 a5@3 g5@3 a5@10 g5@3 ~@3 a5@3 g5@2 ~ a5@11 g5@2 ~@6 a5@2 g5@2 ~ a5@15 g5@3 ~@8 e5@2 eb5 d5 ~ c5@14 ~@5 g5@4 bb5@2 ~@4 g5 ~ bb5@4 ~ c6@3 ~@2 d6@4 ~@5 d6@6 c6@3 bb5@3 g5@2 ~@4]/4",
  B: "g6@9 ~ d6@2", C: "c6@3 bb5 g5@3 bb5", D: "g5@43 ~@5",
})).s("gm_shakuhachi").gain(0.25)

// drums · kick
const kick = s("bd").struct("<~@16 [x!2]!48 x>").gain(0.41)

// drums · kick · soft notes
const kick_soft = s("bd").struct("<~@16 [~@5 x ~@2]!48 ~>").gain(0.2)

// drums · snare
const snare = s("sd").struct("<~@16 [~ x ~ x]!48 ~>").gain(0.41)

// drums · hihat
const hihat = s("hh").struct("<~@16 [x!4]!48 x>").gain(0.41)

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@16 [~ x ~ x ~ x ~ x]!48 ~>").gain(0.2)

// drums · open hat
const open_hat = s("oh").struct("<~@64 x>").gain(0.31)

// drums · crash
const crash = s("cr").struct("<~@15 A ~@2 B ~@11 C@2 B@2 ~@14 B ~@15 B>".pickRestart({
  A: "~@47 x", B: "x", C: "x ~@22 x ~@24",
})).gain(0.31)

stack(bass, piano, pad_warm, celesta, epiano2, shakuhachi, kick, kick_soft, snare, hihat, hihat_soft, open_hat, crash)