// Happy Nation — Ace of Base
// 96 bpm, 4/4, key C# minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 86 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(96/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 · clavinet
const clavinet = note(`<
  ~@13 A B A B A B A C ~@2 A B A B A B A ~ A B A B A B A B ~@14 A B A B A B A B A B A B A B A B A B A B A B A B A B A B
  A B A D ~
>`.pickRestart({
  A: "~@2 [e4,g#4,c#5] ~@3 [e4,g#4,c#5] ~@3 [e4,f#4,a4,c#5] ~@3 [e4,f#4,a4,c#5] ~", // C#m F#m7
  B: "~@2 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~", // G#7
  C: "~@2 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~@5", // G#7
  D: "~@2 [d#4,f#4,g#4,c5] ~@3 [d#4,f#4,g#4,c5] ~@9", // G#7
})).s("gm_clavinet").gain(0.36)

// bass · synth bass 2 · "SYN BASS 2"
const bass = note(`<
  ~ A B A B ~@7 C D E D E D E D F ~ C ~ C ~ C ~ C G C D E D E D E D F ~@2 A B A B A B A B ~@11 C D E D E D E D F D E D E
  D E D F D E D E D E D F ~
>`.pickRestart({
  A: "b1 c#2@2 b1 c#2@2 b1 c#2@2 b1 c#2 ~@5", B: "~@2 b1 c#2 ~@6 b1 ~ c#2@3 ~", C: "~@7 g#1",
  D: "c#2!3 b1 c#2@2 b1 c#2!2 b1 c#2@2 c#2@2 b1@2", E: "f#1!3 e1 f#1@2 e1!2 g#1@2 g#1@2 ~ g#1@2 g#1",
  F: "f#1!3 e1 f#1@2 e1!2 g#1@2 g#1@2 g#1@4", G: "~@13 f#1@3",
})).s("gm_synth_bass_2").gain(0.48)

// other · flute
const flute = note(`<
  ~@5 A B@4 C@4 D E F G H E I J ~ K L@2 M@2 L@2 N@2 D E F G H E I J ~@12 O P@2 Q R S@2 T U V D E F G H E I W X Y Z AA AB
  AC AD AE X Y Z AA AB AC AD ~
>`.pickRestart({
  A: "e4@3 ~ e4@3 ~ e4@3 g#4@3 f#4@2",
  B: "[d#4@3 ~ d#4@4 d#4@3 f#4@3 e4@4 ~@2 e4@3 ~ e4@3 g#4@3 f#4@4 ~@2 d#4@3 ~ d#4@3 d#4@3 c#4@4 ~@2 e4@3 ~ e4@3 g#4@3 f#4@2]/4",
  C: "[d#4@3 ~ d#4@4 d#4@3 f#4@3 e4@4 ~@2 e4@3 ~ e4@3 g#4@3 f#4@4 ~@2 d#4@3 ~ d#4@3 d#4@3 c#4@4 ~@2 [c#4,g#4] ~ [d#4,g#4] ~ [d#4,g#4]@2 [c#4,f#4] ~ [c#4,f#4]@4]/4", // C#5 G#5 F#5
  D: "d#4!5 ~ f#4 ~ e4@2 d#4 ~ d#4@4", E: "~@2 e4 g#4 f#4 e4 d#4 c#4", F: "d#4@4 f#4@3 ~ e4@2 d#4@2 c#4@2 c4@2",
  G: "c#4@4 g#4 ~ [d#4,g#4] ~ [d#4,g#4]@2 [c#4,f#4] ~ [c#4,f#4]@4, ~ c#4 ~@2", // G#5 F#5
  H: "d#4 ~ d#4 ~ d#4 ~ f#4 ~ e4@2 d#4 ~ d#4@4", I: "d#4@4 f#4@3 ~ [e4,g#4]@2 [d#4,g#4]@2 [c#4,g#4]@2 [c4,g#4]@2",
  J: "[c#4,g#4] ~@3", K: "~@6 g#4 ~ g#4@4 a4@3 ~",
  L: "[f#4@5 ~ f#4 ~ f#4@2 g#4 ~ a4 ~ b4 g#4@5 ~@2 g#4 ~ g#4@3 ~ a4@3 ~]/2",
  M: "[f#4@5 ~ e4 ~ d#4 ~ d#4 e4@2 ~ c#4@4 ~@4 g#4 ~ g#4@4 a4@3 ~]/2",
  N: "[f#4@5 ~ e4 ~ d#4 ~ d#4 e4@2 ~ c#4@4 ~@2 [c#4,g#4] ~ [d#4,g#4] ~ [d#4,g#4]@2 [c#4,f#4] ~ [c#4,f#4]@4]/2", // C#5 G#5 F#5
  O: "~@4 f#4!3 f#4@2 g#4@3 e4 d#4 c#4@2",
  P: "[~@4 c#3 ~ d#3 ~ d#3@4 c#3@3 d#3@2 ~@3 f#4!3 f#4@2 g#4@3 e4 d#4 c#4@2]/2",
  Q: "~@4 c#3 ~ d#3 ~ d#3@4 c#3@2 [a2,a4]@2", R: "g#4@3 a4 g#4@3 a4 g#4@3 a4 g#4@4, g#2@5 ~@11",
  S: "[~@4 c#3 ~ d#3 ~ d#3@4 c#3@3 d#3@2 ~@3 f#4!3 f#4@2 g#4@3 e4 d#4 [g#2,c#4]@2]/2", T: "c#3 ~@6 a4",
  U: "g#4@3 a4 g#4@3 a4 g#4@3 a4 g#4@4", V: "~@4 [c#4,g#4] ~ [d#4,g#4] ~ [d#4,g#4]@2 [c#4,f#4] ~ [c#4,f#4]@4",
  W: "g#4 ~ d#4@2, c#4 ~@15", X: "e4@8 g#4@5 a4 [g#4,a4] [f#4,g#4]",
  Y: "~ a4 [g#4,a4] [f#4,g#4] g#4@2 [g#4,a4]!2 g#4@2 [g#4,a4] [f#4,g#4,a4] g#4@2 [g#4,a4] [f#4,g#4], g#4@2 ~@6 f#4 ~@7", // Amaj7 F#sus2 Amaj7 F#m Amaj7 F#sus2
  Z: "g#4@13 ~@3", AA: "[c#4,e4] [d#4,f#4]", AB: "[e4,g#4]@4 f#4@3 g#4, ~ d#4", AC: "[c#4,e4]@6 d#4 c#4", AD: "c4",
  AE: "c#4 d#4",
})).s("gm_flute").gain(0.48)

