Jump to content

marqrdt

Members
  • Posts

    26
  • Joined

  • Last visited

Everything posted by marqrdt

  1. Hi, It's likely I'm not fully understanding the integer-to-pitch function in this case, so any help is much appreciated. I have an arbitrary integer sequence with no repeated elements: (setf test-seq '(13 80 61 81 74 72 46 64 31 47 77 22 19 69 7 2 26 71 33 73 59 55 3 39 62 5 65 44 38 49 14 4 52 53 66 57 29 21 6 78 35 10 41 88 76 9 28 8 15 17 43 25 58 42 12 67 70 20 82 87 63 18 56 16 30 34 86 50 27 84 24 45 51 40 75 85 37 36 23 32 60 68 83 11 54 79 48 1)) ; all the notes on the piano ; I can see that the elements are unique: (equalp (length test-seq) (length (remove-duplicates test-seq))) t ; Here's what I'm failing to understand -- (integer-to-pitch test-seq) should not have any duplicates, but it does: (sort-asc (integer-to-pitch *my-log-seq* :quantize 1/2)) (cs4 d4 eb4 e4 f4 fs4 g4 gs4 a4 bb4 b4 c5 cs5 d5 eb5 e5 f5 fs5 g5 gs5 a5 bb5 b5 c6 cs6 d6 eb6 e6 f6 fs6 g6 gs6 a6 bb6 b6 c7 cs7 d7 eb7 e7 f7 fs7 g7 gs7 a7 bb7 b7 c8 c8 c8 cs8 cs8 cs8 d8 d8 d8 eb8 eb8 eb8 e8 e8 e8 f8 f8 fs8 fs8 g8 g8 gs8 gs8 gs8 a8 a8 a8 bb8 bb8 bb8 b8 b8 b8 c9 cs9 d9 eb9 e9 f9 fs9 g9) Perhaps I'm not fully understanding integer-to-pitch. Is there a better function I can use to map an integer to a unique pitch? Many Thanks, Paul Marquardt
  2. This is excellent -- and the feature to accept lists of lists is very helpful -- thank you
  3. 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
  4. Thanks -- that seems to work. It doesn't always give me what I expect, but I'm a fairly novice Lisper LOL.
  5. 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.
  6. 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.
  7. 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?
  8. 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?
  9. 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
  10. 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.
  11. 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!
  12. Yes-- I was able to run the latest version of Jack and version 1.0.15697 of Opusmodus. Thanks! Paul
  13. 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
  14. 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
  15. 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 >
  16. I ran dx86cl64 from the command-line following a fresh install of Opusmodus. After hitting Ctlr-C, I was able to get some sort of backtrace: prm-mbpro: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 >
  17. If this is of any help, I tried replacing the dx86cl64 in Opusmodus with the one installed by the Clozure CL app downloaded for the Apple Store. Clozure CL runs if I run it as an application, and I can evauate expressions. But if I copy it into the OpusModus application in Contents/MacOS (I backed up the existing one), I get the same problem-- the app hangs when opening. I also tried: 1. setthing the permissions to 777 in Opusmodus.app 2. Disk Utility -> System Disk -> Repair -> Repair Disk Permissions
  18. Hi, I'm having exactly the same problem running the Trial version on a MacBook Pro early 2008 and Mac Pro 2008. I ran the dx86cl64 executable through dtruss. I also have system_profiler output but prefer not to attach it here, since it contains extensive info on my system. I could email it separately if needed. The last 2 lines of the output are me hitting Ctrl-C in the dx86cl64 terminal process: 11040/0x1d0f38: sigreturn(0x7FFF5FBFEFB0, 0x1E, 0x264000) = 0 Err#-2 11040/0x1d0f38: sigreturn(0x7FFF5FBFEFB0, 0x1E, 0x264000) = 0 Err#-2 Update: The output is too long for the post. Is there a way I can email it to you? I hope this helps! Paul M.
  19. Hi, This software package seems to offer a large array of possibilities for a composer. I've especially impressed by the notation component. I did have a specific question though. I have a large set of utilities I've written in Java that I'd prefer not to have to port to another language. I am creating a web service for easy, language-agnostic integration with them. Does Opusmodus offer, either through its own library, or throug the underlying framework (I assume it's some form of LISP), a way to communicate with/query a web service? Thanks for any information. Also, a related question, possibly answered somewhere else, but I am assuming I could write my own set of tools in the language. Am I correct? Regards, Paul M.
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy