// Lettera da Berlino est — Pooh
// 120 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: duplicate parts dropped: ch 14 electric guitar muted (copy of ch 13 electric guitar muted)
// note: Full arrangement: all 139 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
// note: Guitar parts that double another keep only their own notes (fills, solos): guitar program 30.
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.

// bass · slap bass 2
const bass = note(`<
  ~ A@2 B@2 C@2 A@2 D@2 A@2 C@2 A@2 D@2 A@2 E@3 F E F G H@2 E@2 F E I J K L E@2 F E I J M@2 N O M@2 N P Q J N J Q E N R
  N S E T U@2 C@2 A@2 D@2 A@2 C@2 A@2 D@2 A@2 E@3 F E F G H@2 E@2 F E I J K L E@2 F E I J M@2 N O M@2 N P Q J N J Q E N
  R N S E T U@2 C@2 A@2 D@2 A@2 ~@4
>`.pickRestart({
  A: "d2/2", B: "[d2@28 g2@2 c3 d3]/2", C: "[d2@31 ~]/2", D: "c2/2", E: "b1 b2 b1 b2 b1 b2 b1 b2",
  F: "b1@2 b2@2 b1@2 b2@2 b1@2 b2@2 e2 f#2 a2 b2", G: "f#2 ~ f#2 ~ f#2 ~ f#2@2 f#2 ~ f#2 ~ f#2 ~ f#2 ~",
  H: "[f#2 ~@3 f#2@10 b1@6 b2@4 b1@2 b2@2 b1@2 b2@2]/2", I: "b1@2 b2@2 b1@2 b2@2 b1@2 b2@2 b1@2 c3 d3",
  J: "d2 d3 d2 d3 d2 d3 d2 d3", K: "d2@2 d3@2 d2@2 d3@2 d2@2 d3@2 d2 c#3@2 ~",
  L: "b1@2 b2@2 b1@2 b2@2 b1@2 b2@2 b1@2 b2 ~",
  M: "[c2@2 c3@2 c2@2 c3@2 c2@2 c3@2 c2@2 c3 ~ d2@2 d3@2 d2@2 d3@2 d2@2 d3@2 d2@2 d3@2, ~@15 d3@2 ~@15]/2",
  N: "e2 e3 e2 e3 e2 e3 e2 e3", O: "e2 e3 e2 e3 e1 f#1 g1 b1", P: "e1 f#1 g1 b1", Q: "c2 c3 c2 c3 c2 c3 c2 c3",
  R: "e2@2 e3@2 e2@2 e3@2 e2@2 e3@2 a2 b2 d3 e3", S: "e2@2 e3@2 e2@2 e3@2 e2@2 e3@5 ~", T: "b1 b2 b1 b2 b1@2 a#1@2",
  U: "a1 a2 a1 a2 a1 a2 a1 a2",
})).s("gm_slap_bass_2").gain(0.46)

// chords · synth strings 1
const synth_strings_1 = note(`<
  ~ A B A B C B A D E F C B C B A D E F C B ~@7 G@2 H I J K L M@2 N H I J K L O P Q R@2 S T U@2 V T P Q S W X Y Z Y AA
  AB AA AC C B A D E F C B C B A D E F C B ~@7 G@2 H I J K L M@2 N H I J K L O P Q R@2 S T U@2 V T P Q S W X Y Z Y AA AB
  AA AC C B A D E F C B C B A D
>`.pickRestart({
  A: "[a4,d5,g5]@6 [a4,d5,f#5]@9 ~", B: "[a4,d5,e5]@6 [a4,d5,f#5]@9 ~", C: "[a4,d5,g5]@5 ~ [a4,d5,f#5]@9 ~",
  D: "[a4,d5,e5]@5 ~ [a4,d5,f#5]@9 ~", E: "[g4,c5,f5]@6 [g4,c5,e5]@9 ~", F: "[g4,c5,d5]@6 [g4,c5,e5]@9 ~",
  G: "[~@7 [f#4,b4]@5 [e4,a4]@4]/2", H: "[d4,g4]@7 ~ [e4,a4]@7 ~", I: "[f#4,b4]@7 ~ [e4,a4]@7 ~",
  J: "[d4,g4]@8 [e4,a4]@7 ~", K: "[f#4,b4]@7 ~ [e4,a4]@8", L: "[d4,g4]@7 ~ [e4,a4]@8", M: "[[d4,f#4] c#4, [a3,e4]]/2",
  N: "[f#4,b4] [e4,a4]", O: "[a3,d4,e4,f#4]", P: "[d4,e4,g4,b4]@15 ~", Q: "[d4,e4,f#4,a4]",
  R: "[[d4,e4,g4,b4]@28 [d4,e4,f#4,a4]@3 ~]/2", S: "[c4,d4,e4,g4]", T: "[d4,e4,f#4,a4]@15 ~",
  U: "[[b3,d4,e4,g4]@24 [b3,d4,e4,g4,b4]@3 ~ [d4,e4,f#4,a4]@3 ~, b4 ~@7]/2", V: "[c4,d4,e4,g4]@15 ~", W: "[b3,d#4,f#4]",
  X: "~@4 [d5,g5]@3 ~ [d5,f#5]@7 ~", Y: "[c5,e5]@5 ~ [d5,f#5]@10", Z: "~@4 [d5,g5]@3 ~ [d5,f#5]@8",
  AA: "~@4 [a4,d5]@3 ~ [a4,c#5]@7 ~", AB: "[g4,b4]@5 ~ [a4,c#5]@10", AC: "[g4,b4]@3 [a4,c#5]@5",
})).s("gm_synth_strings_1").gain(0.24)

// other · overdriven guitar
const overdriven_guitar = note(`<
  A@3 B@4 C@2 D@4 E@2 C@2 D@4 F G H G H G ~@8 I J K ~ L@2 ~@6 M N ~@25 E@2 C@2 D@4 F G H G H G ~@4 O P@3 Q R@2 ~ S T U@2
  ~@23 E@2 C@2 D@4 ~@4
>`.pickRestart({
  A: "[~@15 [d2,a2] [d2,a2]@32, ~@5 [d3,a3,d4]@11]/3", // D5
  B: "[[d2,a2,d3,a3,d4]@30 ~ [d2,a2] [d2,a2]@32, ~@31 [d3,a3,d4]@32 ~]/4", C: "[[d2,a2,d3,a3,d4]@28 [d3,a3] ~@3]/2",
  D: "[[c2,c3,g3,c4]@30 ~ [d2,a2] [d2,a2]@32, ~@31 [d3,a3,d4]@33]/4", E: "[d2,a2]/2",
  F: "~@4 b3!2 a3 ~@3 e3!2 a3!2 e3!2", G: "~@2 d3!2 g3!2 d3 ~@3 f#3!2 d4 c#4 a3 b3",
  H: "~@2 f#3!2 b3!2 a3 ~@3 e3!2 a3!2 e3!2", I: "~ a5@3", J: "c#5@15 ~", K: "b4@3 ~",
  L: "[~@8 g3@2 ~ f#3@3 ~ c#4@3 b3@4 g4@3 ~ f#4@6]/2", M: "f#5 b4", N: "g4 ~", O: "~@2 b3@3 ~ c#4@3 ~ d4@3 ~ e4@2",
  P: "[~@2 f#4@3 ~ a4@4 a4@4 b4@34]/3", Q: "~@4 [c4,c5]@5 ~ [b3,b4]@5 ~", R: "[[a3,a4]@5 ~ [b3,b4]@26]/2",
  S: "~@2 [b3,b4]@6 ~@2 [a3,a4]@5 ~", T: "~ [f#3,f#4]@3 ~ [e3,e4]@3", U: "[[f#3,f#4]@7 ~]/2",
})).s("gm_overdriven_guitar").gain(0.22).pan(0.3)

// other · distortion guitar
const distortion_guitar = note("<~@58 A B C B D E F G ~@53 A B C B D E F G ~@11 H>".pickRestart({
  A: "~@4 a5@2 ~@2 a5@7 ~", B: "g5@6 a5@9 ~", C: "~@4 a5@3 ~ a5@7 ~", D: "~@4 e5@3 ~ e5@8", E: "d5@3 e5@5",
  F: "~@4 e5@3 ~ e5@7 ~", G: "d5@6 e5@9 ~", H: "~@13 d3 ~@2",
})).s("gm_distortion_guitar").gain(0.19).pan(0.6)

