// Mama — Genesis
// 85 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 115 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(85/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.

// chords · lead 8 bass lead · "BASS&LEAD"
const lead_8_bass_lead = note("<~@70 A@2 B C D C E F G@2 H@2 I@2 J K L M N ~@26>".pickRestart({
  A: "[[e3,a3], c#4@15 ~]/2", B: "[g3,b3], e3@7 ~", C: "[d3,f#3,a3]@7 ~", D: "[c3,g3], e3@7 ~", E: "[e3,a3,c#4]",
  F: "[e3,g3], b3@7 ~", G: "[d3,f#3,a3]/2", H: "[[e3,g3,b3]@15 ~]/2", I: "[[d3,a3], f#3@15 ~]/2", J: "[c3,e3]@7 ~, g3",
  K: "[d3,f#3,a3]", L: "[e3,g3,b3]@3 ~ [d3,a3]@4, ~@4 f#3@3 ~", M: "[c3,e3]@3 ~ [d3,f#3,a3]@4, g3 ~", N: "[e4,g4,b4]",
})).s("gm_lead_8_bass_lead").gain(0.44)

// other · lead 2 sawtooth · "SAW WAVE"
const lead_2_sawtooth = note(`<
  ~@8 A B C@2 D@4 E F G H E F G I E F G H E F G H E J G H K@2 L M@2 E F G H E F G H E J G H K@2 L M@2 ~@33 N O@2 E F G H
  E F G H E J G H K@2 L M@2 ~@4
>`.pickRestart({
  A: "g5 f#5", B: "~@5 c#4@6 d#4@5", C: "[g4@8 ~@7 g5@7 f#5@9 ~, ~@11 g3@12 ~@9]/2",
  D: "[c#4@4 d#4@4 g4@4 ~@4 b4@33 ~@15, ~@12 e4@17 ~@35]/4", E: "g5@3 f#5 g5@3 f#5", F: "g5@3 a5",
  G: "f#5@3 e5 f#5@3 e5", H: "f#5", I: "f#5@15 ~", J: "g5@4 a5@7 ~ a5@4",
  K: "[c5@8 e5@3 f#5@3 g5@16 f#5 g5, e5 ~@31]/2", L: "a5", M: "b5/2", N: "g5@8 f#5@7 ~",
  O: "[c#4@2 d#4@2 g4@2 ~@2 b4@7 ~, ~@6 e4@9 ~]/2",
})).s("gm_lead_2_sawtooth").gain(0.39).pan(0.3)

// chords · lead 8 bass lead · "BASS&LEAD"
const lead_8_bass_lead_2 = note(`<
  ~@14 A@4 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C@2 D E@2 A@2 B@2 A@2 B@2 A@2 B@2 C@2 D E@2 ~@36 A@2 B@2 A@2 B@2 A@2 B@2
  C@2 D E@2 ~@4
>`.pickRestart({
  A: "[e4,g4]!16", B: "[d4,f#4]!16", C: "[c4,e4]!16", D: "[a3,e4]!16", E: "[b3,e4]!16",
})).s("gm_lead_8_bass_lead").gain(0.38).pan(0.8)

// other · oboe
const oboe = note("<~@62 A B A B A B A B ~@45>".pickRestart({
  A: "~ g3!4 d3 e3 f#3@2 ~@7", B: "~ g3!4 a3 d3 e3 f#3@2 ~@6",
})).s("gm_oboe").gain(0.53).pan(0.8)

// chords · overdriven guitar · "OVERDRIVE"
const overdriven_guitar = note(`<
  ~@41 A@2 B@2 C@2 D@2 E@2 D@2 F@2 G H@2 ~@14 I J K L M I N@2 I ~ O@2 P Q I ~@7 R@2 D@2 R@2 D@2 S@2 D@2 F@2 T H@2 ~@4
>`.pickRestart({
  A: "[[e3,g3,b3]@7 ~]/2", B: "[f#3@14 d3 f#3, a3@15 ~, d3@13 ~@3]/2",
  C: "[[g3,b3]@12 ~@2 g3 e3, e3@15 ~, ~@12 b3@3 ~]/2", D: "[[d3,f#3,a3]@15 ~]/2", E: "[[e3,b3]@15 ~, g3]/2",
  F: "[[c3,e3,g3]@15 ~]/2", G: "a2@5 a2@2 a2, [c#3,e3]@7 ~", H: "[[b2,e3,g#3]@15 ~]/2", I: "[e3,g3,b3]",
  J: "[d3,f#3,a3], g3 ~@3", K: "[c3,e3,g3]", L: "[d3,f#3,a3]", M: "[e3,a3,c#4]", N: "[d3,f#3,a3]/2",
  O: "[~@14 [c3,e3,g3] ~, [d3,f#3,a3]]/2", P: "[c3,e3,g3]@11 ~@5", Q: "[d3,f#3,a3]@3 ~", R: "[[e3,g3,b3]@15 ~]/2",
  S: "[[g3,b3]@15 ~, e3]/2", T: "[a2,c#3,e3]@7 ~",
})).s("gm_overdriven_guitar").gain(0.64)

