// Brother Louie — Stories
// 111 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: ch 4 "guitar 1" named as a guitar, played on electric guitar clean (its piano patch is not one)
// note: Full arrangement: all 80 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(111/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 · electric bass pick · "base"
const bass = note(`<
  A B@4 C@3 D E B@4 F@2 G E B@4 F@2 H I B@4 F@2 H I B@4 F@2 H I B@4 F@2 H I B@4 F@2 H I B@4 F@2 H I B@4 F@2 H I B@4 J@2
>`.pickRestart({
  A: "~ a1@2 a1@3 a1!2", B: "[d1@5 d1 d1@3 a1@2 a1@3 a1!2]/2", C: "[d1@5 d1 d1@3 e2 b1 e2@2 d2 a1 d2@2 a1@4 a1 a1@2]/3",
  D: "a1 a1@4 a1 a1@2", E: "a1 a1@2 a1@3 a1!2", F: "[d1@5 d1 d1@3 e2 b1 e2@2 d2 a1 d2]/2", G: "a1@5 a1 a1@2",
  H: "a1@4 a1 a2 g2 e2", I: "d2 a1@2 a1@3 a1!2", J: "[d1@5 d1 d1@3 ~@7]/2",
})).s("gm_electric_bass_pick").gain(0.4)

// chords · electric guitar clean · "guitar 1"
const electric_guitar_clean = note(`<
  A B C D@2 B E F@3 G H I@2 J@2 K@2 D@2 I@2 J@2 K@2 D@4 L@4 D@4 M@2 N@2 G H I@2 J@2 K@2 D@4 O@4 P@2 Q@2 R@4 P@2 Q@2 R@4
  P@2 Q@2 S@2
>`.pickRestart({
  A: "[c4,e4,a4]@3 [c4,e4,a4]@4 [a3,c4,e4]", B: "[f3,a3,d4]@6 [f3,a3,d4]@8 f3 a3",
  C: "d4 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]", // Am
  D: "[[f3,a3,d4]@3 [f3,a3,d4]@3 [f3,a3,d4]@3 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/2", // Dm Am
  E: "d4 [b3,e4,g4]@3 [b3,e4,g4] [a3,d4,f4] [a3,d4,f4]@2", // Em Dm
  F: "[[a3,d4,f4] [c4,e4,a4]@2 [c4,e4,a4]@4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/3", // Dm Am
  G: "[f3,a3,d4]@3 [f3,a3,d4]@3 [f3,a3,d4]@2", H: "a3 d4 [c4,e4,a4]@4 [c4,e4,a4]@8 [a3,c4,e4]@2",
  I: "[[f3,a3,d4]@6 [f3,a3,d4]@2 f3@2 a3 d4 a3 d4 [f3,a3]@4 [c4,e4,a4]@4 [c4,e4,a4]@8 [a3,c4,e4]@2]/2", // Dm F Am
  J: "[[f3,a3,d4]@3 [f3,a3,d4]@3 [f3,a3,d4]@3 [b3,e4,g4]@3 [b3,e4,g4] [a3,d4,f4] [a3,d4,f4]@2]/2", // Dm Em Dm
  K: "[[c4,e4,a4]@3 [c4,e4,a4]@3 [c4,e4,a4]@3 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/2", // Am
  L: "[[f3,a3,d4]@3 [d4,f4]@4 [d4,f4]@2 [b3,e4,g4]@3 [b3,e4,g4] [a3,d4,f4] [a3,d4,f4]@3 [c4,e4,a4]@2 [c4,e4,a4]@4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/4", // Dm Em Dm Am
  M: "[[f3,a3,d4]@3 [d4,f4]@4 [d4,f4]@2 [b3,e4,g4]@3 [b3,e4,g4] [a3,d4,f4] [a3,d4,f4]@2]/2", // Dm Em Dm
  N: "[[c4,e4,a4]@3 [c4,e4,a4]@4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/2", // Am
  O: "[[f3,a3,d4]@3 [d4,f4]@4 [d4,f4]@2 [b3,e4,g4]@3 [b3,e4,g4] [a3,d4,f4] [a3,d4,f4]@3 [c4,e4,a4]@2 [c4,e4,a4]@3 [c4,e4,a4]@3 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4]]/4", // Dm Em Dm Am
  P: "[[f3,a3,d4]@3 [f3,a3,d4]@3 [f3,a3,d4]@3 ~@2 [c4,e4,a4]@2 [e4,a4,c5] [a4,c5,e5]@2]/2", // Dm Am
  Q: "[[f4,a4,d5]@4 c5 d5 c5 a4 g4 [c4,e4,a4]@4 [e4,a4,c5] [a4,c5,e5]@2, ~@5 [f4,a4]@2 [d4,f4]@2 ~@7]/2", // Dm Am F Dm
  R: "[[f4,a4,d5]@4 [f4,a4,c5] [f4,a4,d5]@2 [f4,a4,c5]@2 [g4,b4,e5]!2 [g4,b4,e5]@2 d5 c5 a4 g4 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@2 [c4,e4,a4]@4 [a3,c4,e4], ~@13 [f4,a4]@2 [d4,f4]@2 ~@15]/4", // Dm F Dm F Em Am F Dm
  S: "[[f4,a4,d5]@4 [f4,a4,c5] [f4,a4,d5]@2 [f4,a4,c5]@2 ~@7]/2", // Dm F Dm F
})).s("gm_electric_guitar_clean").gain(0.48)

// chords · rock organ · "Staff-1"
const rock_organ = note(`<
  ~@8 A B C D E F G H I J E K L M N O P Q E Q E Q E R P ~@8 S C T E U V W I Q E Q E Q E R P ~@8 Q E Q E Q E R P Q E Q E
  Q E ~
>`.pickRestart({
  A: "~@6 [e5,a5]!2", B: "[a5,c6]@5 ~@7 [a5,c6]@2 [a5,c6]@2", C: "[f5,b5]@5 ~@11",
  D: "~ [a5,c6]!2 [a5,c6]@2 [a5,c6] [g5,b5] [e5,a5]", E: "[f5,a5]@5 ~@11",
  F: "~@2 [a5,c6]@3 ~ [a5,c6]@2 [a5,c6]@3 ~ [a5,c6]@2 [a5,c6]@2", // Am
  G: "[a5,b5]@2 [f5,b5]@4 [f5,a5]@3 ~ [f5,a5]@2 [f5,a5]@2 ~@2", H: "~ [g5,b5]!4 [f5,c6] [f5,b5] [f5,a5]",
  I: "[e5,a5]@3 ~@5", J: "~@2 [a5,c6]@2 [a5,b5]@3 ~ [a5,b5]@3 ~ [a5,c6]@2 [a5,b5]@2", K: "~ [a5,c6]!5 [a5,b5] [e5,a5]",
  L: "[f5,a5]@5 ~@9 [f5,a5]@2", M: "[f5,a5]@2 [a5,c6]@2 [a5,c6]@2 ~@2 [a5,c6]@3 ~ [a5,b5]@2 [a5,b5]@2",
  N: "[e5,a5]@2 [f5,b5]@2 [f5,a5]@2 [f5,a5]@3 ~ [f5,a5]@2 [f5,a5]@2 ~@2", // A5 Fdim F
  O: "~@2 [g5,b5]@2 [g5,b5]@2 [g5,b5]@3 ~ [f5,c6]@2 [f5,b5]@2 [f5,a5]@2", P: "[e5,a5]@5 ~@11",
  Q: "~ [a5,c6]!2 [a5,b5]!2 [e5,a5]!2 [e5,g5]", R: "~ [g5,b5]!5 [d5,a5] [d5,g5]",
  S: "~@2 [a5,c6]@3 ~@7 [a5,c6]@2 [a5,c6]@2", T: "~ [a5,c6]!5 [g5,b5] [e5,a5]",
  U: "~@2 [a5,c6]@3 ~ [a5,c6]@3 ~ [a5,c6]@2 [a5,c6]@2 [a5,c6]@2", V: "[a5,b5]@2 [f5,b5]@2 [f5,a5]@3 ~ [f5,b5]@3 ~@5",
  W: "~ [g5,b5]!3 [g5,c6]@2 [f5,b5] [f5,a5]", // G C5 Fdim F
})).s("gm_rock_organ").gain(0.48)

