Jump to content

Counterpoint - Pedal Point


Recommended Posts

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
    )

 

Screenshot 2020-08-09 at 18.58.36.png

 

best wishes,

Janusz
 

Link to post
Share on other sites
  • opmo changed the title to Counterpoint - Pedal Point

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy