// Third Stone From the Sun — Jimi Hendrix
// 120 bpm, 4/4, key E major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: ch 5 "pipe organ" named as an organ, played on church organ (its piano patch is not one); ch 2 "bass" named as a bass, played on electric bass finger (its piano patch is not one)
// note: Full arrangement: all 122 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(120/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 · church organ · "pipe organ"
const church_organ = note(`<
  A B C D E@4 F G H G I J E@2 K L M N O P Q R S@2 T U V@2 W X Y Z T AA T AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ
  AR O P Q R S@2 T@2 AS AT AU AV AW AX@2 AY AZ@4 ~@14 AC AD AE AF O P Q R S@2 T U V@2 W X Y Z T AA T AB AC AD AE AF ~@8
>`.pickRestart({
  A: "[e3,g#4,c#5]@6 ~ [g#4,c#5,e5]", B: "[g#4,c#5,e5]@2 [g#4,c#5,e5] ~", C: "[f#4,b4,d5]",
  D: "[f#4,b4,d5]@2 [f#4,b4,d5]!2", E: "e3 d4 a4 d4 e3 d4 a4 d4", F: "[a4,d5,g5]@3 [a4,d5,g5] [a4,d5,g5]@2 [f#5,a5] e5",
  G: "[e5,f#5] [d5,e5] [c#5,e5]@2", H: "[e5,g5]@3 f#5 [e5,g5]@2 [e5,a5] [e5,f#5]",
  I: "[c#5,e5,b5]@6 [c#5,e5,b5] [e5,b5]", J: "[e5,b5]@2 [f#4,b4,d5]!2",
  K: "[b4,e5]@3 [a4,b4,e5] [d4,g4,b4]@2 [a4,b4,e5]@2", L: "[b4,e5] [b4,c5,e5] [b4,e5] [a4,b4,e5] [b4,e5]@4",
  M: "[b4,e5]@6 [a4,b4,e5]@2 [g4,b4,e5]@4 [a4,b4,e5]@3 [a4,b4,e5]", N: "b4 d5 ~@2 a4 [g4,b4] e4 e3, e5 ~",
  O: "[g#4,g#5]", P: "[g#4,g#5]@8 f#5@3 e5@2 d#5@3", Q: "[f#4,f#5] c#5 [e4,e5]@2",
  R: "[e4,e5]@4 [d4,d5] [c#4,c#5]@2 [b3,b4]", S: "[[c#4,c#5]@4 [c#4,c#5]@2 [g#3,g#4]@2 [b3,b4]@16 c#5@3 b4@2 f#5@3]/2",
  T: "[e4,e5]", U: "[e4,e5]@4 ~ c#4 e4 f#4", V: "[[f#4,f#5] [g#4,g#5]@12 g#5 f#5 e5]/2",
  W: "[f#4,f#5]@3 [c#4,c#5] [e4,e5]@4", X: "[e4,e5]@8 d5@3 c#5@2 b4@3", Y: "[c#4,c#5]@3 [g#3,g#4] [b3,b4]@4",
  Z: "[b3,b4]@8 c#5@3 b4@2 f#5@3", AA: "[e4,e5]@8 c#5@3 b4@2 f#5@3", AB: "[e4,e5]@3 ~", AC: "~@3 a4 g4@2 a4@2, [b4,e5]",
  AD: "~ c#5 ~ a4 ~@4, [b4,e5]", AE: "~@3 a4 [d4,g4,b4]@2 [a4,b4,e5]@2, [b4,e5] ~",
  AF: "b4@2 d5@2 [b4,e5]@2 [d5,g5]@2 [e5,a5]@2 a5@2 e5 [d5,g5] e5!2", AG: "e3@2 e3@2 e6@8 e6@2 d#6 b5",
  AH: "b5@2 [a5,d6]@2 e6@2 d6 b5 b5@2 b5@2 a5 g5 [e5,g5]@2", AI: "~@6 [a4,d5] [b4,e5] d5@2 e5@2 [g5,b5]@2 e5!2",
  AJ: "[g5,b5]!4 [e5,g5]!2 [c#5,e5] [e5,g5] [c#5,e5] [e5,g5] [e5,g5]@2 [g#4,b4]!4", // G Em C#m Em C#m Em G#m
  AK: "e3@2 [e5,g#5] [a4,d5]!2 [a4,d5]@2 [a4,d5]", // E D5
  AL: "[a4,d5]@4 f#4@2 [d5,f#5]@2 [d5,f#5]!2 [d5,f#5]@2 [f#4,a4]!2 [d5,f#5]@2", // D5 D F#m D
  AM: "f#4 [d5,f#5] [f#5,b5]!2 [d5,f#5]!2 [a4,d5] [d5,f#5]", // D B5 D D5 D
  AN: "[a4,d5]@2 [d5,f#5]@2 [d5,f#5] f#4 [d5,f#5]@2 [d5,f#5]@2 [d5,f#5]@2 [d5,f#5]@2 [a4,d5]@2", // D5 D D5
  AO: "e3 [d5,f#5] [a4,d5] [d5,f#5]!2 [f#4,a4]@2 d5", // D D5 D F#m
  AP: "[a4,d5]@2 [d5,f#5]!2 [d5,f#5]@2 [a4,d5]@2 [a4,d5] f#4 [d5,f#5]@2 [b4,e5]@2 [d5,f#5]@2", // D5 D D5 D E5 D
  AQ: "e3 [d5,f#5] [a4,d5] [d5,f#5] [a4,d5] [a4,d5]@2 [a4,d5]", // D D5 D D5
  AR: "[a4,d5]@2 [a4,d5]@2 [b4,e5]@2 [a4,d5]@2 [a4,d5]@2 [d5,f#5]!2 [b4,e5]!2 e3@2", // D5 E5 D5 D E5
  AS: "~@2 [a4,d5,f#5]@2 [b4,e5,g#5] [a4,d5,f#5]@3", AT: "a4!2, [d#5,f#5]", AU: "b4 [a4,d#5]", AV: "a4",
  AW: "a4 c#5 a4@6", AX: "[a4@2 a4 ~ a4@12]/2", AY: "a4@3 ~", AZ: "[d4,g4,b4]",
})).s("gm_church_organ").gain(0.19)

