opmo

Thanks everyone, for looking into this and providing a solution. This is a very powerful and versatile function.

I will remove the duplicate notes in a chord before the process. I will add the chord-pitch-unique function into the function.
Will be fixed in the next release.

Hi,
 
Zoom into OM 4: gen-filter-euclidean is online now.
 
 
Best !
 
Stéphane

I think Torsten needs to make changes to his libraries to work with LW first.

May be this can help a bit, I've tried this:
 
(setf bass '(g2 c3 a2 e3 fs3)) (setf bassint (pitch-to-integer bass)) ;=> (-17 -12 -15 -8 -6) ;;; create a set of integers from interpolation ;;; between bass integers (bassint), ;;; then convert those to pitches (defun linear-interpolation (numbers steps) (let ((interpolated-numbers nil)) (loop for i from 0 below (- (length numbers) 1) for number = (nth i numbers) for next-number = (nth (1+ i) numbers) do (loop for j from 0 to steps do (push (+ (* (- next-number number) (/ (float j) steps)) number) interpolated-numbers) ) (push next-number interpolated-numbers)) (filter-repeat 1 (nreverse interpolated-numbers)))) (setf n-steps 4) (setf new-ints (mapcar 'round (linear-interpolation bassint n-steps))) (setf melody (integer-to-pitch new-ints)) (setf sop (filter-tie (make-omn :pitch (pitch-transpose 24 melody) :length '(e) :span :pitch ))) (setf bas (make-omn :pitch bass :length '(h) :span :pitch )) (ps 'gm :fl (list sop) :bn (list bas) :time-signature '(4 4)) SB.

(setf alist '(1/4 1/4 1/8 1/8 1/4 1/4)) (setf n 3) (length-invert '(1/4 1/4 1/8 1/8 1/4 1/4) :section (rnd-sample n (gen-integer 0 (1- (length alist))) :norep t))  

If you want to learn how to do a piece in less than one year 🙂 with Opusmodus, I recommend my Online course:
 
Introduction to Opusmodus (level 1) – Composer Workshop
WWW.COMPOSERWORKSHOP.COM This course is an introduction to Opusmodus, going from interface discovery to music composition using the powerful functions of this incredible music composition environment. <h3>Who this course is for</h3> This course is for people who want to learn algorithmic music composition and generative music techniques. No prior programming experience needed but basic knowledge of music is recommended for...  
Best !
Stéphane

Hi folks,
 
here's my new Zoom into OM video:
 
Best !
S.

You can't use pitches and articulation elements without length element.
 
(setf protochords (gen-repeat 5 (respell '(q eb2eb4g4bb4 arp-down c2c4e4ab4 ab2eb4ab4b4 arp-down d2d4f4a4 arp-down bb2d4f4bb4 arp-down g2eb4g4b4 arp-down c2c4eb4g4 arp-down ab2eb4ab4b4 arp-down d2d4gb4a4 arp-down bb2d4gb4bb4 arp-down g2d4g4bb4 arp-down c2c4eb4g4 arp-down ab2c4eb4ab4 arp-down f2db4f4a4 arp-down bb2db4f4bb4 arp-down g2d4g4bb4 arp-down eb2eb4gb4bb4 arp-down ab2c4eb4ab4 arp-down f2db4f4a4 arp-down d2d4f4a4 arp-down g2d4g4bb4 arp-down eb2eb4g4bb4 arp-down))))

(defparameter *default-notation-editor* "MuseScore 3.app")  
You find the instruction in the musicxml-to-editor doc.

Thank you @jon.
Please send me an personal post on any typos etc... you find in the Book 1.
Janusz
 
P.S. There are two more books in making. One by Julio Herrlein and one by Fabio De Sanctis De Benedictis.

Perfect time for it 🙂

To find out the midi ports setup of your system, please evaluate the (midi-destinations) function:
(midi-destinations) => ((0 . "Bus 1") (1 . "Bus 2") (2 . "Bus 3") (3 . "Bus 4") (4 . "Bus 5") (5 . "Bus 6") (6 . "Bus 7") (7 . "Bus 8") (8 . "Bus 9") (9 . "Bus 10") (10 . "Bus 11") (11 . "Bus 12") (12 . "Bus 13") (13 . "Bus 14") (14 . "Bus 15") (15 . "Bus 16") (16 . "Session 1") (17 . "Keyboard") (18 . "MIDI OUT") (19 . "UM-ONE"))  
There are two possible ways to assign a port. One is with the port number and the other is with the port name (a string).
(instrument :omn omn-form :port 0 :channel 1 :sound 'reaktor :program 1)  
now with a string:
(instrument :omn omn-form :port "Bus 1" :channel 1 :sound 'reaktor :program 1

You need to find this in the Logic manual.
 
Here are Stephane files that might be helpful. 
 

The first thing you need to do is to create a source file (.opmo or .lisp).
Give the file a name eg. Custom functions.opmo.
This file will now be the source file for your functions, make sure the functions are working and that there are no errors.
Save the file into the ~/Opusmodus/Extensions folder.
 
The next step is to document the functions that you have created.
Go to the ~/Opusmodus/System Library folder and create a new folder for example Custom Function.

This folder is where you will place your (TextEdit) .rtfd system library documents (the best way to create a new document is to copy the contents of one of the System Library’s documents and paste it into the newly created .rtfd file).
 
Now replace the function name i.e. variables, values etc… with your own examples and documentation. Each function must have its own document. Place the documents into the ~/Opusmodus/System Library/Custom Function folder.
 
The last step is to create a new file that must be named contents.opmo and place it into the same folder.
The form of the contents.opmo file should be written as follows:
 
;;; Custom functions (foo1 "here you write short note about the foo1 function") (foo2 "here you write short note about the foo2 function")
The next time you start the application you should be able to use and see your function documents in the ’System Library’ utilities panel.

Place the coursor on the end of the expression and press cmd-1
 
(tonnetz '(c4e4g4) transition          :net 11          :join 1          :rotate rotation)  
I would suggest to contact Stephane and take a introduction lesson.
All example in the How-to etc... are working 🙂
 
I copied the code and I don't see any errors:
(setf pitches '(c4 cs4 fs4 g4 c5)) (setf p-transp (pitch-transpose (pitch-to-integer pitches) (gen-repeat 5 (list pitches)))) (setf r-transp (gen-retrograde p-transp :flatten t)) (setf c-ambitus (ambitus '(c2 c3) p-transp)) (setf p-ambitus (ambitus '(c2 c3) p-transp :type :flat-invert)) (setf s-ambitus (ambitus '((c2 c3) (b2 f3) (g3 cs4) (fs4 g5) (c4 c5)) p-transp)) (setf lengths (span p-transp '(1/8))) (setf interlude (span s-ambitus '(1/16))) (setf dynamics (mclist '(p mp mf f ff))) (setq r-dynamics (mclist '(ff f mf mp p))) (setf p-rh1 (make-omn              :length lengths              :pitch p-transp              :velocity dynamics)) (setf p-lh1 (make-omn              :length lengths              :pitch c-ambitus              :velocity dynamics)) (setf p-rh2 (make-omn              :length interlude              :pitch s-ambitus              :velocity r-dynamics)) (setf p-lh2 (gen-pause p-rh2 :section '(0 1 2 3 4))) (setf p-rh3 (make-omn              :length lengths              :pitch r-transp              :velocity dynamics)) (setf p-lh3 (make-omn              :length lengths              :pitch p-ambitus              :velocity dynamics)) (setf rh-1 (assemble-seq p-rh1 p-rh2 p-rh3)) (setf lh-1 (assemble-seq p-lh1 p-lh2 p-lh3)) (setf timesigs (get-time-signature rh-1 :group '((5)))) (def-score lesson-16            (:key-signature 'chromatic             :time-signature timesigs             :flexible-clef t             :tempo 80             :layout (piano-layout 'piano-rh 'piano-lh))      (piano-rh    :omn rh-1    :channel 1    :sound 'gm    :program 'acoustic-grand-piano)      (piano-lh    :omn lh-1)   )  
Quit and restart the app and run the code from above.

The first value should be 0l (0L) 🙂 and not 01. '(01 0rl 0lr) (setf transition (rnd-sample 32 '(0L 0rl 0lr) :seed 90198)) (setf rotation (rnd-sample 32 '(0 -1 1) :seed 431458)) (tonnetz '(c4e4g4) transition          :net 11          :join 1          :rotate rotation)  
Any error has nothing to do with M1 or Intel processor.
Copy from html of pdf files will not always work - format problems.
Images are not helpful with errors, only code please.

Hi folks ,
 
the new Zoom into OM video session is now online:
 
Best
Stéphane

I just got the String Solo. After the release of Windows version I will make some sound sets for it.
 

Hi folks,
 
I'm very happy to announce the release of the first video pack lesson "Introduction to Opusmodus" on composerworkshop.com.
 
Composer Workshop
WWW.COMPOSERWORKSHOP.COM  
This introduction start with a quick "Crash course" to dive quickly into the software to get fun rapidly.
The second and third parts of this course goes more deeper into the exploration of the basics of Opusmodus like pitch generation, length generation, using MAKE-OMN, etc... This is an introductory course to our beloved software. I'm working now on future courses  packs on a bunch of different subject.
 
Naturally, the free Zoom into Opusmodus series continue with a weekly video release.
 
Happy Opusmodusing !
 
SB.

Dear all,
 
the video of the fist Zoom into OM is now online.
 
 
In future, the Zoom into OM will be only in video format delivered every weekend.
 
Best
 
Stéphane
 
 

Thank you for your support,
 
The video of the session will be soon available.
 
In future, the Zoom into Opusmodus sessions will be released only in video format, I think live is not mandatory and videos are more easy to do and to control regarding the quality.
But I will keep the 1 Zoom every weekend release rhythm 🙂
Happy Opusmodusing !
 
Stéphane
 
 

I got it working now. I didn't really do anything different from the other times, but maybe there was a file already sitting in the one of the files you mentioned above. I did a clean install of Opusmodus, checked the folders, and ran the loaded the file and now everything seems fine. Thank you.
 
Tim
 

Hi All,
 
I am on OsX 10.13.6, High Sierra, I have encountered a phenomenon that I think can be useful to share: in using CLM code, the system sample rate setting sets to 48000, so if after that I use SC code I have errors and it does not run. So it is necessary to go to system settings and set again the sample rate to 44100. You can use MIDI Audio Setup --> Audio devices for that.
 
Best
 
 
Fabio

Hi,
 
here's a new piece composed during a (long) travel by Bus.
 
It's made basically from 11 cells assembled and varied with the help of OM counterpoint function.
 
SB.