// Happy People — Prince Ital Joe
// 123 bpm, 4/4, key A minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 121 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(123/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 · synth bass 2 · "SYN BASS 2"
const bass = note(`<
  ~@12 A B C@2 A B C@2 D A E@2 F@4 G H F@6 G H F@6 G H F ~ A B C@2 A B C@2 D A E@2 F@4 G H F@6 G H F@6 G H F ~ A B C@2 A
  B C@2 D A E@2 A B C@2 A B C@2 D A E@2 A B C@2 A B C@2 D A E@2 I
>`.pickRestart({
  A: "f2 ~ f2!3 ~ f2!3 ~ f2!3 ~ f2!2", B: "g2 ~ g2 ~ g2 ~ g2!3 ~ g2!3 ~ g2!2", C: "a2 ~ a2!3 ~ a2!3 ~ a2!3 ~ g2 ~",
  D: "d2 ~ d2!3 ~ d2!3 ~ d2!3 ~ d2!2", E: "g2 ~ g2!3 ~ g2!3 ~ g2!3 ~ g2 ~", F: "a2 ~ a2!3 ~ a2!3 ~ a2!3 ~ a2 ~",
  G: "a2 ~ a2!3 ~ a2!3 ~ a2!3 ~ a2!2", H: "a2 ~ a2 ~ a2 ~ a2!3 ~ a2!3 ~ a2!2", I: "a1",
})).s("gm_synth_bass_2").gain(0.38)

// other · lead 2 sawtooth · "SAW WAVE"
const lead_2_sawtooth = note(`<
  ~@12 A B C D A B C D E F B G ~@16 H I J K H I J L A B C D A B C D E F B G ~@16 H I J K H I J L A B C D A B C D E F B G
  A B C D A B C D E F B G A B C D A B C D E F B G ~
>`.pickRestart({
  A: "f3 f2 f3!2 f2 f3!2 f2 f3 f2 f3!2 f2 f3!2 f2", B: "g3!2 g2 g3!2 g2 g3!2 g2 g3!2 g2 g3!2 g2 g3",
  C: "a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3", D: "a3 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2",
  E: "d3 d2 d3!2 d2 d3!2 d2 d3 d2 d3!2 d2 d3!2 d2", F: "f3!2 f2 f3!2 f2 f3!2 f2 f3!2 f2 f3!2 f2 f3",
  G: "g3 g2 g3!2 g2 g3!2 g2 g3!2 g2 g3!2 g2 g3!2", H: "a2!2 a3!2 a2!2 a3 a2!3 a3!2 a2!2 a3 a2",
  I: "g2!2 g3!2 g2!2 g3 g2!3 e3 g3 g2 e3 g3 g2", J: "c3!2 c4!2 c3!2 c4 c3!3 c4!2 c3!2 c4 c3",
  K: "d3!2 d4!2 d3!2 d4 d3 b2!2 a3 b3 b2 a3 b3 b2", L: "a2!2 a3!2 a2!2 a3 a2!3 a3!2 a2 a3!2 a2",
})).s("gm_lead_2_sawtooth").gain(0.15).pan(0.6)

// chords · pad poly · "POLYSYNTH"
const pad_poly = note(`<
  ~@12 A B C@2 A B C@2 A@2 D@2 ~@24 A B C@2 A B C@2 A@2 D@2 ~@24 A B C@2 A B C@2 A@2 D@2 A B C@2 A B C@2 A@2 D@2 A B C@2
  A B C@2 A@2 D@2 ~
>`.pickRestart({
  A: "~@2 [f3,a3] ~@2 [f3,a3] ~@2 [f3,a3] ~@2 [f3,a3] ~@2 [f3,a3] ~", // F
  B: "~@2 [g3,b3] ~@2 [g3,b3] ~@2 [g3,b3] ~@2 [g3,b3] ~@2 [g3,b3] ~", // G
  C: "~@2 [a3,c4] ~@2 [a3,c4] ~@2 [a3,d4] ~@2 [a3,c4] ~@2 [a3,b3] ~", // Am D5 Am Asus2
  D: "~@2 [g3,b3] ~@2 [g3,b3] ~@2 [g3,c4] ~@2 [g3,b3] ~@2 [g3,a3] ~", // G C5 G Gsus2
})).s("gm_pad_poly").gain(0.28).pan(0.4)

// chords · pad poly · "POLYSYNTH" · soft notes
const pad_poly_soft = note("<~@24 A B@2 C A B@2 C ~@28 A B@2 C A B@2 C ~@53>".pickRestart({
  A: "a3 a2 a3!2 a2 a3!2 a2 a3 a2 a3!2 a2 a3!2 a2", B: "a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3",
  C: "a3 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2 a2 a3!2",
})).s("gm_pad_poly").gain(0.16).pan(0.4)

