# marqrdt

Members

21

## Posts posted by marqrdt

### Fuction for sequence polarity

This is excellent -- and the feature to accept lists of lists is very helpful -- thank you

### 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

### Formatting Lisp code

Thanks -- that seems to work. It doesn't always give me what I expect, but I'm a fairly novice Lisper LOL.

### Formatting Lisp code

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.

### Timeframe to run on Catalina

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?

Paul M.

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?

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?

### Permutations

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

### Forcing certain notes flat or sharp

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.

### Selection from lists of varying lengths

wow-- thanks for both ideas.

### Selection from lists of varying lengths

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!

### Does not wotk with Jack on OS X

Yes-- I was able to run the latest version of Jack and version 1.0.15697 of Opusmodus. Thanks!

Paul

### Does not wotk with Jack on OS X

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

### Trial Version won't Load Properly

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

### Trial Version won't Load Properly

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 >

### Trial Version won't Load Properly

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 >

### Trial Version won't Load Properly

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

### Trial Version won't Load Properly

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.

### Extensibility in Opusmodus

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.

×
• #### Browser

• Video Gallery

• #### Activity

• Lessons

• Clubs
×
• Create New...