[Code for "Stéphane Boussuge : Motivic cell technique explorations with Opusmodus"]

Here it is.

 

Happy Opusmodusing !

 

SB.

PresentationGM.opmo

[Sonuscore TOC 2 Sound Set]

Hi,

 

I've made this long time ago, if it could help...

 

(in-package :Opusmodus)

;;; Kontakt sonuscore - The Orchestra - generic
;;; keyswitches events

(def-sound-set to-generic
               :programs
  (:group articulations
          staccato (:key c1)
          sustain (:key cs1)
          marcato (:key d1)
          legato (:key ds1)


:group omn
          stacc (:key c1)
          spicc (:key c1)
          ord (:key cs1)
          norm (:key cs1)
          def (:key cs1)
          marc (:key d1)
          leg (:key ds1)
          trem (:key e1)
          pizz (:key f1)
          
)
 :controllers
  (:group Default-Settings
          
          Volume              7
          Expression         11
          
                    
  ))

SB.

[merge lengths with same pitches]

(filter-tie '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (h. c4 mf wq eb4)

 

 

also this could be useful as well but Janusz probably can program it much better:

 

(defun filter-change (omn-lst)
  (make-omn
   :pitch (omn :pitch omn-lst)
   :length (binary-map (gen-binary-change (omn :pitch omn-lst)) (omn :length omn-lst))
   :velocity (omn :velocity omn-lst)
   :articulation (omn :articulation omn-lst)
   :swallow t
   ))

(filter-change '(e c4 c4 e. c4 q c4 s c4 e eb4 e. eb4 h eb4 e. eb4 q eb4))
=> (e c4 - -e. -q -s e eb4 -e. -h -e. -q)

 

[Melody over chord progression tutorial pointers]

Hi,

 

may be some few private lessons with me could help.

 

Kind regards

Stéphane

 

[Visions Fugitives]

Very nice, thank you for sharing.

 

Best

 

Stéphane

 

[Pairs of digits as sublists?]

My solution with loop:

 

(loop 
  for n1 in (rnd-number 100 1 2)
  for n2 in (gen-integer 1 100)
  collect (list n1 n2))

S

[Span Slurs to Measures]

You forgot to provide the content of chord variable and vector-chords so I can't help.

 

S.

[Pairs of digits as sublists?]

Hi Zvony,

here's a possible solution:

 

(setf list1 (rnd-number 100 1 2))
(setf list2 (gen-integer 1 100))

(setf interleaved-list (matrix-transpose (list list1 list2)))

S.

[pitch-trajectory]

It is also possible to map on pitch fields that way:

 

;;; Mapping on pitch-field

(pitch-list-plot
 (tonality-map
  (append (chordize (make-scale 'c2 24 :alt '(2 1 6 5 4))) '(:map 'step ))
  (pitch-trajectory 128 '(0 23) '(0.1 1 0.1) 
                   :filter-repeat 1
                   :variance 0.8
                   
                   )))

 

You can use different fields that way:

 

(setf pfields (list
               (chordize (make-scale 'c2 24 :alt '(2 1 6 5 4)))
               (chordize (make-scale 'c2 24 :alt '(3 1 2 4)))
               (chordize (make-scale 'c2 24 :alt '(2 2 2 1)))
               ))

(setf path (tonality-series pfields :map '(step)))

(pitch-list-plot
 (tonality-map
  path
  (gen-eval 
   3
   '(pitch-trajectory 128 '(0 23) '(0.1 1 0.1) 
                     :filter-repeat 1
                     :variance 0.2
                     
                     ))
  ))

 

And also use the :time parameter from tonality-map system if you use OMN expression:

 

;;; Example with omn without :time parameter
(pitch-list-plot
 (tonality-map
  path
  (gen-filter-euclidean
   12 16 11 16
   (pitch-trajectory 128 '(0 23) '(0.1 1 0.1) 
                     :filter-repeat 1
                     :variance 0.2
                     ) 
   's)
  ))

;;; Same with :time parameter

(pitch-list-plot
 (tonality-map
  path
  (gen-filter-euclidean
   12 16 11 16
   (pitch-trajectory 128 '(0 23) '(0.1 1 0.1) 
                     :filter-repeat 1
                     :variance 0.2
                     ) 
   's)
  :time '(h w)))

S.

[convert-to-binary]

Very interesting, thanks !

[Open web link in Assistant?]

20 hours ago, born said:

Is this feature still existing?

Achim

Not actually, it was removed for technical reasons.

 

Best

 

Stéphane

[Septuor "Trapped in process"]

 

[Short study, Melody on texture]

Hi,

here's a short experiment/study composed today for mezzo-soprano, flute, clarinet and bassoon.

 

Score is a bit commented for clarity and study purpose.

 

All the best to all OM users.

 

SB.

 

 

MelodyOnTexture1GM.opmo

[Trapped Septuor 413188]

Hi,

 

one more output just for fun !

 

S.

 

 

[Trapped Septuor 413188]

Hi,

 

here's one of raw outputs from an Opusmodus score I'm working on actually.

 

That's a work in progress but will be fully documented later in the future...

 

Stéphane

 

Trapped-Septuor-413188.pdf

[Producing new lines of pitches of various lengths, all ending on the same bar.]

Hi Tom,

hope this help...

 

(setf pitches '(fs3 e3 gs3 b2 a3 fs4 d4 b5 e4 gs4 fs4 gs4 cs4 fs4 b3 e4 fs4))
 
(setf basspitches '(fs2 cs3 a2 e3 fs3 d3 b3 gs3 cs4 e3 cs3 fs3 d3 b3 gs2 fs2))

;; generate some length for basspitches
(setf basslen (rnd-sample (length basspitches) '(1/2 1/4)))

;; get the span of basslen
(setf basspan (get-span basslen))

;; generate some length for pitches 
(setf pitcheslen (rnd-sample (length pitches) '(1/2 1/4)))

;; apply the span of basslength to pitchlen using the length-span function

(setf pitcheslen-spanned (length-span basspan pitcheslen))

;; Assemble the material into 2 OMN phrases

(setf ph1 (make-omn
           :pitch pitches
           :length pitcheslen-spanned
           ))

(setf ph2 (make-omn
           :pitch basspitches
           :length basslen
           ))

;; Output the 2 phrases
(ps 'gm :afl (list ph1) :bn (list ph2))

 

S.

[Counterpoint Compilation Time]

Hi,

 

some small corrections :

 

(progn
  ;; Global SEED
  (init-seed 15342)
  
(setf melody1a (length-augmentation 2'((-h. q g4) (q. g4 e e4 q e4 -q) (-h. q g4) (q. g4 e d4 q d4 -q) (-h. q e4) (q f4 g4 a4 b4) (h. g4 -q))))
(setf melody1b (length-augmentation 3 '((-h. q g4) (q. g4 e e4 q e4 -q) (-h. q g4) (q. g4 e d4 q d4 -q))))

;; Patterns
(setf scale '(c4 eb4 f4 g4 ab4))
 (setf
   p1 (tonality-map '(scale :map octave :closest up) melody1a)
   p2 (tonality-map '(scale :map octave :closest up) melody1b)
   )
  
  (setf patterns (list p1 p1 p2))
  
  (setf dictum-a '(((1 2 3) :methods ((dl1) (dl1 t-12 pr1) (dl1 t-24)))))
   
   
  
  ;; Sections
  (setf sec-a
        (counterpoint
         patterns dictum-a
        ))
  
  ;; Assemble Voices 
  (assemble-voices 'voice sec-a)
  
  ;; Preview Score
(ps 'gm 
    :hn (list voice1)
    :tbn (list voice2)
    :tbn (list voice3)
    :time-signature '(4 4)
    )
  
  ;; Global SEED back to NIL
  (init-seed nil)
  )

S.

[pitch-trajectory]

Hi,

 

here's a function I've made for my personal usage.

May be it could be useful for some users...

Best

 

Stéphane

 

;;;===================================
;;; PITCH-TRAJECTORY
;;;===================================
;;; SB 1.11.21
;;;===================================
(defun pitch-trajectory (nbpitch range tendency 
                                 &key 
                                 (variance 0.5) 
                                 (type :around) 
                                 (quantize 1/2) 
                                 (smooth 1)
                                 filter-repeat
                                 seed
                                 )
  (setf seed (rnd-seed seed))
  (do-verbose ("pitch-trajectory :seed ~s" seed)
  (let* ((values (gen-tendency nbpitch tendency :variance variance :type type 
                           :seed (seed)))
         (smoothedval (vector-smooth smooth values))
         (out (vector-to-pitch range smoothedval :quantize quantize))
         )
    (if filter-repeat 
      (filter-repeat filter-repeat out)
      out))))


#|
;;; Tests divers
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234)
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 :filter-repeat 1)
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :variance 1
                  )
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :variance 0.1
                  )
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :smooth 0.1
                  )
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :quantize 1/4
                  )
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :quantize 1/8
                  )
(pitch-trajectory 32 '(c4 g5) '(0.1 1 0.1) :seed 1234 
                  :filter-repeat 1
                  :variance 1
                  :quantize 1/8
                  )



(gen-filter-change 
 (pitch-trajectory 
  32 '(c4 g5) '(0.1 1 0.1) :seed 1234)
 's)


|#

 

[Monterey]

you may try to not open a workspace but directly an .opmo document and evaluate. 

actually, I don't have M1 or Monterey so I don't know if it could work but if yes, it could be a temporary solution.

 

Stéphane

 

 

[String Quartet VEMA (in progress)]

Very good !!

 

Bravo !

 

S.

[[HERRLEIN] Hauer Tropes as Clockface Diagrams: Dialogs among Forte, Carter and Ŝedivý - MUSMAT 2021]

Fab !

[A.S. Mailbox live performance !]

Excellent, congrats !

 

[Méditation for String quartet]

Small update to the final Conductor score and audio file.

 

Best !

 

Stéphane

 

[Méditation for String quartet]

Hi,

 

here's a short score composed for string quartet.

 

All the best to all OM users !

 

Stéphane

 

stephaneboussuge · Méditation

 

MeditationPourRené.opmo

01 - Conducteur - Méditation.pdf

[Counterpoint Question - use of variable for harmony keyword]

Another good complet  list can be found  in function list under Tonality and Modes.

 

SB.