Jump to content
Sign in to follow this  
AM

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

 

 

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×