// Hairless Heart — Genesis
// 124 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: metre changes (4/4 at bar 1, 2/4 at bar 10, 4/4 at bar 10, 2/4 at bar 21, ...) are rendered on a constant 4/4 grid of one bar per cycle
// note: pitch bends are ignored
// note: ch 1 "Pop Organ" named as an organ, played on drawbar organ (its ocarina patch is not one); ch 2 "Pop Organ Delay" named as an organ, played on drawbar organ (its ocarina patch is not one)
// note: duplicate parts dropped: ch 2 "Pop Organ Delay" drawbar organ (copy of ch 1 "Pop Organ" drawbar organ, 0.188 beats late); ch 3 "Synth 1" lead 2 sawtooth (copy of ch 5 "Synth 3" lead 8 bass lead)
// note: Full arrangement: all 73 bars on a 32-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(124/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 · lead 1 square · "Synth 2"
const lead_1_square = note("<~@22 A B@8 C@8 ~@11 D E@8 F@8 ~@6>".pickRestart({
  A: "~@17 d6@9 e6@6", B: "[~@2 f6@8 g6@8 a6@33 ~ g6@8 a6@16 bb6@8 ~ c7@33 bb6@8 c7@8 d7@33 bb6@7 ~ f6@72 ~ d6@8]/8",
  C: "[e6@8 f6@9 g6@8 a6@33 g6@8 a6@16 ~ bb6@8 c7@33 bb6@8 c7@9 d7@32 bb6@7 ~@2 f6@72 ~@2]/8", D: "~@17 d6@8 e6@7",
  E: "[~ f6@9 g6@8 a6@33 g6@8 a6@17 bb6@8 c7@33 bb6@8 c7@9 d7@33 bb6@7 ~ f6@72 ~ d6@8]/8",
  F: "[e6@8 f6@9 g6@8 a6@33 g6@8 a6@16 ~ bb6@8 c7@33 bb6@8 c7@9 d7@33 bb6@8 f6@56 ~@18]/8",
})).s("gm_lead_1_square").gain(0.02).pan(0.8)

// other · lead 8 bass lead · "Synth 3"
const lead_8_bass_lead = note("<~@22 A B@8 C@2 D@6 ~@11 E F@8 G@2 H@2 I@3 J@7>".pickRestart({
  A: "~@17 d4@8 ~ e4@6", B: "[~@2 f4@8 g4@8 a4@33 ~ g4@8 a4@16 bb4@8 ~ c5@33 bb4@8 c5@8 d5@33 bb4@6 ~@2 f4@73 d4@8]/8",
  C: "[e4@8 f4@8 ~ g4@8 a4@33 g4@6]/2", D: "[~@2 a4@17 bb4@8 c5@33 bb4@8 c5@8 ~ d5@31 ~ bb4@6 ~@3 f4@71 ~@3]/6",
  E: "~@17 d4@8 e4@7", F: "[~ f4@9 g4@8 a4@33 g4@8 a4@17 bb4@8 c5@33 bb4@8 c5@9 d5@33 bb4@7 ~ f4@72 ~ d4@8]/8",
  G: "[e4@8 f4@9 g4@8 a4@33 g4@6]/2", H: "[~@2 a4@16 ~ bb4@8 c5@33 bb4@4]/2", I: "[~@4 c5@9 d5@33 bb4@8 f4@42]/3",
  J: "[~@31 eb4@165 ~@28]/7",
})).s("gm_lead_8_bass_lead").gain(0.18).pan(0.6)