// bass · electric bass finger · "bass"
const bass = note(`<
  A@8 B@4 A@4 C D E F G H G H I J I J I J I J I J I J I K C L E M N O N O N O N O N P Q R I J I J I J I J I J I J I K
  S@2 T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T U T@4 U V@3 W@3 ~
>`.pickRestart({
  A: "e2 d3 a3 d3 e2 d3 a3 d3", B: "a2 g#3 d4 g#3 a2 g#3 d4 g#3", C: "c3", D: "c3@4 ~@10 b2 ~", E: "b2",
  F: "~@6 d3 d#3", G: "e3@4 e3@4 e3@2 f#3@2 e3@2 e3 g#3", H: "b3@2 b3@2 b3 c#4 b3 g#3", I: "e3!5 f#3 e3 g#3",
  J: "b3!5 c#4 b3 g#3", K: "b3!5 c#4 b3 ~", L: "c3 ~@3", M: "b2@2 ~@2 a2 b2 d3 d#3", N: "e3!2 e3@2 g#2 a2 a#2!2",
  O: "b2@2 c#3!2 d3!2 d#3!2", P: "b2@2 c#3!2 d3 d#3 e3 f#3", Q: "e3!5 b2!3", R: "b2!2 c#3!2 d3 d#3 e3 f#3", S: "e3",
  T: "e3@2 b2 d3 e3@2 b2 d3", U: "e3@2 e3@2 b2@2 d3@2 e3@2 ~ e3 b2@2 d3@2", V: "e3!2 b2 d3 e3!2 b2 d3",
  W: "e3!4 g#2 a2 a#2!2",
})).s("gm_electric_bass_finger").gain(0.64)

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

// drums · snare
const snare = s("sd").struct(`<
  A@16 ~@3 B A@7 C A@5 D E F A G ~@3 H A@3 D E F A I A J A F A F A F A@3 F A@3 F A F A K ~ L ~ A@15 ~@3 B A@7 C A@3 J
  A@15 ~@3
>`.pickRestart({
  A: "~ x ~ x", B: "~@6 x!3 ~@3 x ~@3", C: "~@2 x!3 ~ x ~ x!3 ~ x!3 ~", D: "~@4 x ~@7 x ~ x!2", E: "~@3 x",
  F: "~ x ~ x ~ x ~ x ~ x ~ x!4 ~", G: "~ x ~@2", H: "~@6 x!2 ~@2 x!3 ~@3", I: "~ x ~ x ~ x ~ x ~ x ~ x ~ x!3",
  J: "~ x!12 ~@3", K: "~@4 x ~@4 x ~ x!4 ~", L: "~@15 x",
})).gain(0.64)

// drums · clap
const clap = s("cp").struct("<~@34 [~ x ~@2] ~@11 [~ x ~@2] ~@75>").gain(0.64)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@27 A ~@7 B ~ C ~@9 B ~ B ~ D ~ B ~ B ~ B ~@3 B ~@3 B ~ B ~ A ~@29 A ~@3 D ~@18
>`.pickRestart({
  A: "~@5 x ~@2", B: "x!4 ~ x ~@2", C: "~@13 x!2 ~", D: "~@3 x ~@2 x ~@4 x ~@4",
})).gain(0.64)

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

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@19 A ~@7 B ~@6 C ~@2 D ~@2 A E ~@4 C ~@2 D ~ B ~@39 A ~@7 B ~@3 B ~@18
>`.pickRestart({
  A: "~ x ~@2", B: "x", C: "~@15 x", D: "~@3 x", E: "~@9 x ~@6",
})).gain(0.64)

// drums · open hat
const open_hat = s("oh").struct("<~@16 A ~ A ~@19 A ~@49 A ~ A ~@28 A ~ A>".pickRestart({
  A: "x",
})).gain(0.64)

// drums · high tom
const high_tom = s("ht").struct("<~@41 [~ x] ~@80>").gain(0.64)

// drums · ride
const ride = s("rd").struct("<~@16 A B ~@20 A B C D ~@46 A B ~@29 A B ~>".pickRestart({
  A: "~@2 x!14", B: "x!16", C: "~ x ~@2", D: "x",
})).gain(0.64)

// drums · china
const china = s("cr").struct("<~@18 A B ~@20 B ~@29 B ~ C ~@17 A B ~@29 A>".pickRestart({
  A: "~ x ~@2", B: "x", C: "x ~ x!3 ~ x!2",
})).gain(0.64)

stack(church_organ, bass, kick, snare, clap, low_tom, hihat, mid_tom, open_hat, high_tom, ride, china)