// chords · synth strings 1 · "Staff-2"
const synth_strings_1 = note(`<
  ~@17 A B@4 C@4 B@4 D@3 E F G H I@2 J K@2 L@4 M@2 N@2 B@4 O@4 B@4 C@4 B@4 O@4 B@4 P@2
>`.pickRestart({
  A: "~ [c4,e4,a4]@7", B: "[f4@14 a4 d5 f5@2 [c4,e4,a4]@14 [a3,d4,f4]@18 [c4,e4,a4]@14, [a3,d4]@9 e5@8 ~@15]/4",
  C: "[f4@14 a4 d5 f5@2 [e4,g4,b4,e5]@8 [d4,f4,a4]@6 [c4,e4,a4]@18 [c4,e4,a4]@14, [a3,d4]@9 ~@4 d5@4 ~@15]/4", // Em Dm Am D5
  D: "[f4@14 a4 d5 f5@2 [e4,g4,b4,e5]@8 [d4,f4,a4]@6 [c4,e4,a4]@14 e4@2, [a3,d4]@9 ~@4 d5@4 ~@7]/3", // Em Dm Am D5
  E: "a4 g4 [e4,a4] ~@4 e4", F: "a4 d5 [f4,a4] ~@3 f4 a4", G: "d5 [c5,e5,a5]@6 [c5,e5]",
  H: "a4 g4 [e4,a4] ~@3 f4 [f4,a4]", I: "[d5 [c5,e5,a5]@10 [d5,f5]@2 ~@2 f5, ~@13 d5@3]/2",
  J: "d5 [e4,b4] [b4,e5] [e5,g5] [b4,e5] ~ f5 d5, ~@5 d5@2 ~", K: "[~ c4@15, [e4,a4]]/2",
  L: "[[a3,d4,f4]@9 [c4,e4,a4]@7]/2", M: "[[a3,d4,f4]@9 [e4,g4,b4]@4 [d4,f4,a4]@3]/2",
  N: "[[c4,e4,a4]@9 [c4,e4,a4]@7]/2", // Am
  O: "[f4@14 a4 d5 f5@2 [e4,g4,b4,e5]@8 [d4,f4,a4]@6 [c4,e4,a4]@32, [a3,d4]@9 ~@4 d5@4 ~@15]/4", // Em Dm Am D5
  P: "[f4@14 a4 d5 f5@2 ~@14, [a3,d4]@9 ~@7]/2", // D5
})).s("gm_synth_strings_1").gain(0.32)

// chords · synth strings 1 · "Staff-2" · soft notes
const synth_strings_1_soft = note("<A B@4 C@5 B@4 D@2 E@2 ~@62>".pickRestart({
  A: "~ [c4,e4,a4]@7", B: "[[a3,d4,f4]@9 [c4,e4,a4]@7]/2",
  C: "[[a3,d4,f4]@9 [e4,g4,b4]@4 [d4,f4,a4]@4 [c4,e4,a4]@16 [c4,e4,a4]@7]/5", // Dm Em Dm Am
  D: "[[a3,d4,f4]@9 [e4,g4,b4]@4 [d4,f4,a4]@3]/2", E: "[[c4,e4,a4]@9 ~@7]/2",
})).s("gm_synth_strings_1").gain(0.08)

// drums · kick
const kick = s("bd").struct("<A@8 B A@7 B A@7 B C A@6 B C A@6 B C A@6 B C A@6 B C A@6 B C A@6 B C A@5 ~>".pickRestart({
  A: "~ x ~ x ~@2 x!2", B: "~@2 x ~@3 x ~@2 x ~@2 x!3 ~", C: "x!2 ~ x ~@2 x!2",
})).gain(0.48)

// drums · snare
const snare = s("sd").struct("<A@8 B A@7 B A@7 B C A@6 B C A@6 B C A@6 B C A@6 B C A@6 B C A@6 B C A@5 ~>".pickRestart({
  A: "~@3 x ~@3 x", B: "~@6 x ~@6 x!2 ~", C: "x ~@2 x ~@3 x",
})).gain(0.48)

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

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@2 A ~@3 A ~ A@2 ~@5 A ~ A ~ A@2 ~@4 A@9 ~ A@2 ~@6 A@2 ~ A@2 ~@2 A@8 ~ A@2 ~@6 A@2 ~@6 A@2 ~@3
>`.pickRestart({
  A: "x",
})).gain(0.32)

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

stack(
  bass, electric_guitar_clean, rock_organ, synth_strings_1, synth_strings_1_soft, kick, snare, hihat, open_hat, crash
)