// chords · acoustic guitar nylon · "Nylon String"
const acoustic_guitar_nylon = note("<~@2 A@3 B@8 ~@60>".pickRestart({
  A: "[~@9 [a4,d5]@28 ~@4 [g3,c4]@29 ~@4 [e3,g3]@22, ~@8 [d4,f4]@29 ~@3 c3@29 ~@4 a2@23]/3", // D5 C5 Em Dm
  B: "[~@11 [f3,bb3]@31 ~@3 d4@12 ~@4 bb3@12 ~@4 c4 ~@15 g4@12 ~@4 f4@13 ~@3 eb4@31 ~ [e3,g3]@31 ~@2 a3@56 ~@10, ~@10 bb2@32 ~@2 [b2,g3]@12 ~@4 [bb2,f3]@12 ~@4 [c3,g3]@13 ~@3 [d3,bb3]@13 ~@3 [c3,a3]@13 ~@3 [eb3,bb3]@32 a2@31 ~@2 [d3,f3]@56 ~@11]/8", // Bb5 Em Bb5 C5 Gm F Eb5 Dm
})).s("gm_acoustic_guitar_nylon").gain(0.2).pan(0.6)

// bass · fretless bass · "Bass"
const bass = note("<~@12 A@4 B C D E@4 F@5 G@8 H@7 I B C D J@4 K@5 G@8 L@3 ~@6>".pickRestart({
  A: "[~@31 d2@32 c2@32 a1@33]/4", B: "bb1@31 ~", C: "b1 bb1", D: "c2@16 g1@15 ~",
  E: "[f1@16 ~ eb1@32 a1@32 d2@31 ~ d2@15]/4",
  F: "[~@14 d2@4 a1@27 ~@2 a1@5 bb1@27 ~ bb1@3 ~@2 f1@27 ~@2 f1@4 c2@42]/5",
  G: "[~@7 c2@7 ~ db2@32 ~@4 db2@2 ~@2 db2@26 ~@3 db2@3 ~ d2@29 d2@4 a1@29 a1@4 bb1@32 ~ f1@28 ~ f1@4 c2@36]/8",
  H: "[~@13 c2@8 ~ db2@30 ~@6 db2@2 ~@2 db2@28 d2@2 ~@2 d2@27 ~@2 d2@2 ~@2 d2@30 ~@2 d2@30 ~@2 c2@32 ~]/7", I: "a1",
  J: "[f1@16 eb1@32 a1@32 d2@31 ~@2 d2@15]/4",
  K: "[~@14 d2@4 a1@27 ~@2 a1@4 bb1@27 ~@2 bb1@3 ~ f1@27 ~@2 f1@4 c2@43]/5",
  L: "[~@14 c2@8 db2@35 ~ db2@2 ~@2 db2@30 ~@4]/3",
})).s("gm_fretless_bass").gain(0.36)

// chords · string ensemble 2 · "Mellotron Strings"
const string_ensemble_2 = note("<~@22 A@6 B@3 C@5 D@5 ~@9 E@6 B@3 C@5 F@7 G@2>".pickRestart({
  A: "[~@17 [d4,a4,d5,f5]@32 ~ [a3,a4,c5,e5]@33 ~ [bb3,f4,bb4,d5]@31 ~@2 [f3,f4,a4,c5]@32 ~ [eb3,g4,bb4,d5]@42]/6", // Dm Am Bb F Ebmaj7
  B: "[~@15 [db3,f4,ab4,db5]@72 ~ [a4,d5,f5]@8]/3", // Db Dm
  C: "[~@25 [a3,a4,c5,e5]@33 [bb3,f4,bb4,d5]@33 [f3,f4,a4,c5]@32 ~ [eb3,g4,bb4,d5]@36]/5", // Am Bb F Ebmaj7
  D: "[~@11 [db3,f4,ab4,db5]@36 [a3,d4,f4]@33]/5", // Db Dm
  E: "[~@17 [d4,a4,d5,f5]@32 ~ [a3,a4,c5,e5]@33 [bb3,f4,bb4,d5]@31 ~@2 [f3,f4,a4,c5]@32 ~ [eb3,g4,bb4,d5]@43]/6", // Dm Am Bb F Ebmaj7
  F: "[~@22 [db3,f4,ab4,db5]@65 ~@8 [eb4,ab4,c5]@41 ~@2 [eb4,g4,bb4]@41 ~@2 [eb4,ab4,c5]@42 ~]/7", // Db Ab Eb Ab
  G: "[[eb4,g4,bb4]@41 ~@23]/2", // Eb
})).s("gm_string_ensemble_2").gain(0.25).pan(0.7)

