// Ein Madchen wie du — Bernd Cluver
// 124 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 96 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): DISTORTION.
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.

// bass · synth bass 2 · "SYN BASS 2"
const bass = note(`<
  ~@2 A B C D E F G H E F I D J K L D M N B O P Q F R S T B U V E F G W E F I D E F G W E F I X Y@3 Z AA@2 AB AC AD AE O
  AF AG AE O AH AI ~@7 AJ AK AL AM AN AK AL AO AI AK AL AM AN AK AL AO AP AO AP AO AE O AQ AR AS
>`.pickRestart({
  A: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@2 d1@2 e1@2", B: "c2 ~ c2@2 g1@2 a1@2 c2 ~ c2@2 g1@2 a1 ~",
  C: "g1 ~ g1@2 d1@2 g1@2 d2 ~ d2 ~ d2@2 a1@2", D: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@2 d1@2 g1 ~",
  E: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@2 d1@2 g1@2", F: "c2 ~ c2@2 g1@2 a1@2 c2 ~ c2@2 g1@2 c2@2",
  G: "g1 ~ g1@2 d1@2 g1@2 g1 ~ g1@2 d1@2 g1@2", H: "[c2,d2] ~ d2@2 a1@2 b1 ~ d2 ~ d2@2 b1@2 a1 ~",
  I: "a1@2 ~@2 a1@2 ~@2 d2@2 d1@2 a1@2 d2 ~", J: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@3 ~ g1@2",
  K: "e1 ~ e1@4 b1 ~ e2 ~ e1 ~ e1@4", L: "c2 ~ c2@2 g1@2 a1@2 c2 ~ c2@3 ~ c2@2",
  M: "g1 ~ g1@3 ~ g1 ~ g1 ~ g1@2 d1@2 e1 ~", N: "e1@4 ~@2 b1 ~ e2 ~ b1@2 e1@3 ~",
  O: "d2 ~ d2@2 a1@2 b1@2 d2 ~ d2@2 a1@2 b1 ~", P: "a1 ~ a1@2 g1@2 a1@2 d2 ~ d2@2 a1@2 d2@2",
  Q: "b1 ~ b1@2 a1@2 b1@2 e2 ~ e2@2 b1@2 e2@2", R: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@2 e1@2 g1 ~",
  S: "b1 ~ b1@2 f#1@2 b1@2 e1 ~ e1@2 g1@2 b1 ~", T: "b1 ~ b1 ~ f#1@2 b1@2 e1 ~ e1@2 g1@2 b1@2",
  U: "d2 ~ d2@2 a1@2 b1@2 d2 ~ d2@2 a1@2 b1@2", V: "d2 ~ d2@2 a1@2 b1@2 d2 ~ d1@2 g1@2 a1 ~",
  W: "d2 ~ d2@2 a1@2 b1 ~ d2 ~ d2@2 b1@2 a1 ~", X: "g1 ~ g1@2 d1@2 e1@2 g1 ~ g1@2 d1@2 e1 ~",
  Y: "a1 ~ a1 ~ d1 d2 d1 d2", Z: "g1@2 ~@2 g1@4 d1@2 e1@2 g1 ~ e1@2", AA: "a1@2 ~@2 a1@3 ~ d1@2 d2@2 d1@2 d2@2",
  AB: "a1@2 ~@2 a1@2 ~@2 a1@2 ~@2 a1@3 ~", AC: "d2 d1 d2 d1 d2 d1 d2 d1", AD: "e1 e2 e1 e2 e1 e2 e1 e2",
  AE: "a1 ~ a1@2 e1@2 f#1@2 a1 ~ a1@2 e1@2 f#1@2", AF: "a1 ~ a1@2 e1@2 f#1@2 a1 ~ a1 ~ c#2@2 d2@2",
  AG: "e2 ~ e2@2 b1@2 c#2@2 e2 ~ e2@2 c#2@2 b1 ~", AH: "b1 ~ b1@2 f#1@2 b1@2 e1 ~ e1@2 b1@2 e2 ~",
  AI: "a1 ~ a1@2 e1@2 f#1@2 a1 ~ a1@2 e1@2 f#1 ~", AJ: "~@8 d2@4 e2@3 ~",
  AK: "a1 ~ a1@2 e1@2 f#1@2 a1 ~ a1@2 e1@2 a1@2", AL: "d2 ~ d2@2 a1@2 b1@2 d2 ~ d2@2 a1@2 d2@2",
  AM: "a1 ~ a1@2 e1@2 a1@2 a1 ~ a1@2 e1@2 a1@2", AN: "e2 ~ e2@2 b1@2 c#2 ~ e2 ~ e2@2 c#2@2 b1 ~",
  AO: "b1@2 ~@2 b1@2 ~@2 e2@2 e1@2 b1@2 e2 ~", AP: "a1@4 c#2@2 a1 ~ f#1 ~ f#1@2 c#2@2 f#1 ~",
  AQ: "a1 ~ a1@2 e1@2 a1@2 e2 ~ e2 ~ e2@2 b1@2", AR: "a1 ~ a1@2 e1@2 f#1@2 a1 ~ a1@2 e1@2 a1 ~", AS: "a1 ~@7",
})).s("gm_synth_bass_2").gain(0.45)

