// Mama Told Me (Not To Come) — Three Dog Night
// 118 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 99 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(118/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 finger · "Bass"
const bass = note(`<
  ~@3 A@9 B C@4 D@2 ~@2 A@7 B C@4 D@2 E ~ C@4 D@2 E ~ A@7 B C@4 D@2 ~@2 C@8 F@2 G@2 H@2 I@2 J@2 K@2 F@2 G@2 H@2 I@2 J@2
  E L M@2 ~@4
>`.pickRestart({
  A: "g1@6 c#2@2 d2 ~ d2@3 ~ f#1@2", B: "g1@5 ~ c#1@2 d1 ~ e1@2 f1 ~ f#1 ~",
  C: "[g1 ~ g1@3 ~ g1 ~ b1 ~ b1@3 ~ c2@7 ~ c#2@4 d2@2 f2@2 g2@2]/2",
  D: "[g1 ~ g1@3 ~ g1 ~ b1 ~ b1@3 ~ c2@7 ~ c#2@4 d2@2 f2 g2@3]/2", E: "g1@3 ~@13",
  F: "[g1@5 ~ g1@2 a1@2 a#1@2 b1 ~ c2@5 ~ e1@6 ~@2 f1@2 f#1 ~]/2",
  G: "[g1@5 ~ g1@2 a1@2 a#1@2 b1 ~ c2@14 f1@2 f#1 ~]/2",
  H: "[g1@5 ~ g1@2 a1@2 a#1@2 b1@2 c2@5 ~ e1@4 ~@4 f1@2 f#1 ~]/2",
  I: "[g1@5 ~ g1@2 a1@2 a#1@2 b1@2 c2@11 ~ e1@2 f1@2 f#1 ~]/2",
  J: "[g1@5 ~ g1 ~ b1@2 b1@2 ~@2 c2@7 ~ c#2@4 d2 ~ f2@2 g2 ~]/2",
  K: "[g1@5 ~ g1 ~ b1@2 b1@3 ~ c2@7 ~ c#2@4 d2 ~ f2@2 g2@2]/2", L: "d2@2 c2@2 ~@2 b1@3 ~ a1@4 ~@2",
  M: "[g1@2 a1@2 ~@2 a#1@3 ~ b1@12 ~@10]/2",
})).s("gm_electric_bass_finger").gain(0.36)

// chords · epiano2 · "Keyboard 1"
const epiano2 = note(`<
  A B@2 C D E C F@2 C G@2 H I J I J I J K L A B@2 C D E C M@2 J I J I J K L I J I J I J A B@2 C D E C F@2 C I J I J I J
  K L I J I J I J I J I J I J I J I J I J I J I J I J I J I J I J K N O@6
>`.pickRestart({
  A: "~@2 g4 g3 b3 f4 ~ b3, g2@7 ~ d2@7 ~, ~@3 g3",
  B: "[g4 ~ b3 f4 ~ b3 g4 ~ b3 f4 ~ b3 g4 ~ b3 f4, g2@7 ~ d2@7 ~ g2@7 ~ d2@7 ~, ~ g3@2 ~ g3@2 ~ g3@2 ~ g3@2 ~ g3@2 ~]/2",
  C: "~ b3 g4 ~ b3 f4 ~ b3, g2@7 ~ d2@7 ~, g3@2 ~ g3@2 ~ g3@2",
  D: "g4 ~ b3 f4 ~ b3 g4 g3, g2@7 ~ d2@7 ~, ~ g3@2 ~ g3@2 ~@2", E: "~ f4 g3 b3 g4 ~ b3 f4, g2@7 ~ d2@7 ~, ~@5 g3@2 ~",
  F: "[g4 ~ b3 f4 ~ b3 g4 ~ b3 f4 g3 b3 g4 ~ b3 f4, g2@7 ~ d2@7 ~ g2@7 ~ d2@7 ~, ~ g3@2 ~ g3@2 ~ g3@2 ~@4 g3@2 ~]/2",
  G: "[g4 g3 b3 f4 g3 b3 g4 ~ b3 f4 g3 b3 g4 g3 b3 f4, g2@7 ~ d2@6 g3@4 ~@14, ~@16 g2@7 ~ d2@7 ~]/2",
  H: "~@2 b3@2 g4@2 g3@2 b3@2 f4@2 g3@2 b3 ~, g3 ~@3",
  I: "~@4 [g4,b4,d5,g5]@5 ~ [b4,d5,f5]@2 g4 ~ [g4,c5,e5]@2, ~@10 g4 ~@5", // G Bdim C
  J: "~@2 [c5,e5]@2 g4@2 c5 ~ [g4,d#5]@3 ~ [g4,d5]@2 b4@2, ~@2 g4 ~@13", // C Cm G5
  K: "b4@2 [a4,c5]@2 ~@2 [a#4,c#5]@2 ~@2 [b4,d5]@3 ~ [b4,d5] ~, g4 ~@15", // Am A#m Bm
  L: "[d5,f#5]@2 [c5,e5]@3 ~ [b4,d5]@3 ~ [a4,c5]@5 ~", // D C Bm Am
  M: "[g4@2 ~@2 b3@2 f4@2 ~@2 b3@2 g4@2 g3@4 ~@2 [g4,b4,d5,g5]@5 ~ [b4,d5,f5]@2 g4 ~ [g4,c5,e5]@2, g2@7 ~ d2@7 ~@17, ~@2 g3@4 ~@2 g3@4 ~@14 g4 ~@5]/2", // G Bdim C
  N: "[d5,f#5]@2 [c5,e5]@3 ~ [b4,d5]@3 ~ [a4,c5]@3 ~ [a4,c5]@2", // D C Bm Am
  O: "[[b3,g4,b4]@2 [c4,a4,c5]@3 ~ [c#4,a#4,c#5]@3 ~ [b4,d5]@11 [a4,c5]@6 [g4,b4]@7 ~ [f4,a4]@20 [f#4,a#4]@33 ~@8, ~@10 d4@13 ~@73]/6", // Em F F# Bm Am G F F#
})).s("gm_epiano2").gain(0.36).pan(0.4)

// chords · pad warm · "Keyboard 2"
const pad_warm = note("<~@8 A ~ B ~@11 C@2 D@2 ~@18 E ~ F G ~@3 H I ~@46>".pickRestart({
  A: "~@3 g5@5", B: "~ b5@3", C: "[~@6 g4@19 ~@7]/2", D: "[~@6 [d4,f4]@19 ~@7]/2", E: "b5@2 a5@2 g5@2 e5 ~ a5@5 ~@3",
  F: "~@5 [c4,e4]@3", G: "~@2 [b3,d4]@9 ~@5", H: "[d4,b4]", I: "~ g4@12 ~@3, b3@3 ~, ~ a4 ~@14",
})).s("gm_pad_warm").gain(0.39).pan(0.8)

// other · overdriven guitar · "Guitar"
const overdriven_guitar = note(`<
  ~@13 A@2 B@2 C@2 D ~@9 A@2 E@2 C@2 D ~ A@2 E@2 C@2 D ~@9 A@2 E@2 C@2 D ~ A@2 E@2 A@2 E@2 F G H@2 F G H@2 A@2 E@2 F G
  H@2 F G H@2 A@2 D ~@7
>`.pickRestart({
  A: "[g2@7 ~ b2@2 b2@2 ~@2 c3@7 ~ c#3@4 d3 ~ f3@2 g3 ~]/2", B: "[g2@7 ~ b2@2 b2@2 ~@2 c3@8 c#3@4 d3 ~ f3@2 g3 ~]/2",
  C: "[g2@7 ~ b2@2 b2@3 ~ c3@7 ~ c#3@4 d3 ~ f3 g3@3]/2", D: "g2@3 ~@13",
  E: "[g2@7 ~ f3@2 f3@2 ~@2 e3@8 d#3@4 d3 ~ f3@2 g3 ~]/2", F: "g2@7 ~ c#3@2 d3@2 d#3@2 e3@2", G: "e2@3 ~@13",
  H: "[g2@5 ~ g2 ~ c#3@2 d3@2 d#3@2 e3@15 ~@3]/2",
})).s("gm_overdriven_guitar").gain(0.36)

// other · overdriven guitar · "Solo Guitar"
const overdriven_guitar_2 = note("<~@37 A B C D E F G ~@32 H I J@2 K ~@18>".pickRestart({
  A: "g3@3 ~ g3@4 a#3@2 g3 ~ f3@3 d#3", B: "e3 g3 ~ e3 a#3@2 d#4@2 e4@2 a#4 ~ g4 e4 c4@2",
  C: "~@4 g3@3 ~ [a#3,b3]@2 g3@2 f3@2 e3@2", D: "~@2 d3@2 e3@2 g3@2 a#3 ~ e4@2 g4@2 a#4@2",
  E: "~@3 a#3 b3@2 g4@2 [c#4,d4]@2 b4@2 [b3,c4] a4 a4@2", F: "d4 ~ g4 ~ f4@3 ~ d4 a#3@3 g3@2 ~@2", G: "g2@3 ~@13",
  H: "~@7 g3", I: "~@2 g3@3 ~ g3@2 ~@2 g3@2 ~@2 g3@2", J: "~ g3 ~ g3 ~ g3 ~ g3",
  K: "~@2 g3@2 ~@2 g3@3 ~ d3@2 f3@2 g3@2",
})).s("gm_overdriven_guitar").gain(0.39).pan(0.4)

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

// drums · kick · soft notes
const kick_soft = s("bd").struct("<~@14 A ~ A ~@13 A ~ A ~@5 A ~ A ~@13 A ~ A ~@5 A ~ A ~ A ~ A ~@30>".pickRestart({
  A: "~@15 x",
})).gain(0.25)

// drums · rim
const rim = s("rim").struct("<~@3 A@7 B A B ~@8 A@5 B A B ~@16 A@5 B A B ~@46>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.5)

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

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

// drums · open hat
const open_hat = s("oh").struct("<~@72 [~@15 x] ~@26>").gain(0.25)

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

// drums · ride
const ride = s("rd").struct("<~@3 [x!4]!10 ~@8 [x!4]!8 ~@16 [x!4]!8 ~@46>").gain(0.25)

stack(
  bass, epiano2, pad_warm, overdriven_guitar, overdriven_guitar_2, kick, kick_soft, rim, snare, hihat, open_hat, crash,
  ride
)