// My Own Prison — Creed
// 70 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 7 "Dist 2" distortion guitar (copy of ch 5 "Dist 1" distortion guitar)
// note: Full arrangement: all 85 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): Clean 2.
setcpm(70/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 · electric guitar clean · "Clean 1"
const electric_guitar_clean = note(`<
  A B C D C D C D C D C D C D C D C D E F G H E F G I A B C D C D C D C J ~@16 K L K M ~@29
>`.pickRestart({
  A: "[d2,d3]@4 [d2,a2,d3]@3 [a2,d3,a3]@2 a2 bb2 d3 f3 g3 f3 a2", // D D5
  B: "[f2,c3]@4 [f2,c3,f3,c4]@3 [c3,f3,c4] ~ [c3,f3] c3 d3 c3 g2 f2@2", // F5
  C: "d2@4 [d2,a2,d3,a3]@3 [a2,d3,a3]@2 a2 bb2 d3 f3 g3 f3 a2", // D5
  D: "[f2,c3]@4 [f2,c3,f3,c4]@3 [c3,f3,c4] ~ [c3,f3] c3 d3 c3 g2 f2 d3", // F5
  E: "[f2,c3]@4 [f2,c3,f3,c4]@3 [f2,c3,f3,c4]@2 [f2,c3,f3,c4] [f2,c3,f3,c4]@3 [f2,c3,f3,c4]!3", // F5
  F: "[e2,b2,e3,b3]@3 [e2,b2,e3,b3] [e2,b2,e3,b3]@3 [e2,b2,e3,b3]@2 [e2,b2,e3,b3] [e2,b2,e3,b3]@3 [e2,b2,e3,b3]!3", // E5
  G: "[eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3]!2 [eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@3 [eb2,bb2,eb3,bb3]!3", // Eb5
  H: "[d2,a2,d3,a3]@3 [d3,a3,d4] [d3,a3,d4]@2 d3 [d3,b3,e4]@2 [d3,b3,e4]@2 d3 [d3,c4,f4]!4", I: "[d2,a2,d3,a3]@7 ~",
  J: "[f2,c3]@4 [f2,c3,f3,c4]@3 [c3,f3,c4] ~@8", // F5
  K: "[f2,c3,f3,c4]@2 [f2,c3,f3,c4]!2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]!4 [c3,g3]@2 [c3,g3]!4", // F5 C5
  L: "[d2,a2,d3,a3]@2 [d2,a2,d3,a3]!2 [d2,a2,d3,a3]@2 [d2,a2,d3,a3]!4 [bb2,f3]@2 [bb2,f3]!4", // D5 Bb5
  M: "[d2,a2,d3,a3]@2 [d2,a2,d3,a3]!2 [d2,a2,d3,a3]@2 [d2,a2,d3,a3]!4 ~@6", // D5
})).s("gm_electric_guitar_clean").gain(0.56)

// chords · electric guitar clean · "Clean 2"
const electric_guitar_clean_2 = note(`<
  ~ A B C@2 ~ B C@2 ~ B C@2 ~ B C@2 ~@4 D ~@4 B E B C@2 ~ B C@2 ~@50
>`.pickRestart({
  A: "~@9 d2 ~@6", B: "~@10 a2 bb2 d3 f3 bb2@2", C: "[a2@26 a2 bb2 d3 f3 bb2@2]/2",
  D: "~@2 [d2,a2,d3,a3] ~@3 [a2,a3] [a2,a3]@2 [a2,a3] [d2,a2,d3,a3]@3 [a2,a3]!3", E: "a2@10 f3 ~@4 d3",
})).s("gm_electric_guitar_clean").gain(0.4)

// other · electric guitar jazz · "Flange"
const electric_guitar_jazz = note("<~@52 A@3 B A@7 C D E F G D E F G D E F G D E F G D E H I ~>".pickRestart({
  A: "a3@9 a2 a3 bb3 f4@2 f4 bb3", B: "~@7 f4@3 a3 bb3 f4@2 f4 bb3, f4@7 ~@9, ~@2 a3@3 ~@3",
  C: "f4 bb3 a3 f4 bb3 a3 f4 bb3 a3 f4 bb3 a3 f4 bb3 a3@2", D: "a3@3 ~ a3@2 a3 a3@2 a2 a3 bb3 f4@2 bb3@2",
  E: "g3@3 ~ g3@2 g3 g3@2 g3 g3@2 g3@2 g3@2", F: "g3@3 ~ g3@2 g3 g3@2 a2 a3 bb3 f4@2 bb3@2",
  G: "a3@3 ~ a3@2 a3 a3@2 a2 a3 bb3 f4@2 a3@2", H: "g3@3 ~ g3@2 ~ g3 g3@2 a2 a3 bb3 f4@2 ~", I: "bb3 ~@7",
})).s("gm_electric_guitar_jazz").gain(0.4)

// chords · distortion guitar · "Dist 1"
const distortion_guitar = note(`<
  ~@35 A B C B C B C B C D E F G D E F H ~@3 I J K J K J K J K D E F G D E F G D E F G D E F G D E L M@2
>`.pickRestart({
  A: "~@9 [c3,f3] c3 d3 c3 g2 f2@2", B: "[d2,a2]@4 [d2,a2,d3,a3]@3 [d2,a2,d3,a3]!3 [bb2,f3]@2 [bb2,f3]@2 a2!2",
  C: "[f2,c3]@4 [f2,c3,f3,c4]@3 [f2,c3,f3,c4] ~ [c3,f3] c3 d3 c3 g2 f2 d3", // F5
  D: "[f2,c3]@4 [f2,c3,f3,c4]@3 [f2,c3,f3,c4]@2 [f2,c3,f3,c4] [f2,c3,f3,c4]@3 [f2,c3,f3,c4]!3", // F5
  E: "[e2,b2,e3,b3]@3 [e2,b2,e3,b3] [e2,b2,e3,b3]@3 [e2,b2,e3,b3]@2 [e2,b2,e3,b3] [e2,b2,e3,b3]@3 [e2,b2,e3,b3]!3", // E5
  F: "[eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3]!2 [eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@3 [eb2,bb2,eb3,bb3]!3", // Eb5
  G: "[d2,a2,d3,a3]@2 [d2,a2,d3,a3]!2 [d2,a2,d3,a3]@2 [d2,a2,d3,a3] [d2,a2,d3,a3]@2 [d2,a2,d3,a3] [d2,a2,d3,a3]@3 [d2,a2,d3,a3]!3", // D5
  H: "[d2,a2,d3,a3]@7 ~", I: "~@10 [bb2,f3]@2 [bb2,f3]!4",
  J: "[f2,c3,f3,c4]@2 [f2,c3,f3,c4]!2 [f2,c3,f3,c4]@2 [f2,c3,f3,c4]!4 [c3,g3]@2 [c3,g3]!4", // F5 C5
  K: "[d2,a2,d3,a3]@2 [d2,a2,d3,a3]!2 [d2,a2,d3,a3]@2 [d2,a2,d3,a3]!4 [bb2,f3]@2 [bb2,f3]!4", // D5 Bb5
  L: "[eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3]!2 [eb2,bb2,eb3,bb3]@2 ~ [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@2 [eb2,bb2,eb3,bb3] [eb2,bb2,eb3,bb3]@3 ~ [eb2,bb2,eb3,bb3]", // Eb5
  M: "[[eb2,bb2,eb3,bb3]!2 [d2,a2,d3,a3]@23 ~@7]/2", // Eb5 D5
})).s("gm_distortion_guitar").gain(0.4)

// bass · electric bass finger · "Bass"
const bass = note(`<
  ~ A B C B C B C B C B C B C B C B C D E F G H I J K B C B C B L B C B L M N M N M N M N O P Q R O P Q S T U V W X Y Z
  AA X Y Z AA O AB AC AD O AB AC AE O AB AC AF AG AH AI AJ AK AL AM AN@2
>`.pickRestart({
  A: "~@10 c2 d2 c2 g1 f1@2", B: "~@4 d2@5 ~ a1 bb1 d2 f2!2 bb1, d1@9 ~@7", C: "f1@4 f2@3 f2 ~ a1 c2 d2 c2 g1 f1 d2",
  D: "f1@4 f1@3 c2@2 f1!2 c2 f1 d2!2 d1", E: "e1@4 e2@3 b1@2 e1 b1@2 b1 c2 db2 d2",
  F: "[d1,d2] [eb1,eb2] eb1 eb2 eb1@3 bb2@2 d2 eb2 ab2 bb2!2 bb2@2", G: "[d1,d2]@2 d1!2 d1@2 a1 c2@2 f2!2 g2!2 a2!2 a1",
  H: "f1@4 f1@3 c2@2 f1 c2!3 d2 f1 d1", I: "e1@4 e2@3 b1@2 e1 b1!3 c2 db2 d2",
  J: "[d1,d2] [eb1,eb2] eb1!2 [eb1,eb2]@3 bb2@2 d2 eb2 ab2 bb2!2 eb2!2", K: "[d1,d2]@7 ~",
  L: "f1@4 f2 f2@2 f2@2 d2 c2 d2 c2 g1 f1@2", M: "d1@4 d2@3 d2@2 d2 a1 bb1!3 a1!2",
  N: "f1@4 f1@3 f1@2 f1 c2 d2 c2 g1 f1 d2", O: "f1@4 f1@3 c2@2 f1!2 c2!2 d2!2 d1",
  P: "e1@4 [e1,e2]@3 b1@2 e1 b1!3 c2 db2 d2", Q: "[d1,d2] [eb1,eb2] ~ eb1 eb2@2 eb2 bb2@2 eb2!2 f2 ab2 bb2!2 eb2",
  R: "eb2 [d1,d2] ~ d1 d1@2 a2 c2@2 d2 f2 d2 f2 g2!2 a2", S: "[d1,d2]@3 [d1,d2]@3 [d1,d2]@9 ~",
  T: "f1@4 f1@3 f1@2 a1 c2@2 c2!2 ~ c2", U: "c2 d2 ~ d2 d2@2 d2!2 ~ a1!2 bb1 a2 bb1!2 a1",
  V: "f1@2 f1!2 f1@2 f1!2 ~ c2 c2@2 c2!2 d2 d1", W: "[d1,c2] d2 ~ d2 d2@2 d2!2 ~ a1!2 bb1 a2 a1 bb1 f1",
  X: "f1@2 f1!2 f1@2 f1!2 d2 c2!5 a1 c2", Y: "c2 [d1,d2] ~ d1 [d1,d2]@2 d2!2 ~ a1 bb1@2 bb1@2 bb1 a1",
  Z: "f1@2 f1!2 f1@2 f1!2 ~ c2!5 a1 c2", AA: "c2 [d1,d2] ~ d1 [d1,d2]@2 d2!2 ~ bb2!5 bb2@2",
  AB: "[e1,e2]@4 e1@3 b1@2 e1 b1!3 c2 db2 d2", // E
  AC: "[d1,d2] [eb1,eb2] ~ eb1 [eb1,eb2] eb1!2 eb1@2 bb2 eb2 f2 ab2 bb2!2 eb2", // D Eb
  AD: "eb2 [d1,d2] ~ d2!3 a1 c2@2 a1 ~ c2 d2 f2 g2 a2", AE: "eb2 [d1,d2] ~ d2!3 a1 c2@2 d2@2 f2@2 d2 f2 g2",
  AF: "eb2 [d1,d2] ~ d2!2 a1 c2!2 d2 f2 d2 f2 g2!2 a2!2", AG: "f1!9 c3 f2 g2 bb2 c3!2 f2",
  AH: "f2 e2!8 b2 e2 gb2 a2 b2!2 d2", AI: "e2 eb2 eb1!7 bb2 eb1!3 eb2 f2 bb2", AJ: "d2!5 a1 c2@2 d2 f2 d2 f2 g2!2 a2!2",
  AK: "f1!9 c3 f2 g2 bb2 c3 d3 [f2,c3]", AL: "f2 e2!4 a1 e2 e2@2 b2 e2 gb2 a2 b2!3", AM: "eb1@10 bb2 eb2 f2 ab2 ~ bb2",
  AN: "[ab2 f2 [d1,d2]@23 ~@7]/2", // D
})).s("gm_electric_bass_finger").gain(0.56)

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

// drums · snare
const snare = s("sd").struct("<~@2 A@23 B A@17 C A@7 B A@3 D A@3 E A@11 C A@3 C F A@5 G ~@2>".pickRestart({
  A: "~ x ~ x", B: "~@3 x ~@2 x ~", C: "~@4 x ~@7 x ~ x!2", D: "~@4 x ~@4 x ~@2 x ~ x!2", E: "~@4 x ~@4 x ~@2 x ~@3",
  F: "x!2 ~ x", G: "~@4 x ~@8 x ~@2",
})).gain(0.64)

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

// drums · hihat
const hihat = s("hh").struct(`<
  ~@2 A B A B A B A B A B A B A B A B ~@8 A B A B A B A B A C ~@8 D E F ~@5 G@12 D E F ~@5 D H D ~@5 D E I ~@2
>`.pickRestart({
  A: "x!16", B: "x!14 ~@2", C: "x!8 ~@8", D: "~@5 x ~@2", E: "~@4 x!2 ~@2", F: "~ x ~@6", G: "x!2 ~ x!3 ~ x",
  H: "x!2 ~@6", I: "~@11 x ~@4",
})).gain(0.4)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~ A ~@23 B ~@9 C ~@7 D E ~@2 F E ~@2 B ~@3 D E ~@2 G ~@3 F ~@7 H ~@7 I ~ A ~ E ~
>`.pickRestart({
  A: "~@13 x ~@2", B: "~@3 x ~@12", C: "~@13 x!2 ~", D: "~@15 x", E: "x", F: "~@14 x!2", G: "~@7 x", H: "~@5 x!2 ~@9",
  I: "~@5 x!2 ~@7 x!2",
})).gain(0.64)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@3 A ~ B ~ A ~ B ~ A ~ B ~ A ~ B ~@9 A ~ A ~ B ~ A ~ C D@8 E F G ~@9 E ~ E G E ~ E G E F G ~@5 E G E ~@5 E F H ~@2
>`.pickRestart({
  A: "~@7 x", B: "~@14 x!2", C: "x ~ x ~ x!2 ~@2", D: "x!8", E: "~@9 x ~@6", F: "~@7 x ~ x ~@6", G: "~ x ~@14",
  H: "~@5 x ~@2",
})).gain(0.56)

