// Almost Unreal — Roxette
// 110 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 100 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(110/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 · overdriven guitar · "Driven Gu"
const overdriven_guitar = note(`<
  ~@5 A B@2 ~@16 C D E F C D G H I ~@3 J@2 ~ K C D E F C D G H L M L M L M N O P Q R S T U V@2 W ~@4 A X Y Z AA AB Y Z Y
  Z AA AB Y Z AC AD AE AF AG AH AE AD AE AF AG AH AE AC AI AJ@2
>`.pickRestart({
  A: "~@7 f3", B: "[f3@31 ~]/2", C: "c3@3 f3@5", D: "a3@3 g3@5", E: "c3@6 f3@9 ~", F: "g3@3 c3@5", G: "f3@12 d4@2 f4 ~",
  H: "a4 g4 f4 g3@5", I: "f4@5 ~@11", J: "[~@2 a4@2 g4@2 f4@2 a4 ~ d4@4 c4@8 ~@10]/2", K: "~ d3!7",
  L: "d3 ~ d3 ~ d3 ~ c3 ~ c3 ~ c3 ~ c3 ~ c3 ~", M: "f3 ~ f3 ~ f3 ~ g3 ~ g3 ~ g3 ~ g3 ~ g3 ~",
  N: "e3 ~ e3 ~ e3 ~ e3 ~ e3 ~ e3 ~ e3 ~ e3 ~", O: "e3@15 ~", P: "d3@2 d4 e4@3 d4@2", Q: "f3@2 c4 c3 c4 g3 c4@2",
  R: "d3@4 d4@2 e4@6 d4@3 ~", S: "f3@2 c5 c3 c5@3 d5", T: "d3 c4!2 a3!2 g3!2 f3", U: "f3 e3!2 c3 d3 c3!2 ~",
  V: "[d3@5 ~ a4@2 b4@2 g5@4 b4@4 g4@2 a4@2 ~@2 g4@4 g4@2 a4@2]/2", W: "f4@5 ~@3", X: "f3", Y: "d3@3 g3@5",
  Z: "b3@3 a3@5", AA: "d3@6 g3@9 ~", AB: "a3@3 d3@5", AC: "g3@3 g3@2 g3!3", AD: "d3 g4!2 g3 g4 d5@2 g4",
  AE: "b3 g4!2 a3 a4 g4 f#4 g4", AF: "d3 g4!2 g3 g4 d5 d4 a4", AG: "a3 a4!2 d3 g4@2 d4 g4",
  AH: "d3 g4!2 g3 f#4 g4 d4 g4", AI: "g3 g4!2 a3 c5 b4 g4 g5", AJ: "[d3@9 ~@7]/2",
})).s("gm_overdriven_guitar").gain(0.45).pan(0.7)

// chords · electric guitar muted · "Muted Gui"
const electric_guitar_muted = note(`<
  ~@24 A B C D A B E@2 ~@8 A B C D A B E@2 ~@23 F G H I F G F G H I F G J@2 G H I F G F G H I F G K@2 ~@2
>`.pickRestart({
  A: "[c4,f4] ~ [c4,f4] ~ [c4,f4] ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~", // F5 A#5
  B: "[a4,d5] ~ [a4,d5] ~ [a4,d5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~", // D5 C5
  C: "f4 ~ g4 ~ a4 ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~ [f4,a#4] ~", // A#5
  D: "[g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [c4,f4] ~ [c4,f4] ~ [c4,f4] ~ [c4,f4] ~ [c4,f4] ~", // C5 F5
  E: "[[f4,a#4]@21 ~ [g4,c5]@9 ~]/2", // A#5 C5
  F: "[d4,g4] ~ [d4,g4] ~ [d4,g4] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~", // G5 C5
  G: "[b4,e5] ~ [b4,e5] ~ [b4,e5] ~ [a4,d5] ~ [a4,d5] ~ [a4,d5] ~ [a4,d5] ~ [a4,d5] ~", // E5 D5
  H: "g4 ~ a4 ~ b4 ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~ [g4,c5] ~", // C5
  I: "[a4,d5] ~ [a4,d5] ~ [a4,d5] ~ [d4,g4] ~ [d4,g4] ~ [d4,g4] ~ [d4,g4] ~ [d4,g4] ~", // D5 G5
  J: "[g4@8 [d4,g4]!3 [g4,c5]!5, c5@21 ~@11]/2", K: "[[g4,c5]@21 ~@11]/2",
})).s("gm_electric_guitar_muted").gain(0.3).pan(0.2)

// chords · piano · "Steinway"
const piano = note(`<
  A B C D E F G@2 ~@6 H@2 I J K L M J N@2 ~@8 I J K L M J N@2 ~@24 O P Q R O S T U V W X U V U V W X U Y Z U V W X U V U
  V W X U Y Z AA AB@2
>`.pickRestart({
  A: "a5 c5 f4 e5 [d5,f5] f4 f5 [f4,g5], f3@3 ~@5, ~@2 c4@4 c4 ~ a#3@8, ~@4 f5 ~@7 [a#4,d5]@4", // Dm Fsus2 A#
  B: "[d5,f5,a5]@2 f4@2 [d5,f5,a5] ~ f4 ~ e5@2 [e4,d5]@2 ~@2 e4@2, d4@6 ~@2 c4@7 ~, ~@2 a4 ~@3 [g4,c5]@2", // Dm E7 C5
  C: "~@2 c5@2 [f4,f5]@2 a5 ~ a#5@2 [f4,a5]@2 g5@2 [f4,f5]@2, f3@3 ~ [a#3,d5]@4, ~ c4@2 c4@2 ~ a#4@2", // F A#
  D: "[c5,e5] ~ g4@2 [c5,e5,g5,c6] ~ g4 ~ [c5,f5,a5] ~ c4 ~ f4@2 [c4,e4] f4, c4@3 ~ f3@3 ~, g5 ~@7", // C F C
  E: "~@2 c3@2 [a4,c5,f5]@2 [c3,e5]@2 [a#4,d5,f5]@2 f3@2 [a#3,f5]@2 [f3,g5] ~, f2@3 ~ a#2@3 ~, ~@4 f3 ~@7 [a#4,d5] ~@3", // F C A# A#5 Fsus2 A#
  F: "[d5,f5,a5]@2 a3@2 [d4,d5,f5,a5] ~ a3 ~ g5 ~ [g3,f5]@2 [c4,e5] ~ [a#2,a#3,f4,a#4,d5] ~, d3@3 ~ [c3,c5]@2 ~@2", // Dm G7 C A# C
  G: "[[a#2,a#3,f4,a#4,d5]@31 ~]/2", H: "[~@14 d5@2 a5@2 b5@2 c6@2 b5@9 ~, [g1,g2]@31 ~, ~@16 g4@15 ~]/2",
  I: "[d2,d3,a3,d4,f4]@13 ~@3", J: "[a1,a2,a3,c4,e4]@13 ~@3", K: "[a3,d4,f4]@4 ~@2 [d4,f4,a4]@7 ~@3, [d2,d3]@7 ~",
  L: "~@2 c3@2 f3 ~ a3 ~@5 c3@2 g3@2, [f2,c4,f4,a4]@6 ~@2 [c2,c4,e4,g4]@7 ~, ~@10 g2@5 ~", // F C
  M: "d3@4 ~@2 d3@4 a3@2 d3 ~@3, [d2,d4,f4]@13 ~@3, a3@9 ~@7", N: "[[g1,g2,b3,d4,g4]@31 ~]/2",
  O: "[f2,a3,c4,f4]@4 ~@2 [a#2,a#3,d4,f4]@7 ~@3", P: "[d3,a3,d4,f4]@4 ~@2 [c3,g3,c4,e4]@7 ~@3",
  Q: "[f2,a3,c4,f4]@5 ~ [a#2,a#3,d4,f4]@7 ~@3", R: "[c3,g3,c4,e4]@4 ~@2 [f2,a3,c4,f4]@7 ~@3",
  S: "[d3,a3,d4,f4]@4 ~@2 [c3,g3,c4,e4]@6 ~@2 [a#2,f3,a#3,d4] ~", T: "[a#2,f3,a#3,d4]",
  U: "[g2,b3,d4,g4]@4 ~@2 [c3,c4,e4,g4]@7 ~@3", V: "[e3,b3,e4,g4]@4 ~@2 [d3,a3,d4,f#4]@7 ~@3",
  W: "[g2,b3,d4,g4]@5 ~ [c3,c4,e4,g4]@7 ~@3", X: "[d3,a3,d4,f#4]@4 ~@2 [g2,b3,d4,g4]@7 ~@3",
  Y: "[e3,b3,e4,g4]@2 ~ [d3,a3,d4,f#4]@5", Z: "[c3,g3,c4,e4]", AA: "[c3,g3,c4,e4]@4 ~@2 [d3,a3,d4,f#4]@7 ~@3",
  AB: "[[g2,b3,d4,g4]@9 ~@7]/2", // G
})).s("gm_piano").gain(0.4).pan(0.9)

