// Forever and Ever — Demis Roussos
// 120 bpm, 4/4, key C# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 100 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): guitar program 27.
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.

// other · acoustic guitar nylon
const acoustic_guitar_nylon = note(`<
  A B C D A B E F ~@38 A B C D A B E F ~@30 G H I J G H I J G H I J G H I J
>`.pickRestart({
  A: "d#4 f4 g#4 a#4@3 d#4 f4", B: "g#4 a#4@3 d#4 f4 g#4 a#4", C: "c5@3 ~ a#4@2 d#4@10", D: "c5@4 a#4@2 d#5@7 ~@3",
  E: "c5@3 ~ a#4@2 d#4@9 ~", F: "c5@4 a#4@2 d#5@9 ~", G: "e4 f#4 a4 b4@3 e4 f#4", H: "a4 b4@3 e4 f#4 a4 b4",
  I: "c#5@3 ~ b4@2 e4@10", J: "c#5@4 b4@2 e5@7 ~@3",
})).s("gm_acoustic_guitar_nylon").gain(0.32).pan(0.6)

// chords · brass section
const brass_section = note("<~@53 A@2 ~@22 B@2 ~@7 C D@2 ~ C D@2 ~ C D@2 ~@3>".pickRestart({
  A: "[~@15 [a5,c#6,e6]@4 ~@13]/2", B: "[~@4 [b4,b5]@2 [a4,a5]@5 ~ [f#4,f#5]@2 [e4,e5]@5 ~@13]/2",
  C: "~@5 [g#5,b5,e6] ~@2", D: "[~@10 [a5,c#6,f#6] ~@3 [a5,c#6,e6]@4 ~@14]/2",
})).s("gm_brass_section").gain(0.32)

// chords · synth strings 2
const synth_strings_2 = note(`<
  A@2 B@2 A@2 C D E@2 F@2 G@2 H@2 E@2 F@2 G@2 H@2 I@2 J@2 K@2 L M E@2 F@2 G@2 H@2 E@2 F@2 N@2 A@2 B@2 A@2 C D O@2 P@2
  Q@2 R@2 S@2 T@2 U@2 V W O@2 P@2 Q@2 R@2 O@2 P@2 X@2 Y@2 Z@2 Y@2 Z@2 Y@2 Z@2 Y@2 Z@2
>`.pickRestart({
  A: "[c4,d#4,g#4]/2", B: "[[c#4,f4]@8 ~ d#4@6 ~ [c#4,f4]@7 ~ d#4@8, a#4, ~@8 g4@8 ~@7 g4@9]/2",
  C: "[c#4,f4]@7 ~ d#4@7 ~, a#4, ~@7 g4@8 ~", D: "f4 [d#4,g4], a#4, c#4@7 ~@9", E: "[d#4 f4 g4 g#4, c4]/2",
  F: "[g#4@3 g#4 [d#4,g4]@4, c#5, f4 ~]/2", G: "[g#4@11 ~ g#4@4 [d#4,g4]@10 f4@3 d#4@3, c#5, f4@15 ~@17]/2",
  H: "[f4@3 g4 f4@4, [c4,c5]]/2", I: "[g#4@15 ~ f#4@16, [c5,d#5]]/2", J: "[[f4,g#4]@31 ~, c#5 ~]/2",
  K: "[a#4@15 ~ g#4@16, [d5,f5]]/2", L: "[g#4,d#5]", M: "[g4,a#4]",
  N: "[g#4@11 ~ g#4@4 [d#4,g4]@16, c#5, f4@15 ~@17]/2", O: "[e4 f#4 g#4 a4, c#4]/2",
  P: "[a4@3 a4 [e4,g#4]@4, d5, f#4 ~]/2", Q: "[a4@11 ~ a4@4 [e4,g#4]@10 f#4@3 e4@3, d5, f#4@15 ~@17]/2",
  R: "[f#4@3 g#4 f#4@4, [c#4,c#5]]/2", S: "[a4@15 ~ g4@16, [c#5,e5]]/2", T: "[[f#4,a4]@31 ~, d5 ~]/2",
  U: "[b4@15 ~ a4@16, [d#5,f#5]]/2", V: "[a4,e5]", W: "[g#4,b4]", X: "[a4@11 ~ a4@4 [e4,g#4]@16, d5, f#4@15 ~@17]/2",
  Y: "[c#4,e4,a4]/2", Z: "[[d4,f#4]@8 ~ e4@6 ~ [d4,f#4]@7 ~ e4@8, b4, ~@8 g#4@8 ~@7 g#4@9]/2",
})).s("gm_synth_strings_2").gain(0.12)

