// Dances With Wolves - John Dunbar Theme — Barry John
// 61.2 bpm, 4/4, key F major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Tempo changes preserved in elapsed time; displayed bars use the dominant tempo.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 24 bars on a 32-step grid, each part at one level. Source detail keeps the original performance.
setcpm(61.2/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 · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<~@5 A@2 B@4 C@8 D@2 E@3>".pickRestart({
  A: "[~@5 [g3,a3,c4]@6 ~ [g3,a3,c4]@7 ~@2 [g3,a3,c4]@16 [f3,a3,d4]@7 ~ [f3,a3,d4]@12 [f3,a3,d4]@7]/2", // Am7 Dm
  B: "[~ [f3,d4]@4 ~ [bb3,d4,f4]@6 ~ [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@16 ~ [g3,bb3,e4]@3 ~ [g3,bb3]@7 [g3,bb3,e4]@7 ~@2 [g3,bb3,e4]@9 ~@3 [d4,f4]@6 ~@2 [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@15 ~@2 [g3,a3,c4]@6 ~@2 [g3,a3,c4]@11 ~ [g3,a3,c4]@5, ~ a3@2 ~@38 e4@7 ~@80]/4", // Dm Bb Edim Gm Edim Dm Bb Am7
  C: "[~@4 [g3,a3]@2 ~@2 [f3,bb3,d4]@6 ~@2 [f3,bb3,d4]@5 ~@3 [f3,bb3,d4]@16 [g3,bb3,e4]@3 ~ [g3,bb3,e4]@7 ~ [g3,bb3,e4]@7 ~ [g3,bb3,e4]@10 ~@3 [g3,a3,c4]@6 ~@2 [g3,a3,c4]@7 ~ [g3,a3,c4]@16 [f3,a3,d4]@7 ~ [f3,a3,d4]@12 ~ [f3,a3]@6 ~ [a3,d4]@2 ~@2 [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@17 [g3,bb3,e4]@3 ~ [g3,bb3,e4]@7 ~@2 [g3,bb3,e4]@7 ~ [g3,bb3,e4]@10 ~@2 [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@6 ~@2 [bb3,d4,f4]@16 ~ [g3,a3,c4]@5 ~@2 [g3,a3,c4]@13, ~@4 c4@4 ~@117 d4@6 ~@2 f3@4 ~@119]/8", // Gsus2 Bb Edim Am7 Dm F D5 Bb …
  D: "[~ c4@6 ~@2 [g3,a3,c4]@3 ~ [bb3,d4]@6 ~@2 [bb3,d4]@8 [g3,bb3,e4]@16 ~ [a3,c4,f4]@3 ~ [a3,c4,f4]@6 ~@2 [a3,c4,f4]@6, [g3,a3]@3 ~@29]/2", // Am7 Bb Edim F Gsus2
  E: "[~@2 [a3,c4,f4]@7 ~ [a3,c4,f4]@5 [a3,c4,f4]@69 ~@12]/3", // F
})).s("gm_string_ensemble_1").gain(0.11).pan(0.4)

// chords · piano · "A.PIANO 1"
const piano = note("<A@5 B@8 C D@5 E@5>".pickRestart({
  A: "[~ gb2@99 gb1@60]/5",
  B: "[~@21 f3@16 ~@16 d3@16 ~@17 bb3@16 ~@28 c3@4 ~@25 f3@8 ~@29 c3@4 ~@25 d3@7 ~@9 [bb3,e4]@15, ~@5 f2@32 d2@33 ~@8 d4@24 ~@8 e4@24 ~@9 d4@24 ~@21 f3@12 ~@16 g3@16 ~@4 g3@20, ~@9 c3@28 ~@4 a2@29 bb2@32 c3@24 d3@8 ~ bb2@32 f2@33 g2@32 ~@24, ~@13 a3@24 ~@8 f3@25 ~@4 f3@28 ~@4 g3@28 ~@17 bb3@16 ~@8 a3@24 ~@9 bb3@24 ~@24, ~@122 e3@12 ~@5 f3@20 ~@12 c3@25 ~@8 d3@20 ~@8 c3@24]/8", // Bbdim
  C: "~ c3@6 [f2,c3]@10 [f2,c3]@8 [f2,c3]@7", // F5
  D: "[~@8 f3@9 ~ [f3,a3,d4]@12 [f3,a3,d4]@8 [f3,a3,d4]@3 ~@9 [bb3,d4,f4]@8 [bb3,d4,f4]@14 ~ bb3@6 [g3,bb3,e4]@8 [g3,bb3,e4]@8 [g3,bb3,e4]@12 ~@8 [bb3,d4,f4]@8 ~ [bb3,d4,f4]@15 ~@9 [g3,a3,c4]@12, ~@7 d2@34 ~@70 f3@28 ~@5 c3@16, ~@8 a2@33 bb2@30 ~ c3@35 bb2@32 ~ f2@20]/5", // Dm Bb Edim Bb Am7
  E: "[~ [g3,a3,c4]@8 [g3,a3,c4]@4 ~@8 [g3,bb3,d4]@8 [c3,e3,bb3]@13 ~@3 a3@5 [a3,c4,f4]@8 [a3,c4,f4]@8 ~@13 [f2,c3]@72 ~@9, ~@13 g2@16 ~@14 f2@36 ~@81, ~@17 d3@12 ~@15 c3@35 ~@81, ~@33 [a3,c4,f4]@32 ~@15]/5", // Am7 Gm C7 F F5 F
})).s("gm_piano").gain(0.2)

