[Native Plugin Support?]

Anything is possible :-)

[Opusmodus 3.0.28766 Update]

---

3.0.28766

 

– Additions :

• harmonics - :quantize and :coeff keywords
• tonality-map - :map 'extend

 

– Documents:

• Documents edit.

 

[Windows Port?]

The Licence has two keys. You can use the same licence key on Mac or PC.

[OpusModus 3 - Licence window spinning wheel]

Please to hear you solved the problem

[loop in list]

We can’t use * or / characters in the file names, sadly.

[Opusmodus 3.0.28724 Update]

3.0.28724

 

– Changes :

• Workspace directory sort by NAME.
• Function search shortcut changed to Cmd-D

 

– Documents:

• Documents edit.

 

Opusmodus Windows Beta release imminent.

 

[loop in list]

(a*x 100 '(1 2 3 4 5 6 7 8 9))

 

[Dark Mode in OM3]

[Dark Mode in OM3]

[Dark Mode in OM3]

The Dark mode is set with the OS and not the OM.

[counterpoint : What is the 1~,2~ function ?]

Search dose not allow using char: *, ~, /  - a shortcoming of the OS systems.

[counterpoint : What is the 1~,2~ function ?]

the document for it: 1~100

[Using list variable instead of list in Counterpoint]

I don't see any logic to use the comment

#|1|#

here especially in the instrument instance :omn

[Using list variable instead of list in Counterpoint]

You can't do that.

this is only use for bars - bar numbers.

(rh 
:omn '(#|1|# line1)
   :channel 1
   :sound 'gm
   :program 0
   :volume 90
   :pan 64)

[Zoom Into OM - 5. An example of formalisation of musical thinking with OM.]

Great example on the formalisation.

 

[Micropolyphone series]

The score - above - is working again - dictum.

[Micropolyphone series]

More functionality in MICROPOLYPHONE to control the complexity:

 

(progn
  (setf interval-series '((0) (1 -1 2 -2) (6 -6 11 -11) (13 -13)))
  
  (micropolyphony
   4
   40
   1/16 1/4
   :intervals interval-series
   :interval-prob '(.2 .2 .3 .3)
   :length-prob '(.1 .9 .5 .9)
   :proportional t
   :index 'a
   :seed 830134
   :span 7
   )
  
  (micropolyphony
   4
   40
   1/16 1/2
   :intervals interval-series
   :interval-prob '(.2 .2 .3 .9)
   :length-prob '(.2 .9 .4 .9)
   :proportional t
   :index 'b
   :seed 855650
   :span 13
   )
  
  (setf
   rh-a (quantize (ambitus-chord 13 (dissolve-voices (merge-voices a1 a2))) '(1 2 4))
   lh-a (quantize (ambitus-chord 13 (dissolve-voices (merge-voices a3 a4))) '(1 2 4))
   rh-b (quantize (ambitus-chord 13 (dissolve-voices (merge-voices b1 b2))) '(1 2 4))
   lh-b (quantize (ambitus-chord 13 (dissolve-voices (merge-voices b3 b4))) '(1 2 4))
   )
  
  (setf
   rh-1 (omn-to-time-signature (assemble-seq rh-a rh-b) '(4 4))
   lh-1 (omn-to-time-signature (assemble-seq lh-a lh-b) '(4 4))
   )
  
  (setf
   rh (dictum '((:do p)
                (:do mf :bar (1..5))
                (:do > :bar (5..7 16..20))
                (:last pp :bar 20)
                (:last fermata :bar 20))
              rh-1)
   
   lh (dictum '((:do p)
                (:do mf :bar (1..5))
                (:do > :bar (5..7 16..20))
                (:last pp :bar 20)
                (:last fermata :bar 20))
              lh-1)
   )
  
  (ps 'gm
      :p (list (ambitus '(0 45) rh) (ambitus '(-32 -1) lh))
      :tempo 112)
  )

 

[Windows Port?]

You don't need the VM, the Windows version is almost there.

[Problem creating library in Def-library]

You must take care of the ambitus. Remember the notation can only play/print the ambitus of the piano.

[Problem creating library in Def-library]

Before we continue please download the current OM version - just uploaded an update.

I spotted a difference in the names:
sea-sounds1-partials and yours is sea_sounds1-partials

[Problem creating library in Def-library]

How you call the file. Have you try the example - at the end of the file - after restart, are they working?

You don't need to load the file, just use the data directly with the library function:

 

(library 'sea-sounds1-partials 'partials nil :collect '(0 3 5))

 

Every file in the User Source/Extensions or User Source/Libraries directory is loaded at start.

Your file looks OK. If you can't see the result of the expression then something is wrong.

(library 'sea-sounds1-partials 'partials nil :collect '(0 3 5))

I will make a new update tomorrow.

[Problem creating library in Def-library]

It is important to add the (in-package :Opusmodus) to the file, at the top.

 

[Problem creating library in Def-library]

Please send me the library file.

[Problem creating library in Def-library]

Just move your library into the ~/Opusmodus/User Source/Libraries/Def-Library - it will load on the start of the app.

[midi-cc-function // lisp coding problems]

You need to eval the function again:

 

(progn
  (defun filterbank (&key cc value-range (time-range '(1 127)) (port 7) (channel 16))
    (let ((values (loop 
                     for i in (rnd-sample 100 (gen-integer (first value-range) (second value-range)))
                     for j in (gen-length (gen-integer (first time-range) (second time-range)) 1/128)
                     collect (list i j))))
      
      (live-coding-midi 
       (compile-score 
        (def-score cc-seq
            (:title "cc-seq"
             :key-signature 'chromatic
             :time-signature '(4 4)
             :tempo 60) 
          (seq
           :length '(3)
           :pitch '(c4)
           :velocity '(ff)
           :port 1
           :channel channel
           :controllers (1 values)))))))

  (filterbank :cc 1 :value-range '(40 99) :port 1)

  )