All Activity
- Yesterday
-
asamanthtexaxdz1036 joined the community
-
aidanptt4112 joined the community
-
jesele reacted to a post in a topic: Pillars Of Creation
- Last week
-
Jorgalad reacted to a post in a topic: Pillars Of Creation
-
opmo reacted to a post in a topic: Pillars Of Creation
-
Hi folks, a short electronic track in honor of Hubble telescope discovery... I've used the template shared here as starting point: Attached the Audio file, Opmo score and VCVRack. Best S. PillarsOfCreation.wav PillarsOfCreation.vcv PillarsOfCreation.opmo
-
Hi folks, Here's an example using a template for Opusmodus and vcvrack. Feel free to use it as a starting point for your own experimentations, VCVRack is free and driving it with OM is a great fun ! Attached to this post, the 2 files used in this short video example. That file will be probably available in the next OM update. Enjoy ! VCVRackTemplate1.opmo VCVRackTemplate1.vcv
-
znathantxaxd1613 joined the community
- Earlier
-
This is excellent -- and the feature to accept lists of lists is very helpful -- thank you
-
marqrdt reacted to a post in a topic: Fuction for sequence polarity
-
Stephane Boussuge reacted to a post in a topic: Fuction for sequence polarity
-
opmo started following Fuction for sequence polarity
-
Is this what you are looking for: (defun polarity (seq &key sum) (do-verbose ("polarity") (flet ((polarity-i (in-seq) (let ((integers (if (omn-pitchp (car in-seq)) (pitch-to-midi in-seq) in-seq))) (when (equal (length integers) 0) return 0 ) (let ((accum 0) (int-pairs (interval-class integers))) (mapcar (lambda (x) (when (evenp x) (incf accum) )) int-pairs) (/ (* accum 1.0) (- (length integers) 1)) )))) (let ((result (loop for i in (lists! seq) collect (polarity-i i)))) (if sum (/ (find-sum (flatten result)) (length result)) result))))) (polarity '(1 3 6 4 2)) => (0.75) (polarity '((c4 e4 c3 ds4 b5) (c4 cs4 d4 ds4 f4))) => (0.75 0.25) (polarity '((c4 e4 c3 ds4 b5) (c4 cs4 d4 ds4 f4)) :sum t) => 0.5
-
Stephane Boussuge reacted to a post in a topic: Fuction for sequence polarity
-
opmo reacted to a post in a topic: Fuction for sequence polarity
-
OMers, I wrote this function and use it in my composition work. Please feel free to steal use it. It returns the "polarity" of a sequence, defined as the ratio of consecutive uneven and even interval classes (IC) in a sequence. I use this as a way of testing if a generated sequence contains a balanced mix of even or uneven ICs. (defun polarity (in-seq) (when (equal (length in-seq) 0) return 0 ) (let((accum 0) (int-pairs (interval-class in-seq))) (mapcar (lambda (x) (when (evenp x) (incf accum) )) int-pairs) (/ (* accum 1.0) (- (length in-seq) 1)) ) ) Some examples: ;; The polarity of a chromatic scale is 0.0, as there are no even interval classes. OM 9 > (polarity '(0 1 2 3 4 5 6 7 8 9 10)) 0.0 ;; The polarity of a whole-tone scale is 1.0, as there are no uneven interval classes. OM 10 > (polarity '(0 4 8 2 6 10)) 1.0 ;; The polarity of a chromatic scale is 0.0, as there are no even interval classes. OM 9 > (polarity '(0 1 2 3 4 5 6 7 8 9 10)) 0.0 ;; The polarity of a sequence of alternating even and uneven ICs is 0.5. OM 14 > (polarity `(0 6 11 5 10 4 9 3 8 2 7 1 6)) interval-class Right now it only works on sequences of numbers and there's no error handling. I would appreciate very much any advice on a concise and OM-ian way to extend it to accepts either integers or pitch symbols like '(c4 fs4 b4 f5 bb5). Thanks! Paul Marquardt
-
opmo reacted to a post in a topic: Auto-save problems
-
strumm started following Auto-save problems
-
I concur with the original poster. It is happening every time I use Opusmodus, and the pop up dialog doesn't work, so you are stuck. My new workflow before I ever start Opusmodus is to go to Finder, and delete all autosave files. Strange, this seems to be working now properly for me. I guess I can stop that workflow of deleting the autosave files.
-
paul started following triplet with different lengths
-
is it possible to write a dotted quaver followed by a semiquaver and a quaver in a triplet please?
-
JulioHerrlein reacted to a post in a topic: Get-Time-Signature to Length-Span
-
opmo started following Auto-save problems
-
Just open the file in your workspace (with some edit) and save. Autosave can't be disabled.
-
vpolajnar started following Auto-save problems
-
Dear OPMO users, I have a problem with Auto-Saving files. Almost always I get this attached error or notification. Is it possible to disable auto-save option, since it is creating a bit mess, sometimes opens older file etc..
-
JulioHerrlein reacted to a post in a topic: append item to all sublists
-
Music xml import, convert to Score?
JulioHerrlein replied to Andy's topic in Support & Troubleshooting
Dear Friends, This feature was implemented ? All the best ! Julio -
Get-Time-Signature to Length-Span
JulioHerrlein replied to JulioHerrlein's topic in Function Examples
Thanks a lot Stephane and Jesper ! Best ! -
Or (mapcar (lambda (x) (sum (mapcar 'abs x))) ritmos) Jesper
-
Completely agree with this request. It’s also possible on IRCAM’s Open Music.
-
Thank you for the hint; I now updated my version and it works just fine.
-
Yup, that avoids one step, Stephane. I have to study the built-in functions some more. Jesper
-
Get-Time-Signature to Length-Span
Stephane Boussuge replied to JulioHerrlein's topic in Function Examples
Hi Julio, you can use get-span function: (setf ritmos (gen-repeat 4 (gen-length '((1 2 1 2 1 1) (1 1 1 1 1 2 1) (1 -3 1 -3 2 -2 4) (-3 1 -1 1 1 1)) '(16)))) (get-span ritmos) => (1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2) S. -
Hi Julio. Maybe something like this will work. Jesper (setf tst '((2 4 2) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 1))) (defun foo (lst) (flatten (loop for x in lst collect (make-list (caddr x) :initial-element (/ (car x) (cadr x))))) ) (foo tst) ->(1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2 1/2 1/2 1 1/2)
-
Dear All, One interesting conversion would be the one for transforming the get-time-signature result to length-span time signature format. This would be useful to rephrase rhythmically one rhythm with another´s rhythm time-signature structure. For example: ; Take this rhythm (setf ritmos (gen-repeat 4 (gen-length '((1 2 1 2 1 1) (1 1 1 1 1 2 1) (1 -3 1 -3 2 -2 4) (-3 1 -1 1 1 1)) '(16)))) Here is the bar structure for this (get-time-signature ritmos) This is the output ((2 4 2) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 3) (4 4 1) (2 4 1)) If I want to use this result as a time signature template in the length-span I have to convert it to (2/4 2/4 1 2/4 2/4 2/4 1 2/4 2/4 2/4 1 2/4 2/4 2/4 1 2/4) in order to use the time-signature order it in the length-span function Is there some function that performs this ? Best ! Julio I did this extravagant coding , but I need it with the slashes ( " / " ) and the repetitions, like converting (2 4 3) into (2/4 2/4 2/4)... (setf timesig-to-length-span (flatten (matrix-transpose (list (lake-everyother (get-count (get-count (get-time-signature ritmos))) ; how many 0 3 (flatten (get-time-signature ritmos))) (lake-everyother (get-count (get-count (get-time-signature ritmos))) ; how many 1 3 (flatten (get-time-signature ritmos))) ) )) ) ;;(2 4 4 4 2 4) I love lake-everyother
-
opmo started following length-span producing odd note values
-
My results are different. What version you are using? (length-span 4 (rnd-sample 40 '(4/14 5/14 6/14)) :omn t) => (7d. 7d = 7d. = 7d 7dh = = 7d. 7dh) With random selection it is possibile, at the end, you endup with 1/14 value: (2/7 3/7 2/7 2/7 3/7 5/14 5/14 2/7 2/7 2/7 2/7 5/14 1/14)
-
Veit started following length-span producing odd note values
-
I am trying to get a random series of lengths from the list (4/14 5/14 6/14) to span over a certain time, in this case 4 bars. (length-span '4 (rnd-sample 40 '(4/14 5/14 6/14))) The result keeps including tied sixteenth notes, although I want to limit the score and rhythm to two eighth septuplets per bar (with ties). I also tried to include quantize as a second grid which didn't help to "clean" the result. Am I making a mistake here or is this some kind of bug?
-
smanthativanovoz4737 joined the community
-
loganittlez3706 joined the community
-
opmo started following Activation on Mac and PC
-
Yes, it is. Your license permits you to activate Opusmodus on two personal computers that you own, under the condition that the program is used on only one computer at a time.
-
frawleyavery joined the community
-
Pricto started following Activation on Mac and PC
-
Is it possible to activate the license on two different computers with different OS? A Mac and a PC?
-
Pricto joined the community
-
There is no need to do what you are doing. The best way to setup the port is by number. There is no need for midipipe etc... (def-score exp (:key-signature 'chromatic :time-signature '((1 1 1 1) 4) :tempo 60 :layout (grand-layout '(rh lh))) (rh :omn rh :port 0 :channel 1 :sound 'Minilogue) (lh :omn lh) )
-
Dear Ottorino, In OSX, all the midi inputs configured in MIDI Studio setup (of the OSX system itself) will be available. Maybe this behaviour of the notes appearing and then disappearing can be due to doubling the midi information at some point. Maybe the other software, like midipipe are doing some duplication or filtering off the notes.
-
Regarding PROBLEM 1 with MIDI-In: Is the OMN MIDI-Entry process using a library? I didn't find any information on that (? midi-entry.pdf). And if not, I would like to have the possibility to make a workaround with external software, (to bring the MIDI-Entry to work), like I did with MIDI-Out and the MIDIPipe software, but it is not possible, because there is no transparent MIDI-in port in OM I could choose. (I'm sorry, I'm not an expert in MIDI programming, perhaps I dont understand basic things). Until now I dont know how to use Korg minilogue XD as midi-entry keyboard in OM for OMN-entry over MIDI, because it does not work - it shows a silly behaviour deleting again already entered notes ... Regarding PROBLEM 2 with MIDI-out: this one I did, (it was the attached file "korg_minilogue_xd_debug.lisp") my problem is, it doesn't work as it should. It works only WHEN piping the OM Midi-out through the external software "Midipipe") ... I did it: here the code of the def-sound-set I wrote and used in the test: And here is the code of the testing-file: NOTE: [in the testing-file I use the function "get-port-nr" here the code: ] I hope you can help me ... Best regards!