// Lucky Love — Ace of Base
// 104 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 74 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(104/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 · "FINGERDBAS"
const bass = note(`<
  ~@5 A B C ~ A B C ~ D E D F D E D ~ A B C ~ A B C ~ D E D F D E D ~ A B C ~ A B C ~@5 G@3 ~@10 A B H ~ A B H ~ I ~@3
>`.pickRestart({
  A: "f1@3 f1 f1@2 g1@2 c1@2 c1@2 c1@3 ~", B: "~@14 c1 d1", C: "f1@3 f1 f1@2 g1@2 c1 ~ c1@2 c1@3 ~",
  D: "d1!2 c1 ~ d1 ~ c1 d1 ~@8", E: "d1!2 c1 ~ d1 ~ c1 d1 ~@2 a0!2 c1!2 a0@2", F: "d1!2 c1 ~ d1 ~ c1 d1 ~@2 a0@4 ~@2",
  G: "[f1@23 ~]/3", H: "f1@3 f1 f1@2 a1@2 db1 ~ db1@2 db1@3 ~", I: "d1 ~@7",
})).s("gm_electric_bass_finger").gain(0.46)

// chords · drawbar organ · "ORGAN 1"
const drawbar_organ = note("<A B@2 C@3 B@6 D E ~@7 A B@6 D E ~@7 A B@6 F ~@9 A G@12 H@3 ~@4>".pickRestart({
  A: "[f2,c5,f5,a5]@3 [c2,e5,g5,c6]@5", // F C
  B: "[[d2,a5,d6]@3 bb5@2 bb5 a5 g5 [f2,c5,a5]@3 [c2,e5,g5,c6]@5, f5@11 ~@5, ~@3 [bb1,d5]@5 ~@8]/2", // D5 F C Bb
  C: "[[d2,a5,d6]@3 bb5@2 bb5 a5 g5 [f2,c5,a5]@11 [c2,e5,g5,c6]@5, f5@19 ~@5, ~@3 [bb1,d5]@5 ~@16]/3", // D5 F C Bb
  D: "[d2,f5,d6]@3 [a1,e5,c6]@5, a5", E: "[g2,g5,b5,d6] ~", F: "[d2,f5,d6]@3 [a1,e5,c6]@3 [g1,d5,g5,b5]@2, a5@3 ~",
  G: "[[d2,a5,d6]@3 bb5@2 bb5 a5 g5 [f2,c5]@3 [a2,e5,db6]@5 [d2,d6]@3 bb5@2 bb5 a5 g5 [f2,c5,a5]@3 [c2,e5,g5,c6]@5, f5@11 ~@5 f5@11 ~@5, ~@3 [bb1,d5]@5 a5@11 [bb1,d5]@5 ~@8]/4", // D5 F5 A D F C Bb
  H: "[[d2,a5,d6]@3 bb5@2 bb5 a5 g5 [f2,c5]@3 [a2,e5,db6]@5 [d2,d6]@3 bb5@2 bb5 a5 g5, f5@11 ~@5 f5@8, ~@3 [bb1,d5]@5 a5@11 [bb1,d5]@5]/3", // D5 F5 A D Bb
})).s("gm_drawbar_organ").gain(0.09)

// other · acoustic guitar nylon · "NYLON GTR"
const acoustic_guitar_nylon = note(`<
  ~@5 A B ~@2 A B ~@10 A B ~@2 A B ~@10 A B ~@2 A B ~@6 C@4 D ~@2 A B ~@2 A B A E@2 F A G@2 ~@5
>`.pickRestart({
  A: "~@4 f4 f4@2 f4@3 e4@2 e4@2 d4@2", B: "e4@2 d4 c4@2 d4 ~@2",
  C: "[~@6 a4@2 a4@2 c5@2 d5@2 f5@6 d5@2 c5@6 a4@2 e5@6 d5@2 c5@4 f4@2 a4@2 g4@7 ~ a4@2 bb4@4 bb4@2 bb4@2]/4",
  D: "a4@3 ~", E: "[e4@4 d4@2 c4@4 d4@2 d4@2 c4@5 ~ c4@2 db4@4 ~@4 c4@2]/2", F: "d4@2 d4@2 d4@2 c4@5 ~@5",
  G: "[e4@4 d4@2 c4@4 d4@2 d4@2 c4@5 ~ c4@2 db4@4 ~@6]/2",
})).s("gm_acoustic_guitar_nylon").gain(0.17)

// chords · pad poly · "POLYSYNTH"
const pad_poly = note(`<
  A B A B C@2 B A B A B A D E F@2 G@2 F@2 H A B A B A B A D E F@2 G@2 F@2 H A B A B A B A I J K@2 B L@5 A B M@2 A B M@2
  A B M@2 A B M@2 N@4
>`.pickRestart({
  A: "a3@3 g3@5, c4", B: "a3@3 bb3@5, d4", C: "[a3@11 g3@5, c4]/2", D: "d4@3 e4@5, a3", E: "[g3,b3,d4]",
  F: "[[db4,e4] [d4,f4], a3]/2", G: "[[c4,e4] [b3,d4], g3]/2", H: "[g3,c4,e4]", I: "d4@3 e4@3 [g3,d4]@2, a3@3 ~",
  J: "f4@3 e4@5, c4", K: "[d4@6 bb3@10 ~@6 e4@9 ~, f4@11 ~@5, ~ c4]/2",
  L: "[d4@3 db4@5 c4@3 b3@5 ~@8 c4@3 [db4,a4]@13, f4@19 g4@8 ~@13, a3@2 [bb3,d4] e4@2]/5", // Gbm Bb
  M: "[c4@3 db4@5 ~@3 bb3@5, a3@11 ~@5, ~ d4]/2",
  N: "[d4@3 db4@5 c4@3 b3@5 bb3@3 g3@5 d3@7 ~, f4@15 ~, a3@16 d4@15 ~]/4",
})).s("gm_pad_poly").gain(0.17).pan(0.4)

// other · electric guitar muted · "MUTED GTR"
const electric_guitar_muted = note(`<
  ~@5 A B C ~ A B C ~ A B C ~ A B C ~ A B C ~ A B C ~ A B C ~ A B C ~ A B C ~ A B C ~@10 A B D ~ A B D ~ A B D ~ A B D
  ~@5
>`.pickRestart({
  A: "d3 ~ c3 ~ d3 ~ c3 ~ d3 ~ c3 ~ d3 ~ c3 d3", B: "~@14 c3!2", C: "d3!2 c3 ~ d3 ~ c3 ~ d3 ~ c3 ~ d3 ~ c3 d3",
  D: "d3!2 c3 ~ d3 ~ c3 ~ d3 ~ db3 ~ d3 ~ db3 d3",
})).s("gm_electric_guitar_muted").gain(0.28)

// other · epiano1 · "E.PIANO 1"
const epiano1 = note("<A B C ~@10 D ~ E ~ F ~ E ~@9 D ~ E ~ F ~ E ~@13 G H G I ~@16 J K L M ~>".pickRestart({
  A: "f6 c6 ~ c7 g5 ~@3", B: "d6 a5 ~ bb5 f5 ~@3", C: "f6 a5 ~ c6 g5 ~@3", D: "d6 ~ a6 a6@2 ~@3",
  E: "d6@2 ~@2 a6@2 a6@3 ~@7", F: "d6@2 ~@2 a6 ~ a6@3 ~@7", G: "~ a5 ~@2 g5 ~@3", H: "~ a5 ~@2 f5 ~@3",
  I: "~ g5 ~@2 a5 ~@3", J: "~@7 c6", K: "d6 ~ a6 ~ a6 ~ a6 ~ [g6,a6] ~ f6 ~ g6 ~ f6@2", L: "~@14 c6 ~",
  M: "d6 ~ a6 ~ a6 ~ a6 ~ [g6,a6] ~ f6 ~ a6 ~ d6 ~", // Gsus2
})).s("gm_epiano1").gain(0.17).pan(0.4)

// chords · piano · "A.PIANO 2" · C F Dm Bb Em F C5 Dm …
const piano = note(`<
  ~@45
  [a4@2 f4@2 c4@2 [c3,e3,g3,c4]@8 f4 g4, [c3,f3,a3,c4]@5 ~ g4@7 ~@3]
  [a4@2 f4@2 d4@2 bb4@3 ~ bb4@2 c5@2 bb4 ~, [d3,f3,a3]@6 [bb2,f3,bb3,d4]@9 ~, d4 ~@3]
  [a4@2 f4@2 c4 ~ [e3,g4]@8 ~ g4, [c3,f3,a3,c4]@5 ~ [c3,g3,c4]@10, ~@7 a4]
  [[d3,f3,a3,d4]@4 g4 ~ [bb2,f3,bb3,d4]@10, f4@3 ~@3 f4@8 ~@2]
  ~@25
>`).s("gm_piano").gain(0.25)