// drums · crash
const crash = s("cr").struct(`<
  ~@2 A ~@11 A ~@3 A ~@3 A ~@2 B A ~ A ~@7 A@15 B A ~@2 C D ~ A ~ D ~ A ~ A@7 E A@4 F@3 G A@3 H ~
>`.pickRestart({
  A: "x", B: "x ~@2 x ~@4", C: "~@9 x ~@6", D: "x!2 ~@2", E: "x ~@6 x ~ x ~@2 x ~@3", F: "x!4",
  G: "x ~@3 x ~@2 x ~ x ~@6", H: "~ x ~@6",
})).gain(0.56)

// drums · ride bell
const ride_bell = s("rd").struct(`<
  ~ A ~@8 B ~@7 C@7 D ~@18 E@7 F C@7 G C@3 G E@7 H E@3 F E@3 H E I J ~@2
>`.pickRestart({
  A: "~@3 x", B: "x", C: "x!16", D: "x!3 ~ x ~ x ~ x ~ x ~@5", E: "x!8", F: "x!6 ~@2", G: "x!3 ~ x ~ x ~ x ~ x ~ x ~@3",
  H: "x!3 ~@5", I: "x!7 ~", J: "~@2 x ~ x ~@2 x ~ x ~ x ~@4",
})).gain(0.4)

stack(
  electric_guitar_clean, electric_guitar_clean_2, electric_guitar_jazz, distortion_guitar, bass, kick, snare, low_tom,
  hihat, mid_tom, open_hat, crash, ride_bell
)