Jump to content

Recommended Posts

After a few days of testing and reading I'm starting to understand the power of OpusModus.  What would be beneficial to me (and perhaps other new users) is a collection of relatively simple scores.  I see references to such scores in the forums, but I cannot find them.  Perhaps they are not available in the newer versions of OpusModus?  Here is an example of a score I cannot find:

 

 

 

Link to post
Share on other sites

This is the kind of code I'm interested in.  It's short and useful for learning, especially for beginners.  The video is good, but I'm more interested in the code.  Is there a repository of code like this?

 

QuickTips - Classical Piano accompaniment.

(setf mtf '((s c4 g4 c5e5 g4 c4 g4 c5e5 g4)))
(setf mtf2 '((q c4 g4c5e5)))

(setf chords (library 'harmoprog1 'minor-4vx 'prog2))

(setf ost (gen-repeat (length chords) mtf))
(setf ost2 (gen-repeat (length chords) mtf2))

(setf tm-path (tonality-series chords))

(setf ost.map1 (harmonic-path chords ost))
(setf ost2.map1 (harmonic-path chords ost2))

(setf ost.map2 (tonality-map tm-path ost))
(setf ost2.map2 (tonality-map tm-path ost2))

(merge-voices ost.map1 ost.map2 ost2.map1 ost2.map2)

 

Link to post
Share on other sites
;;; 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 'prog2))

;;; 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 108
                   :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))
   )
  )

 

Link to post
Share on other sites

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