// Red Sails in the Sunset — The Beatles
// 118 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 45 bars on a 16-step grid, each part at one level; ghost notes are separate "_soft" parts. Source detail keeps the original performance.
setcpm(118/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 · "BASS"
const bass = note(`<
  A B C A D E F G H E I A D E J G H K L M A N J A O E P Q R N S T O B U Q@2 K J Q O V W X Y
>`.pickRestart({
  A: "c2@3 g2 g2@3 c2", B: "d2@5 ~ d2 ~ d2@6 d2 ~", C: "g2@5 ~ g2 ~ g2@6 g2 ~", D: "c2@6 g2 ~ g2@6 d#2 ~",
  E: "d2@6 a2 ~ a2@6 f#2 ~", F: "f2@5 ~ f2 ~ f2@6 f2 ~", G: "c2@4 ~@2 c2@2 g2@6 c2 ~", H: "a1@5 ~ a1@2 e2@6 a1 ~",
  I: "g2@6 d3 ~ d3@6 b1 ~", J: "f2@5 ~ f2@2 c3@6 f2 ~", K: "d2@4 ~@2 d2@2 a2@6 d2 ~", L: "g2@3 d3 d3@3 g2",
  M: "c2@6 g2 ~ g2@6 c#2 ~", N: "d2@6 a2 ~ a2@6 e2 ~", O: "a1@5 ~ a1 ~ a1@6 a1 ~", P: "g2@4 ~@2 g2@2 d3@6 g2 ~",
  Q: "c2@5 ~ c2@2 g2@6 c2 ~", R: "c2@5 ~ c2 ~ c2@6 c2 ~", S: "f2@4 ~@2 f2@2 c3@6 f2 ~", T: "c2@6 g2 ~ g2@6 a#1 ~",
  U: "g2@5 ~ g2@2 d3@6 g2 ~", V: "d2@6 a2 ~ a2@6 g#2 ~", W: "g2@6 d3 ~ d3@6 c#2 ~", X: "c2@5 ~ g2 ~ g2@4 g1@4", Y: "c2",
})).s("gm_electric_bass_finger").gain(0.35)

// chords · acoustic guitar steel · "GUITAR"
const acoustic_guitar_steel = note(`<
  A@2 B C D E F G H I J G K L M@2 N O P Q@2 L R S H T U@2 C L F V W T P X G Y F Z@2 I P AA AB
>`.pickRestart({
  A: "[[e3,g3,c4]@7 [d4,f4,a4,d5]@8 ~]/2", B: "[g3,b3,d4]@7 ~", C: "[e3,g3,c4]@7 ~",
  D: "~@2 g4@2 ~ [g3,e4,g4,c5] ~@2, g3 ~, ~@2 e4@7 ~@7", E: "~@2 a4@2 ~ [a3,f4,a4,d5] ~@2, a3 ~, ~@2 f4@7 ~@7",
  F: "[f4,a4,c5,f5]@7 ~", G: "[c4,e4,g4,c5]@7 ~", H: "[a3,c4,e4,a4]@7 ~", I: "[c4,f4,a4,d5]@7 ~",
  J: "[g3,b3,d4,g4]@7 ~", K: "~@2 e4@7 ~ [g3,e4,g4,c5]@2 ~@4, g3 ~", L: "[d4,f4,a4,d5]@7 ~",
  M: "[~@6 c5@3 ~ [a3,f4,a4,c5]@2 ~@2 [e3,c4,g4]@16 ~@2, a3 ~@3, ~@2 f4@7 ~@23]/2", // F C
  N: "~@6 a4@3 ~ [e3,c4,e4,a4]@2 ~@4, e3 ~, ~@2 c4@7 ~@7", O: "[f3,a3,c4,e4]@7 ~",
  P: "~@2 b4@2 ~ [b3,g4,b4,d5] ~@2, b3 ~", // G
  Q: "[[c4,e4,g4,c5]@14 ~@8 c5@3 ~ [g3,e4,g4,c5]@2 ~@4, ~@7 g3@5 ~@4, ~@18 e4@7 ~@7]/2", R: "[f3,a3,c4,f4]@7 ~",
  S: "~@2 g4@2 ~ [g3,e4,g4,c5] ~@2, g3 ~", T: "[f3,c4,e4,a4]@7 ~", U: "[[g3,b3,d4,g4]@7 [e3,g3,c4]@8 ~]/2",
  V: "~@6 c5@3 ~ [g3,e4,g4,c5]@2 ~@4, g3 ~, ~@2 e4@7 ~@7", W: "~@2 e4@2 ~ [e3,c4,e4,a4] ~@2, e3 ~, ~@2 c4@7 ~@7",
  X: "[e3,c4,g4]@7 ~", Y: "[f3,a3,d4]@7 ~",
  Z: "[~@2 g4@2 ~ [g3,e4,g4,c5] ~ [a3,c4,e4,a4]@8 ~, g3 ~@3, ~@2 e4@7 ~@23]/2", // C Am
  AA: "[e3,g3,c4]@2 ~@2 [e3,g3,c4]@2 ~@2 e4@2 ~@2 c5 ~@3", AB: "[e3,g3,c4] ~",
})).s("gm_acoustic_guitar_steel").gain(0.3)

// chords · electric guitar clean · "GUITAR"
const electric_guitar_clean = note(`<
  A B C A D B@2 A E F G A@2 B@2 D H F C I@2 B J K H L C D@2 J B A H F G D A M B A N@2 O P Q
>`.pickRestart({
  A: "~@2 [g3,e4]@5 ~ [g3,e4]@2 ~@2 [g3,e4]@2 ~@2", B: "[a3,f4] ~ [a3,f4] ~@2 [a3,f4] ~@2",
  C: "~@2 [b3,g4]@5 ~ [b3,g4]@2 ~@2 [b3,g4]@2 ~@2", D: "[g3,e4] ~ [g3,e4] ~@2 [g3,e4] ~@2",
  E: "~@2 [e3,c4]@5 ~ [e3,c4]@2 ~@2 [e3,c4]@2 ~@2", F: "[c4,f4] ~ [c4,f4] ~@2 [c4,f4] ~@2",
  G: "[b3,g4] ~ [b3,g4] ~@2 [b3,g4] ~@2", H: "[e3,c4] ~ [e3,c4] ~@2 [e3,c4] ~@2",
  I: "[~@2 e4 g4@2 e4 c4 e4@2 ~ [g3,e4] ~@2 [g3,e4] ~@2, ~@2 g3@9 ~@3 g3 ~@17]/2", // C
  J: "~@2 [a3,f4]@5 ~ [a3,f4]@2 ~@2 [a3,f4]@2 ~@2", K: "~@2 e4 g4@2 e4 ~ g3, ~@2 g3@9 ~ c4@4",
  L: "~@2 [c4,f4]@5 ~ [c4,f4]@2 ~@2 [c4,f4]@2 ~@2", M: "~@2 f4 a4@2 f4 ~ a3, ~@2 a3@9 ~ d4@4",
  N: "[[e3,c4] ~ [e3,c4] ~@2 [e3,c4] ~ [c4,f4]@2 ~ [c4,f4] ~@2 [c4,f4] ~@2]/2", // C F5
  O: "~@2 [b3,g4]@5 ~ [b3,g4]@2 ~@2 [b3,g4]@2 [c4,e4]@2", P: "~@4 [c4,e4]@2 ~@4 [c4,e4] ~@5", Q: "[c4,e4]@3 ~",
})).s("gm_electric_guitar_clean").gain(0.19)

// other · acoustic guitar nylon · "GUITAR"
const acoustic_guitar_nylon = note("<~@20 A B C D E F G@2 ~@17>".pickRestart({
  A: "~@6 g3 a3 b3 c4 d4 e4 f4 g4 ~ a4", B: "a4 [g4,a4] ~ f4 e4 [e4,f4] d4 e4 d4@3 ~@2 g4 [g4,a4] [a4,b4]",
  C: "g4 ~ f4 ~@2 [e4,f4]!2 ~ [d4,e4] ~ [e4,f4] ~@3 [d4,e4]!2", D: "c4 d4 c4@3 ~@3 c5 ~ g4 [g4,a4] g4 f4 e4 ~",
  E: "~@5 d4!2 c4 d4@4 ~ [e4,f4] e4 ~", F: "d4@2 a3@3 ~@8 [d3,e3,f3] g3 a3",
  G: "[g3@4 ~@2 d4 ~ d4@2 [d4,e4]!2 ~ c4 b3 c4@7 ~@10]/2", // Dsus2
})).s("gm_acoustic_guitar_nylon").gain(0.36)

// other · synth brass 1
const synth_brass_1 = note("<~@8 A@5 ~@3 B@5 ~@11 C@5 ~@3 D@5>".pickRestart({
  A: "[~@4 e4@3 ~ e4@2 f4@2 g4@2 f4@4 ~ d4@17 f4@3 ~ f4@2 e4@2 d4@2 e4@22 ~@12]/5",
  B: "[~@4 e4@3 ~ e4@2 f4@2 g4@2 f4@4 d4@17 ~ f4@3 ~ f4 ~ e4 d4@2 ~ e4@22 ~@12]/5",
  C: "[~@4 e4@2 ~@2 e4@2 f4 ~ g4@2 f4@4 d4@17 ~ f4@3 ~ f4@2 e4 ~ d4@2 e4@22 ~@12, ~@4 f4 ~@75]/5",
  D: "[~@6 e4 ~ e4@2 f4@2 g4@2 f4@4 d4@17 ~ f4@3 ~ f4 ~ e4 ~ d4 ~ e4@26 ~@8]/5",
})).s("gm_synth_brass_1").gain(0.46)

// drums · kick
const kick = s("bd").struct("<[x ~@2 x!2 ~@2 x]!3 x [x ~@2 x!2 ~@2 x]!38 x [x ~@2 x!2 ~@2 x] x>").gain(0.4)

// drums · rim
const rim = s("rim").struct(`<
  A B A ~ A B A B A B A ~ A B A B A B A ~ A B A B A B A ~ A B A B A B A ~ A B A B A B ~ A ~
>`.pickRestart({
  A: "x ~@2 x ~@2 x ~", B: "~@2 x ~@2 x ~@2",
})).gain(0.35)

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

// drums · snare · soft notes
const snare_soft = s("sd").struct("<~@3 A ~@7 B ~@23 C ~@6 A ~@2>".pickRestart({
  A: "~@6 x!2 ~@8", B: "~@2 x ~@2 x ~@2", C: "~ x!2 ~ x!2 ~@2",
})).gain(0.15)

// drums · low tom
const low_tom = s("lt").struct("<~@11 [~@7 x] ~@7 [~@2 x ~@4 x] ~@7 [~@2 x ~@4 x] ~@17>").gain(0.35)

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

// drums · mid tom
const mid_tom = s("mt").struct("<~@7 A ~@3 B ~@3 A ~@3 C ~@2 D A@2 ~ A C ~ D ~ A ~@7 A ~@5>".pickRestart({
  A: "~@3 x", B: "~ x ~@2 x ~ x ~", C: "~@5 x ~@2", D: "~@7 x",
})).gain(0.3)

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

// drums · high tom
const high_tom = s("ht").struct("<~@7 A ~@3 B ~@7 C ~@2 D ~@4 C ~ A ~@15>".pickRestart({
  A: "~@3 x ~@4", B: "x ~@2 x ~@4", C: "~ x", D: "~ x ~@2",
})).gain(0.3)

// drums · crash
const crash = s("cr").struct("<A ~@2 A@2 ~@7 A ~@7 A ~@7 A ~@7 A ~@5 A ~ A>".pickRestart({
  A: "x",
})).gain(0.2)

// drums · ride
const ride = s("rd").struct("<~@20 [~ x!7] [x!8]!6 ~@18>").gain(0.3)

// drums · cowbell
const cowbell = s("cb").struct("<~@20 x [~@3 x] [~@3 x ~@4]!3 [x ~@2 x ~@2 x ~] [x ~@2 x ~@4] ~@18>").gain(0.15)

// drums · congas
const congas = s("conga:13").struct("<~@20 A ~ A ~ A ~ A ~@18>".pickRestart({
  A: "~@3 x ~@2 x ~",
})).gain(0.63)

// drums · congas
const congas_2 = s("conga:18").struct("<~@20 A B A B C B C ~@18>".pickRestart({
  A: "~ x!2 ~ x ~@3", B: "x!2 ~@6", C: "~ x!2 ~@2 x ~@2",
})).gain(0.63)

// drums · cabasa
const cabasa = s("cabasa:4").struct("<[~ x ~ x ~ x ~ x]!11 [x!4] [~ x ~ x ~ x ~ x]!32 ~>").gain(1.01)

// drums · shaker
const shaker = s("sh").struct("<[x!4]!11 [~ x ~ x ~ x ~ x] [x!4]!32 ~>").gain(0.3)

stack(
  bass, acoustic_guitar_steel, electric_guitar_clean, acoustic_guitar_nylon, synth_brass_1, kick, rim, snare,
  snare_soft, low_tom, hihat, mid_tom, open_hat, high_tom, crash, ride, cowbell, congas, congas_2, cabasa, shaker
)