// other · overdriven guitar · "Electric Guitar"
const overdriven_guitar = note("<~@13 A@8 B@7 C@8 D@3 ~@2 E@6 F@4 G@5 C@8 H@3 ~@6>".pickRestart({
  A: "[~@6 e5@8 f5@8 a4@6 ~@2 g4@30 ~@2 e4@8 ~ f4@6 ~@2 e4@8 c4@6 ~@2 d4@28 ~@4 a4@6 ~@2 g4@6 ~@2 d4@6 ~@2 f4@6 ~@2 e4@6 ~@2 g4@6 ~@2 bb4@6 ~@2 c5@6 ~@2 a4@6 ~@3 bb4@8 g4@30 ~@2 e4@8 f4@8]/8",
  B: "[a3@8 c4@8 d4@32 ~ d3@22 ~@3 e3@8 a2@33 ~ bb2@24 c3@8 ~ f2@33 eb3@41 ~]/7",
  C: "[~@7 eb3@6 ~@2 db3@72 ~ d3@25 e3@8 a2@33 bb2@25 c3@8 f2@33 eb3@36]/8", D: "[~@13 eb3@6 ~@3 db3@72 ~@2]/3",
  E: "[~@6 e5@8 f5@8 a4@6 ~@2 g4@30 ~@3 e4@8 f4@6 ~@2 e4@8 c4@6 ~@2 d4@28 ~@4 a4@6 ~@2 g4@6 ~@2 d4@6 ~@2 f4@6 ~@2 e4@6 ~@2 g4@6 ~@2 bb4@6 ~@2 c5@6 ~@2 a4]/6",
  F: "[~@7 bb4@8 g4@30 ~@2 e4@8 f4@8 a3@8 c4@8 d4@32 ~@2 d3@15]/4",
  G: "[~@10 e3@8 a2@33 bb2@24 ~ c3@8 f2@33 eb3@41 ~@2]/5", H: "[~@7 eb3@3 ~ db3@32 ~@5]/3",
})).s("gm_overdriven_guitar").gain(0.02)

// other · vibraphone · "Vibes"
const vibraphone = note("<~@40 A@3 B C D E F@2 G@2 ~@22>".pickRestart({
  A: "[~@31 d6@10 ~@6 a6@9 ~@7 c6@10 ~@7 g6@10 ~@6]/3", B: "a5@13 ~@3 e6@10 ~@6", C: "bb5@11 ~@5 f6@10 ~@6",
  D: "a6@9 ~@7 d6@10 ~@6", E: "c6@3 ~ g6@2 ~@2", F: "[f6@10 ~@6 g6@4 ~@4 bb6@3 ~@4 eb7@9 ~@8 a5@11 ~@5]/2",
  G: "[e6@11 ~@5 d6@26 ~@22]/2",
})).s("gm_vibraphone").gain(0.05).pan(0.6)

