Jump to content

how to keep omn-notation?


Recommended Posts

for some score-display it would be very very useful if when EVAL etc... (or use any of the OPMO-functions) OMN-notation would be displayed and not changing to RATIOS...

have a look to this example: it's written like that, because then the display is very smart. when i use "rnd-pick" or other functions it changes from OMN to RATIO... very ugly then.

 

is there an internal solution for that or another trick?

thanx for help

a.

 

;; NICE DISPLAY BY CMD3
(setf durations1 (list 
                 '(t s t) 
                 '(3q 3e_s. t) 
                 '(5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h) 
                 '(t s._3e 3q) 
                 '(t s t)
                 ))
=> ((t s t) (3q 3e_s. t) (5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h) (t s._3e 3q) (t s t))


;;; UGLY DISPLAY BY CMD3 because of the OPMO-fuction
(gen-retrograde durations1) ;; should result the same rhythm
=> ((1/32 1/16 1/32) (1/32 13/96 1/12) (1/10 1/10 3/35 1/28 1/28 1/28 1/28 1/28 3/35 1/10 1/10) (1/12 13/96 1/32) (1/32 1/16 1/32))


;;; the same
(rnd-pick durations1)
=> (1/32 13/96 1/12)

;;; OKAY because LISP and not OPMO
(nth 0 durations1)
=> (t s t)

 

a practical example:

 

;;; WORKS => because in the last step it's on LISP-level
(setf durations (list 
                 '(t s t) 
                 '(3q 3e_s. t) 
                 '(5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h) 
                 '(t s._3e 3q) 
                 '(t s t)

                 '(t t t t)
                 '(5q 5q 5q 5q 5q)
                 '(3q 3q 3q)
                 '(7q 7q 7q 7q 7q 7q 7q)))

(setf morph-list (flatten (gen-morph 7 '(0 1 2 3) '(4 5 6 7))))

;;cmd3
(setf newdurations (loop for i in morph-list
                     append (nth i durations)))

works.jpeg

 

;;; DON'T WORK => because OMPO chanhig the format to RATIOS

(setf durations1 (list 
                 '(t s t) 
                 '(3q 3e_s. t) 
                 '(5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h) 
                 '(t s._3e 3q) 
                 '(t s t)))


(setf durations2 (list
                  '(t t t t)
                  '(5q 5q 5q 5q 5q)
                  '(3q 3q 3q)
                  '(7q 7q 7q 7q 7q 7q 7q)))

;;cmd3
(setf newdurations  (flatten (gen-morph 7 durations1 durations2)))

dontwork.jpeg

 

 

Link to comment
Share on other sites

thanx stephane! ...but when you have a look on the output...

 

 

(gen-retrograde durations1 :omn t)

=> ((t s t) (t 13/96 3q) (5h = 3/35 7q = = = = 3/35 5h =) (3q 13/96 t) (t s t))

 

Ohne Titel.jpeg

 

or with FLATTEN: (gen-retrograde (flatten durations1) :omn t)

=> (t s t 3q 13/96 t 5h = 3/35 7q = = = = 3/35 5h = t 13/96 3q t s t)

 

Ohne Titel 2.jpeg

 

 

 

the "original notation" with no troubles

=> ((t s t) (3q 3e_s. t) (5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h) (t s._3e 3q) (t s t))

 

Ohne Titel.jpeg

Link to comment
Share on other sites

Quoting André:

 

On 11/6/2018 at 5:22 PM, AM said:

i think it's good and important to see that opusmodus is not a notation software (like sibelius/finale/dorico...). the potential is rightly in another area and i believe that it is important to keep the basic idea of opusmodus in focus (it's important to have restrictions/limitations) - and i think the development team is very aware of that .

you can not have everything, but what is possible should be very very smart in its kind.

 

the longer i work with opusmodus, the more i realize, for what i can use it ...and when I have to switch to another platform. 

and because it is so open, it is then possible for me to find solutions for my specific needs, by being able to program myself and not simply having to do what the existing tools / functions allow.

 

okay i admit i'm a big fan of opusmodus, although i do not even compose with it but can try/simulate basic ideas of my work - doing abstract/new things and see what happens - like working in an LAB 🙂

 

 

But, despite this, we always want to have the output as close as possible to the final score.

Best,

Julio

Link to comment
Share on other sites

(setf sequence '((t s t)
                 (3q 3e_s. t)
                 (5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h)
                 (t s._3e 3q)))
(gen-retrograde sequence)
=> ((t s t)
    (t s._3e 3q)
    (5h 5h 5q_7q 7q 7q 7q 7q 7q 7q_5q 5h 5h)
    (3q 3e_s. t))

image.png

 

best, JP

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy