// Think Twice — Celine Dion
// 67 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 70 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(67/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 · pad warm · "Warmpad"
const pad_warm = note(`<
  A B A B C B D E C B D E F G F G H G I J@2 K@3 L F M F G E M F G E F G F G N G O P N D F Q M F M F R S R D ~@3 T P U D
  B V U D T P U D F
>`.pickRestart({
  A: "[a3,c4,f4]", B: "[bb3,d4,g4]", C: "[a3,d4,f4]", D: "[c4,e4,g4]", E: "[e3,a3,c4] [f3,bb3,d4]", F: "[g3,bb3,d4]",
  G: "[g3,c4,e4]", H: "[f3,a3,c4] [f3,bb3,d4]", I: "f3 e3, [a3,c4]",
  J: "[[f3,bb3,d4] [g3,e4] a3 [bb3,d4], ~ c4@2 ~, ~ f3]/2", K: "[[c4,e4] ~ f3, g3@2 ~, ~ [bb3,d4]@2]/3",
  L: "[f3,a3,c4]", M: "[f3,a3,d4]", N: "[a3,c4,f4] [bb3,d4,f4]", O: "[a3,c4,f4] [a3,c4,e4]",
  P: "[bb3,d4,f4] [c4,e4,g4]", Q: "[f3,bb3,d4]", R: "[g3,bb3,d4] [f3,bb3,d4]", S: "[e3,g3,c4]",
  T: "[c4,f4,a4] [a3,c4,e4]", U: "[c4,f4,a4] [bb3,d4,f4]", V: "[bb3,d4,f4]",
})).s("gm_pad_warm").gain(0.4).pan(0.2)

// other · electric guitar jazz · "Guitar"
const electric_guitar_jazz = note("<~@2 A B C ~@3 D ~@2 E@2 F@2 ~@16 G@2 ~@37>".pickRestart({
  A: "~ g4@3", B: "~@8 a5@2 a5@2 a5 g5 f5@2", C: "f5 ~", D: "f3 [e3,g3] d3@9 ~@5", E: "[~@3 c4@4 ~]/2",
  F: "[~@12 c4 a3 c4@14 ~@4]/2", G: "[~@3 a4@3 ~@2]/2",
})).s("gm_electric_guitar_jazz").gain(0.32)

// other · lead 1 square · "Sqaure" · Em
const lead_1_square = note("<~@5 [~@12 c5 d5 f5@2] [[e5,g5] ~] ~@2 [~@12 c5 d5 f5@2] [[e5,g5] ~] ~@59>")
  .s("gm_lead_1_square").gain(0.24)

// bass · fretless bass · "Bass"
const bass = note(`<
  ~@15 A B C D E F G H I J K L M N O P Q R S T U V C F C W X F Y H Z L AA AB AC AD AE AF AG AH ~@2 W AI F AJ H AK AL C
  AM AN AO AP AQ
>`.pickRestart({
  A: "~@3 c2 d2@2 e2@2", B: "f2@3 a1 bb1@4", C: "c2@3 c2 d2@2 e2@2", D: "f2@3 f2 a1@4", E: "bb1@3 bb1 c2@4",
  F: "f2@3 a1 bb1@2 d2@2", G: "c2@3 c2 c2@4", H: "g1@3 g1 g1@2 a1@2", I: "bb1@3 bb1 bb1@2 ~@2", J: "f2@6 f2 c2 f2@8",
  K: "g2@8 g2 a2 g2 f2 d2 c2 bb1 a1", L: "d2@7 a1 d2 ~ d2@4 a1@2", M: "g1@3 g1 g1@3 d2",
  N: "c2@6 c2 g1 c2@2 c2@4 c2 bb1", O: "a1@3 a1 bb1@4", P: "d2@6 ~ a1 d2@2 d2@4 a1@2", Q: "g1@6 g1@2 g1@6 g1 d2",
  R: "c2@6 ~ g1 c2@2 c2@4 c2 bb1", S: "a1@6 a1@2 bb1@6 bb1 a1", T: "g1@3 g1 g1@2 d2@2", U: "c2@6 c2@2 c2@4 ~@2 e2 f2",
  V: "g2@6 ~ d2 g2 ~ g2@4 d2@2", W: "f2@3 f2 a1@3 a1", X: "bb1@6 bb1 d2 c2@3 c2 g2@3 g2", Y: "c2@6 c2@2 c2@6 bb1 a1",
  Z: "bb1@6 bb1@2 bb1@7 c2", AA: "g1@6 g1@2 g1@6 c2 d2", AB: "d2@7 a1 d2 ~ d2@3 ~ d2 a2", AC: "g2@7 d2 g2@6 a1@2",
  AD: "g1@3 a1 bb1@4", AE: "c2@6 ~ g1 c2 ~ c2@4 bb1 a1", AF: "g1@3 a1 bb1@2 d2@2", AG: "c2@6 ~@8 c2 d2", AH: "c2 ~@15",
  AI: "bb1@6 bb1@2 c2@3 c2 g2@4", AJ: "c2@7 g1 c2 ~ c2@4 a1@2", AK: "bb1@6 bb1@2 bb1@6 c2 d2",
  AL: "f2@6 ~ a1 bb1@2 bb1@4 d2@2", AM: "f2@6 c2 bb1 a1@6 a1@2", AN: "bb1 d2 c2 g2", AO: "f2@6 ~ a1 bb1 ~ bb1@4 d2@2",
  AP: "c2@7 g1 c2@6 a1@2", AQ: "g1@3 g1 g1@4",
})).s("gm_fretless_bass").gain(0.4)

