Stephane Boussuge

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.

(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

(setf pat1 (library 'slonimsky 'tritone nil :collect '(0 1))) (mapcar 'permute pat1) S.

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.

Absolutely not. SB.

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.

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

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

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.

New short piece for Piano. Stéphane Instant1-V1Edit03Render1.mp3 instant1v1-01Edit3.pdf Instant1V1-01.opmo

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.

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

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

Create a new workspace and add the document to it. Best. SB.

(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.

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.

Hi, here's a function I've made for myself. Best ! Stéphane add-interval-if-length.lisp add-interval-if-length.rtfd.zip

(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.

To output the content of a scale from Tonalities, you can also do like this: (expand-tonality '(c messiaen-mode6)) S.

May be length-span ?

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

Here it is. Happy Opusmodusing ! SB. PresentationGM.opmo

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.

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

Hi, may be some few private lessons with me could help. Kind regards Stéphane