// other · electric guitar muted · "OVERDRIVE" · Em E5 Em E5
const electric_guitar_muted = note(`<
  ~@64
  [~@8 e2 b2 e3 g3 ~@4]
  [~@8 [e3,g3] e3 b2 ~ e2 ~@3]
  [~@8 e2 b2 e3 g3 ~@4]
  [~@8 [e3,g3] [b2,e3] ~@2 e2 ~@3]
  [~@8 e2 b2 e3 g3 ~@4]
  [~@8 [e3,g3] [b2,e3] b2 ~ e2 ~@3]
  ~@45
>`).s("gm_electric_guitar_muted").gain(0.8)

// other · taiko drum · "SYNTH DRUM"
const taiko_drum = note(`<
  A B@3 A B@3 A B@3 A B@3 A B@3 A B@3 A@35 B@3 A B@3 A B@3 A@18 C D@2 E@2 F G@3 H G@3 I G@3 J G K L G M N O P Q
>`.pickRestart({
  A: "c2@4 ~@2 c2 ~ c2@2 ~@4 c2 ~", B: "c2 ~@5 c2 ~ c2 ~@5 c2 ~", C: "c2@2 ~ c2 c4@2 c2 ~ c2 ~@7",
  D: "c2 ~@2 c2 c4 ~ c2 ~ c2 ~@7", E: "c2@2 ~ c2 a3@2 c2 ~ c2 ~@7",
  F: "c2 ~@2 c2 a3 ~ c2 ~ c2 ~ [b4,c5] [g4,a4] [d4,e4] b3 [e3,f3,f#3] [b2,c3]", G: "c2@2 ~ c2 a3@2 c2 ~ c2 ~@3 a3 ~@3",
  H: "c2@2 ~ c2 a3@2 c2 ~ c2 ~ [f4,g4] [e4,f4,g4] [a3,c4,d4] [g3,a3] [d3,e3,f3] [a2,b2,c3]", // Fsus2 Em D7 Gsus2 Dm Am
  I: "c2@2 ~ c2 a3@2 c2 ~ c2 ~ [f4,g4,a4] [f4,g4] [a3,e4,f4] [d4,e4] [c4,d4] [f3,g3,a3]", // F Fsus2 Fmaj7 Dsus2 Csus2 F
  J: "c2@2 ~ c2 a3@2 c2 ~ c2 ~ [a4,b4] [g4,a4] [a3,e4] [d4,e4] [b3,c4] e3", // Asus2 Gsus2 A5 Dsus2 Cmaj7
  K: "c2@2 ~ c2 a3@2 c2 ~ c2 ~ [f4,g4,a4] [f4,g4] a3 [c4,d4] [g3,g#3,a3,b3] ~", // F Fsus2 Csus2
  L: "c2@2 ~ c2 a3@2 c2 ~ c2 ~ [g4,a4,b4] [e4,f4,g4] [a3,d4,e4] [g3,a3,b3] [e3,f3] [b2,c3,d3]", // G Em Asus4 G Fmaj7 Bm
  M: "c2@2 [g4,a4,b4] [c2,g4,a4] ~ [e4,f4,g4] c2 [d4,e4,f4] c2 [d4,e4] [a3,b3] [b3,c4] [g3,a3] [d3,e3] [b2,c3] ~, ~@2 a3 ~@5", // G Am7 Em Dm Dsus2 Asus2 Cmaj7 Gsus2 …
  N: "b3!2 c2 [c2,b3] [a3,b3] c2 [c2,b3] b3 c2 b3!2 c2 [a3,b3] [c2,a3] b3 ~, c2 ~@7", // Cmaj7 Asus2 Cmaj7 Asus2 F
  O: "b3!2 c2 [c2,b3] ~ [a3,b3] c2 [c2,b3] b3 c2 b3!2 c2 ~ [a3,b3] a3, c2 ~@7", // Cmaj7 Asus2 Cmaj7 Asus2
  P: "[a3,b3] ~ [c2,b3] b3 ~ c2 [c2,b3] [a3,b3] c2 [c2,b3] ~ b3 c2 b3!2 c2", Q: "~ [a3,b3] c2 [a3,b3] ~@12",
})).s("gm_taiko_drum").gain(0.8)

// other · synth drum
const synth_drum = note(`<
  A B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 A@36 B@2 A@2 B@2 A@2 B@2 A@19 ~@27
>`.pickRestart({
  A: "~@4 g3@2 ~@6 g3 ~@3", B: "~@4 g3 ~@7 g3 ~@3",
})).s("gm_synth_drum").gain(0.8)