// other · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note("<~ A B C D@2 ~@49 E F@2 G@2 H@2 I@2 ~@26 J K L I@2 ~>".pickRestart({
  A: "~@7 d4", B: "b4@2 c5@2 b4@2 g4@3 ~ d4@2 g4@2 e4@2", C: "~@2 g4@8 e4@2 g4 ~ a4 ~",
  D: "[b4 c5 b4 g4 e4 d4 a4 g4@7 ~@2]/2", E: "e4@2 d4 ~ c#4@2 d4@2 c#4@2 a3@2 f#3@2 e3 ~",
  F: "[c#5 d5 c#5 a4@2 e4 a4 f#4@2 a4@6 e4]/2", G: "[c#5 ~ d5@2 c#5@2 ~ a4@3 e4@2 c#5@2 b4@15 ~ e4 ~]/2",
  H: "[c#5 d5 c#5 a4@2 e4 a4 f#4@2 a4@4 f#4 a4 b4]/2", I: "[c#5 d5 c#5 a4 f#4 e4 b4 a4@7 ~@2]/2", J: "~@14 e4 ~",
  K: "c#5@2 d5@2 c#5@2 a4@3 ~ e4@2 a4@2 f#4@2", L: "~@2 a4@8 f#4@2 a4 ~ b4 ~",
})).s("gm_overdriven_guitar").gain(0.35).pan(0.7)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@2 A@4 B C D@2 B C E B F@2 G@2 H@2 C I J K@3 L M C N@2 B C D@2 B C E O B C D@2 B C E B P@2 Q R S@2 T U V W@4 X@3 Y Z
  I AA@2 Z I AB AC Z I AA@2 Z I AB AC Z I AA@2 Z I AB AD AB AD AB AE@4 AF
>`.pickRestart({
  A: "[[d4,b4]@2 [c4,e4]@2 [d4,b4] [f#4,a4] [g4,b4]@2, g4@5 d4@3]/4", B: "[d4,g4,b4]", C: "[c4,e4,g4]",
  D: "[[g4,b4] [f#4,a4], d4]/2", E: "[g4,c5,e5] [f#4,a4,d5]", F: "[[g4,d5] [e4,g4], b4]/2",
  G: "[[e4,c5] [d4,b4], g4]/2", H: "[d4 e4, [g4,b4]]/2", I: "[d4,f#4,a4]", J: "[c4,e4] [d4,f#4], a4",
  K: "[[f#4,a4] e4 [c4,e4]@2 [b3,d4]@2, [b3,d4] ~@2, ~ g4@5]/3", L: "[b3,d4,f#4,a4] [d4,e4,g4]",
  M: "[b3,f#4,a4] [d4,e4,g4]", N: "[f#4,a4]/2", O: "~@2 d5@2 e5@2 g5@2 ~@2 g5@2 e5@2 d5 ~, [d4,g4,b4]",
  P: "[[a3,e4] d4 [c4,e4] [a3,d4], ~ a3@2 ~]/2", Q: "[a3,c4,e4] [a3,d4]", R: "[b3,d4]", S: "[g3,c4,e4] [a3,d4]",
  T: "[c4,a4]", U: "[a4,d5,f#5]@11 ~ [d5,e5] [f#5,g5] [a5,b5] [c#6,d6]", V: "e6 d6 c#6 d6 c#6 a5 f#5 e5",
  W: "[[c#5,e5] [d5,f#5] c#5 [g#4,b4], a4@3 ~, ~ e5]/4", X: "[[c#5,e5]@2 [d5,f#5]@2 [b4,d5,f#5] [b4,e5,g#5], a4]/3",
  Y: "[a4,c#5,e5]", Z: "[e4,a4,c#5]", AA: "[[a4,c#5] [g#4,b4], e4]/2", AB: "[a4,d5,f#5] [g#4,b4,e5]",
  AC: "~@2 e5@2 f#5@2 a5@2 ~@2 a5@2 f#5@2 e5 ~, [e4,a4,c#5]", AD: "e4 f#4, [a4,c#5]",
  AE: "[[e4,c#5]@2 [d4,f#4]@2 [e4,c#5] [g#4,b4] [a4,c#5]@2, a4@5 e4@3]/4", AF: "[a2,e4,a4] ~@7",
})).s("gm_string_ensemble_1").gain(0.23)

// other · lead 2 sawtooth · "SAW WAVE"
const lead_2_sawtooth = note(`<
  ~ A B@2 C@2 ~ D ~@3 E ~ F ~@15 G H ~ D ~@3 E ~ I ~ D ~@3 E ~ F ~@8 J K@2 L@2 M@2 N@2 ~ O ~@3 P ~ Q ~ O ~@3 P ~ Q ~ O
  ~@3 P ~ R ~ R S T@2 U@2 V
