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))
   )
  )

 

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.

Thanks a lot, Stephane !!

Best !

Julio