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)))

 

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

 

 

(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))

S.

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))

 

 

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)

 

 

 

 

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))

 

Will be fixed in the next update. The problem not the ratios but the tied lengths. What we need to do is to reverse the order of tied lengths:

5q_7q = 7q_5q

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

(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))

 

best, JP