// Don't Turn Around — Ace of Base
// 97 bpm, 4/4, key D major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 90 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(97/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 · fretless bass · "Bass"
const bass = note(`<
  A B A C A B A D E F G H E F G H ~@4 A B A C A B I J A B A C A B A D E F G H E F G H ~@4 A B A C A B I J ~@9 A B A C A
  B I J A B A C A B I J A B A C A B A C ~
>`.pickRestart({
  A: "~@4 b1!4 d2@2 b1 ~ a1@2 b1@2", B: "~@8 d1!2 e1 ~ a1@2 f#1@2", C: "~@8 b1 c#2 f#2 ~@3 f#2 ~",
  D: "~@8 f#1!3 ~ f#1 ~@2 f#1", E: "d1@2 d1@2 f#1@2 f#1@2 ~@4 a1 b1 d2 b1", F: "g1@2 g1@2 ~@10 g1 a1",
  G: "d1@2 d1@2 f#1@2 f#1@2 ~@2 a1 ~ b1 d2@2 b1", H: "g1@2 ~@6 f#2 c#2 f#1@2 f#1@2 ~@2", I: "~@4 c2!5 ~ c2 ~ b1 ~ a1@2",
  J: "~@8 a1 ~@2 g#1 ~@2 g1 ~",
})).s("gm_fretless_bass").gain(0.44)

// chords · rock organ · "Organ"
const rock_organ = note(`<
  A B A C A B A C D E D F D E D F B G B ~ H I H J H I K ~ A B A C A B A C D E D F D E D F B G B ~ H I H J H I K ~@10 H I
  H J H I K ~ H I H J H I K ~ H I H J H I H J ~
>`.pickRestart({
  A: "~@2 [b4,d5,f#5,f#6] ~@3 [b4,d5,f#5,f#6] ~@3 [b4,d5,f#5,f#6] ~@3 [b4,d5,f#5,f#6] ~", // Bm
  B: "~@2 [b4,e5,g5,g6] ~@3 [b4,e5,g5,g6] ~@3 [b4,e5,g5,g6] ~@3 [b4,e5,g5,g6] ~", // Em
  C: "~@2 [b4,e5,g5,g6] ~@3 [b4,e5,g5,g6] ~@3 [a#4,c#5,f#5,f#6] ~@3 [a#4,c#5,f#5,f#6] ~", // Em F#
  D: "~@2 [a4,d5,f#5,f#6] ~@3 [a4,d5,f#5,f#6] ~@3 [a4,d5,f#5,f#6] ~@3 [a4,d5,f#5,f#6] ~", // D
  E: "~@2 [b4,d5,g5,g6] ~@3 [b4,d5,g5,g6] ~@3 [b4,d5,g5,g6] ~@3 [b4,d5,g5,g6] ~", // G
  F: "~@2 [b4,d5,g5,g6] ~@3 [b4,d5,g5,g6] ~@3 [a#4,c#5,f#5,f#6] ~@3 [a#4,c#5,f#5,f#6] ~", // G F#
  G: "~@2 [a#4,c#5,f#5,f#6] ~@3 [a#4,c#5,f#5,f#6] ~@3 [a#4,c#5,f#5,f#6] ~@3 [a#4,c#5,f#5,f#6] ~", // F#
  H: "~@2 [b4,d5,f#5] ~@3 [b4,d5,f#5] ~@3 [b4,d5,f#5] ~@3 [b4,d5,f#5] ~", // Bm
  I: "~@2 [b4,e5,g5] ~@3 [b4,e5,g5] ~@3 [b4,e5,g5] ~@3 [b4,e5,g5] ~", // Em
  J: "~@2 [b4,e5,g5] ~@3 [b4,e5,g5] ~@3 [a#4,c#5,f#5] ~@3 [a#4,c#5,f#5] ~", // Em F#
  K: "~@2 [c5,e5,g5] ~@3 [c5,e5,g5] ~@3 [c5,e5,g5] ~@3 [c5,e5,g5] ~", // C
})).s("gm_rock_organ").gain(0.33)

// chords · lead 5 charang · "Charang Lead"
const lead_5_charang = note(`<
  ~@19 A B C B A B ~@22 A B C B A B ~@11 A B C B A B ~@2 A B C B A B ~@2 A B C B A B C B ~@2
>`.pickRestart({
  A: "~@8 [f#2,c#3] ~ [f#2,c#3]@2 [a2,e3] [b2,f#3] [d3,a3]@2", B: "[b2,f#3]@3 ~@13",
  C: "~@12 [a2,e3] [b2,f#3] [d3,a3]@2", // A5 B5 D5
})).s("gm_lead_5_charang").gain(0.16)

// other · lead 2 sawtooth · "Sawtooth Lead"
const lead_2_sawtooth = note("<~@16 A B C ~@25 A B C ~@13 D E F G H ~@25>".pickRestart({
  A: "~ e4 b4 ~ e4 b4 ~ e4 b4 ~ e4 b4 ~ e4 b4 ~", B: "e4 b4 ~ c#4 a#4 ~ c#4 a#4 ~ c#4 a#4 ~ c#4 a#4 ~ c#4",
  C: "a#4 ~ e4 g4 ~ b3 e4 ~ e4 g4 ~ b3 e4 ~ e4 ~", D: "~@14 e2!2", E: "e2 ~ e2 e2@2 e2!4 ~ e2!2 e2@2 ~@2",
  F: "e2!5 ~ e2!6 e2@2 e2!2", G: "e2 ~ e2!2 ~ e2 e2@2 ~@6 e2 ~", H: "e2@3 ~@13",
})).s("gm_lead_2_sawtooth").gain(0.33)

// chords · string ensemble 2 · "Strings"
const string_ensemble_2 = note(`<
  ~@16 A B C ~ D@2 E@2 F@2 G H ~@16 A B C ~ D@2 E@2 F@2 G H ~@9 D@2 E@2 F@2 G H D@2 E@2 F@2 G H D@2 E@2 D@2 E@2 ~
>`.pickRestart({
  A: "[e4,g4,b4]", B: "[c#4,f#4,a#4]", C: "[b3,e4,g4]", D: "[[d5,f#5]@2 ~ c#5, b4@3 ~, ~ [e5,g5]]/2",
  E: "[[d5,f#5]@2 [e5,g5] [a#4,c#5,f#5], b4@3 ~]/2", F: "[[d5,f#5] [e5,g5], b4]/2", G: "[c5,e5,g5]", H: "[c#5,e5,a5]",
})).s("gm_string_ensemble_2").gain(0.16)

// other · string ensemble 2 · "Strings 2"
const string_ensemble_2_2 = note("<~@16 A B C ~@8 D ~@16 A B C ~@25 D ~@17>".pickRestart({
  A: "e3", B: "c#3", C: "b2", D: "a2",
})).s("gm_string_ensemble_2").gain(0.22).pan(1)

// other · lead 2 sawtooth · "Sawtooth Lead"
const lead_2_sawtooth_2 = note("<~@16 A B C ~ D@6 E ~@17 A B C ~ D@6 E ~@10 D@6 E ~ D@6 E F D@7 G ~>".pickRestart({
  A: "~ g3 ~@2 g3 ~@2 g3 ~@2 g3 ~@2 g3 ~@2", B: "g3 ~@2 f#3 ~@2 f#3 ~@2 f#3 ~@2 f#3 ~@2 f#3",
  C: "~@2 e3 ~@2 e3 ~@2 e3 ~@2 e3 ~@2 e3 ~", D: "b2!16", E: "c3!16", F: "c#3!16", G: "b2!15 ~",
})).s("gm_lead_2_sawtooth").gain(0.27)

// other · lead 1 square · "Square Lead"
const lead_1_square = note(`<
  A B A C A D A E F@8 ~@2 G H ~@8 A B A C A D A E F@8 ~@2 G H ~@8 I@2 ~@15 A B A C A B ~@2 A B A C A B A C ~
>`.pickRestart({
  A: "~@4 [f#5,f#6] [e5,e6] [f#5,f#6] [e5,e6] [f#5,f#6]@2 [b4,b5] ~ [b4,b5]@2 [a4,a5]@2", // F# E F# E F# B A
  B: "[b4,b5]@3 [g5,g6]@3 [f#5,f#6]@6 [e5,e6]@4", C: "[b4,b5]@3 [e5,e6]@3 [d5,d6]@6 [c#5,c#6]@4",
  D: "[b4,b5]@2 ~ [g5,g6]@2 ~ [f#5,f#6]@6 [e5,e6]@4", E: "[b4,b5]@2 ~ [e5,e6]@2 ~ [d5,d6]@6 ~@4",
  F: "[~ d6@4 ~@3, ~@4 c#4 ~@27]/2", G: "~@14 a#3 ~", H: "a#3 ~", I: "[~ f7@8 ~@7]/2",
})).s("gm_lead_1_square").gain(0.27)

// other · shamisen
const shamisen = note("<~@22 A ~@27 A ~@16 A ~@7 A ~@7 A ~@6>".pickRestart({
  A: "~@7 b2!3 a2 ~ b2 f#2 a2 b2",
})).s("gm_shamisen").gain(0.33)

// other · pad poly · "Polysynth"
const pad_poly = note("<~@57 A B C B C B C ~@26>".pickRestart({
  A: "~ e2 g2 b2 e3 g3 b3 e2 g2 b2 e3 g3 b3 e2 g2 b2", B: "e3 e2 a2 c#3 e3 a3 c#4 e2 a2 c#3 e3 a3 c#4 e2 a2 c#3",
  C: "e3 e2 g2 b2 e3 g3 b3 e2 g2 b2 e3 g3 b3 e2 g2 b2",
})).s("gm_pad_poly").gain(0.12)

// drums · rim
const rim = s("rim").struct("<A@16 ~@4 A@7 ~ A@16 ~@4 A@9 ~@4 A@3 ~ A@24 ~>".pickRestart({
  A: "~@11 x ~@4",
})).gain(0.29)

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

// drums · kick · soft notes
const kick_soft = s("bd").struct("<A@16 B@2 ~@2 A@7 ~ A@8 ~@4 A@4 B@2 ~@2 A@9 C@4 A@3 ~ A@24 ~>".pickRestart({
  A: "~@5 x ~@2", B: "x", C: "~@7 x",
})).gain(0.19)

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

// drums · clap
const clap = s("cp").struct("<A@19 ~ A@7 ~ A@8 ~@2 A@9 ~ A@9 ~@4 A@3 ~ A@24 ~>".pickRestart({
  A: "~ x ~ x",
})).gain(0.29)

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

// drums · high tom
const high_tom = s("ht").struct("<~@7 A ~@27 A ~@19 A B ~@6 A ~@8 A ~@17>".pickRestart({
  A: "~@11 x!5", B: "~@15 x",
})).gain(0.24)

// drums · china
const china = s("cr").struct("<A ~@18 A ~@27 A ~@13 A ~@2 A ~@25>".pickRestart({
  A: "x",
})).gain(0.29)

// drums · tambourine
const tambourine = s("tb").struct("<A@8 ~@12 A@7 ~ A@8 ~@12 A@8 ~@9 A@23 B ~>".pickRestart({
  A: "x!16", B: "x!15 ~",
})).gain(0.14)

// drums · shaker
const shaker = s("sh").struct("<~@8 [x!8]!8 ~@20 [x!8]!8 ~@12 [x!8]!8 ~@26>").gain(0.29)

// drums · shaker · soft notes
const shaker_soft = s("sh").struct(`<
  ~@8
  [~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x]!8
  ~@20
  [~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x]!8
  ~@12
  [~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x]!8
  ~@26
>`).gain(0.1)

stack(
  bass, rock_organ, lead_5_charang, lead_2_sawtooth, string_ensemble_2, string_ensemble_2_2, lead_2_sawtooth_2,
  lead_1_square, shamisen, pad_poly, rim, kick, kick_soft, snare, clap, hihat, high_tom, china, tambourine, shaker,
  shaker_soft
)