// other · shamisen
const shamisen = note(`<
  ~@8 A B C D E D F G A B C D E D F G H I J K L M N O P F Q R Q S T U F V L W Q X ~@16 Y Z AA AB AC AD AE AF AG AH AI AJ
  AI AK AL AM AH AN AC AO AI AP ~@16
>`.pickRestart({
  A: "g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3@2 g#4@2", B: "g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~ g#3!2 ~ g#4@2",
  C: "a#3 ~@2 a#3 ~@2 a#3 ~@2 a#4 ~ a#3 a#4@2 ~ a#3", D: "d#3@2 ~ d#3 ~@2 d#3@2 ~ d#4 ~ d#3 d#4@2 d#3 ~",
  E: "a#3@2 ~ a#3 ~@2 a#3 ~@2 a#4 ~ a#3 a#4@2 a#3!2", F: "g#3@2 ~ g#3 ~@2 g#3 ~@2 g#3 ~ g#3!2 ~ g#3!2",
  G: "g#3@2 ~ g#3 ~@2 g#3@2 ~ g#4 ~ g#3 g#4@2 g#3!2", H: "g#3@2 ~ g#3 ~@2 g#3@2 ~ g#3 ~ g#3!2 ~ g#3!2",
  I: "g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~ g#3!2 g#4!3", J: "c#4@2 ~ c#4 ~@2 c#3@2 c#4 ~@2 c#3 c#4 ~ c#3@2",
  K: "c#4@2 ~ c#4 ~@2 c#4 ~ c#3 c#4 ~ c#3 c#4@2 c#3@2", L: "a#3 ~@2 a#3 ~@2 a#3 ~@2 a#3 ~ a#3!2 ~ a#3!2",
  M: "a#3@2 ~ a#3 ~@2 a#3 ~@2 a#3 ~ a#3!2 ~ a#3!2", N: "d#4@2 ~ d#4 ~@2 d#3 ~ d#3 ~ d#4 ~@2 d#4 ~@2",
  O: "d#4@2 ~ d#4 ~@2 d#4 ~@2 d#3 ~ d#3!2 ~ d#3!2", P: "g#3@2 ~ g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~ g#3 ~",
  Q: "a#3 ~@2 a#3 ~@2 a#3 ~@2 a#3 ~ a#3!2 ~ a#3 ~", R: "d#4@2 ~ d#4 ~@2 d#3 ~ d#3 ~ d#4 ~ d#3 d#4 d#3 d#4",
  S: "d#3@2 ~ d#4 d#3 ~ d#3 ~ d#3 d#4 ~ d#3 d#4@2 d#3!2", T: "g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~ g#3!2 ~ g#3 ~",
  U: "g#3 ~@2 g#3 ~@2 g#3 ~@2 g#3 ~ g#3!2 ~ g#4!2", V: "g#3@2 ~ g#4 ~@2 g#3 ~ g#3 g#4 ~ g#3 g#4 ~ g#3 [g#3,g#4]",
  W: "d#3 ~@2 d#3 ~@2 d#3@2 ~ d#4 ~ d#4 d#3 d#4!3", X: "d#3 ~@2 d#3 ~@2 d#3 ~@2 d#3 ~ d#3!2 ~ d#3 ~",
  Y: "a3@2 ~ a3 ~@2 a3@2 ~ a3 ~ a3!2 ~ a3!2", Z: "a3 ~@2 a3 ~@2 a3 ~@2 a3 ~ a3!2 a4!3",
  AA: "d4@2 ~ d4 ~@2 d3@2 d4 ~@2 d3 d4 ~ d3@2", AB: "d4@2 ~ d4 ~@2 d4 ~ d3 d4 ~ d3 d4@2 d3@2",
  AC: "b3 ~@2 b3 ~@2 b3 ~@2 b3 ~ b3!2 ~ b3!2", AD: "b3@2 ~ b3 ~@2 b3 ~@2 b3 ~ b3!2 ~ b3!2",
  AE: "e4@2 ~ e4 ~@2 e3 ~ e3 ~ e4 ~@2 e4 ~@2", AF: "e4@2 ~ e4 ~@2 e4 ~@2 e3 ~ e3!2 ~ e3!2",
  AG: "a3@2 ~ a3 ~@2 a3 ~@2 a3 ~@2 a3 ~ a3 ~", AH: "a3@2 ~ a3 ~@2 a3 ~@2 a3 ~ a3!2 ~ a3!2",
  AI: "b3 ~@2 b3 ~@2 b3 ~@2 b3 ~ b3!2 ~ b3 ~", AJ: "e4@2 ~ e4 ~@2 e3 ~ e3 ~ e4 ~ e3 e4 e3 e4",
  AK: "e3@2 ~ e4 e3 ~ e3 ~ e3 e4 ~ e3 e4@2 e3!2", AL: "a3 ~@2 a3 ~@2 a3 ~@2 a3 ~ a3!2 ~ a3 ~",
  AM: "a3 ~@2 a3 ~@2 a3 ~@2 a3 ~ a3!2 ~ a4!2", AN: "a3@2 ~ a4 ~@2 a3 ~ a3 a4 ~ a3 a4 ~ a3 [a3,a4]",
  AO: "e3 ~@2 e3 ~@2 e3@2 ~ e4 ~ e4 e3 e4!3", AP: "e3 ~@2 e3 ~@2 e3 ~@2 e3 ~ e3!2 ~ e3 ~",
})).s("gm_shamisen").gain(0.07)