// chords · drawbar organ · "Hammond"
const drawbar_organ = note("<~@22 A@6 B@8 C@3 ~@11 D@6 E@8 F@7 G@2>".pickRestart({
  A: "[~@17 [a4,d5,f5]@31 ~@2 [a4,c5,e5]@32 ~@2 [bb4,d5,f5]@31 ~@2 [a4,c5,f5]@30 ~@3 [g4,bb4,eb5]@42]/6", // Dm Am Bb F Eb
  B: "[~@15 [f4,ab4,db5]@72 ~ [a4,d5,f5]@31 ~@2 [a4,c5,e5]@33 [bb4,d5,f5]@29 ~@4 [a4,c5,f5]@31 ~@2 [bb4,eb5,g5]@36, ~@77 gb5 ~@50]/8", // Db Dm Am Bb F Eb
  C: "[~@11 [ab4,db5,f5]@36 ~]/3", // Db
  D: "[~@17 [a4,d5,f5]@31 ~@2 [a4,c5,e5]@32 ~ [bb4,d5,f5]@31 ~@2 [a4,c5,f5]@30 ~@3 [g4,bb4,eb5]@43]/6", // Dm Am Bb F Eb
  E: "[~@15 [f4,ab4,db5]@73 [a4,d5,f5]@31 ~@2 [a4,c5,e5]@31 ~@2 [bb4,d5,f5]@29 ~@4 [a4,c5,f5]@31 ~@2 [bb4,eb5,g5]@36, ~@77 gb5 ~@50]/8", // Db Dm Am Bb F Eb
  F: "[~@22 [ab4,db5,f5]@65 ~@8 [eb3,eb4,ab4,c5,eb5]@42 ~ [eb3,eb4,g4,bb4,eb5]@40 ~@3 [eb3,eb4,ab4,c5,eb5]@41 ~@2]/7", // Db Ab Eb Ab
  G: "[[eb3,eb4,g4,bb4,eb5]@41 ~@23]/2", // Eb
})).s("gm_drawbar_organ").gain(0.09).pan(0.1)

// other · acoustic guitar nylon · "Nylon String EXTRA"
const acoustic_guitar_nylon_2 = note("<~@2 A B@2 C@8 ~@60>".pickRestart({
  A: "~@2 e5 f5", B: "[a4@9 g4@30 ~@4 e4@7 f4@8 e4@6]/2",
  C: "[~@2 c4@3 ~@7 d4@29 ~@4 a4@7 g4@3 ~@6 d4@7 f4@3 ~@6 e4@7 g4@3 ~@6 bb4@7 c5@3 ~@6 a4@7 bb4@3 ~@6 g4@30 ~@2 e4@8 f4@6 ~@2 a3@8 c4@3 ~@6 d4@59 ~@7]/8",
})).s("gm_acoustic_guitar_nylon").gain(0.24).pan(0.6)

// bass · electric bass pick · "Pick Bass"
const bass_2 = note("<~@66 A@4 B C D>".pickRestart({
  A: "[~@31 eb2@2 ~@3 eb2@5 eb3@5 ~ eb2@2 ~@3 eb2@2 ~@3 eb2@5 ~ eb3@5 eb2@2 ~@4 eb2@2 ~@3 eb2@5 eb3@5 ~ eb2@2 ~@3 eb2@2 ~@4 eb2@5 eb3@5 eb2@2 ~@4 eb2@2 ~@3 eb2@5 ~]/4",
  B: "eb3@5 eb2 ~@4 eb2 ~@5 eb2@4 ~ eb3@5 ~ eb2@2 ~@3", C: "eb2@2 ~@3 eb2@5 ~ eb3@5 eb2@2 ~@3 eb2 ~@5 eb2@5",
  D: "eb3@5 ~ eb2@2 ~@24",
})).s("gm_electric_bass_pick").gain(0.22)

