Jump to content

marqrdt

Members
  • Posts

    21
  • Joined

  • Last visited

Contact Methods

Profile Information

  • Gender
    Female

Recent Profile Visitors

3,673 profile views
  1. This is excellent -- and the feature to accept lists of lists is very helpful -- thank you
  2. 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
  3. Thanks -- that seems to work. It doesn't always give me what I expect, but I'm a fairly novice Lisper LOL.
  4. Is there a command or key combination to format Lisp code? I'm still learning the formatting standards for Common Lisp and more complex forms in my code are a total mess. I'm not seeing anything in Help -> Display Commands List... Thanks! Paul M.
  5. I see OpusModus 2.0 is scheduled for release soon-- I look forward to some of the new features. I've been running Catalina for several months. I used to have two Macs, where I could have them at different versions, but no I have only one with 10.15 Catalina. It's been several months since I've been able to use OpusModus. I'd like to know: 1. Will there be a pre-2.0 version that will be released with compatibility with OS Catalina 10.15? 2. If so, will it be a free or paid upgrade? 3. Will 2.0 be compatible with OS Catalina 10.15 when it comes out? Thanks in advance, Paul M.
  6. Hi, So I found what seems to be my license key. It's a string of 68 numbers and capital letters. When I paste it in the verification field to buy the upgrade, it returns "License Key can't be found in our database". Is there an alternate method to upgrade?
  7. Hi, I have OpusModus 1.2.23428 and am considering the upgrade to 1.3. It asks for a license key, but I can find it in the application itself (Help, About, Register, etc) or in other common places, such as $HOME/Library/Application Support, etc. What's the best way for me to get my license? Thanks! Paul M. Hot diggity dawg-- found the license email from 2015! It's safely stored away now In case I didn't, is there a recovery process?
  8. I find the permute function very useful, but I've some across the need to work with a very large number of permutations (all possible 12-note rows, but other situations as well). I think it would be great to have a companion function, something like nth-permutation, that returns the nth permutation of a list, as we know there will be (setq num-perms (factorial (length my-list))) permutations, and they can be traversed in a simple (loop from i upto num-perms (do-stuff (nth-permutation i))). For numbers beyond 10, the list is too large to store in memory. The Wikipedia article on permutations has some excellent strategies on cycling through all permutations one at a time and even offers some pseudo-code. I'm working on one in Common Lisp but I'm pretty much of a newbie. I'll gladly share it if I can get it working. Thanks! Paul
  9. Is there a function or some parameter I can set to avoid note collisions in chords? For a very simple example, to re-notate the chord (c4 cs4 e) as C, D flat, E. If not, another question-- maybe a way to set all D sharps to be notated as E flat, etc. Thanks! Paul M.
  10. Hi, Is there an OpusModus function (I'll bet there is) that can create lists (chords, etc) created from items selected from lists of varying lengths? Something like this: Source lists (3 lists): ( '(c4 d4 e4) '(f4 g4 a4 b4) '(cs4 ds4 fs4 gs4 as4) ) Output, successive items from each list: (list '(c4 f4 cs4) '(d4 g4 ds4) '(e4 a4 fs4) '(c4 b4 gs4) '(d4 f4 as4) '(e4 g4 cs4) ...) I'm having a great time learning LISP and OM (I come from Python/Java background mostly). I looked through the gen- functions, but nothing seemed to match. I was going to try to write a LISP function, but I figure there was already something in OM, as it seems geared towards these types of transformations. Thanks!
  11. Yes-- I was able to run the latest version of Jack and version 1.0.15697 of Opusmodus. Thanks! Paul
  12. Hi, I'm starting a new post for an issue where the trial version wouldn't load on older hardware for some users. This is more of a question than a request for support. I needed to uninstall Jack Audio on OS X to get Opusmodus to work. I even tried a newer version of Jack and had the same problem. I removed Jack and an happily using OPM. I will eventually need to reinstall Jack. My question is: Is Opusmodus known to work with Jack on newer hardware? I plan on updating my hardware at some point soon and could possibly do without it for a while (I'm doing less SuperCollider at the time being), but I would eventually need to run Jack on the machine running OPM. Thanks, Paul
  13. Hi, Thanks to Janusz for his direction in fixing the problem. All I needed to do was uninstall the Jack Audio Connection Kit (need to use the Uninstall.command, as it removes the components in /Library/Audio). ALso, a reboot is needed. This worked for me and hopefully will work for anyone else having the problem. Thanks! Paul
  14. Pardon if this is a repost, as my original post seems to have disappeared. I was able to download and install the latest Trial version on my MacBook Pro. I ran dx86cl64 from a command prompt. I ws able to get a console hitting Ctlr-C and post a backtrace: vajra:MacOS marqrdt$ ./dx86cl64 ; Warning: Interface file #P"/Applications/Opusmodus.app/Contents/Resources/ccl/darwin-x86-headers64/audiotoolbox/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Users/opusmodus/ccl/om-src/trunk/cdb/darwin-x86-headers64/iokit/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Users/opusmodus/ccl/om-src/trunk/cdb/darwin-x86-headers64/security/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Users/opusmodus/ccl/om-src/trunk/cdb/darwin-x86-headers64/seescorelib-mac/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Applications/Opusmodus.app/Contents/Resources/ccl/darwin-x86-headers64/webkit/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Applications/Opusmodus.app/Contents/Resources/ccl/darwin-x86-headers64/quartz/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Applications/Opusmodus.app/Contents/Resources/ccl/darwin-x86-headers64/cocoa/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ; Warning: Interface file #P"/Applications/Opusmodus.app/Contents/Resources/ccl/darwin-x86-headers64/libc/records.cdb" does not exist, and the containing directory does not exist. ; This may mean that that the "ccl:" logical-pathname host has not been properly initialized. ; While executing: CCL::CDB-OPEN, in process Initial(0). ^C> Break: interrupt signal > While executing: CCL::|-[NSApplication lispInterrupt:]|, in process Initial(0). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Return from BREAK. > Type :? for other options. 1 > :b (747DE0) : 0 (FUNCALL #'#<CCL::|-[NSApplication lispInterrupt:]|> 17591849974438) 685 (747E48) : 1 (%PASCAL-FUNCTIONS% 10 17591849974438) 365 (747F00) : 2 (FUNCALL #'#<Anonymous Function #x3000019908DF> #<CCL-APPLICATION <CCLApplication: 0x2454fba0> (#x2454FBA0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8FDACFC4>)) 173 (747F20) : 3 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|run|)> ???) 541 (747F58) : 4 (EVENT-LOOP NIL) 421 (747FA8) : 5 (FUNCALL #'#<(:INTERNAL GUI::COCOA-STARTUP GUI::START-COCOA-IDE)>) 853 1 > :b (747DE0) : 0 (FUNCALL #'#<CCL::|-[NSApplication lispInterrupt:]|> 17591849974438) 685 (747E48) : 1 (%PASCAL-FUNCTIONS% 10 17591849974438) 365 (747F00) : 2 (FUNCALL #'#<Anonymous Function #x3000019908DF> #<CCL-APPLICATION <CCLApplication: 0x2454fba0> (#x2454FBA0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8FDACFC4>)) 173 (747F20) : 3 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|run|)> ???) 541 (747F58) : 4 (EVENT-LOOP NIL) 421 (747FA8) : 5 (FUNCALL #'#<(:INTERNAL GUI::COCOA-STARTUP GUI::START-COCOA-IDE)>) 853 1 >
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy