Counterpoint - Pedal Point

[opmo]

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