// chords · piano · "A.PIANO 1"
const piano_2 = note("<~ A@2 B@2 C@4 D@4 E F@6 G@4>".pickRestart({
  A: "[~@27 bb4@33 ~@4, ~ gb4@6 gb4@23 ~@2, ~@3 db4@27 ~@2, ~@10 bb4@12 c5@37 ~@5, ~@9 db5@21 ~@2]/2",
  B: "[~@29 bb5@33 ~@2, ~@4 gb5@12 gb5@45 ~@3, ~@2 db5@13 ~, ~@3 bb5@3 c6@9 ~, ~@20 db6@41 ~@3]/2",
  C: "[~@33 f4@4 ~@12 f4@21 ~@28 f5@4 c5@25 ~, ~@5 f4@28 ~@4 a4@33 f5@28 ~@30, ~@25 c4@12 ~@53 g5@12 ~@26]/4",
  D: "[~@35 bb4@4 ~@12 f4@21 ~@28 f4@4 g4@24, ~@7 d5@32 ~@53 g4@12 ~@24, ~@27 c5@12 c5@33 bb4@32 ~@24]/4",
  E: "~@17 [a3,c4]@8 c4@4 c4@3, ~@8 [a3,c4]@9 ~@8 a3@7, ~@9 f4@23", // Am
  F: "[~@5 f4@3 ~@13 f4@18 ~@31 f5@3 ~@2 c5@32 ~@20 e5@9 f5@3 ~@13 c6@21 ~@12 c6@4 c7@3, ~@9 [a3,d4]@31 ~ d5@32 ~ g4@33 ~@33 [c5,f5]@33 [bb4,d5,a5]@19, ~@10 a4@30 [f4,bb4]@33 e4@34 [f4,bb4,d5]@31 ~ [f4,a4]@34 ~@19, ~@42 f5@28 ~@49 f5@16 ~@57, ~@62 g5@11 ~@51 f6@15 ~@53]/6", // D5 F5 Bbmaj7 Bb5 Bb F
  G: "[~@9 f5@3 ~@2 f5@32 ~ [a3,c4,f4]@72 ~@9, ~ g5@11 ~ [f4,c5]@33 ~@82]/4", // F F5
})).s("gm_piano").gain(0.3)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1_2 = note("<~@5 A@2 B@4 C@8 D@2 E@3>".pickRestart({
  A: "[~@5 [f2,c3]@6 ~@2 [f2,c3]@6 ~@2 [f2,c3]@16 [d2,a2]@7 ~ [d2,a2]@12 [d2,a2]@6 ~]/2", // F5 D5
  B: "[~ [d2,a2]@3 ~@2 bb2@6 ~@2 f3@6 ~ [bb2,f3]@17 [c2,e3]@3 ~ [c2,e3]@7 ~ [c2,e3]@7 ~ [c2,e3]@10 ~@2 [bb2,f3]@7 ~@2 [bb2,f3]@7 ~ [bb2,f3]@15 ~ [f2,c3]@7 ~ [f2,c3]@12 ~ [f2,c3]@4, ~@5 f3@7 ~ bb2@5 ~@110]/4", // D5 Bb5 C Bb5 F5
  C: "[~@4 [f2,c3]@4 [g2,d3]@6 ~@2 [g2,d3]@7 ~ [g2,d3]@16 [c2,e3]@3 ~ [c2,e3]@7 ~@2 [c2,e3]@7 [c2,e3]@10 ~@3 f2@6 ~ [f2,c3]@7 ~@2 [f2,c3]@16 ~ d2@6 ~ [d2,a2]@12 ~ [d2,a2]@7 a2@5 [bb2,f3]@6 ~ [bb2,f3]@5 ~@4 f3@14 ~@2 [c2,e3]@3 ~ [c2,e3]@8 ~ [c2,e3]@7 ~ [c2,e3]@9 ~@3 [bb2,f3]@6 ~@2 [bb2,f3]@7 ~ [bb2,f3]@16 ~ [f2,c3]@7 ~ [f2,c3]@12, ~@72 c3@6 ~@27 a2@7 ~@21 d2@2 ~@18 bb2@13 ~@90]/8", // F5 G5 C F5 D5 Bb5 C Bb5 …
  D: "[~ f2@6 ~@2 [f2,c3]@4 [g2,d3]@7 ~ [g2,d3]@8 [c2,e3]@16 ~ [f2,c3]@3 ~ [f2,c3]@6 ~@2 [f2,c3]@6, c3@7 ~@57]/2", // F5 G5 C F5
  E: "[~@2 [f2,c3]@11 ~@2 [f2,c3]@69 ~@12]/3", // F5
})).s("gm_string_ensemble_1").gain(0.14).pan(0.6)

// other · oboe
const oboe = note("<~ A@2 B@2 ~@19>".pickRestart({
  A: "[~ gb4@4 ~ db4@4 bb4@4 gb4@4 db5@4 c5@5 bb4@32 ~@5]/2", B: "[~ gb5 db5 bb5 gb5 db6 c6 bb5@8 ~]/2",
})).s("gm_oboe").gain(0.19)

stack(string_ensemble_1, piano, piano_2, string_ensemble_1_2, oboe)