// drums · kick
const kick = s("bd").struct(`<
  [x ~@2 x!2 ~@2 x]!88
  [x ~@2 x!2 ~ x ~ x ~@7]!6
  [x ~@2 x!2 ~ x ~ x ~@3 x ~@3]!17
  [x!16]
  [x!4 ~ x!8 ~ x!2]
  [x!4 ~ x!5 ~ x!5]
  [~ x!3 ~@12]
>`).gain(0.67).pan(0.6)

// drums · snare
const snare = s("sd").struct(`<
  ~@88
  [~ x ~@2]!6
  [~ x ~ x]!17
  [x!2 ~ x!2 ~ x!2 ~ x!2 ~ x ~ x ~]
  [x!2 ~ x ~ x ~ x!2 ~ x!2 ~@2 x ~]
  [x ~ x!2 ~@2 x!2 ~ x ~ x ~ x!2 ~]
  [~ x ~ x ~@12]
>`).gain(0.67).pan(0.6)

// drums · clap
const clap = s("cp").struct("<[~ x ~ x]!88 ~@6 [~ x ~ x]!17 ~@4>").gain(0.67).pan(0.6)

// drums · low tom
const low_tom = s("lt").struct("<[~ x] [x!2]!55 ~@55 x ~@3>").gain(0.53).pan(0.6)

// drums · mid tom
const mid_tom = s("mt").struct("<~@88 [~ x ~@2]!6 ~@21>").gain(0.67).pan(0.6)

// drums · open hat
const open_hat = s("oh").struct("<[~ x!15] [x!16]!110 ~@4>").gain(0.47).pan(0.6)

// drums · ride
const ride = s("rd").struct("<~@114 [~@3 x ~@12]>").gain(0.67).pan(0.6)

// drums · bongos
const bongos = s("bongo:4").struct("<~@58 A@2 B C ~@26 D@2 E F G@2 ~@21>".pickRestart({
  A: "x ~ x ~@3 x!2", B: "x ~@3 x ~@6 x ~@2 x ~", C: "x ~@3 x ~@6 x ~@4", D: "~@5 x!2 ~", E: "~@5 x ~@2",
  F: "~@5 x ~ x", G: "~@10 x!2 ~@4",
})).gain(1.4).pan(0.6)

// drums · bongos
const bongos_2 = s("bongo:18").struct("<~@58 A B C D ~@26 E F G H I J ~@21>".pickRestart({
  A: "~ x ~@3 x ~@7 x ~@2", B: "~ x ~@3 x ~@5 x ~ x ~@2", C: "~ x ~@3 x ~@6 x ~@3", D: "~ x ~@3 x ~@3 x ~@2 x ~@3",
  E: "~@13 x ~@2", F: "~@10 x!2 ~@4", G: "~@11 x ~ x ~@2", H: "~@11 x ~@4", I: "~@3 x", J: "~@5 x!2 ~",
})).gain(1.4).pan(0.6)

// drums · congas
const congas = s("conga:13").struct("<~@61 [~@13 x ~@2] ~@26 [~@11 x ~@4] ~@26>").gain(1.71).pan(0.6)

// drums · congas
const congas_2 = s("conga:18").struct("<~@58 A B@2 C ~@26 D E F G H@2 ~@21>".pickRestart({
  A: "~@2 x ~@4 x ~@3 x ~@4", B: "~@2 x ~@4 x ~@8", C: "~@2 x ~@4 x ~@4 x ~ x ~", D: "~@7 x", E: "~@13 x ~@2",
  F: "~@3 x", G: "~@12 x!2 ~@2", H: "~@13 x!2 ~",
})).gain(1.71).pan(0.6)

// drums · congas
const congas_3 = s("conga:33").struct("<~@58 A@3 B ~@26 C D@2 ~ C@2 ~@21>".pickRestart({
  A: "~@3 x ~@5 x ~@6", B: "~@3 x ~@7 x ~@4", C: "~@15 x", D: "~@14 x!2",
})).gain(1.71).pan(0.6)

// drums · guiro
const guiro = s("guiro:0").struct("<~@58 [~@3 x]!4 ~@26 [~@3 x]!6 ~@21>").gain(14.1).pan(0.6)

// drums · jingle bells
const jingle_bells = s("sleighbells:4").struct("<[~@11 x ~@4]!112 ~@3>").gain(2.31).pan(0.6)

stack(
  lead_8_bass_lead, lead_2_sawtooth, lead_8_bass_lead_2, oboe, overdriven_guitar, electric_guitar_muted, taiko_drum,
  synth_drum, kick, snare, clap, low_tom, mid_tom, open_hat, ride, bongos, bongos_2, congas, congas_2, congas_3, guiro,
  jingle_bells
)