>`.pickRestart({
  A: "~@7 d4, ~@14 d5 ~",
  B: "[[b4,b5]@2 [c5,c6]@2 [b4,b5]@2 [g4,g5]@4 [d4,d5]@2 [g4,g5]@2 [e4,e5]@4 [g4,g5]@8 [e4,e5]@2 [g4,g5]@2 [a4,a5] ~]/2", // B C B G D G E G …
  C: "[[b4,b5]@2 [c5,c6]@2 [b4,b5]@2 [g4,g5]@2 [e4,e5]@2 [d4,d5]@2 [a4,a5]@2 [g4,g5]@15 ~@3]/2", // B C B G E D A G
  D: "~@6 [g4,c5,e5]@4 [c5,e5,g5] ~@5", E: "~@6 [g4,c5,e5]@3 ~ [c5,e5,g5] ~@5",
  F: "~@2 [g4,b4,d5] ~@3 [g4,b4,d5] ~@3 [g4,b4,d5]@4 ~@2", G: "[d4,f#4]@4 [e4,g4]@3 ~ [f#4,a4]@3 ~ [g4,b4]@4",
  H: "[a4,c5]@3 ~ [b4,d5]@3 ~ [c5,e5]@4 [d5,f#5]@3 ~", // Am Bm C D
  I: "~@2 [d4,d5]@2 [e4,e5]@2 [g4,g5]@3 ~ [g4,g5]@2 [e4,e5]@2 [d4,d5] ~", // D E G E D
  J: "e5@2 d5@2 c#5@2 d5@2 c#5@2 a4@2 f#4@2 e4 ~", K: "[c#5 d5 c#5 a4@2 e4 a4 f#4@2 a4@6 e4]/2",
  L: "[c#5@2 d5@2 c#5@2 a4@4 e4@2 c#5@2 b4@15 ~ e4@2]/2", M: "[c#5 d5 c#5 a4@2 e4 a4 f#4@2 a4@4 f#4 a4 b4]/2",
  N: "[c#5 d5 c#5 a4 f#4 e4 b4 a4@8 ~]/2", O: "~@6 [a4,d5,f#5]@4 [d5,f#5,a5] ~@5",
  P: "~@6 [a4,d5,f#5]@3 ~ [d5,f#5,a5] ~@5", Q: "~@2 [e4,e5]@2 [f#4,f#5]@2 [a4,a5]@3 ~ [a4,a5]@2 [f#4,f#5]@2 [e4,e5] ~",
  R: "[e4,a4]@15 ~", S: "~@14 e4 ~",
  T: "[[c#5,c#6]@2 [d5,d6]@2 [c#5,c#6]@2 [a4,a5]@4 [e4,e5]@2 [a4,a5]@2 [f#4,f#5]@4 [a4,a5]@8 [f#4,f#5]@2 [a4,a5]@2 [b4,b5] ~]/2", // C# D C# A E A F# A …
  U: "[[c#5,c#6]@2 [d5,d6]@2 [c#5,c#6]@2 [a4,a5]@2 [f#4,f#5]@2 [e4,e5]@2 [b4,b5]@2 [a4,a5]@15 ~@3]/2", // C# D C# A F# E B A
  V: "[a4,c#5] ~@7, e5 ~@15", // A
})).s("gm_lead_2_sawtooth").gain(0.24)

// bass · synth bass 1 · "SYN BASS 1"
const bass_2 = note(`<
  ~@2 A B C A@2 B A D A B E F@2 G B A@2 H B I J K L M N O L P Q A B A D A B E F A B A D A B E F R@2 S T U ~ V I W X Y X
  Z X Y AA AB ~@7 AC AB I AB AD AB I AE AF AB I AB AD AB I AE AG AE AG AE AB I AH AB AI