// chords · string ensemble 1 · "String"
const string_ensemble_1 = note(`<
  ~@12 A B C D E@2 ~@2 E@2 F G ~@10 H I J K L ~@18 M N O P Q R M S M T R P Q
>`.pickRestart({
  A: "[g3,bb3,d4]", B: "[g3,c4,e4]", C: "[bb3,d4,f4]", D: "[c4,e4,g4]", E: "[[f4,f5] [c5,c6]@7]/2", F: "[bb4,d5,g5]",
  G: "[bb4,c5,d5,f5]@7 ~", H: "[d4,f4,bb4]", I: "[e4,g4,c5]", J: "[f4,bb4,d5]", K: "[g4,c5,e5]", L: "[a4,c5,f5]",
  M: "[a4,a5]", N: "[bb4,bb5] [a4,a5]", O: "[a4,a5] [f4,f5]", P: "[c5,c6]", Q: "[bb4,bb5]", R: "[f4,f5]", S: "[g4,g5]",
  T: "[bb4,bb5] [c5,c6]", // Bb C
})).s("gm_string_ensemble_1").gain(0.27).pan(0.8)

// other · pad new age · "Bel-Chime"
const pad_new_age = note("<~@17 A B C D A ~@17 A E F G A H ~@13 I ~ A J ~@2 A K I L A J>".pickRestart({
  A: "~ [e4,e5] [f4,f5] [g4,g5]", B: "[a4,a5]@7 ~@9", C: "~ [c4,c5] [f4,f5] [bb4,bb5] [a4,a5]@2 [g4,g5]@2",
  D: "[f4,f5]@7 ~@9", E: "[a4,a5]@3 ~", F: "~ [bb3,bb4] [d4,d5] [bb4,bb5] [a4,a5]@2 [g4,g5]@2", G: "[f4,f5] ~",
  H: "[d4,d5] ~", I: "~ [bb3,bb4] [f4,f5] [bb4,bb5] [a4,a5]@2 [g4,g5]@2", J: "[d4,d5]@3 ~", K: "[a4,a5]",
  L: "[f4,f5]@3 ~", // F
})).s("gm_pad_new_age").gain(0.4)

// other · distortion guitar · "Dist.Guit"
const distortion_guitar = note(`<
  ~@24 A@2 ~ B C D@2 ~ E F ~@4 G H I J G H K L M N O P Q H R H ~@3 S T U V W X U Y S T U V W
>`.pickRestart({
  A: "[~@9 g4@4 [g4,a4] f4@4 g4@13 ~]/2", B: "~@12 f4@3 [f4,g4]", C: "e4@3 ~",
  D: "[~@11 c4 d4 f4 f4@5 [c4,d4] d4 c4 a3 ~@9]/2", E: "~@11 g4 a4 ~ d5 a4, ~@13 a4@2 ~", F: "d5@3 ~", G: "f3 bb2",
  H: "c3", I: "f3 a2", J: "bb2 c3", K: "g2@7 a2", L: "bb2@7 ~", M: "a4@8 a4 [f4,g4] d4@3 ~ g4 f4",
  N: "g4@3 f4 g4@5 ~@4 a4 c5 d5", O: "d5@7 [a4,c5] f5 d5@6 [a4,c5]", P: "g5@3 [d5,f5] d5@3 [g4,a4] g4@3 [d4,f4] d4@3 ~",
  Q: "g2@3 a2 bb2@4", R: "g2@3 a2 bb2@2 d3@2", S: "[f3,f4] [a2,a3]", T: "[bb2,bb3] [c3,c4]", U: "[f3,f4] [bb2,bb3]",
  V: "[c3,c4]", W: "[g2,g3]@3 [a2,a3]", X: "[bb2,bb3]", Y: "[c3,c4]@2 [d3,d4] [e3,e4]",
})).s("gm_distortion_guitar").gain(0.4)

// other · taiko drum · "TaikoDrum"
const taiko_drum = note("<A@37 B A@16 C A C A@4 B A@8>".pickRestart({
  A: "f1 ~@5 f1 ~ f1 ~@7", B: "f1 ~@5 f1 ~ f1 ~@3 f1 ~@3", C: "f1 ~@15",
})).s("gm_taiko_drum").gain(0.3)

// drums · kick
const kick = s("bd").struct("<A@29 B A@7 C A@3 D A@3 C A E F A@3 G A H A I A B A@2 C J A@2 F K A@3>".pickRestart({
  A: "x ~@2 x!2 ~@3", B: "x ~@5 x ~ x ~@2 x ~@4", C: "x ~@2 x!2 ~ x ~", D: "x ~@2 x!2 ~ x!2", E: "x ~@5 x ~ x ~@5 x!2",
  F: "x ~@2 x ~@2 x ~ x ~@7", G: "x ~@5 x ~ x ~@2 x!2 ~@3", H: "x ~@6 x", I: "x", J: "x ~@5 x ~ x ~@3 x!2 ~@2",
  K: "x ~@5 x ~ x ~@6 x",
})).gain(0.3)

// drums · snare
const snare = s("sd").struct("<A@23 ~ B C@12 D C@3 E C@3 F C@3 G C@2 H C I C J C@5 E C@7>".pickRestart({
  A: "~@5 x!2 ~", B: "~@2 x ~@2 x!2 ~", C: "~ x ~ x", D: "~@4 x ~@7 x ~@2 x", E: "~@2 x ~@3 x!2", F: "~@4 x ~@10 x",
  G: "~@4 x ~@3 x ~@2 x!2 ~@2 x", H: "~@3 x!3 ~@6 x ~@3", I: "~@13 x!2 ~", J: "x ~@8 x ~@6",
})).gain(0.3)

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

// drums · low tom
const low_tom = s("lt").struct("<~@33 A ~@3 B ~@7 C ~@3 D ~@4 E ~ F ~@5 G ~ C ~@5>".pickRestart({
  A: "~@15 x", B: "~@10 x!2 ~@4", C: "~@7 x", D: "~@10 x ~@2 x ~@2", E: "~@9 x!5 ~@2", F: "~@11 x ~ x!3",
  G: "~@5 x ~@2",
})).gain(0.4)

// drums · hihat
const hihat = s("hh").struct(`<
  ~@26 A B C B C D E@2 ~@3 F G C D C@2 D C H A D I ~@2 G ~ C ~ C ~ D@2 A D@2 J G D G D G D G
>`.pickRestart({
  A: "~ x!6 ~", B: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~", C: "x!7 ~", D: "x!8", E: "x ~ x ~ x ~ x!3 ~ x ~ x ~@3",
  F: "~ x!3 ~@3 x", G: "~ x!7", H: "x!6 ~@2", I: "~ x ~ x!4 ~", J: "~ x!3 ~@4",
})).gain(0.35)

// drums · mid tom
const mid_tom = s("mt").struct("<~@33 A ~@3 B ~@7 C ~@8 D ~@7 E ~@7>".pickRestart({
  A: "~@7 x", B: "~@9 x ~@6", C: "~@10 x!2 ~ x ~@2", D: "~@13 x ~@2", E: "~@8 x!2 ~@6",
})).gain(0.4)

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

// drums · crash
const crash = s("cr").struct(`<
  ~@26 A ~@7 A ~@2 B A ~@2 C A ~@3 A ~ D C E A F A@3 ~ A C A ~ C G A ~ D ~ A ~ A
>`.pickRestart({
  A: "x", B: "x ~@2 x", C: "~@3 x", D: "x!2 ~@2", E: "x ~@2 x!2 ~@3", F: "x ~@2 x!2 ~ x ~", G: "x ~@11 x!2 ~@2",
})).gain(0.4)

// drums · ride
const ride = s("rd").struct("<[x!3 ~]!23 [x!2 ~@2] [x!3 ~] ~@9 [~ x!15] [x!16]!2 ~@33>").gain(0.3)

// drums · tambourine
const tambourine = s("tb").struct("<~@16 A@7 B ~@14 C@12 ~ C D C ~@3 E@13>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "~@2 x!3 ~@5 x!3 ~@3", D: "~@10 x!3 ~@3", E: "~@2 x!3 ~@5 x ~ x ~@3",
})).gain(0.4)

stack(
  pad_warm, electric_guitar_jazz, lead_1_square, bass, string_ensemble_1, pad_new_age, distortion_guitar, taiko_drum,
  kick, snare, clap, low_tom, hihat, mid_tom, open_hat, crash, ride, tambourine
)