// chords · rock organ · "Electric"
const rock_organ = note(`<
  ~@22 A@2 B C D E B C F@2 ~@7 G B C D E B C F@2 H I H I H I J@2 K L K L K L M@2 ~@5 N O P Q R S P Q P Q R S P Q T P Q R
  S P Q P Q R S P Q U@2 V ~
>`.pickRestart({
  A: "[g2,g3]/2", B: "[a4,c5,f5]@5 ~ [a#4,d5,f5]@9 ~", C: "[d5,f5,a5]@5 ~ [c5,e5,g5]@9 ~",
  D: "[a4,c5,f5]@6 [a#4,d5,f5]@9 ~", E: "[g4,c5,e5]@6 [a4,c5,f5]@9 ~", F: "[[a#4,d5,f5]@11 [c5,e5,g5]@5]/2",
  G: "~@2 g4@2 [d4,g4]@2 [d4,g4]@2 [d4,g4] ~ [d4,g4] ~ g4@2 [d4,g4]@2, ~@2 d4 ~@9 d4 ~@3", // G5
  H: "[a4,d5,f5]@3 [g4,c5,e5]@5", I: "[a4,c5,f5]@6 [b4,d5,g5]@9 ~", J: "[[c#5,e5,a5]@31 ~]/2", K: "[d5,f5,a5]",
  L: "[c5,f5,a5]@3 [c5,e5,g5]@5", M: "[b4,d5,g5]/2", N: "~@7 [f4,a#4]", O: "[f4,a#4]",
  P: "[b4,d5,g5]@5 ~ [c5,e5,g5]@9 ~", Q: "[e5,g5,b5]@5 ~ [d5,f#5,a5]@9 ~", R: "[b4,d5,g5]@6 [c5,e5,g5]@9 ~",
  S: "[a4,d5,f#5]@6 [b4,d5,g5]@9 ~", T: "[c5,e5,g5]", U: "[[c5,e5,g5]@21 ~ [d5,f#5,a5]@9 ~]/2", V: "[b4,d5,g5]",
})).s("gm_rock_organ").gain(0.3).pan(0.2)

// chords · string ensemble 1 · "Strings"
const string_ensemble_1 = note(`<
  A B A C A D E@2 F G H I F G J@2 F G H I F G J@2 K L K M K L N@2 F G H I F G J@2 K L K M K L N@2 O P O P O P Q@2 F R F
  R F R S@2 K L K M K L T U V U W U V U V U W U V X U V U W U V U V U W U V Y@2 Z ~
>`.pickRestart({
  A: "[f3,c4,f4,a4] [a#3,d4,f4,a#4]", B: "[d3,f4,a4,d5] [c3,e4,g4,c5]", C: "[c4,e4,g4,c5] [f3,c4,f4,a4]",
  D: "[d3,f4,a4,d5]@4 [c3,e4,g4,c5]@3 [a#2,d4,f4,a#4]", E: "[[a#2,d4,f4,a#4]@31 ~]/2", F: "[d3,d4,f4,a4]",
  G: "[a2,c4,e4,a4]", H: "[d3,a3,d4,f4]", I: "[f3,c4,f4,a4] [c3,c4,e4,g4]", J: "[g2,b3,d4,g4]/2",
  K: "[f3,a4,c5,f5]@5 ~ [a#3,a#4,d5,f5]@9 ~", L: "[d4,a4,d5,f5]@5 ~ [c4,g4,c5,e5]@9 ~",
  M: "[c4,g4,c5,e5]@5 ~ [f3,a4,c5,f5]@9 ~", N: "[[a#3,f4,a#4,d5]@21 ~ [c4,g4,c5,e5]@10]/2",
  O: "[d4,a4,d5,f5]@3 [c4,g4,e5]@5, ~@3 c5@3 ~@2", P: "[f3,a4,c5,f5]@6 [b4,d5,g5]@9 ~, ~@3 g3@3 ~@2",
  Q: "[[a3,c#5,e5,a5]@31 ~]/2", R: "[f3,c4,f4,a4]@3 [c3,c4,e4,g4]@5", S: "[g3,b3,d4,g4]/2", T: "[a#3,f4,a#4,d5]@15 ~",
  U: "[g3,b4,d5,g5]@5 ~ [c4,c5,e5,g5]@9 ~", V: "[e4,b4,e5,g5]@5 ~ [d4,a4,d5,f#5]@9 ~",
  W: "[d4,a4,d5,f#5]@5 ~ [g3,b4,d5,g5]@9 ~", X: "[c4,g4,c5,e5]@15 ~", Y: "[[c4,c5,e5,g5]@11 [d4,d5,f#5,a5]@5]/2",
  Z: "[g3,b4,d5,g5]", // G
})).s("gm_string_ensemble_1").gain(0.4).pan(0.6)

// other · electric guitar muted · "Muted Gui"
const electric_guitar_muted_2 = note("<~@8 A B A C A B D@2 A B A E A B D@2 ~@40 A F A G A F ~@30>".pickRestart({
  A: "f3!2 ~@4 f3!2 ~@8", B: "e3!2 ~@4 e3!2 ~@8", C: "a3!2 ~@4 a3 g3 ~@8", D: "g3!2 ~@4 g3!2 ~@8",
  E: "a3!2 ~@4 g3!2 ~@8", F: "f3!2 ~@4 e3!2 ~@8", G: "e3!2 ~@4 f3!2 ~@8",
})).s("gm_electric_guitar_muted").gain(0.35).pan(0.4)

// bass · electric bass finger · "Fingered"
const bass = note(`<
  ~@4 A B C@2 ~@16 D E F G D E H I J K L M N O P Q D E F G D R H I S T S T S T U V L W L W X Y Z AA AB@2 ~ AC AD AE AF
  AG AH AI AJ AG AH AG AH AI AJ AG AH AK AG AH AI AJ AG AH AG AH AI AJ AG AH AK AL AM@2
>`.pickRestart({
  A: "f1 a#1", B: "d2@4 c2@3 a#1", C: "[a#1@31 ~]/2", D: "f1 ~ f1 ~ f1 ~ a#1 ~ a#1 ~ a#1 ~ a#1 ~ a#1 ~",
  E: "d2 ~ d2 ~ d2 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~", F: "f1 ~ g1 ~ a1 ~ a#1 ~ a#1 ~ a#1 ~ a#1 ~ a#1 ~",
  G: "c2 ~ c2 ~ c2 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~", H: "a#1@5 ~ a#1@7 ~ a#1 ~", I: "a#1@5 ~ c2@9 ~",
  J: "d1@5 ~ d1@7 ~ g1@2", K: "a1@5 ~ a1@7 ~ c1@2", L: "d1@5 ~ d1@6 d1@2 e1@2", M: "f1@5 ~ c1 ~ c1@5 ~ c1@2",
  N: "d1@5 ~ d1@9 ~", O: "a1@5 ~ a1@9 ~", P: "g1@5 ~ g1@8 d1@2", Q: "g1@5 ~ g1 ~ g1@2 g1@2 d1@2 e1@2",
  R: "d2 ~ d2 ~ d2 ~ c2 ~ c2 ~ c2 ~ c2 ~ a#1 ~", S: "d1 ~ d1 ~ d1 ~ c1 ~ c1 ~ c1 ~ c1 ~ e1 ~",
  T: "f1 ~ f1 ~ f1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~", U: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~",
  V: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ c2 ~", W: "f1@5 ~ c1@7 ~ c1@2", X: "d1@5 ~ d1@7 ~ d1@2",
  Y: "f1@2 e1@2 d1@2 c1@5 ~ c1@2 c#1@2", Z: "g1@5 ~ g1@7 ~ d1@2", AA: "g1@5 ~ g1@6 g1@2 a1@2", AB: "[f1@6 f2@17 ~@9]/2",
  AC: "~@12 c3 d3 f3 d3", AD: "f3", AE: "~@7 a#1", AF: "a#1", AG: "g1 ~ g1 ~ g1 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~",
  AH: "e2 ~ e2 ~ e2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~", AI: "g1 ~ a1 ~ b1 ~ c2 ~ c2 ~ c2 ~ c2 ~ c2 ~",
  AJ: "d2 ~ d2 ~ d2 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~", AK: "c2@5 ~ c2@7 ~@3", AL: "c2@5 ~ d2@10", AM: "[g1@9 ~@7]/2",
})).s("gm_electric_bass_finger").gain(0.5)

// drums · kick
const kick = s("bd").struct(`<
  ~@5 A B ~@17 C@2 D C@3 D C@4 E C@6 D C@3 D C F G F G F H F C@3 D C@5 ~@5 A B C@2 D C@6 I C@8 I C J C@3 E C I B ~
>`.pickRestart({
  A: "~@7 x", B: "x", C: "x ~@2 x ~@4", D: "x ~@2 x ~@3 x", E: "x ~@2 x!2 ~@3", F: "x!2", G: "x ~@3 x!2 ~@2",
  H: "x ~@4 x ~@2", I: "x ~@2 x ~ x ~@2", J: "x ~@2 x ~ x ~ x",
})).gain(0.5)

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

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

// drums · low tom
const low_tom = s("lt").struct("<~@29 A ~@9 B ~@5 A ~@17 C ~@6 D ~@5 A ~@6 E ~@5 F ~ G ~@4 F H ~ I>".pickRestart({
  A: "~@7 x", B: "~@10 x ~@3 x!2", C: "~@5 x ~ x", D: "~@3 x", E: "~@13 x!3", F: "~@14 x!2", G: "~@12 x!2 ~@2",
  H: "~@8 x!2 ~@4 x!2", I: "~ x ~@14",
})).gain(0.5)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@7 A ~@3 A ~@3 A B@3 C B@3 C ~@3 A ~ A D A ~@3 A ~@3 A ~@3 A ~ A D A ~@19 A ~@32
>`.pickRestart({
  A: "~@7 x", B: "~ x ~@2", C: "~@2 x ~@4 x", D: "~@3 x",
})).gain(0.45)

// drums · crash
const crash = s("cr").struct(`<
  ~@5 A B ~@17 B ~@3 B ~ B C ~@8 B ~@3 B ~ B D B ~@3 B ~ B ~ B ~@3 B ~ B A B ~@4 A B@2 ~@3 B A B ~@2 E B ~ D B ~@3 B A B
  ~ B A B@3 ~ B ~
>`.pickRestart({
  A: "~@7 x", B: "x", C: "~@3 x ~@4", D: "x ~@2 x ~@4", E: "~@5 x ~ x",
})).gain(0.5)

// drums · ride
const ride = s("rd").struct("<~@56 [x!4]!8 ~@20 [x!4]!14 x ~>").gain(0.5)

// drums · tambourine
const tambourine = s("tb").struct("<~@8 [~@3 x]!48 [x!8]!8 [~@3 x]!6 ~ [~@3 x]!27 ~@2>").gain(0.5)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<~@8 [~@10 x!2 ~@2 x!2]!62 ~ [~@10 x!2 ~@2 x!2]!27 ~@2>").gain(2.51)

// drums · shaker
const shaker = s("sh").struct("<~@8 [x!2 ~@4 x!2 ~@8]!90 x ~>").gain(0.4)

stack(
  overdriven_guitar, electric_guitar_muted, piano, rock_organ, string_ensemble_1, electric_guitar_muted_2, bass, kick,
  snare, hihat, low_tom, open_hat, crash, ride, tambourine, cabasa, shaker
)