[cut score]

How can I display a score compiled like this

(compile-score '((<def-score-name> :start 1 :end 90)))

with display-musicxml?

This gives an error:

(display-musicxml
(compile-score '((<def-score-name> :start 1 :end 90))))

Any idea?

Achim

[function for lengths variation]

Thanks a lot. I found another one as well:

quantum

 

[function for lengths variation]

Is there one working with OMN?

[function for lengths variation]

Lets say I have 2 measures of music.

I want to make random variations of the rhythms (not the pitches)

The result should fit in the initial 2 measures.

What is the function called for this.

I cannot remember ...

Thanks for help,

Achim

[Chord with different noteheads]

Hi, is it possible to write chords with different noteheads?

I am trying to find a workaround for the missing flageolet notation, see attachment.

Thanks for help. Best, Achim

[combinations of sublists]

Perfect. I missed this one ...

Thanks a lot. Achim

[combinations of sublists]

Has anybody an idea how to formalize the following task?

A list of 4 sublists with 2 elements:

'((1 2) (3 4) (5 6) (7 8)))

 

==> All the possible combinations of either one or the other number in the sublist:

 

'(
(1 3 5 7)
(1 4 5 7)
(1 3 6 7)
(1 4 6 7)
(1 3 5 8)
(1 4 5 8)
(1 3 6 8)
(1 4 6 8)
(2 3 5 7)
(2 4 5 7)
(2 3 6 7)
(2 4 6 7)
(2 3 5 8)
(2 4 5 8)
(2 3 6 8)
(2 4 6 8)
)

Did I miss a combination?

Thanks for help.

Achim

[Midi automation file]

Thanks for the hint.

Now I have to find a way to map the controller data to any automation parameter (volume, pan, etc.)

At the moment I just get a Midi track with a lot of c4's ... 

Any ideas?

Achim

[Midi automation file]

Hi,

how can I convert this to an automation file in Midi to import it to a DAW?

(Thanks to Tibor for the code )

Achim

 

(setf b-amp-values1
      (mod-sine-waves 4 1000 0.6 1 :phase -40
                      :modulation (gen-sine 700 2.5 1.2)))
(list-plot b-amp-values1)
(defparameter values-aligned
  (loop for i in b-amp-values1
        collect (* 64 (+ i 1))))
(setf midi-test (gen-controller 1 values-aligned :time 1/1000))
(setf boolean-pitch (append '(q) (gen-repeat (length midi-test) 'c4)))
(def-score midi-test
    (:title "score title"
     :key-signature ' chromatic
     :time-signature '(4 4)
     :tempo 120)
  (instrument
   :omn boolean-pitch
   :channel 1
   :sound 'gm
   :program 'acoustic-grand-piano
   :controllers (1 midi-test)))

 

[list sum]

I would suggest to add a keyword :sum to the function scale-numbers.

[list sum]

2 hours ago, opmo said:

Do you mean: get-count

No.
The function which does something like this:

;; scale all numbers of lst that the sum of lst is 25
(setf lst '(1 2 3 4 5))
(setf list-sum (sum lst))
(setf scale 25)
(setf result1
(loop for i in lst
      collect (* 1.0 (* scale 
                         (/ i list-sum)))))
;; test (sum result1)
(setf result2
(loop for i in lst
      collect (round
               (* 1.0 (* scale 
                         (/ i list-sum))))))
;; test (sum result2)

 

[list sum]

Hello people,

again struggling to find the name of the function which ranges all values in a list to a specific sum of the list.

Any help?

[double stop notation with 2 voices]

Hello,

does anybody have a short hint how to notate this two double stop notations with 2 voices. (I know, there is no flageolet notehead in OM. I could use a cross and replace it in a notation program.)

Thanks, best, Achim

[gen-brownian-motion inside lower and upper limit]

21 hours ago, opmo said:

do you mean:

(vector-round 0.0 6.0 (gen-brownian-motion 128))

 

Is this calculation really reflecting the brownian motion at the limits before a new step is calculated or it is just mapping the result into a specified range?

[gen-brownian-motion inside lower and upper limit]

14 hours ago, opmo said:

do you mean:

(vector-round 0.0 6.0 (gen-brownian-motion 128))

 

Thats a good start. 

Now, how can I map the brownian motion to a tendency mask?

[gen-brownian-motion inside lower and upper limit]

Is there any possibility to force a brownian motion to be reflected within a lower and an upper (maybe even changing) limit?

Thanks for suggestions.

Achim

[merge several rhythms into one]

Hi all,

is there a function/ method to merge several rhythms into one which is displaying all the onsets of these rhythms.

Here the first two systems are merged into the third.

Thanks for help.

Achim

 

[sample from env (xy-plot)]

Does anybody have an idea, how to sample x equidistant values from an env like xy-plot?

 

(xy-plot '((2 0) (3 1) (5 1) (7 2) (11 3) (13 5) (17 8) (19 13) (20 21)) 
         :join-points t :point-radius 2 :style :axis :point-style :square)

 

For example 10 values from this graph:

[file to list]

That looks really good. Thanks a lot. Achim

[file to list]

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

should change to

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

These are sequencer files from Puredata in which I'd like to change the timestamps in msecs to double time.

Input is a txt document and the output should be a txt document as well.

The reason for this approach is that I have quite a few of this files to change ...

[file to list]

Does anybody have an idea, how to loop through a directory and writing the content of a textfile (like the one attached) without the semicolons into normal lists?

Thanks for help.

Achimch1-amp-envs.txt

[loop in list]

On 3/7/2023 at 4:54 PM, opmo said:

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

 

A nice one!

There is no documentation in OM about this, only the function description (ctrl-y)

[all intervals in chord]

Is there a function that returns all intervals from a chord?

Thanks, Achim

[loop in list]

And what about

(loop for i in '(4 3 6 1 2 5) collect (* i 100))

?

[loop in list]

Is there a shorter way to write this in OM?

 

(loop for i from 1 to 9 collect (* 100 i))