[How to share stuff generated by rnd-sample to other parts of the code?]

Your example is not very helpful. I can't see the my-pitches values, and the times value - I need to see the my-sequence output to determine the :span :pitches use.

 

I think the :span :pitches is the problem.

 

What about:

(setf my-sequence (make-omn
                   :length (gen-loop times (rnd-sample 1 '((q s) (q q))))
                   :pitch (gen-repeat times my-pitches)))

(def-score my-score
  (:title "my-score"
      :key-signature 'chromatic
      :time-signature (get-time-signature my-sequence)
      :tempo 161)

 

[start-swank does not work in OM 3]

I need to  check if we can use Emacs with the new Opusmodus (LispWorks).

[Where is code for lengths like "3h" for tuplets documented?]

You can use both, length symbols and ratios.

 

Tuplets:

5q = 1/20
3q = 1/12
3h = 1/6

etc...

 

[Midi Player hanging notes]

The hanging notes should be fixed in 3.0.28886.

[Midi Player hanging notes]

How did you have create the MIDI file. I have tested many midi files and no other produces this bug on PC.

 

[Midi Player hanging notes]

Your midi file works fine on Mac. Looks like a Windows bug. Will have a look.

Same problem with notation viewer playback or Live Coding instrument?

[OMN to chordize?]

I would think about the chords before applying the make-omn function.

(setf chords (chordize (gen-divide 3 (flatten omn3))))
(setf six+deux (omn-to-measure
                (make-omn 
                 :pitch chords
                 :length ry1
                 :span :pitch)
                '(3/8)))

 

[Opposite of chordize?]

This is not about 'Opposite of chordize'.

Please create a new post.

Please check the chordize document. The chordize input are pitches and not omn list form.

[Opposite of chordize?]

(chordize '(c4 d4 e4))
=> (c4d4e4)

 

[sysex to re-tune MTS synth for full microtonality]

Example with cents attributes:

 

'(e c4 1c - 12c - 23c - 34c - 45c - 56c - 67c - 78c)

 

[Midi Player hanging notes]

Julio, could you send me the score file or midi file that produces the hanging notes.

[Midi Player hanging notes]

Will have a look.

[Windows version]

Out Now.

https://opusmodus.com/forums/downloads/

 

[Windows Version - Uninstall - Re-Install]

It works the same way as any other Windows app.

[Windows Port?]

OUT NOW!

[Opusmodus 3.0 Windows]

OM v.3.0 Windows ready for download:

https://opusmodus.com/forums/downloads

 

LoopMIDI is a third-party application that allows you to create virtual MIDI ports on your Windows system:

 

loopMIDI | Tobias Erichsen

WWW.TOBIAS-ERICHSEN.DE

 

[Empty Layout in PS]

Update 3.0.28819 

[Empty Layout in PS]

You can set the instrument to NIL:

 

(ps 'gm :sq (list vn1 vn2 nil nil) :tempo 68 :output :audition)

 

only the vn1 and vn2 instrument will be audition.

[Empty Layout in PS]

ps means Preview Score - predefined layouts and instruments for quick preview.

If you are look for flexibility you need to use def-score.

 

 

[Empty Layout in PS]

The def-instrument-set needs to be set correctly for each instrument. There are no empty layouts

I addend a new keyword :audition into the PS function.

When :output is set to :audition no midi player or notation viewer will display - just audio.

 

Example:

(ps 'gm :sq (list vn1 vn2 vla vlc) :tempo 68 :output :audition)

 

def-score is more flexibile for it - no layout needed.

[Empty Layout in PS]

This is not about layout, by default the PS display notation.

This could be possible with an additional keyword.

[file to list]

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;"

[file to list]

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:

?

[ITERATE build in 1.2.20405]

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

[ChatGPT and Coding]

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.