// other · string ensemble 2 · "SLOWSTRING"
const string_ensemble_2 = note(`<
  ~@9 A B A B ~@8 C D A B A B A B A ~@9 C E ~@8 A B A B A B A B A B A B ~@8 A B A B A B A B A B A B A B A B ~
>`.pickRestart({
  A: "[c#3,c#4]@3 [f#2,f#3]", B: "[g#2,g#3]", C: "c#3 a2", D: "g#2", E: "g#2@7 e2",
})).s("gm_string_ensemble_2").gain(0.48)

// other · lead 2 sawtooth · "SAW WAVE"
const lead_2_sawtooth = note(`<
  ~@5 A B A B A B A B ~@8 C D ~@4 A B A ~@9 C E ~@8 A B A B ~@4 A B A B ~@14 F B ~@6 F B ~
>`.pickRestart({
  A: "g#3 c#4 g#3 c#4 a3 c#4 a3 c#4", B: "g#3 c4 g#3 c4 g#3 c4 g#3 c4", C: "[c#2,c#3] [a1,a2]", D: "[g#1,g#2]",
  E: "[g#1,g#2]@7 [e1,e2]", F: "~@7 c#4",
})).s("gm_lead_2_sawtooth").gain(0.2)

// other · percussive organ · "ORGAN 2"
const percussive_organ = note("<A B C B D ~@36 B C B D B C B D ~@20 B C B D B C B D B C B D B C B D ~>".pickRestart({
  A: "c#5@3 g#5", B: "c#5@6 g#5 f#5", C: "g#5 d#5", D: "g#5",
})).s("gm_percussive_organ").gain(0.32)

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

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

// drums · clap
const clap = s("cp").struct("<~@23 A B A B A B A ~@11 A B A B A B A C ~@37>".pickRestart({
  A: "~@4 x ~@2 x ~ x ~@2 x ~@2 x", B: "~@4 x ~@2 x ~ x ~@2 x ~@3", C: "~@4 x ~@2 x ~ x ~@6",
})).gain(0.4)

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

// drums · hihat · soft notes
const hihat_soft = s("hh").struct("<~@31 [~ x ~ x]!8 ~@22 [~ x ~ x]!8 ~@17>").gain(0.16)

// drums · open hat
const open_hat = s("oh").struct("<~@31 [~@3 x ~@7 x ~@4]!8 ~@22 [~@3 x ~@7 x ~@4]!8 ~@17>").gain(0.56)

// drums · tambourine
const tambourine = s("tb").struct("<~ [x!16]!29 ~ [x!16]!17 [x!12 ~@4] ~@37>").gain(0.32)

// drums · splash
const splash = s("cr").struct("<~@48 [~ x] ~@37>").gain(0.48)

// drums · shaker
const shaker = s("sh").struct("<~@13 [x!16]!8 ~@10 [x!16]!8 ~@47>").gain(0.48)

stack(
  clavinet, bass, flute, string_ensemble_2, lead_2_sawtooth, percussive_organ, kick, snare, clap, hihat, hihat_soft,
  open_hat, tambourine, splash, shaker
)