Jump to content
Sign in to follow this  
JulioHerrlein

Harmonic Rhythm Question

Recommended Posts

Dear All,

 

Stephane did this amazing and clear example (code below) of how to spread an harmonic progression over a predefined texture.

This can be altered to any harmonic idiom. I did some test, using a chorale texture originated from a 12-tone row and also

 a more jazz-oriented chorale.

 

THE QUESTION IS (For Stephane Boussuge)

 

1) How the harmonic rhythm is controlled here? In the example, the chord changes every half note.

2) How can I make the harmony changes at every quarter note ?

3) Can I use different rates of harmonic rhythms ?

 

Best,

Julio

 

 

;;; Classical Accompaniment Exemple
;;;---------------------------------------------------------
;;; Parameters
;;;---------------------------------------------------------
;;; Motif definition
(setf mtf1 '((s c5 leg g5 leg e6 leg g5 c5 leg g5 leg e6 leg g5)))
(setf mtf2 (pitch-transpose 4 mtf1))
(setf mtf3 '((-q e5)))
(setf mtf4 '((-q g4c5)))
(setf mtf5 '((q c2 -)))

;;; Chords definition
(setf chords (library 'harmoprog1 'minor-4vx 'prog1))

;;; Ostinati
(setf ost1 (gen-repeat (length chords) mtf1))
(setf ost2 (gen-repeat (length chords) mtf2))
(setf ost3 (gen-repeat (length chords) mtf3))
(setf ost4 (gen-repeat (length chords) mtf4))
(setf ost5 (gen-repeat (length chords) mtf5))

;;; Tonality-map series
(setf tm-path (tonality-series chords))

;;; Here we apply the map 'tm-path' into arpegio sequence.
(setf ost1.map (tonality-map tm-path ost1))
(setf ost2.map (tonality-map tm-path ost2))

;;; Here we apply our library chords into chord sequence.
;;; The harmonic-path preserves the voice leading. 
(setf ost3.map (harmonic-path chords ost3))
(setf ost4.map (harmonic-path chords ost4))
(setf ost5.map (harmonic-path chords ost5))

(setf violin1 (ambitus '(g3 c7) ost2.map))
(setf violin2 (ambitus '(g3 c6) ost1.map))
(setf viola  (ambitus '(c3 e4) ost3.map))
(setf violoncello (ambitus-chord 12 (pitch-transpose -12 ost4.map)))
(setf bass ost5.map)

;;;---------------------------------------------------------
;;; Score and Layout
;;;---------------------------------------------------------
(def-score Classical-accomp
           (:title "Classical accompaniment example"
                   :composer "S.Boussuge"
                   :copyright "Copyright © 2018 s.boussuge"
                   :key-signature 'chromatic
                   :time-signature '((1 1 1 1) 4)
                   :tempo 80
                   :layout (bracket-group
                            (violin-layout 'violin1 :name "Violin-1")
                            (violin-layout 'violin2 :name "Violin-2")
                            (viola-layout 'viola)
                            (violoncello-layout 'violoncello)
                            (contrabass-layout 'bass)
                            )
                   )
  
  (violin1
   :omn violin1
   :channel 1
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 100
   :pan 48
   :controllers (91 '(68))
   )
  
  (violin2
   :omn violin2
   :channel 2
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 100
   :pan 48
   :controllers (91 '(68))
   )
  
  (viola
   :omn viola
   :channel 3
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 64
   :controllers (91 '(68))
   )
  
  (violoncello
   :omn violoncello
   :channel 4
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 80
   :controllers (91 '(68))
   )
  
  (bass
   :omn bass
   :channel 5
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 80
   :controllers (91 '(68))
   )
  )

 

Share this post


Link to post
Share on other sites

Hi Julio,

 

you can use the parameter :time for tonality-map and harmonic-path:

;;; Classical Accompaniment Exemple
;;;---------------------------------------------------------
;;; Parameters
;;;---------------------------------------------------------
;;; Motif definition
(setf mtf1 '((s c5 leg g5 leg e6 leg g5 c5 leg g5 leg e6 leg g5)))
(setf mtf2 (pitch-transpose 4 mtf1))
(setf mtf3 '((-q e5)))
(setf mtf4 '((-q g4c5)))
(setf mtf5 '((q c2 -)))

;;; Chords definition
(setf chords (library 'harmoprog1 'minor-4vx 'prog1))

;;; Ostinati
(setf ost1 (gen-repeat (length chords) mtf1))
(setf ost2 (gen-repeat (length chords) mtf2))
(setf ost3 (gen-repeat (length chords) mtf3))
(setf ost4 (gen-repeat (length chords) mtf4))
(setf ost5 (gen-repeat (length chords) mtf5))

;;; Tonality-map series
(setf tm-path (tonality-series chords))

;;; HARMONIC RHYTHM CONTROL
(setf harmonic-rhythm '(1/4))

;;; Here we apply the map 'tm-path' into arpegio sequence.
(setf ost1.map (tonality-map tm-path ost1 :time harmonic-rhythm))
(setf ost2.map (tonality-map tm-path ost2 :time harmonic-rhythm))

;;; Here we apply our library chords into chord sequence.
;;; The harmonic-path preserves the voice leading. 

(setf ost3.map (harmonic-path chords ost3 :time harmonic-rhythm))
(setf ost4.map (harmonic-path chords ost4 :time harmonic-rhythm))
(setf ost5.map (harmonic-path chords ost5 :time harmonic-rhythm))

(setf violin1 (ambitus '(g3 c7) ost2.map))
(setf violin2 (ambitus '(g3 c6) ost1.map))
(setf viola  (ambitus '(c3 e4) ost3.map))
(setf violoncello (ambitus-chord 12 (pitch-transpose -12 ost4.map)))
(setf bass ost5.map)

;;;---------------------------------------------------------
;;; Score and Layout
;;;---------------------------------------------------------
(def-score Classical-accomp
           (:title "Classical accompaniment example"
                   :composer "S.Boussuge"
                   :copyright "Copyright © 2018 s.boussuge"
                   :key-signature 'chromatic
                   :time-signature '((1 1 1 1) 4)
                   :tempo 80
                   :layout (bracket-group
                            (violin-layout 'violin1 :name "Violin-1")
                            (violin-layout 'violin2 :name "Violin-2")
                            (viola-layout 'viola)
                            (violoncello-layout 'violoncello)
                            (contrabass-layout 'bass)
                            )
                   )
  
  (violin1
   :omn violin1
   :channel 1
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 100
   :pan 48
   :controllers (91 '(68))
   )
  
  (violin2
   :omn violin2
   :channel 2
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 100
   :pan 48
   :controllers (91 '(68))
   )
  
  (viola
   :omn viola
   :channel 3
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 64
   :controllers (91 '(68))
   )
  
  (violoncello
   :omn violoncello
   :channel 4
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 80
   :controllers (91 '(68))
   )
  
  (bass
   :omn bass
   :channel 5
   :sound 'gm
   :program 'String-Ensemble-1
   :volume 90
   :pan 80
   :controllers (91 '(68))
   )
  )

Have a nice day

 

S.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×