opmo

This is not about layout, by default the PS display notation. This could be possible with an additional keyword.

The file contents need to be a string. (defun remove-semicolon (string) (remove ";" string :test #'string=)) (setf orig "0 1-amp-env 1 11000; 11000 1-amp-env 1 6000; 6000 1-amp-env 0.2 10000; 10000 1-amp-env 1 5000;") (setf pd1 (string-to-list (remove-semicolon orig))) (setf pd2 (gen-divide 4 pd1)) (setf pd3 (loop for i in pd2 collect (list (* 2 (1~ i)) (2~ i) (3~ i) (* 2 (4~ i))))) (join-string-list (loop for i in pd3 collect (string-replace " ;" ";" (join-string-list (list (list-to-string i) ";"))))) => "0 1-amp-env 1 22000; 22000 1-amp-env 1 12000; 12000 1-amp-env 0.2 20000; 20000 1-amp-env 1 10000;"

example please, how the data should look like. 0 1-amp-env 1 11000; 11000 1-amp-env 1 6000; 6000 1-amp-env 0.2 10000; 10000 1-amp-env 1 5000; ... output: ?

It is not part of v.3.0. You need Quicklisp to load the library.

Yes, it is full of bugs. I tried all kind of code with mix success. You need a lot of patience to get the correct code - try and try again But still the def-score is almost perfect.

Anything is possible :-)

3.0.28766 – Additions : harmonics - :quantize and :coeff keywords tonality-map - :map 'extend – Documents: Documents edit.

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

Please to hear you solved the problem

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

3.0.28724 – Changes : Workspace directory sort by NAME. Function search shortcut changed to Cmd-D – Documents: Documents edit. Opusmodus Windows Beta release imminent.

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

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

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

the document for it: 1~100

I don't see any logic to use the comment #|1|# here especially in the instrument instance :omn

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)

Great example on the formalisation.

The score - above - is working again - dictum.

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) ) MP Series.mp3

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

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