opmo Posted August 9, 2020 Share Posted August 9, 2020 New release soon. New symbol * (pedal note or pedal point) added to the counterpoint dictum: ;; Patterns (setf p1 '(q c4 ds5 d4 eb3) p2 '(e c4 cs4 d4 ds4 e4 f4 fs4 g4) p3 '(q g4 c5 e ds4 d3 ds4 c4) p4 '(5q d2 cs3 - g4 - 3q c3 - fs3 q f4 e3) ) ;; Counterpoint, methods and polyphony (counterpoint (list p1 p2 p3 p4) '(((- 1 2 3) :methods (- i r -)) ((- 4 3 *) :methods (- ri - -)) ((4 * * *) :methods (r - - -)) ((1 * 2 3) :methods (- - i -)) ((* * * *) :methods (- - - -))) :global-methods '((fl) (t12 cl) (hn) (t-12 vc)) :global-polyphony '(7 p) :iterate t :index 'vox) ;; Tempo (setf tempo-changes (gen-tempo '(44 72) '(1 2) vox1 :seed 34)) ;; Preview Score (ps 'gm :fl (list vox1) :cl (list vox2) :hn (list vox3) :vc (list vox4) :tempo tempo-changes ) best wishes, Janusz Stephane Boussuge 1 Link to comment Share on other sites More sharing options...
Recommended Posts