// chords · lead 2 sawtooth
const lead_2_sawtooth = note(`<
  ~@27 A B@2 C D C D C ~@2 D C D C D C ~@15 E F E F G H G I ~@22 A B@2 C D C D C ~@2 D C D C D C ~@15 E F E F G H G I
  ~@12
>`.pickRestart({
  A: "[f#2,e4,g#4,b4,c#5]", B: "[~@2 [f#2,a#4,c#5,f#5,a#5]@5 [d4,f#4,b4]@5 [c#4,e4,a4]@4]/2",
  C: "[b3,d4,g4] [c#4,e4,a4]", D: "[d4,f#4,b4] [c#4,e4,a4]", E: "~@4 [d4,g4,b4]@3 ~ [d4,f#4,a4]@7 ~",
  F: "[c4,e4,g4]@3 [d4,f#4,a4]@5", G: "~@4 [a3,d4,f#4]@3 ~ [a3,c#4,e4]@8", H: "[g3,b3,d4]@3 [a3,c#4,e4]@5",
  I: "[g3,b3,d4]@5 ~ [a3,c#4,e4]@10", // G A
})).s("gm_lead_2_sawtooth").gain(0.15).pan(0.6)

// other · overdriven guitar
const overdriven_guitar_2 = note(`<
  ~@21 A B A B A B ~@23 C D ~@21 E F ~@7 A B A B A B ~@20 G@2 ~ H I J ~@25
>`.pickRestart({
  A: "~@2 f#3!2 b3!2 a3 ~@3 e3!2 a3!2 e3!2", B: "~@2 d3!2 g3!2 d3 ~@3 f#3!2 d4 c#4 a3 b3", C: "~@14 c5 [d5,e5]",
  D: "a5@15 ~, g5 ~@15",
  E: "~@8 a5 [e5,f5,g5] [b4,c5,d5] [f4,g4,a4] [b3,c4,d4,e4] [e3,f3,g3,a3] [a2,b2,c3,d3] [a1,b1,c2,d2,e2,f2,g2]", // Em Bm F Cmaj7 Fmaj7 D7 Am7
  F: "[f1,g1] ~@15", G: "[~@2 [e4,g4] b4 d5@24 ~@4]/2", H: "~@14 a4 b4", I: "e5@3 d5 e5@12, d5 ~@15", J: "f5@15 ~",
})).s("gm_overdriven_guitar").gain(0.19).pan(0.7)

// other · pad sweep
const pad_sweep = note("<~@21 A@2 B@2 C@2 D ~@54 E ~ E ~ F@2 ~@51>".pickRestart({
  A: "b5/2", B: "[e5@3 f#5@3 b4@10]/2", C: "f#6/2", D: "e5", E: "b5@11 ~@5", F: "[e5@6 f#5@6 b4@13 ~@7]/2",
})).s("gm_pad_sweep").gain(0.19).pan(0.6)

// chords · piano
const piano = note("<~@21 A B C B C B ~@55 A B C B C B ~@51>".pickRestart({
  A: "[f#4,b4]@3 [c#4,e4,a4]@5", B: "[b3,d4,g4]@3 [c#4,e4,a4]@5", C: "[d4,f#4,b4]@3 [c#4,e4,a4]@5",
})).s("gm_piano").gain(0.31)

// other · electric guitar muted
const electric_guitar_muted = note(`<
  ~ A@8 B@2 A@2 C A@3 B@2 A@2 D E F E F E G ~@38 C A@3 B@2 A@2 C A@3 B@2 A@2 D E F E F E G ~@38 C A@3 B@2 A@2 C A@2 H
>`.pickRestart({
  A: "d2!2 a2!2 d3!2 a3!2 d4!2 a3!2 d3!2 a2!2", B: "c2!2 g2!2 c3!2 g3!2 c4!2 g3!2 c3!2 g2!2",
  C: "~ d2 a2!2 d3!2 a3!2 d4!2 a3!2 d3!2 a2!2", D: "~@4 b3!2 a3 ~@3 e3!2 a3!2 e3!2",
  E: "~@2 d3!2 g3!2 d3 ~@3 f#3!2 d4 c#4 a3 b3", F: "~@2 f#3!2 b3!2 a3 ~@3 e3!2 a3!2 e3!2",
  G: "~@2 [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~ [f#2,c#3,f#3] ~", // F#5
  H: "d2!2 a2!2 d3!2 a3!2 d4!2 a3!2 d3 ~@3",
})).s("gm_electric_guitar_muted").gain(0.25).pan(0.7)

// chords · lead 8 bass lead
const lead_8_bass_lead = note("<~@44 A@4 B@3 ~ C@3 D@2 ~@48 A@4 B@3 ~ C@3 D@2 ~@21>".pickRestart({
  A: "[~@2 [g4,b4,e5]@5 [f#4,a4,d5]@4 [e4,g4]@2 [d4,f#4]@2 [e4,g4]@6 [g4,b4] [e4,g4]@4 ~@6]/4", // Em D Em D Em G Em
  B: "[~@2 [e4,g4]@5 [f#4,a4]@4 [d4,f#4]@2 [a3,d4]@2 [b3,e4]@5 ~@4]/3", // Em F#m D D5 E5
  C: "[~@2 [g4,b4,e5]@5 [f#4,a4,d5]@4 [e4,g4]@2 [d4,f#4]@2 [e4,g4]@6 ~@2 [c4,e4]]/3", // Em D Em D Em C
  D: "[[f#4,a4]@7 [e4,g4]@2 [c4,e4]@3 ~@4]/2", // F#m Em C
})).s("gm_lead_8_bass_lead").gain(0.05)

// drums · kick
const kick = s("bd").struct(`<
  ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ A ~ B@5 C A D E B@35 C A ~@7 A ~ A ~ A ~ A ~ B@5 C A D E B@35 C A ~@11
>`.pickRestart({
  A: "x", B: "x!4", C: "x!3 ~", D: "~@7 x", E: "~ x!3",
})).gain(0.44)

// drums · snare
const snare = s("sd").struct("<~@21 A@6 B C A@7 D A@14 D A@14 ~@16 A@6 B C A@7 D A@14 D A@14 ~@12>".pickRestart({
  A: "~ x ~ x", B: "~ x!7", C: "x ~@2 x!2 ~@11", D: "~@4 x ~@7 x ~ x!2",
})).gain(0.39)

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@12 A ~@3 B ~@3 C ~@22 D E ~@15 E ~@3 E ~@8 F ~@3 B ~@3 G ~@22 D E ~@15 E ~@3 E ~@13
>`.pickRestart({
  A: "~@11 x ~@4", B: "~@9 x!4 ~@3", C: "~@6 x ~ x ~@2 x!2 ~@3", D: "~@14 x!2", E: "x", F: "~@3 x",
  G: "~@2 x ~ x ~ x ~ x ~@2 x!2 ~@3",
})).gain(0.39)

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

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@8 A ~@3 B ~@3 C ~@3 D ~@7 E ~@14 F G ~@5 H I ~@21 J ~@3 C ~@11 E ~@14 F G ~@5 H I ~@26
>`.pickRestart({
  A: "~@3 x!2 ~ x ~@5 x!4", B: "~@8 x ~@2 x ~@2 x!2", C: "~@5 x!4 ~@7", D: "~ x ~@2", E: "~@4 x!3 ~", F: "~@14 x!2",
  G: "x", H: "~@4 x!2 ~@2", I: "~@9 x!2 ~@5", J: "~ x!4 ~ x ~@3 x ~@5",
})).gain(0.39)

// drums · mid tom · soft notes
const mid_tom_soft = s("mt").struct("<~@16 A ~@2 B ~@57 A ~@2 B ~@58>".pickRestart({
  A: "~ x ~@6", B: "~@7 x",
})).gain(0.22)

// drums · open hat
const open_hat = s("oh").struct("<~@32 A ~@7 A ~@18 A ~@3 A ~@29 A ~@7 A ~@18 A ~@3 A ~@14>".pickRestart({
  A: "~@7 x",
})).gain(0.39)

// drums · high tom
const high_tom = s("ht").struct("<~@8 A ~@3 B ~@3 C ~@2 D E ~@52 F ~@3 C ~@2 D G ~@57>".pickRestart({
  A: "~@5 x ~@2", B: "~@8 x ~@4 x!2 ~", C: "~@3 x!2 ~@11", D: "~@15 x", E: "x!2 ~@6", F: "x", G: "x!5 ~@3",
})).gain(0.39)

// drums · high tom · soft notes
const high_tom_soft = s("ht").struct("<~@8 [~@13 x ~@2] ~@7 [~ x ~@6] ~@60 [~ x ~@6] ~@61>").gain(0.22)

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

stack(
  bass, synth_strings_1, overdriven_guitar, distortion_guitar, lead_2_sawtooth, overdriven_guitar_2, pad_sweep, piano,
  electric_guitar_muted, lead_8_bass_lead, kick, snare, low_tom, hihat, mid_tom, mid_tom_soft, open_hat, high_tom,
  high_tom_soft, crash
)