JulioHerrlein

Opusmodus 3.0 for Windows ( Basic Install and Workflow Setup ) In this video there is a tutorial for the installation and setup of Opusmodus 3.0 for Windows computers. It also shows the Loop Midi Setup and integration with Reaper, Musescore and Libre Office. LINKS OPUSMODUS 3.0 - Windows https://opusmodus.com/forums/downloads/ LOOP MIDI - Virtual Midi ports - Tobias Erichsen https://www.tobias-erichsen.de/software/loopmidi.html REAPER https://www.reaper.fm/ MUSESCORE https://musescore.org LIBRE OFFICE https://www.libreoffice.org/ CHAPTERS 00:00 - Intro 00:59 - Install Opusmodus 02:41 - First Look at Opusmodus Standalone 04:25 - Midi Setup 05:23 - Loop Midi Install 05:53 - Virtual Ports Setup 06:30 - Selecting Midi Inputs and Midi Entry 07:00 - DAW Midi Loop Setup (Reaper) 09:19 - Def-Instrument-set creation and setup midi 11:42 - Preview Score with def-instrument-set using VST and Reaper 12:20 - OMN for creating musical ideas 12:44 - Using the Preview Score with VST sounds in Reaper 14:36 - Opusmodus and Notation Software - Musescore 15:21 - Opusmodus and word processor software - Libre Office

In the next days I´ll do a video about the Windows setup. The uninstall (if necessary) can be done in the Control Panel.

Yes, I was thinking about this other day... Best !