// other · pan flute
const pan_flute = note("<~@21 A ~ B ~ A ~ B ~@9 A ~ B ~ A ~ B ~@18 A ~@3 A ~@7>".pickRestart({
  A: "g5@2 a5 ~ a5 ~ a5 g5@2 ~ f5 ~ g5@2 f5@2", B: "g5@2 a5 ~ a5 ~ a5 g5@2 ~ f5 ~ a5@2 f5@2",
})).s("gm_pan_flute").gain(0.21).pan(0.4)

// drums · kick
const kick = s("bd").struct("<~@5 A@15 B A@15 B A@8 ~@4 A@4 C A@7 B A@6 B ~@5>".pickRestart({
  A: "x!2", B: "x", C: "x ~@2 x",
})).gain(0.59)

// drums · kick · soft notes
const kick_soft = s("bd").struct(`<
  ~@5 A B A B A B A B A B A B A B A ~ A B A B A B A B A B A B A B A ~ A B A B A B A B ~@9 A B A B A B A ~ A B A B A B
  ~@6
>`.pickRestart({
  A: "~@5 x ~@2", B: "~@7 x ~@2 x ~@5",
})).gain(0.33)

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

// drums · clap
const clap = s("cp").struct("<~@5 A@15 ~ A@15 ~ A@7 ~@10 A@7 ~ A@6 ~@6>".pickRestart({
  A: "~@3 x",
})).gain(0.33)

// drums · hihat
const hihat = s("hh").struct("<~@5 A@15 ~ A@15 ~ A@7 B ~@4 A@4 ~ A@7 C A@6 D ~@5>".pickRestart({
  A: "x ~ x!3 ~ x!2", B: "x ~ x!3 ~ x ~", C: "x", D: "x ~ x!2 ~@4",
})).gain(0.33)

// drums · open hat
const open_hat = s("oh").struct("<~@5 A@15 ~ A@15 ~ A@8 ~@4 A@4 ~ A@7 ~ A@6 B ~@5>".pickRestart({
  A: "~ x ~@3 x ~@2", B: "~ x ~@6",
})).gain(0.26)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@5 A@8 ~@8 A@8 ~@8 A@7 B A@23 C ~@5>".pickRestart({
  A: "x!8", B: "x!7 ~", C: "x!4 ~@4",
})).gain(0.33)

// drums · ht
const ht = s("ht").struct("<~@20 A ~@15 A ~@16 A ~@7 A ~@12>".pickRestart({
  A: "~@7 x!2 ~ x ~@2 x ~@2",
})).gain(0.33)

// drums · mt
const mt = s("mt").struct("<~@20 A ~@15 A ~@16 A ~@7 A ~@12>".pickRestart({
  A: "~@11 x ~@2 x ~",
})).gain(0.33)

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

// drums · cabasa · soft notes
const cabasa_soft = s("cabasa:4").struct("<~@5 A@15 B A@15 B A@7 C ~@4 A@19 B ~@5>".pickRestart({
  A: "~@3 x ~@3 x ~@3 x ~@3 x", B: "~@3 x ~@12", C: "~@3 x ~@3 x ~@3 x ~@4",
})).gain(0.67)

// drums · woodblocks
const woodblocks = s("woodblock:5").struct("<~@5 [x!4]!63 [x!2 ~@2] ~@5>").gain(0.38)

// drums · shaker
const shaker = s("sh").struct("<~@5 A@15 B A@15 B A@7 C ~@4 A@19 D ~@5>".pickRestart({
  A: "x!8", B: "x!3 ~@5", C: "x!7 ~", D: "x!4 ~@4",
})).gain(0.26)

stack(
  bass, drawbar_organ, acoustic_guitar_nylon, pad_poly, electric_guitar_muted, epiano1, piano, pan_flute, kick,
  kick_soft, snare, clap, hihat, open_hat, crash, tambourine, ht, mt, cabasa, cabasa_soft, woodblocks, shaker
)