// drums · kick
const kick = s("bd").struct(`<
  ~@22 A B C D E F G F H I J K L M N O P Q@3 R S@3 T U V W X B Y Z AA AB AC F H I J K L M AD O AE AF AG AH AI AJ AK
>`.pickRestart({
  A: "~@9 x ~@7 x ~@14", B: "~@7 x ~ x ~@6", C: "~@15 x ~@4 x ~@11", D: "~@16 x ~@4 x ~@10", E: "~@9 x ~ x ~@4",
  F: "~@19 x ~@3 x ~@8", G: "~@7 x ~@7 x ~@15 x", H: "~@5 x!2 ~", I: "~@21 x ~@3 x ~@6", J: "~@11 x ~ x ~@2",
  K: "~@23 x ~@3 x ~@4", L: "~@6 x!2", M: "~@25 x ~@3 x ~@2", N: "~@13 x ~@8 x ~@9", O: "~@3 x ~@9 x ~ x", P: "~@15 x",
  Q: "~@27 x ~@3 x", R: "~@7 x", S: "x ~@6 x", T: "x", U: "x ~@7 x ~@22 x", V: "~ x!2 ~", W: "x ~@2 x!2 ~ x ~",
  X: "~@17 x ~@14", Y: "~@15 x ~@3 x ~@12", Z: "~@4 x!2 ~@2", AA: "~@17 x ~@3 x ~@10", AB: "~@11 x ~@3 x",
  AC: "~@15 x ~@15 x", AD: "~@7 x ~@3 x ~@4", AE: "~@31 x", AF: "~@4 x ~@10 x ~@4 x ~@4 x ~@6",
  AG: "~@4 x ~@5 x ~@4 x ~@10 x ~@4 x", AH: "~@5 x ~@9 x ~@5 x ~@4 x ~@5", AI: "~@5 x ~@4 x ~@5 x ~@10 x ~@4",
  AJ: "x ~@4 x ~@10 x ~@4 x ~@5 x ~@4", AK: "~@3 x ~@12",
})).gain(0.5)

// drums · snare
const snare = s("sd").struct(`<
  ~@21 A B C D E F G H@2 I@2 J K L M N O P O Q@2 R@6 ~ S T@2 C D F U H@3 I J K V N O@3 W X K Y V S
>`.pickRestart({
  A: "~@17 x!15", B: "x!17 ~@15", C: "~ x ~@14", D: "~@3 x ~@28", E: "~ x ~@6", F: "~@5 x ~@26", G: "~@3 x ~@12",
  H: "~@7 x ~@24", I: "~ x ~@2", J: "~@9 x ~@22", K: "~@5 x ~@10", L: "~@3 x ~@4", M: "~@13 x ~@11 x ~@6",
  N: "~@13 x ~@18", O: "~@7 x ~@8", P: "~@14 x ~@7 x!8 ~@2", Q: "~@15 x ~@16", R: "~ x", S: "x", T: "~ x ~@30",
  U: "~@3 x ~@5 x ~@6", V: "~@11 x ~@20", W: "~@9 x ~@21 x", X: "~@5 x ~@2", Y: "x ~@20 x ~@10",
})).gain(0.21)

// drums · snare · soft notes
const snare_soft = s("sd").struct(`<
  ~@67
  [~@23 x!3 ~ x!2 ~@3]
  [~@12 x ~ x!3 ~ x ~@13]
  [~@2 x!2 ~ x!3 ~@15 x ~ x!2 ~ x!2 ~@2]
  [~@13 x!2 ~ x!3 ~@13]
  [~@3 x!3 ~ x!2 ~@15 x ~ x!3 ~ x ~]
  ~
>`).gain(0.14)

// drums · hihat
const hihat = s("hh").struct("<~@22 A B C D E F G H I J K L M N O P Q R S@2 T U@4 V T W X ~@22>".pickRestart({
  A: "~@9 x ~@16 x ~@5", B: "~@2 x ~@7 x ~@7 x ~@8 x ~@4", C: "~@3 x ~@7 x ~@8 x ~@7 x ~@3",
  D: "~@4 x ~@7 x ~@8 x ~@7 x ~@2", E: "~@5 x ~@7 x ~@8 x ~@7 x ~", F: "~@6 x ~@7 x ~@8 x ~@7 x", G: "~@23 x ~@7 x",
  H: "~@7 x ~@7 x ~@7 x ~@7 x", I: "~ x!3", J: "x ~@7 x ~@8 x ~@7 x ~@6", K: "~ x ~@7 x ~@8 x ~@7 x ~@5",
  L: "~@2 x ~@7 x ~@8 x ~@7 x ~@4", M: "~@3 x ~@8 x ~@7 x ~@7 x ~@3", N: "~@4 x ~@8 x ~@7 x ~@7 x ~@2",
  O: "~@5 x ~@24 x ~", P: "~@3 x ~@3 x ~@3 x ~@3 x", Q: "~@3 x ~@11 x", R: "~@14 x ~@16 x", S: "~@15 x ~@15 x",
  T: "~ x", U: "x!2", V: "x ~@15 x ~@14 x", W: "x ~@2 x", X: "~ x ~@30",
})).gain(0.43)

