All Activity

The license key is identical for both macOS and Windows 11. Therefore, you can deauthorize the software on your PC and reinstall it on your new Mac.

I have several requests, I am a user of Apple systems but my current Mac does not have a version of the operating system compatible with OPUSMODUS and to try it I have decided that I will buy a mini PC (Windows 11) with 16G of Ram and 512Gb SSD from scratch. I would like to know if after using Osmodus and perhaps purchasing the license for Windows I wanted to buy a new Mac, will I be forced to buy a new license for the Apple system or can I switch from the Windows license to the Apple one in the future? (I ask because I would basically buy a Windows mini PC exclusively to be able to try OPUSMODUS). Advice?

Opusmodus will not work on MacOS 10.13. Requirements: macOS 11 · 12 · 13 · 14

I have MacOS 10.13 and currently I can't install Opusmodus, is it possible to have an older version?

3.0.29368 When the search string matches a function, it goes to it immediately. The search history in Composer editor is independent for the Navigator search history. Best wishes, Janusz

Thanks a lot!

The nonsticky cent attributes fixed in 3.0.29366

Yes indeed, this attribute here needs to be nonsticky. As for this: (substitute-map '- '0c '(0c -8c 8c -8c -8c 0c -8c 0c 8c 8c -8c -8c)) => (- -8c 8c -8c -8c - -8c - 8c 8c -8c -8c)

Thanks for this! The microtonal symbols are now correct, but one problem still remains: With articulation markings, minus-sign means that the same articulation continues. But if a tuning contains notes that don't need extra cents, you would then like to see articulation "0c". Otherwise, there is a confusion: does this note have the same extra cents as the previous notes or not. Instead of this: (q c4 mf cs4. -8c d4. 8c d4.. -8c e4. -8c f4 fs4. -8c g4 g4.. 8c a4. 8c a4.. -8c b4. -8c) this: (q c4 mf 0c cs4. -8c d4. 8c d4.. -8c e4. -8c f4 0c fs4. -8c g4 0c g4.. 8c a4. 8c a4.. -8c b4. -8c) Instead of this: (- -8c 8c -8c -8c - -8c - 8c 8c -8c -8c) this: (0c -8c 8c -8c -8c 0c -8c 0c 8c 8c -8c -8c) I haven't succeeded in substituting 0c for -. How do you do that? And of course, zero should look like zero... And negative values should not turn into positive values... Instead of this....pdf this.pdf

Fixed in 3.0.29365

I will make update soon, possibly later today.

Yes, it seems right!

Naturally, this is a fix on my site My questions was, is the result correct, which I think it is.

Here: (micro-quantize '(0.17 -0.33 0.17 -0.17) :quantize 1/8) => (0.25 0.25 0.25 0.25) ???

Now: (micro-quantize '(0.17 -0.33 0.17 0.17 -0.17) :quantize 1/8) => (0.25 -0.25 0.25 0.25 -0.25) (micro-quantize '(0.17 -0.33 0.17 0.17 -0.17) :remain t :quantize 1/8) => (-8 -8 -8 -8 8)

I want: s gs4-. 8c I get: s gs4. 8c (setf tuning (cent-to-tuning centlist) >> (0.17 -0.33 0.17 0.17 0.0 0.0 -0.33 0.33 -0.17 0.17 0.17 0.0 -0.33 0.0 0.17 0.17 0.0 0.17 0.33 -0.33 0.0 0.0 0.17 0.17 -0.33 0.17 -0.33 0.0 0.17 0.33 -0.33 0.33 -0.33 0.33 -0.33 0.33 -0.17 0.17 0.17 -0.33 0.0 0.17 0.0 0.17 0.33 -0.17 0.17 0.17 0.0 0.33 0.17 0.33 0.0 -0.17 0.33 -0.17 0.33 0.17 0.33 0.17 0.17 0.0 0.17 0.17 0.17 0.0 0.17 0.17 -0.17 0.0 0.0 0.17 -0.17 0.17 0.0 0.33 0.33 0.0 0.0 0.33 -0.33 0.17 0.17 0.0 -0.33 0.0 0.0 0.17 0.0 -0.33)) (setf quant-tuning (micro-quantize tuning :quantize 1/8)) >> (0.25 0.25 0.25 0.25 0 0 0.25 0.25 0.25 0.25 0.25 0 0.25 0 0.25 0.25 0 0.25 0.25 0.25 0 0 0.25 0.25 0.25 0.25 0.25 0 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0 0.25 0 0.25 0.25 0.25 0.25 0.25 0 0.25 0.25 0.25 0 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0.25 0 0.25 0.25 0.25 0 0.25 0.25 0.25 0 0 0.25 0.25 0.25 0 0.25 0.25 0 0 0.25 0.25 0.25 0.25 0 0.25 0 0 0.25 0 0.25) (setf rem (micro-quantize tuning :quantize 1/8 :remain t)) >> (-8 -8 -8 -8 0 0 -8 8 8 -8 -8 0 -8 0 -8 -8 0 -8 8 -8 0 0 -8 -8 -8 -8 -8 0 -8 8 -8 8 -8 8 -8 8 8 -8 -8 -8 0 -8 0 -8 8 8 -8 -8 0 8 -8 8 0 8 8 8 8 -8 8 -8 -8 0 -8 -8 -8 0 -8 -8 8 0 0 -8 8 -8 0 8 8 0 0 8 -8 -8 -8 0 -8 0 0 -8 0 -8) s gs4-. 8.pdf s gs4. 8.pdf

Please give me a short expression example of the problem, not a score, just expression using micro-quantize. I think I know what you mean Let me look.

The problem seems to be that micro-quantize drops out minus signs. There are positive and negative values in tuning and tuning2, but after micro-quantize in quant-tuning and quant-tuning2 all values are positive. How could the negative values be left negative?

This should explain the accidentals: Sharp: '(s cs4 cs4+. cs4+ cs4+..) '(s cs4 cs4-. cs4- cs4-..) Flat: '(s cb4 cb4+. cb4+ cb4+..) '(s cb4 cb4-. cb4- cb4-..) Natural: '(s c4 c4+. c4+ c4+..) '(s c4 c4-. c4- c4-..) The cent can be minus or plus on flat and sharp.

Time signatures are better now. But concerning the 1/8-sharps and cents remains: c sharp should have remain -8 (arrow up makes +25 cents and -8 added to that makes +17) d sharp should have arrow down and remain -8 (makes -33 cents) g sharp should have arrow down (together with +8 makes -17 cents) a sharp should have arrow down and remain -8, with makes -33 cents b should have remain -8, which with arrow up makes 17 cents. D, e, f sharp and a come out right.

this will improve the time signature: (setf harp-rh-omn (quantize (ambitus-filter '(c4 c9) omn-seq) '(1 2 3 4 5 8))) (setf harp-lh-omn (quantize (ambitus-filter '(c1 b3) omn-seq) '(1 2 3 4 5 8))) (setf harp-rh-omn2 (quantize (ambitus-filter '(c4 c9) omn-seq2) '(1 2 3 4 5 8))) (setf harp-lh-omn2 (quantize (ambitus-filter '(c1 b3) omn-seq2) '(1 2 3 4 5 8))) As for the microtonal symbols, we convert them to simplest and clearest notation.

With this score I'm not getting the score quite right; negative cents values as e flat (changed to d sharp), a and b flat (changed to a sharp) do not come out right; on a sharp, on g sharp and d sharp the eighth-tone arrow should point downwards. The tuning is named "Prodigy", and cents values are copied and rounded from a SCALA file. (setf pitches (filter-repeat 1 (rnd-repeat 100 '(c4 cs4 d4 eb4 e4 f4 fs4 g4 gs4 a4 bb4 b4)))) (setf puolivalmiit-pitches (rnd-octaves 'harp pitches)) (setf pitches2 (filter-repeat 1 (rnd-repeat 100 '(c4 cs4 d4 eb4 e4 f4 fs4 g4 gs4 a4 bb4 b4)))) (setf puolivalmiit-pitches2 (rnd-octaves 'harp pitches2)) (setf centlist (replace-map '(#|1|# ((cs1 cs2 cs3 cs4 cs5 cs6 cs7) 17) #|2|# ((d1 d2 d3 d4 d5 d6 d7) 33) #|3|# ((eb1 eb2 eb3 eb4 eb5 eb6 eb7) -33) #|4|# ((e1 e2 e3 e4 e5 e6 e7) 17) #|5|# ((fs1 fs2 fs3 fs4 fs5 fs6 fs7) 17) #|6|# ((gs1 gs2 gs3 gs4 gs5 gs6 gs7) -17) #|7|# ((a0 a1 a2 a3 a4 a5 a6 a7) 33) #|8|# ((bb0 bb1 bb2 bb3 bb4 bb5 bb6 bb7) -33) #|9|# ((b0 b1 b2 b3 b4 b5 b6 b7) 17) ) puolivalmiit-pitches :otherwise '0)) (setf centlist2 (replace-map '(#|1|# ((cs1 cs2 cs3 cs4 cs5 cs6 cs7) 17) #|2|# ((d1 d2 d3 d4 d5 d6 d7) 33) #|3|# ((eb1 eb2 eb3 eb4 eb5 eb6 eb7) -33) #|4|# ((e1 e2 e3 e4 e5 e6 e7) 17) #|5|# ((fs1 fs2 fs3 fs4 fs5 fs6 fs7) 17) #|6|# ((gs1 gs2 gs3 gs4 gs5 gs6 gs7) -17) #|7|# ((a0 a1 a2 a3 a4 a5 a6 a7) 33) #|8|# ((bb0 bb1 bb2 bb3 bb4 bb5 bb6 bb7) -33) #|9|# ((b0 b1 b2 b3 b4 b5 b6 b7) 17) ) puolivalmiit-pitches2 :otherwise '0)) (setf tuning (cent-to-tuning centlist)) (setf tuning2 (cent-to-tuning centlist2)) (setf quant-tuning (micro-quantize tuning :quantize 1/8)) (setf quant-tuning2 (micro-quantize tuning2 :quantize 1/8)) (setf rem (micro-quantize tuning :quantize 1/8 :remain t)) (setf rem2 (micro-quantize tuning2 :quantize 1/8 :remain t)) (setf cents (cent-to-attribute rem)) (setf cents2 (cent-to-attribute rem2)) (setf valmiit-pitches (pitch-transpose-n quant-tuning puolivalmiit-pitches)) (setf valmiit-pitches2 (pitch-transpose-n quant-tuning2 puolivalmiit-pitches2)) (setf lengths (quantize (gen-white-noise 50) '(2 3 4) :scale 0.8 :tolerance 0.02)) ;(setf lengths2 (quantize (gen-white-noise 50) '(2 3 5) :scale 0.8 :tolerance 0.02)) (setf omn-seq (make-omn :length lengths :pitch valmiit-pitches ; :span :pitch :velocity (vector-to-velocity 0.3 0.77 (gen-white-noise 50)) :articulation cents)) (setf omn-seq2 (make-omn :length lengths :pitch valmiit-pitches2 ; :span :pitch :velocity (vector-to-velocity 0.3 0.77 (gen-white-noise 50)) :articulation cents2)) (setf harp-rh-omn (ambitus-filter '(c4 c9) omn-seq)) (setf harp-lh-omn (ambitus-filter '(c1 b3) omn-seq)) (setf harp-rh-omn2 (ambitus-filter '(c4 c9) omn-seq2)) (setf harp-lh-omn2 (ambitus-filter '(c1 b3) omn-seq2)) ;;; generating SCORE/MIDI (def-score Prodigy (:title "Prodigy" :key-signature 'atonal :time-signature '(4 4) :tempo 60 :layout (list (harp-single-layout 'harp1 :name "Harp 1" :abbr "Hp1") (harp-single-layout 'harp2 :name "Harp 2" :abbr "Hp1") (harp-single-layout 'harp3 :name "Harp 3" :abbr "Hp1") (harp-single-layout 'harp4 :name "Harp 4" :abbr "Hp1"))) (harp1 :omn harp-rh-omn ; :port 12 :channel 1 :sound 'gm :program 'Orchestral-Harp) (harp2 :omn harp-lh-omn ; :port 12 :channel 2 :sound 'gm :program 'Orchestral-Harp) (harp3 :omn harp-rh-omn2 ; :port 12 :channel 3 :sound 'gm :program 'Orchestral-Harp) (harp4 :omn harp-lh-omn2 ; :port 12 :channel 4 :sound 'gm :program 'Orchestral-Harp))

thank you!

Great!