// bass · acoustic bass
const bass = note(`<
  A B C D E F G H E I J K L M N K E I J K L M N K O P Q R S T U V E F W X J X E K Y Z J AA W X A B C D E F G H AB AC AD
  AE AF AE AB AG AH AI AJ AK AL K AM AN AB AC AD AE AF AE AB AG AO AP AF AQ AD AE AR AS AT AU AB AC AV AW AB AC AV AW AR
  AS AT AU
>`.pickRestart({
  A: "g#2@4 ~@2 g#2 ~ d#2@5 ~@3", B: "g#2@5 ~ g#2 ~ d#2@4 ~@4", C: "a#2@5 ~ a#2@2 d#2@5 ~@3",
  D: "d#2@4 ~@2 d#2 ~ d#2 ~ d#3@3 ~ d#2 ~", E: "g#2@5 ~ g#2@2 d#2@5 ~@3", F: "g#2@5 ~ g#2@2 d#2@3 ~ g#2@3 ~",
  G: "a#2@5 ~ a#2@2 d#2@7 ~", H: "d#2@5 ~ d#2 ~ d#2@3 ~ d#2@4", I: "d#2@4 ~@2 d#2 ~ d#2@5 ~@3",
  J: "a#2@5 ~ a#2@2 f2@6 ~@2", K: "d#2@5 ~ d#2 ~ d#2@4 ~@4", L: "a#2@5 ~ a#2@2 f2@5 ~@3", M: "d#2@5 ~ d#2 ~ d#2@5 ~@3",
  N: "g#2@4 ~@2 d#2 ~ d#2@5 ~@3", O: "g#2@5 ~ g#2 ~ g#2@5 ~@3", P: "g#2@5 ~ g#2 ~ g#2@8", Q: "c#2@5 ~ c#2 ~ c#2@6 ~@2",
  R: "c#2@5 ~ c#2 ~ c#2@3 ~ c2@3 ~", S: "a#1@5 ~ a#1 ~ a#1@5 ~@3", T: "d2@5 ~ d2 ~ d2@4 ~@4",
  U: "d#2@4 ~@2 d#2 ~ d#2@6 ~@2", V: "d#2@5 ~ d#2 ~ d#2 ~ d#2@2 a#1@2 d#2 ~", W: "a#2@5 ~ a#2@2 f2@7 ~",
  X: "d#2@5 ~ d#2 ~ d#2@3 ~ d#2@3 ~", Y: "g#2@5 ~ g#2@2 d#2@6 ~@2", Z: "g#2@5 ~ g#2@2 d#2 ~ d#2@2 f2@2 g2@2",
  AA: "d#2@4 ~@2 d#2 ~ d#2@3 ~ d#2@3 ~", AB: "a2@5 ~ a2@2 e2@5 ~@3", AC: "a2@5 ~ a2@2 e2@3 ~ a2@3 ~",
  AD: "b2@5 ~ b2@2 f#2@7 ~", AE: "e2@5 ~ e2 ~ e2@3 ~ e2@3 ~", AF: "b2@5 ~ b2@2 f#2@6 ~@2", AG: "e2@5 ~ e2 ~ e2@4 ~@4",
  AH: "a2@5 ~ a2 ~ a2@5 ~@3", AI: "a2@5 ~ a2 ~ a2@8", AJ: "d2@5 ~ d2 ~ d2@6 ~@2", AK: "d2@5 ~ d2 ~ d2@3 ~ c#2@3 ~",
  AL: "b1@5 ~ b1 ~ b1@5 ~@3", AM: "e2@4 ~@2 e2 ~ e2@6 ~@2", AN: "e2@5 ~ e2 ~ e2 ~ e2@2 b1@2 e2 ~",
  AO: "a2@5 ~ a2@2 e2@6 ~@2", AP: "a2@5 ~ a2@2 e2 ~ e2@2 f#2@2 g#2@2", AQ: "e2@4 ~@2 e2 ~ e2@3 ~ e2@3 ~",
  AR: "a2@4 ~@2 a2 ~ e2@5 ~@3", AS: "a2@5 ~ a2 ~ e2@4 ~@4", AT: "b2@5 ~ b2@2 e2@5 ~@3",
  AU: "e2@4 ~@2 e2 ~ e2 ~ e3@3 ~ e2 ~", AV: "b2@5 ~ b2@2 e2@7 ~", AW: "e2@5 ~ e2 ~ e2@3 ~ e2@4",
})).s("gm_acoustic_bass").gain(0.32)