// drums · low tom
const low_tom = s("lt").struct("<~@50 [~@9 x ~@22] ~@13 [~@5 x ~@26] ~@8>").gain(0.57)

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

// drums · open hat
const open_hat = s("oh").struct("<~@22 A ~@5 B ~@7 C ~ D ~@10 E ~@23>".pickRestart({
  A: "~ x ~@30", B: "~@15 x ~@16", C: "~@13 x ~@18", D: "~@7 x ~@3 x ~@4", E: "~ x",
})).gain(0.43)

// drums · high tom
const high_tom = s("ht").struct("<~@49 [~@7 x] ~@8 [~@3 x ~ x ~ x ~@24] ~@4 [~@21 x ~@7 x ~@2] ~@9>").gain(0.5)

// drums · crash
const crash = s("cr").struct("<~@22 A ~@7 B ~@5 C ~ D ~@11 A ~@5 E ~ B ~@5 F ~ G ~@6>".pickRestart({
  A: "~@17 x ~@14", B: "~@3 x", C: "~@11 x ~@4", D: "~@7 x ~@8", E: "~@15 x ~@16", F: "~@7 x ~@3 x ~@4", G: "~@31 x",
})).gain(0.5)

// drums · ride
const ride = s("rd").struct("<~@28 A ~@20 B C D E F G H I@2 J K L M N O P H Q R S T U V W>".pickRestart({
  A: "~@7 x ~@24", B: "~ x", C: "~@17 x ~@7 x ~@6", D: "~ x ~@8 x ~@7 x ~@7 x ~@5", E: "~@2 x ~@8 x ~@7 x ~@7 x ~@4",
  F: "~@3 x ~@8 x ~@7 x ~@7 x ~@3", G: "~@5 x ~@7 x ~@7 x ~@7 x ~@2", H: "~@3 x ~@3 x ~@3 x ~@3 x",
  I: "~@7 x ~@7 x ~@7 x ~@7 x", J: "~@3 x", K: "x ~@7 x ~@8 x ~@7 x ~@6", L: "~ x ~@7 x ~@8 x ~@7 x ~@5",
  M: "~@2 x ~@7 x ~@8 x ~@7 x ~@4", N: "~@3 x ~@7 x ~@8 x ~@7 x ~@3", O: "~@4 x ~@8 x ~@18", P: "~@7 x ~@3 x ~@3 x",
  Q: "~@6 x ~@7 x ~@7 x ~@8 x", R: "~@4 x ~@4 x ~@5 x ~@4 x ~@4 x ~@5 x", S: "~@4 x ~@5 x ~@4 x ~@4 x ~@5 x ~@4 x",
  T: "~@5 x ~@4 x ~@4 x ~@5 x ~@4 x ~@5", U: "x ~@4 x ~@4 x ~@5 x ~@4 x ~@5 x ~@4",
  V: "x ~@4 x ~@5 x ~@4 x ~@4 x ~@5 x ~@4", W: "x ~@2 x ~@12",
})).gain(0.5)

// drums · tambourine
const tambourine = s("tb").struct("<~@38 [~@15 x] ~@34>").gain(0.21)

stack(
  lead_1_square, lead_8_bass_lead, acoustic_guitar_nylon, bass, string_ensemble_2, overdriven_guitar, vibraphone,
  drawbar_organ, acoustic_guitar_nylon_2, bass_2, kick, snare, snare_soft, hihat, low_tom, mid_tom, open_hat, high_tom,
  crash, ride, tambourine
)