// chords · rock organ · "ORGAN 3"
const rock_organ = note(`<
  A B C@2 A B C@2 D@2 E@2 F G H@2 F G H@2 I@2 J@2 ~@24 F G H@2 F G H@2 I@2 J@2 ~@24 F G H@2 F G H@2 I@2 J@2 F G H@2 F G
  H@2 I@2 J@2 F G H@2 F G H@2 I@2 J@2 F
>`.pickRestart({
  A: "[c5,e5,a5]", B: "[b4,d5,g5]", C: "[c5,e5,a5]/2", D: "[a4,c5,f5]/2", E: "[c5 b4, [g4,d5]]/2", F: "[c5,a5]",
  G: "[b4,g5]", H: "[c5,a5]/2", I: "[a4,f5]/2", J: "[c5 b4, g4]/2",
})).s("gm_rock_organ").gain(0.14).pan(0.3)

// chords · pad halo · "HALO PAD"
const pad_halo = note(`<
  A B C@2 A B C@2 D E F@2 G H I@2 G H I@2 J K L@2 ~@24 G H I@2 G H I@2 J K L@2 ~@24 G H I@2 G H I@2 J K L@2 G H I@2 G H
  I@2 J K L@2 G H I@2 G H I@2 J K L@2 M
>`.pickRestart({
  A: "[f2,a3,c4,e4]", B: "[g2,g3,b3,d4]", C: "[a2,a3,c4,e4]/2", D: "[d2,a3,c4,f4]", E: "[f2,a3,c4,f4]",
  F: "[c4 b3, [g2,d4,g4]]/2", G: "[a3,f4]", H: "[g3,d4]", I: "[a3,e4]/2", J: "[d2,c4,f4]", K: "[f2,c4,f4]",
  L: "[g2,d4,g4]/2", M: "[a3,e4]",
})).s("gm_pad_halo").gain(0.12).pan(0.7)

// chords · pan flute
const pan_flute = note(`<
  ~@14 A@2 ~@2 A@2 ~@4 B C D E B C D E B C D E B C D E B C D E B C D ~@3 A@2 ~@2 A@2 ~@4 B C D E B C D E B C D E B C D E
  B C D E B C D ~@3 A@2 ~@2 A@2 ~@6 A@2 ~@2 A@2 ~@6 A@2 ~@2 A@2 ~@5
>`.pickRestart({
  A: "[~@2 [a4,c5] ~@3 [a4,c5] ~@3 [a4,c5] ~@3 [g4,b4]@4 [a4,c5] ~@3 [a4,c5] ~ [a4,d5]@2 [a4,c5] ~@5]/2", // Am G Am D5 Am
  B: "~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4] ~ [c4,e4,a4]", C: "~ [b3,e4,g4] ~ [b3,e4,g4] ~ [b3,e4,g4] ~ [b3,e4,g4]",
  D: "~ [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4]", E: "~ [d4,f4,a4] ~ [d4,f4,a4] ~ [e4,g4,b4] ~ [e4,g4,b4]",
})).s("gm_pan_flute").gain(0.15)

// chords · synth strings 1 · "SYN STR 1"
const synth_strings_1 = note(`<
  ~@32 A B C D A B C D A B C D A B C ~@21 A B C D A B C D A B C D A B C ~@38
>`.pickRestart({
  A: "[a2,e3,c4]", B: "[b2,g3,d4]", C: "[c3,a3,e4]", D: "[a2,f3,c4] [b2,g3,d4]",
})).s("gm_synth_strings_1").gain(0.11)

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

// drums · snare
const snare = s("sd").struct("<~@12 A@11 B ~@23 C A@11 B ~@23 C A@11 B A@11 B A@11 B ~>".pickRestart({
  A: "~ x ~ x", B: "~@4 x ~@3 x!2 ~ x!5", C: "x ~@3 x ~@2 x!9",
})).gain(0.64)

// drums · clap
const clap = s("cp").struct("<~@4 [~ x ~ x]!3 [~@2 x ~@2 x!2 ~] [~ x ~ x]!3 [~@2 x ~@2 x!2 ~] ~@109>").gain(0.43)

// drums · hihat
const hihat = s("hh").struct("<~@12 A@11 B C@4 A@19 B A@11 B C@4 A@19 B A@11 B A@11 B A@11 B ~>".pickRestart({
  A: "x!2 ~ x!3 ~ x!3 ~ x!3 ~ x", B: "x!2 ~ x!3 ~ x!3 ~ x ~@4", C: "x!16",
})).gain(0.43)

// drums · open hat
const open_hat = s("oh").struct("<~@12 A@11 B ~@4 A@19 B A@11 B ~@4 A@19 B A@11 B A@11 B A@11 B ~>".pickRestart({
  A: "~ x ~ x ~ x ~ x", B: "~ x ~ x ~ x ~@2",
})).gain(0.29)

// drums · crash
const crash = s("cr").struct("<~@120 x>").gain(0.57)

// drums · tambourine
const tambourine = s("tb").struct("<~@12 [x!16]!12 ~@8 [x!16]!28 ~@8 [x!16]!52 ~>").gain(0.36)

stack(
  bass, lead_2_sawtooth, pad_poly, pad_poly_soft, rock_organ, pad_halo, pan_flute, synth_strings_1, kick, snare, clap,
  hihat, open_hat, crash, tambourine
)