// bass · electric bass pick
const bass_2 = note(`<
  ~@8 A@2 B C B C A@4 B C B C A@4 D E B@2 F@2 A@2 B C B C A@4 B C B C ~@16 G@2 H I J@2 K@2 G@2 J L J L G@4 J L J L ~@16
>`.pickRestart({
  A: "g#2!16", B: "a#2!16", C: "d#2!16", D: "c#3!16", E: "c#3!13 c3!2 b2", F: "d#3!16", G: "a2!16", H: "d3!16",
  I: "d3!13 c#3!2 c3", J: "b2!16", K: "e3!16", L: "e2!16",
})).s("gm_electric_bass_pick").gain(0.17)

// other · pad new age
const pad_new_age = note(`<
  ~@34 A ~ A ~ B ~@3 C ~ D ~@11 E F G H I J ~@10 K L M N O ~@3 P Q E R S T U V S T U V S T U V ~@4
>`.pickRestart({
  A: "~@4 f5 ~ c#6@4 ~@6", B: "~@4 d#5@2 c6 ~@9", C: "~@2 f5 c#6@2 ~@3", D: "~@4 f5 ~ c#6@5 ~@5",
  E: "~@4 f#5 ~ d6@6 ~@4", F: "~@2 a5 ~ b5 ~ e5@5 ~@5", G: "~@4 f#5 ~ d6@7 ~@3", H: "~@2 a5 ~ b5 ~ e5 ~@3 e6@3 ~ e5 ~",
  I: "~@4 e5 ~ c#6@8 ~@2", J: "~@2 e5 ~ a5 ~ e6@3 ~ d6 ~ c#6 ~ a5 ~", K: "~@2 f#5 d6@3 ~@2", L: "~@2 a5 ~ b5 ~ e5 ~@9",
  M: "~@4 f#5 ~ d6@2 ~@8", N: "~@2 a5 ~ b5 ~ e5@2 ~@8", O: "~@4 e5 ~ c#6@5 ~@5", P: "~@4 f#5 ~ d6@5 ~@5",
  Q: "~@2 c#6 b5@2 ~@3", R: "~@4 c#6@2 b5@3 ~@7", S: "e6 ~ f#6 ~ a6 ~ b6 ~@5 e6 ~ f#6 ~",
  T: "a6 ~ b6 ~@5 e6 ~ f#6 ~ a6 ~ b6 ~", U: "c#7 ~@3 b6 ~ e6 ~@9", V: "c#7 ~@3 b6 ~ e7 ~@9",
})).s("gm_pad_new_age").gain(0.15)