>`.pickRestart({
  A: "~@2 [d3,g3,b3] ~@3 [d3,g3,b3] ~@3 [d3,g3,b3] ~@3 [d3,g3,b3] ~", // G
  B: "~@2 [c3,e3,g3] ~@3 [c3,e3,g3] ~@3 [c3,e3,g3] ~@3 [c3,e3,g3] ~", // C
  C: "~@2 [d3,g3,b3] ~@3 [d3,g3,b3] ~@3 [c3,f#3,a3] ~@3 [c3,f#3,a3] ~", // G F#dim
  D: "~@2 [c3,f#3,a3] ~@3 [c3,f#3,a3] ~@3 [c3,f#3,a3] ~@3 [c3,f#3,a3] ~", // F#dim
  E: "~@2 [c3,e3,a3] ~@3 [c3,e3,a3] ~@3 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~", // Am D
  F: "~@2 [d3,g3,b3] ~@3 [d3,g3,b3] ~@3 [d3,g3] ~@3 [d3,g3,b3] ~, ~@5 b3 ~@2", // G G5 G
  G: "~@2 [e3,g3,b3] ~@3 [e3,g3] ~@3 [e3,g3,b3] ~@3 [e3,g3,b3] ~, ~@3 b3 ~@4", // Em
  H: "~@2 [e3,g3,b3] ~@3 [e3,g3,b3] ~@3 [e3,g3,b3] ~@3 [e3,g3,b3] ~", // Em
  I: "~@2 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~", // D
  J: "~@2 [a2,c3,e3,g3] ~@3 [a2,c3,e3,g3] ~@3 [a2,d3,f#3,a3] ~@3 [a2,d3,f#3,a3] ~", // Am7 D
  K: "~@2 [a2,d3,f#3,a3] ~@3 [a2,d3,f#3,a3] ~@3 [b2,d3,e3,g3] ~@3 [b2,d3,e3,g3] ~", // D Em7
  L: "~@2 [g2,c3,e3] ~@3 [g2,c3,e3] ~@3 [g2,c3,e3] ~@3 [g2,c3,e3] ~", // C
  M: "~@2 [b2,d3,g3] ~@3 [b2,d3,g3] ~@3 [b2,d3] ~@3 [b2,d3,g3] ~, ~@5 g3 ~@2", // G Bm G
  N: "~@2 [a2,d3,f#3,a3] ~@3 [a2,d3,f#3,a3] ~@3 [b2,d3,e3] ~@3 [b2,d3,e3,g3] ~, ~@5 g3 ~@2", // D E7 Em7
  O: "~@2 [a2,b2,d3,f#3] ~@3 [a2,b2,d3,f#3,a3] ~@3 [b2,d3,e3] ~@3 [b2,d3,e3,g3] ~, ~ a3 ~@3 g3 ~@2", // Bm7 E7 Em7
  P: "~@2 [c3,d#3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~", // Cdim D7
  Q: "~@2 [c3,d3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~@3 [c3,d3,f#3,a3] ~", // D7
  R: "~@2 [c3,e3,g3,a3] ~@3 [c3,e3,g3,a3] ~@3 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~", // Am7 D
  S: "~@2 [c3,e3,g3] ~@3 [c3,e3,g3,a3] ~@3 [d3,f#3,a3] ~@3 [d3,f#3,a3] ~, ~ a3 ~@6", // C Am7 D
  T: "~@2 [b2,d3,g3] ~@3 [b2,d3,g3] ~@3 [b2,d3,g3] ~@3 [b2,d3,g3] ~", U: "~@2 [b2,d3,g3] ~@13",
  V: "~@2 [c3,e3,a3] ~@3 [c3,e3,a3] ~@3 [c3,e3,a3] ~@3 [c3,e3,a3] ~", // Am
  W: "~@2 [b2,d3,g#3] ~@3 [b2,d3,g#3] ~@3 [b2,d3,g#3] ~@3 [b2,d3,g#3] ~", // G#dim
  X: "~@2 [c#3,e3,a3] ~@3 [c#3,e3,a3] ~@3 [c#3,e3,a3] ~@3 [c#3,e3,a3] ~", // A
  Y: "~@2 [a2,d3,f#3] ~@3 [a2,d3,f#3] ~@3 [a2,d3,f#3] ~@3 [a2,d3,f#3] ~", // D
  Z: "~@2 [b2,e3,g#3] ~@3 [b2,e3,g#3] ~@3 [b2,e3,g#3] ~@3 [b2,e3,g#3] ~", // E
  AA: "~@2 [b2,d3,f#3,a3] ~@3 [b2,d3,f#3,a3] ~@3 [b2,e3,g#3] ~@3 [b2,e3,g#3] ~", // Bm7 E
  AB: "~@2 [e3,a3,c#4] ~@3 [e3,a3,c#4] ~@3 [e3,a3,c#4] ~@3 [e3,a3,c#4] ~", AC: "~@8 a2@4 b2@3 ~, ~@8 d2 ~@3 e2 ~@3",
  AD: "~@2 [d3,g#3,b3] ~@3 [d3,g#3,b3] ~@3 [d3,g#3,b3] ~@3 [d3,g#3,b3] ~", // G#dim
  AE: "~@2 [d3,f#3,b3] ~@3 [d3,f#3,b3] ~@3 [e3,g#3,b3] ~@3 [e3,g#3,b3] ~", // Bm E
  AF: "~@2 [e3,a3,c#4] ~@3 [e3,a3,c#4] ~@3 [e3,a3] ~@3 [e3,a3,c#4] ~, ~@5 c#4 ~@2", // A A5 A
  AG: "[e3,a3,c#4] ~ [e3,a3] ~@3 [e3,a3,c#4] ~ [c#3,f#3,a3] ~ [c#3,f#3] ~@3 [c#3,f#3,a3] ~, ~@2 c#4@3 ~@5 a3@3 ~@3", // A A5 A F#m F#5 F#m
  AH: "~@2 [e3,a3,c#4] ~@3 [e3,a3,c#4] ~@3 [d3,g#3,b3] ~@3 [d3,g#3,b3] ~", AI: "e3 ~@7, a2 ~@15",
})).s("gm_synth_bass_1").gain(0.19)

// other · distortion guitar · "DISTORTION"
const distortion_guitar = note("<~@58 [~@3 a3@2 ~@3] ~@37>").s("gm_distortion_guitar").gain(0.25).pan(0.3)

// chords · harpsichord · "HARPSICHRD" · C#5 D5 E5 D5 E5 Cdim E5 Cdim …
const harpsichord = note(`<
  ~@29
  [a4@2 [g#4,c#5] [a4,d5] [b4,e5]@2 [a4,d5] [b4,e5] [c5,f#5]@2 [b4,e5] [c5,f#5] [d5,g5]@2 [c5,f#5] [d5,g5], d5 ~@15]
  [[e5,a5]@2 [d5,g5] [e5,a5] [f#5,b5]@2 [e5,a5] [f#5,b5] [g5,c6]@2 [f#5,b5] [g5,c6] [a5,d6]@2 ~@2]
  ~@40
  [~@4 [d4,f#4]@2 [e4,g#4] ~]
  ~@24
>`).s("gm_harpsichord").gain(0.3).pan(0.3)

// drums · kick
const kick = s("bd").struct("<~@2 [x!2]!53 [x!8] [x!2]!15 [x ~ x!2] [x!2]!23 x>").gain(0.49)

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

// drums · low tom
const low_tom = s("lt").struct("<~@13 A ~@7 A ~@8 A ~@7 A ~@7 A ~@7 A ~@24 A ~@16>".pickRestart({
  A: "~@3 x",
})).gain(0.49)

// drums · hihat
const hihat = s("hh").struct("<~@2 A B@52 ~ A B@3 A B@30 A B@3 ~>".pickRestart({
  A: "~@3 x ~@2 x!2 ~@2 x!2 ~@2 x!2", B: "~@2 x!2 ~@2 x!2 ~@2 x!2 ~@2 x!2",
})).gain(0.24)

// drums · open hat
const open_hat = s("oh").struct("<~@55 [~ x!7] ~@40>").gain(0.24)

// drums · crash
const crash = s("cr").struct(`<
  ~@2 A ~@3 A ~@7 A ~@7 A ~@8 A ~@7 A ~@7 A ~@3 A ~@3 A@2 ~@3 A ~@3 A ~@6 B A ~@7 A ~@10 A ~@3 A
>`.pickRestart({
  A: "x", B: "~@2 x!2",
})).gain(0.31)

// drums · tambourine
const tambourine = s("tb").struct("<~@2 [~ x ~ x]!53 ~ [~ x ~ x]!39 ~>").gain(0.31)

stack(
  bass, overdriven_guitar, string_ensemble_1, lead_2_sawtooth, bass_2, distortion_guitar, harpsichord, kick, snare,
  low_tom, hihat, open_hat, crash, tambourine
)