Dear All, What means multi layout ? For multiple instrument / voices ? :group Multi :multi (:layout multi-layout :port nil :channel 2 :sound 'gm :program 0 :controllers nil :pan (pan 0) :volume 92)

Thanks, Janusz ! Best !

Yes, but I really enjoy more the workflow of PS, because it´s quick and easy to evaluate. So, a sort of "empty-layout" would solve my need. Thanks a lot ! Best

(ps 'gm :sq (list vn1 vn2 vla vlc) :tempo 68 :output :audition) What is the solution if I need only the vn1 and vn2 with staves and vla and vlc just sounding without staves ? Can it be done in PS form ? Thanks a lot ! Best, Julio

Thanks, Janusz These keywords are already implemented in Opusmodus or will be implemented in the next release ? Best, Julio

Dear All, Is there some way to make a ps score with drums (or other instrument) just for hearing but not appearing in the score ? In Def-Score is possible. Is there some kind of layout like "empty-layout" to be used in PS ? Something like (def-instrument-set vst-wind :instruments (:group wind4tet ;optional :vst-flt (:layout empty-layout :port "WIFmidi01" ;here is the midi port name of your system. You can get the name using the (midi-destinations) function :channel 2 :pan (pan 40) :volume 90 ) Thanks a lot ! Best, Julio

Dear Tom, You can go like this: (load "/Users/osxname/Opusmodus/Quick Start/name_of_the_file.opmo") Best, Julio

Thank you ! Best !

Dear Janusz, I´d like to have my (musicxml-to editor) function opening in Musescore 3, because I´m not yet using the version 4 because it´s not opening multiple scores at the same time. Each file is a new instance of musescore... please, can you help ? Best, Julio I have a file called SourceCodeJulio.lisp containing the following lines inside the extensions folder, under user source of the Opusmodus main folder. (defparameter *snippet-clef-default* :treble-down8) (defun last-score-to-musescore () (compile-score *last-score* :output :musicxml :file "temp-last-score") (musicxml-to-editor "temp-last-score" :application "/Applications/MuseScore3.app")) (defun last-midi-to-musescore () (compile-score *last-score* :output :midi :file "temp-last-midi") (musicxml-to-editor "temp-last-midi" :application "/Applications/MuseScore3.app")) Also, the function now opens the Musescore 4 but not the temp files

Thanks ! The merit goes to Stéphane ! I was just trying to help a little. Best ! Julio

Thanks a lot, Stéphane ! Great ! Best ! Julio

Congrats, Stéphane !! Please, can you share the opmo file ? All the best ! Julio The link provided isn't working.

Thanks, Stéphane ! Best !

Yes. Thank you.

Thanks. It have to be constrained in one octave. I´ll remember to put modus before any octave independent use of tone-row.

Is this a wrong use ? (twelve-tonep '(c3 eb3 d3 f3 e3 g3 fs3 a3 gs3 b3 bb3 cs4)) why ?

Dear Janusz, Just for testing. When the octave changes, the function give wrong result. I´m doing a workaround putting before an (ambitus-octave c4 1 Best, Julio Maybe it´s better to embed the ambitus constraint in the function or something similar in order to get right results in any octave. Since the concept of "pitch class" is octave independent...

Dear Stéphane and Tom I did some edits in the Stéphane´s code. Some functions had names changed. Hope it can help. Best, Julio ;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf ph1.size 8) (setf bars (gen-repeat size '(4/4))) (setf pause (length-span bars '(-q))) (setf mode1 '(dorian :root d4)) (setf ph1.pitch (filter-repeat 1 (tonality-map mode1 (integer-to-pitch (vector-round 0 16 (vector-smooth 0.36 (gen-white-noise 256 :seed 772))))))) (setf ph1.len (euclidean-rhythm (gen-repeat ph1.size '(9)) 1 5 1/8 :seed 93)) ; :binary-to-length t) ; :len-val 'e ; )) ;; Antécédent (setf ph1.omn (make-omn :pitch ph1.pitch :length ph1.len )) ;; Conséquent (setf ph1b.omn (ambitus '(0 16) (tonality-map mode1 (pitch-variant ph1.omn :variant 'i)))) (setf ph1 (assemble-seq ph1.omn ph1b.omn)) ;; Tintinabuli ;; V1 (setf tint1a.pitchlist '(c4 e4 g4)) (setf tint1a.pitch (rnd-sample (* ph1.size 4) tint1a.pitchlist)) (setf tint1a.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 103)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1a.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1a.pitch :length tint1a.len )))) (setf tint1a tint1a.omn) ;; V2 (setf tint1b.pitchlist '(c3 e3 g3)) (setf tint1b.pitch (rnd-sample (* ph1.size 4) tint1b.pitchlist)) (setf tint1b.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 19)) ; 1/8)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1b.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1b.pitch :length tint1b.len )))) (setf tint1b tint1b.omn) ;; V3 (setf tint1c.pitchlist '(c2 e2 g2 c3)) (setf tint1c.pitch (rnd-sample (* ph1.size 4) tint1c.pitchlist)) (setf tint1c.len (euclidean-rhythm (gen-repeat (length ph1) '(9)) 1 2 1/8 :seed 17662)) ; :binary-to-length t ; :len-val 'e ; )) (setf tint1c.omn (filter-tie (tonality-map mode1 (make-omn :pitch tint1c.pitch :length tint1c.len )))) (setf tint1c tint1c.omn) (setf v1 ph1) (setf v2 tint1a) (setf v3 tint1b) (setf v4 tint1c) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (ps 'gm :sq (list (pitch-transpose 0 (ambitus 'violin v1)) (pitch-transpose 0 (ambitus 'violin v2)) (pitch-transpose 0 (ambitus 'viola v3)) (pitch-transpose 0 (ambitus 'cello v4)) ) :key-signature 'atonal :tempo 90 :flexible-clef nil :rewrite-lengths nil :accidentals :cautionary :merge-rests nil )

Dear Tom, Maybe it would be easier if you specify what kind of "rule" you imagine to implement the sequences. After that you could imagine many different ways to put this in movement, like randomizing the notes of the lines, shuffling the lines in a more specific way. And how would be the rhythmic and texture treatment ? And the instrumentation / voice layers ? Best !

Dear Friends, I was revisiting some 12-tone theory today and I found something strange: This returns NIL (twelve-tonep '(c3 eb3 d3 f3 e3 g3 fs3 a3 gs3 b3 bb3 cs4)) but this returns TRUE (twelve-tonep '(c4 eb4 d4 f4 e4 g4 fs4 a4 gs4 b4 bb4 cs4)) It´s the SAME tone-row NIL for this (twelve-tonep (pitch-transpose -12 '(c4 eb4 d4 f4 e4 g4 fs4 a4 gs4 b4 bb4 cs4))) TRUE for this (twelve-tonep (pitch-transpose 0 '(c4 eb4 d4 f4 e4 g4 fs4 a4 gs4 b4 bb4 cs4))) Maybe the algorithm to find the row is based in the c4 octave... I don´t know... Best

Thanks a lot, Janusz ! (get-bars-beats) would be useful and easier ! Best ! Julio

This is a suggestion for a function like get-bars-beats to be used in conjunction with get-beats ;;;This is an idea to get all the bars and beats from an OMN expression to be used/edited with GEN-BEATS (progn (setf omn-idea (gen-repeat 5 '((q b4 p<f tie+long) (q b4 s d5 mf ord g5 ord c5 ord e. a5 ord s b5 ord e5 ord fs5 ord d5 ord e g5 stacc c5 stacc a5 stacc - b5 stacc q e5 ord) (q gb4 p<f tie+long) (q gb4 s fs5 mf ord cs5 ord gs5 ord e. f5 ord s eb5 ord bb5 ord c5 ord fs5 ord e cs5 stacc gs5 stacc f5 stacc - eb5 stacc q bb5 ord) (q as4 p<f tie+long)))) (setf all-bars (cdr (gen-divide 2 (flatten (matrix-transpose (list (gen-divide 1 (gen-repeat (get-count (get-count omn-idea)) '(1))) (gen-divide 1 (gen-integer (get-count (get-count omn-idea)))))))))) (setf beats-zerobase (loop for i in (find-everyother 3 (flatten (get-time-signature (gen-divide 1 (get-span omn-idea))))) collect (gen-integer i))) (setf all-beats (gen-divide (get-count beats-zerobase) (loop for i in (flatten beats-zerobase) collect (+ 1 i)))) (setf all-bars-n-beats (matrix-transpose (list all-bars all-beats))) ) The result is this (((1 1) (1 2)) ((1 2) (1 2 3 4 5 6 7 8)) ((1 3) (1 2)) ((1 4) (1 2 3 4 5 6 7 8)) ((1 5) (1 2)) ((1 6) (1 2 3 4 5 6 7 8)) ((1 7) (1 2)) ((1 😎 (1 2 3 4 5 6 7 8)) ((1 9) (1 2)) ((1 10) (1 2 3 4 5 6 7 8)) ((1 11) (1 2)) ((1 12) (1 2 3 4 5 6 7 8)) ((1 13) (1 2)) ((1 14) (1 2 3 4 5 6 7 8)) ((1 15) (1 2)) ((1 16) (1 2 3 4 5 6 7 8)) ((1 17) (1 2)) ((1 18) (1 2 3 4 5 6 7 8)) ((1 19) (1 2)) ((1 20) (1 2 3 4 5 6 7 8)) ((1 21) (1 2))) Not yet appropriate to use in GET-BEATS, but close... All this could be made inside one function, to extract, bars and beats in the form of GET-BEATS function. Best, Julio