// other · electric guitar jazz
const electric_guitar_jazz = note("<~@54 A B C D E F G H ~@38>".pickRestart({
  A: "e4@2 ~ e4@2 ~ e4@2 f#4@2 ~ f#4@2 ~ f#4@2", B: "g#4@2 ~ g#4@2 ~ g#4@2 a4@2 ~ a4@2 a4@2 ~", C: "d5@3 a4",
  D: "g#4@12 f#4@3 ~", E: "d5@12 a4@3 ~", F: "g#4@10 f#4@2 ~ e4@3", G: "c#5@3 g#4", H: "f#4",
})).s("gm_electric_guitar_jazz").gain(0.32).pan(0.6)

// other · electric guitar clean
const electric_guitar_clean = note("<~@54 [~@13 f#3@2 ~] ~@3 [~@13 a3@3] ~@41>")
  .s("gm_electric_guitar_clean").gain(0.25)

// chords · synth brass 1 · D C# C B E
const synth_brass_1 = note(`<
  ~@65
  [~ [a4,d5,f#5] [g#4,c#5,f5] [g4,c5,e5]]
  [[f#4,b4,d#5]]
  ~@2
  [~@13 [g#5,b5,e6]@2 ~]
  ~@30
>`).s("gm_synth_brass_1").gain(0.29)

// drums · kick
const kick = s("bd").struct(`<
  [x ~@2 x!2 ~@3]!31
  [x ~@2 x!2 ~ x ~]
  [x ~@2 x!2 ~@3]!45
  [x ~@2 x!2 ~ x ~]
  [x ~@2 x!2 ~@3]!22
>`).gain(0.4)

// drums · snare
const snare = s("sd").struct("<[~ x ~ x]!31 [~@2 x ~@2 x ~ x] [~ x ~ x]!45 [~@2 x ~@2 x ~ x] [~ x ~ x]!22>").gain(0.5)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@7 A ~ A ~@7 A ~@5 B ~@9 A ~@7 A ~@3 B ~@3 A ~@3 A ~ A ~@23 A ~@9 A ~@10
>`.pickRestart({
  A: "~@7 x", B: "~@3 x ~@3 x",
})).gain(0.35)

// drums · hihat
const hihat = s("hh").struct("<A@9 B A@7 B A@13 B A B A@5 C A B A@13 B A@21 B A B A@5 C A@14>".pickRestart({
  A: "x!8", B: "x!5 ~@3", C: "x!6 ~@2",
})).gain(0.3)

// drums · mid tom
const mid_tom = s("mt").struct("<~@7 A ~ A ~@7 A ~@5 B ~@9 A ~@5 C ~ A ~@3 B ~@7 A ~ A ~@23 A ~@5 C ~@14>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "~@7 x",
})).gain(0.35)

// drums · high tom
const high_tom = s("ht").struct(`<
  ~@7 A ~ A ~@7 A ~@5 B ~@9 A ~@5 C ~ A ~@3 B ~@7 A ~ A ~@23 A ~@5 C ~@14
>`.pickRestart({
  A: "~@5 x ~@2", B: "~ x ~@3 x ~@2", C: "~@11 x ~@4",
})).gain(0.35)

// drums · shaker
const shaker = s("sh").struct(`<
  [~ x ~ x ~ x ~ x]!24
  [~@2 x!2 ~@2 x ~@3 x!2 ~@2 x ~]!7
  [~@2 x!2 ~@2 x ~@9]
  [~ x ~ x ~ x ~ x]!30
  [~@2 x!2 ~@2 x ~@3 x!2 ~@2 x ~]!15
  [~@2 x!2 ~@2 x ~@9]
  [~ x ~ x ~ x ~ x]!22
>`).gain(0.3)

stack(
  acoustic_guitar_nylon, brass_section, synth_strings_2, shamisen, bass, bass_2, pad_new_age, electric_guitar_jazz,
  electric_guitar_clean, synth_brass_1, kick, snare, low_tom, hihat, mid_tom, high_tom, shaker
)