BrianCope

this is what I have but still only have 12 bars (do-timeline '( afl nil cl (x - x - x - x - x - x - x x x x x x x x x x x x) bcl (- x - x - x - x - x - x - x - x x x x x x x x x) hn t vn (- x - x - x - x - x - x - x x - x x x x x x x x) vc (x - x - x - x - x - x - - - x x x x x x x x x x) ) '(pitch-variant x :variant '?) :time '1/1) (do-timeline '( afl (x - x - x x - - x - x - x - x - x x - - x - x -) cl (- x - x x - x - - x - x - x - x x - x - - x - x) bcl (x x - x x - x - - x - x x x - x x - x - - x - x) hn (x - x x - x - x x - x - x - x x - x - x x - x -) vn (- x x - x - x - - x - x - x x - x - x - - x - x) vc (- x x - x - x - - x - x - x x - x - x - - x - x) ) '(pitch-figurate '(2 3) x) :time '1/1) (do-timeline '( afl (binary-invert (gen-binary-euclidean 1 48 30 48)) cl (binary-invert (gen-binary-euclidean 1 48 30 48)) bcl (binary-invert (gen-binary-euclidean 1 48 30 48)) hn (binary-invert (gen-binary-euclidean 1 48 30 48)) vn (binary-invert (gen-binary-euclidean 1 48 30 48)) vc (binary-invert (gen-binary-euclidean 1 48 30 48)) ) '(gen-pause x) :time (rnd-sample 24 '(1/4 1/2))

Thanks for the quick response. I didn't know that it evaluates more than one of the same function, great! Staying with this example (I'm still learning), how do I extend the number of bars? Thanks Brian

Hello I'm gradually getting to know the DO-TIMELINE function and wanted to ask about the 3 x DO-TIMELINE scripts inlcuded in the example. Which of the 3 is being read when we evaluate and notate? It's difficult to tell from the notation so is there a particular order that these are read in and what is the best way to switch between them without deleting them? (do-timeline '( afl nil cl (x - x - x - x - x - x -) bcl (- x - x - x - x - x - x) hn t vn (- x - x - x - x - x - x) vc (x - x - x - x - x - x -) ) '(pitch-variant x :variant '?) :time '1/1) (do-timeline '( afl (x - x - x x - - x - x - x - x - x x - - x - x -) cl (- x - x x - x - - x - x - x - x x - x - - x - x) bcl (x x - x x - x - - x - x x x - x x - x - - x - x) hn (x - x x - x - x x - x - x - x x - x - x x - x -) vn (- x x - x - x - - x - x - x x - x - x - - x - x) vc (- x x - x - x - - x - x - x x - x - x - - x - x) ) '(pitch-figurate '(2 3) x) :time '1/2) (do-timeline '( afl (binary-invert (gen-binary-euclidean 1 48 30 48)) cl (binary-invert (gen-binary-euclidean 1 48 30 48)) bcl (binary-invert (gen-binary-euclidean 1 48 30 48)) hn (binary-invert (gen-binary-euclidean 1 48 30 48)) vn (binary-invert (gen-binary-euclidean 1 48 30 48)) vc (binary-invert (gen-binary-euclidean 1 48 30 48)) ) '(gen-pause x) :time (rnd-sample 12 '(1/4 1/2)) :loop t) Many thanks Brian