[setf]

See attached video.

 

S.

[setf]

(setf rh '((h c4e4)(w d4f4a4)))
(setf lh '((q c3 g3)(q g3 e3)))

(ps 'gm :p (list rh lh) :tempo 64)

Here's a short example.

 

SB.

[New sessions with v3]

Hi,

 

Yes I'm working on future "Zoom into Opusmodus" and a full website dedicated to OM and will start in January.

 

Best

 

SB.

[Opusmodus V3 is here !]

A short video (in French) showing quickly the new look and feel of our favorite software.

(Sorry for the bad sound quality, will be better in future videos.)

 

https://youtu.be/KVsAizG7TzU

 

 

This new version is really fantastic and I love this new organisation of files and the fantastic score notation display.

[Slonimsky Stuff HELP]

You can't modify this file.

 

You can create another Library (with a different name) by copy and past and extend it as you wish.

 

S.

[Slonimsky Stuff HELP]

(setf perm (assemble-seq (mapcar 'permute pat1)))

 

SB

But if you want to alternate permutations of s1UP and s1down, you can do this:

 

(setf s1u (library 'slonimsky 'tritone 's1u))
(setf s1d (library 'slonimsky 'tritone 's1d))
 
(setf s1u.perm (permute s1u))
(setf s1d.perm (permute s1d))

(setf pch (assemble-seq
	   (loop for i in s1u.perm
		 for j in s1d.perm
		 collect (list i j))))
 
(setf ry1 '((s s s s s s s s)))
 
(setf Gmaj7.omn
     (make-omn
      :pitch pch
      :length ry1
      :span :pitch
 ))

SB

[Slonimsky Stuff HELP]

(setf pat1 (library 'slonimsky 'tritone nil :collect '(0 1)))

(mapcar 'permute pat1)

S.

[Slonimsky Stuff HELP]

Dear David; to call s1u and s1d you can do:

 

(list
(library 'slonimsky 'tritone 's1u)
(library 'slonimsky 'tritone 's1d)
)

or 

(library 'slonimsky 'tritone nil :collect '(0 1))

S.

[Apple M1 Arm processor?]

6 hours ago, mark-syd said:

Okay. Nice. I'm assuming this is a prettied-up port of Common Music Notation?

Absolutely not.

SB.

[Evaluation]

Hi,

 

the code don't necessary needs to be wrapped in a progn.

 

but, at least, each time you change something, that line as to be evaluated and the def-score or PS as well.

 

But if the code is not too heavy, it is generally faster to evaluate the whole file (right click and Evaluate and Live coding or Ctrl+Cmd +8 for a normal def-score.

If you use a ps with the option :output :live-coding, you can just use evaluate all (CMD+MAj +E)

 

SB.

 

 

[Sending Midi out on different channels from the same instrument]

Unfortunately, it is not possible directly from Opusmodus.

I'm using UVI Ircam instruments as well and I host them in Plogue Bidule and use a Plogue bidule module (Keyswitch module) to transform key switch from Opusmodus to Midi channel change in Bidule before to send to the Plugin.

This is also probably possible in Logic Pro with the Midi scripter if you don't have Plogue Bidule....

 

Stéphane

[Chords above staff]

I think this is not possible in a snippet, may be in a def-score by removing the lines from the staff but I'm not sure....

 

 

[Chords above staff]

Something like that ?

 

'((h (b3 maj7) (d3 7))
  (h (g3 maj7) (bb3 7))
  (w (eb3 maj7))
  (h (a3 m7) (d3 7))
  (h (g3 maj7) (bb3 7))
  (h (eb3 maj7) (gb3 7))
  (w (b3 maj7)) (h (f3 m7) (bb3 7))
  (w (eb3 maj7)) (h (a3 m7) (d3 7))
  (w (g3 maj7)) (h (cs3 m7) (fs3 7))
  (w (b3 maj7)) (h (f3 m7) (bb3 7))
  (w (eb maj7)) (h (cs3 m7) (fs3 7)))

SB.

[Instant No.1 pour Piano (2022)]

New short piece for Piano.

 

Stéphane

 

 

instant1v1-01Edit3.pdf Instant1V1-01.opmo

[Matching length of lists]

Another possible way:

 

(setf chords '(c4e4g4 e4g4c5))
(setf durations '(q e q e s))
                   
(setf repetitions '(7 1 6 2 5 3 4 4))

(setf out (gen-repeat
           repetitions
           (make-omn
            :pitch (mclist chords)
            :length (gen-trim 
                     (length repetitions) 
                     (mclist durations))
            )))

S.

[Distribute Stream option/keyword]

Hi Julio,

 

the distribution is not made according to beats but just in order based on delta-time.

 

But I agree I would like to have more control on distribution like the possibility to distribute list of pitch structure on vertical events (events with the same delta time) to be able to get a better control on the resultant harmonies.

 

Best

 

Stéphane

 

[Generation of appoggiatura and accacciatura]

In many scores, Pierre Boulez use a lot of accacciatura or appoggiatura , for exemple like in Dérive (1984), a score composed for and based on the name SACHER (famous hexachord used also in "Message esquisse").

 

Here's a function to help to add such appoggiature in your score based on a list of rhythmic values.

There is a draft doc in French joined to the function definition.

 

Hope it could be useful for some of us and may be improved and better coded and refined.

 

My best to all of Opmo users.

 

SB.

 

gen-ornament.lisp gen-ornament.rtfd.zip

[two scores side by side possible?]

2 hours ago, o_e said:

But I would be also good to know, how I can open multiple (different) workspaces as you suggested..?

 

Create a new workspace and add the document to it.

 

Best.

 

SB.

[Dictum question]

(setf omn4 '((e b4 fs5 e3 a5) (e e5 b5 c4) (e g5 a4 eb3 d4)
             (e c6 b5 a4) (e c5 eb5 gs4) (e b4 f5 f5 fs5 gs5 a5)
             (e cs4 g4 c6) (e gs5)))

(dictum '((:butlast leg :bar (1 3 6))
          (:apply stacc :bar (2 4 5))
          (:any e :apply q :bar (1 3 6))
          (:first p :bar 1)
          (:apply < :bar 1 :event 2..4)
          (:apply < :bar 2 :event 1..2)
          (:apply ff :bar 4)
          (:apply > :bar 5)
          (:first pp :bar 7)
          (:apply < :bar 7 :event 2..3)
          (:apply fff :bar 8)
          (:last fermata :bar 8)) omn4)

S.

[Convert pitch to chord based on length]

Another possibility is to generate ONLY chords and "dechord" all events between some length values like this:

 

(setf omn (make-omn
           :pitch (chord-pitch-unique
                   (chordize-list 
                    (gen-divide 
                     4 
                     (rnd-sample 
                      256 
                     (make-scale 'd4 8 :alt '(2 1 3))
                     ))))
           :length (rnd-sample 24 '((h q q)(s s s s q e e)(3q = = q h)(h h)(q e e q)))
           ))


(setf omn2 (dictum '((:range (t e) :apply (dechord x))) omn))

S.

[Convert pitch to chord based on length]

Hi,

 

here's a function I've made for myself.

 

Best !

 

Stéphane

 

add-interval-if-length.lisp add-interval-if-length.rtfd.zip

[Using variables for keywords, possible?]

(setf test '((q a4 mf e a4 p e gs4 f  e4 mp g4 p) 
               (q a4 e e gs4 e4 d4)))
(setf one '(1 3))
(dictum `(:remove :event :bar 1 :event ,one) test)

S.

[Tonalities]

To output the content of a scale from Tonalities, you can also do like this:

 

(expand-tonality '(c messiaen-mode6))

S.

[trim-to-time-signature function ?]

May be length-span ?

[Question: Why does length-syncopate modify pitch?]

It is written in the doc - the intervals used by default are (-1 1 -2 2).

 

S.