Jump to content

opmo

Administrators
  • Posts

    2,869
  • Joined

  • Last visited

6 Followers

Contact Methods

Profile Information

  • Gender
    Male

Recent Profile Visitors

17,331 profile views
  1. Well done Timothee, sounds great.
  2. 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.
  3. 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.
  4. 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
  5. Just open the file in your workspace (with some edit) and save. Autosave can't be disabled.
  6. 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)
  7. 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.
  8. 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) )
  9. 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.
  10. Not all publishing softwares are up to scratch with Music XML conversion, sadly.
  11. 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))
  12. (gen-loop 4 (list (rnd-pick (list bird1 bird2 bird3)) (rnd-pick (list rest1 rest2 rest3))))
  13. I never tried but the TAB clef is part of the system.
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy