// We're An American Band — Grand Funk Railroad
// 132 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 109 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 30.
setcpm(132/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · [...]/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
const bass = note(`<
  ~@4 A B C@2 D C B C E F G H E F G H E F G H I J K L I M N O A B C@2 D C P Q E F G H E F G H E F G H I R S T I M N O A
  B C@2 D C P Q A B C@2 D C P Q I J K L I M N O A B C@2 D C P Q A B C@2 D C P Q P U P U P U V@2 W
>`.pickRestart({
  A: "c2 d2!7", B: "d2!8", C: "c2!8", D: "bb1!8", E: "d2@3 d2 d2@2 ~@10", F: "d2@3 d2 d2@2 ~@6 g2 a2 c3 d3",
  G: "c2@2 ~ c2!2 a1 g1 ~", H: "d2@2 f2 ~@3 e2 ~ e2!2 g1 a1 c2@2 a1@2", I: "g1@2 g1@2 g1 f1 g1 c2",
  J: "d2@2 d2@4 c2@2 d2 c2 a1@2 d2 c2 a1@2", K: "g1 c2!4 g1 c2 a1", L: "c2@2 d2@2 d2@2 d2@2 d2 c2 a1@2 d2@2 a1@2",
  M: "d2@2 d2@2 d2@2 g2 a2 g2@2 d2@2 d3@2 d2@2", N: "c2 f2!2 c2 f2@2 f2!2", O: "g2 d2 g2 d2 g2@2 g2!2",
  P: "d2!5 g1 a1 g1", Q: "d2 c2!5 c2@2", R: "d2@2 d2@4 g2 a2 d3 ~ d3 ~ d3 c3 a2@2",
  S: "c2@2 c2@2 c2@2 f2 g2 c3@2 c3@2 g2@2 c2@2", T: "d2@2 d2@2 d2@2 d2@2 d2 c2 a1@2 d2@2 a1@2",
  U: "d2 c2@2 c2@2 g1 a1 c2", V: "d2/2", W: "d2@3 ~@13",
})).s("gm_electric_bass_pick").gain(0.78)

// chords · distortion guitar
const distortion_guitar = note(`<
  ~@4 A@2 B@2 C D E D F@2 G H F@2 G H F@2 G H I J K J L M N O P@2 Q@2 C D E R F@2 G H F@2 G H F@2 G H I J K J L M N O
  P@2 Q@2 C D E R P@2 Q@2 C D E R I J K J L M N O P@2 Q@2 C D E R P@2 Q@2 C D E R E S E S E S T@2 U
>`.pickRestart({
  A: "[d3,a3]/2", B: "[c3,g3]/2", C: "[bb2,f3]", D: "[c3,g3]", E: "[d3,a3]",
  F: "[d3,a3,d4,gb4]@3 [d3,a3,d4] [d3,a3,d4]@2 ~@10", G: "[g3,c4,e4]@2 ~ [c4,e4] [c4,e4]@4",
  H: "[d3,a3]@2 [f3,c4] ~@3 [e3,b3] ~@3 [c3,g3] ~@5", I: "[g2,d3,g3]@3 ~ [g2,d3,g3]@3 ~ [g2,d3]@3 ~ [g2,d3,g3]@3 ~",
  J: "[d3,a3,d4]@3 ~ [d3,a3,d4]@3 ~ [d3,a3]@3 ~ [d3,a3,d4]@3 ~", // D5
  K: "[c3,g3,c4]@3 ~ [c3,g3,c4]@3 ~ [c3,g3]@3 ~ [c3,g3,c4]@3 ~", // C5
  L: "[g3,b3,d4,g4]@2 [g3,b3,d4,g4]!2 [g3,b3,d4,g4]@2 [g3,b3,d4,g4]!2 [g3,b3,d4,g4]@2 [g3,b3,d4,g4]!2 [g3,b3,d4,g4]@2 [g3,b3,d4,g4]!2", // G
  M: "[d3,gb3,a3,d4]@2 [d3,gb3,a3,d4]!2 [d3,gb3,a3,d4]@2 [d3,gb3,a3,d4]!2 [d3,a3,d4,gb4]@2 [d3,a3,d4,gb4]!2 [d3,a3,d4,gb4]@2 [d3,a3,d4,gb4]!2", // D
  N: "[f3,a3,c4]@2 ~ [f3,a3,c4] [f3,a3,c4]@2 ~ [f3,a3,c4]", O: "[g3,b3,d4]@2 ~ [g3,b3,d4] [g3,b3,d4]@2 ~ [g3,b3,d4]",
  P: "[[d3,a3,d4]@7 [d3,a3,d4]]/2", Q: "[[c3,g3,c4]@6 ~ [a3,c4,f4]@3 [a3,c4,f4]@3 [a3,c4,f4]@3]/2",
  R: "[d3,a3] [c3,g3]@7", S: "[d3,a3]@2 [c3,g3,e4]@3 ~ [c3,g3,e4]@3 ~ [c3,g3,e4]@2 ~@2 [c3,g3,e4]@2", T: "[d3,a3,d4]/2",
  U: "[a3,d4,gb4]@3 ~@13", // D
})).s("gm_distortion_guitar").gain(0.4).pan(1)

// chords · percussive organ
const percussive_organ = note(`<
  ~@4 A@2 B@2 C B A B ~@20 A@2 B@2 C B A D ~@20 A@2 B@2 C B A D A@2 B@2 C B A D ~@8 A@2 B@2 C B A D A@2 B@2 C B A D A D
  E@4 F@2 G
>`.pickRestart({
  A: "[a5,d6]!8", B: "[g5,c6]!8", C: "[f5,bb5]!8", D: "[g5,d6]!8", E: "[[d5,gb5,a5]@9 [c5,e5,g5]@7]/2",
  F: "[d4,a4,gb5]/2", G: "d5@3 ~@13",
})).s("gm_percussive_organ").gain(0.44).pan(1)

// other · distortion guitar
const distortion_guitar_2 = note("<~@4 A B C D E F G H ~@64 I J K L M N O P ~@14 Q@2 R@4 S@2 E T U>".pickRestart({
  A: "c4 d4!2 d4@5", B: "c4 d4!3 c4 d4!3 c4 d4!3 c4 d4!3", C: "d4@8 g4@3 e4@3 c4@2", D: "d4@8 g4@3 e4@5", E: "c4",
  F: "c4@12 c4 a3 c4!2", G: "d4!2 ~ d4!2 ~ d4!2 ~ d4!2 ~ f4@2 f4@2", H: "d4 c4 a3 c4 d4 f4 d4 c4 d4@4 c4 d4@3",
  I: "g4@2 g4@4 gb4 g4", J: "gb4 d4 a3@2 a3@2 a3@2", K: "c4@2 b3@2 c4@2 b3@2 c4@2 b3@2 c4 b3 c4 db4",
  L: "d4@2 d4@2 ~ g4@2 d5", M: "c5@4 f5 [d5,f5] d5!2 f5 [d5,f5] c5 d5 f5 [d5,f5] c5 d5",
  N: "f5 [d5,f5] c5 d5 f5 [d5,f5] c5 d5 f5 [d5,f5] c5 d5 f5 [d5,f5] c5 d5", O: "c5@2 d5!3 c5!2 ~",
  P: "c5@4 d5@2 d5@2 d5 c5 g4@2 f4@2 d4@2", Q: "[c4 d4 ~ c4 d4 ~ c4 d4 ~ c4 d4 ~ f4@2 f4@6 d4@8 ~@4]/2",
  R: "[d4@8 a4 g4 gb4@2 g4@2 gb4@12 ~@6]/2", S: "[d4@8 a4 g4 gb4@2 g4@2 a4@12 ~@6]/2", T: "~@3 c4@2 g3@3 f3@8",
  U: "[d3,d4]@3 ~@13", // D
})).s("gm_distortion_guitar").gain(0.48).pan(0)

// other · distortion guitar
const distortion_guitar_3 = note(`<
  ~@76
  [b4@2 b4@4 a4 b4]
  [a4 gb4 d4@2 d4@4]
  [e4@2 eb4@2 e4@2 eb4@2 e4@2 eb4@2 e4 eb4 e4 f4]
  [gb4!2 ~@2]
  ~@29
>`).s("gm_distortion_guitar").gain(0.54).pan(1)

// chords · epiano1
const epiano1 = note(`<
  ~@4 A@2 B C D C E C F G H I F G H I F G H I J K L M J K N O P Q R S T U V W F G H I F G H I F G H I J K L M J K N O P
  Q R S T U V W P Q R S T U V W J K L M J K N O P Q R S T U V W P Q R S T U V W X Y X Y X Y Z@2 AA
>`.pickRestart({
  A: "[d3,a3,gb4]@3 ~ [d3,a3,gb4]@3 ~ [d3,a3,gb4]@3 ~ [d3,a3,gb4]@3 ~", // D
  B: "[c3,g3,e4]@3 ~ [c3,g3,e4]@3 ~ c3@2 [c3,e4]@4 [c3,g3,e4]@2", // C
  C: "[c3,g3,e4]@3 ~ [c3,g3,e4]@3 ~ [c3,g3,e4]@3 ~ [c3,g3,e4]@3 ~", // C
  D: "[bb2,f3,d4]@3 ~ [bb2,f3,d4]@3 ~ [bb2,f3,d4]@3 ~ [bb2,f3,d4]@3 ~", // Bb
  E: "[d3,a3,gb4]@3 ~ [d3,a3,gb4]@3 ~ [d3,a3,gb4]@2 [d3,g4]@2 [a3,d4,gb4]@3 ~", F: "[a3,d4,gb4]@3 ~ [a3,d4,gb4]@2 ~@10",
  G: "[a3,d4,gb4]@3 ~ [a3,d4,gb4]@2 ~@6 d4@4", H: "[g3,c4,e4]@2 ~ [c4,e4] [c4,e4]@4",
  I: "[d3,d4]@2 [f3,f4] ~@3 [e3,e4] ~@3 [c3,c4] ~@5", J: "[g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~ [g3,b3,d4]@3 ~",
  K: "[d4,gb4,a4]@3 ~ [d4,gb4,a4]@3 ~ [d4,g4,b4]@3 ~ [d4,gb4,a4]@3 ~", // D G D
  L: "c3 [g3,c4,e4] [g3,c4,f4] [g3,c4,e4] [g3,c4,f4] [g3,c4,e4] [g3,c4,f4] [g3,c4,e4]", // C Csus4 C Csus4 C Csus4 C
  M: "[d4,gb4,a4]!4 gb4 g4 gb4 e4", N: "[f3,a3,c4]@2 ~ [f3,a3,c4] [f3,a3,c4]@2 ~ [f3,a3,c4]",
  O: "[g3,b3,d4]@2 ~ [g3,b3,d4] [g3,b3,d4]@2 ~ [g3,b3,d4]", P: "[gb4,a4]!2 [g4,b4] [gb4,a4] ~ [g4,b4]!2 [gb4,a4]",
  Q: "~ [e4,g4]@2 ~ [a3,d4,gb4] ~ [a3,gb4] ~", R: "[e4,g4]!2 [f4,a4] [e4,g4] ~ [f4,a4]!2 [e4,g4]",
  S: "~ [c4,e4] [c4,f4] [c4,e4] [c4,f4] [c4,e4] [c4,f4] [c4,e4]", // C F5 C F5 C F5 C
  T: "[bb3,d4,f4] [bb3,d4,f4]@2 [bb3,d4,f4]@2 [bb3,d4,f4]@2 [bb3,d4,f4]", // Bb
  U: "[c4,e4,g4] [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]@2 [c4,e4,g4]", V: "[d4,gb4,a4]!4 gb4 g4 gb4 d4",
  W: "~ d4@2 [d4,g4] ~ [d4,g4] [d4,gb4] a3", X: "[d4,gb4,a4]!4 [d4,gb4]!2 [gb4,a4]@2",
  Y: "~@2 [c4,e4]@3 ~ [c4,g4]@3 ~ [c4,g4]@3 ~ [c4,e4]@2", Z: "[d4,gb4,a4]/2", AA: "[d4,gb4]@3 ~@13",
})).s("gm_epiano1").gain(0.19).pan(0)

// chords · distortion guitar
const distortion_guitar_4 = note("<~@12 A B C D A B C D A B C D ~@16 A B C D A B C D A B C D ~@57>".pickRestart({
  A: "~@6 [d4,a4]!3 ~ [d4,a4] ~ [d4,a4]!3 ~", B: "~@6 [d4,a4]!9 ~", C: "~@14 [c4,g4]!2", D: "~@8 [b3,e4]!2 ~@6",
})).s("gm_distortion_guitar").gain(0.62).pan(1)

// other · tenor sax
const tenor_sax = note(`<
  ~@31 A B A C D E F G ~@20 A B A C D E F G A B A C D E F G ~@8 A B A C D E F G A B A C D E F G A B A B A B ~@4
>`.pickRestart({
  A: "~@5 a4 g4 gb4", B: "gb4!3 gb4@2 ~@3", C: "g4!3 g4@2 ~@3", D: "~@5 a4 g4!2", E: "f4@2 f4@3 ~ f4@4 a4@2 g4@2 f4@2",
  F: "g4@2 g4@2 g4@2 g4@3 ~ g4@2 g4@2 a4@2", G: "a4!3 a4@2 ~@3",
})).s("gm_tenor_sax").gain(0.57).pan(0)

// other · epiano1
const epiano1_2 = note(`<
  ~@4 A B C@2 D E B C ~@20 A B C@2 D E B C ~@20 A B C@2 D E B C A B C@2 D E B C ~@8 A B C@2 D E B C A B C@2 D E B C B C
  B C B C ~@3
>`.pickRestart({
  A: "c3 d3!7", B: "d3!8", C: "c3!8", D: "bb3!8", E: "c4!8",
})).s("gm_epiano1").gain(0.25).pan(0)

// drums · kick
const kick = s("bd").struct(`<
  A B C D E F E F E@3 G H@2 I J H@2 I J H@2 I J K@6 E G E F E F E@3 G H@2 I J H@2 I J H@2 I J K@6 E G E F E F E@3 G E F
  E F E@3 G K@6 L M E F E F E@3 G E F E F E@2 N M E O E O E O L ~ L
>`.pickRestart({
  A: "x ~@4 x ~@2", B: "x!2 ~@3 x ~ x", C: "x!15 ~", D: "x!13 ~@3", E: "x ~@2 x!2 ~@3", F: "x ~@6 x!2 ~@7",
  G: "x ~@2 x ~@4", H: "x ~ x ~@7 x ~@3 x!2", I: "x!2 ~@2 x!2 ~ x", J: "x ~ x ~@5 x ~ x ~@3 x!2", K: "x!2", L: "x",
  M: "x!4", N: "x!3 ~ x!3 ~ x!3 ~ x!3 ~", O: "x!2 ~ x ~ x ~ x",
})).gain(0.71)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@3 A ~@7 B ~@19 B ~@7 B ~@19 B ~@7 B ~@7 B ~@6 C ~@8 B ~@14 D@2 ~>".pickRestart({
  A: "~@3 x ~@2 x ~@2 x ~@6", B: "~@14 x!2", C: "~ x!2 ~@5", D: "~@8 x ~@2 x ~ x ~@2",
})).gain(0.71)

// drums · open hat
const open_hat = s("oh").struct(`<
  ~@4 A B A B A@2 C D ~@12 E F@5 C D A B A B A@2 C D ~@12 E F@5 C D A B A B A@2 C D A B A B A@2 C D E F@5 ~@2 A B A B
  A@2 C D A B A B A@2 G ~ A ~ A ~ A ~@4
>`.pickRestart({
  A: "~ x!7", B: "x!4 ~@4", C: "x!8", D: "x!3 ~@5", E: "~ x!3", F: "x!4", G: "~ x ~ x ~ x ~ x",
})).gain(0.71)

// drums · high tom
const high_tom = s("ht").struct("<~@3 [~@3 x ~@12] ~@103 [x ~@2 x ~ x ~@10] ~>").gain(0.71)

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

// drums · cowbell
const cowbell = s("cb").struct("<[x!4]!2 x ~@9 [x!4]!12 ~@16 [x!4]!12 ~@57>").gain(0.71)

stack(
  bass, distortion_guitar, percussive_organ, distortion_guitar_2, distortion_guitar_3, epiano1, distortion_guitar_4,
  tenor_sax, epiano1_2, kick, snare, mid_tom, open_hat, high_tom, crash, cowbell
)