-
Posts
2,869 -
Joined
-
Last visited
Contact Methods
- Website URL
Profile Information
-
Gender
Male
Recent Profile Visitors
17,333 profile views
-
opmo started following Opusmodus Update 3.0.29206 , Texture 1 , ADSF support for Opusmodus 3: could you please set :keep-modules to T when creating the Opusmodus delivery? and 7 others
-
Well done Timothee, sounds great.
-
opmo reacted to a post in a topic: Forme étrange pour piano
-
Please send me the bug form if it happens again. I use OM all the time and I don't have this kind of problems.
-
opmo reacted to a post in a topic: ADSF support for Opusmodus 3: could you please set :keep-modules to T when creating the Opusmodus delivery?
-
require is not ASDF, it is Common Lisp. To load ASDF system, you should use asdf:load-system, for example: (asdf:load-system :tot) This is how Opusmodus itself load third party code. Apparently SBCL made require use asdf:load-system. consist of multiple source files etc. That is the reason to use asdf:load-system.
-
Stephane Boussuge reacted to a post in a topic: ADSF support for Opusmodus 3: could you please set :keep-modules to T when creating the Opusmodus delivery?
-
torstenanders reacted to a post in a topic: ADSF support for Opusmodus 3: could you please set :keep-modules to T when creating the Opusmodus delivery?
-
opmo reacted to a post in a topic: Pillars Of Creation
-
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
-
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
-
opmo reacted to a post in a topic: Fuction for sequence polarity
-
opmo reacted to a post in a topic: Auto-save problems
-
Just open the file in your workspace (with some edit) and save. Autosave can't be disabled.
-
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)
-
Pricto reacted to a post in a topic: 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.
-
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) )
-
opmo reacted to a post in a topic: Non linear abstraction I
-
This process is unrelated to Opusmodus MIDI. Initially, one must construct a def-sound-set for this purpose. Within the Library, one can find examples demonstrating the method to configure the programs.
-
JulioHerrlein reacted to a post in a topic: Pedal on Piano
-
Not all publishing softwares are up to scratch with Music XML conversion, sadly.
-
Stephane Boussuge reacted to a post in a topic: Opusmodus Update 3.0.29206
-
JulioHerrlein reacted to a post in a topic: Opusmodus Update 3.0.29206
-
Additional DICTUM types: :grace-note and :previous Executes a specified function applied exclusively to grace note events. (:do (pitch-transpose 12 x) :grace-note t) Executes a specified function within the specified bar(s) exclusively to grace note events. (:do (pitch-transpose 12 x) :grace-note t :bar 2) This operation alters elements meeting certain predefined conditions from the preceding event, replacing them in the current event with a new element. Such conditional manipulation facilitates intricate, criteria-driven modifications. (:previous ff :do p) (:previous (h c4 f) :do (pp tr)) Example: (setf omn7 '((s fs3 mf d4 a4 c5 b4 f4 bb3 cs3) ((acc e f2 cs2) q c2 f stacc) (s e2 b2 gs3 e4 bb4 c5 bb4 e4) ((acc e gs3 b2) q e2 f stacc) (s c2 cs2 f2 cs3 bb3 f4 b4 c5))) (dictum '(:previous c5 :do (cs6 tr1+fermata)) omn7) => ((s fs3 mf d4 a4 c5 cs6 tr1+fermata f4 bb3 cs3) ((acc e f2 mf cs2) q c2 f stacc) (s e2 mf b2 gs3 e4 bb4 c5 cs6 tr1+fermata e4) ((acc e gs3 mf b2) q e2 f stacc) (s c2 mf cs2 f2 cs3 bb3 f4 b4 c5))
-
opmo reacted to a post in a topic: Miniature I from "Quatre miniatures en duo pour Violon et Piano"
-
Stephane Boussuge reacted to a post in a topic: rnd-pick doesn't seem to work with subsets of omn
-
LeopoldMozart reacted to a post in a topic: rnd-pick doesn't seem to work with subsets of omn
-
resolved rnd-pick doesn't seem to work with subsets of omn
opmo replied to LeopoldMozart's topic in Support & Troubleshooting
(gen-loop 4 (list (rnd-pick (list bird1 bird2 bird3)) (rnd-pick (list rest1 rest2 rest3)))) -
I never tried but the TAB clef is part of the system.