Hi,

 

What I want is the first pict:

What I get, when I use this:

(setf rhy '(e e 3q = = tie e e))

is seen in the second pict, what am I missing?

 

 

Ok, I found the solution, writing 3q 3q 3q instead of 3q = =

But then I stumbeled over the next problem, how can I use span with such tied rhymths?

 

What I want is this:

 

what I get with span is this:

(setf line '(( c4 d4 e4 f4)( g4 a4)))
(setf rhy '(e e tie 3q 3q 3q tie e e tie 3q tie 3q 3q))
(setf pit (span rhy line))

(make-omn :length rhy
          :pitch  pit)

 

 

 

 

tie is an attribute and not a length tie.

The solution:

'(e e 3q 3q 3q_e e))

 

(setf pitches '((c4 d4 e4 f4) (g4 a4)))
(setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q))

(make-omn :length rhy
          :pitch pitches)

Superb! Thanks a lot!!

with ratios:

'(1/8 1/8_1/12 1/12 1/12_1/8 1/8_1/6 1/12)

 

Thanks! There is one more thing I don't get, pitch-transpose seems to change the rhytm somehow or do I miss again something

:

(setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q)) ;also tried ratios- same result

(setf pit (span rhy line2))

(setf pit2  (make-omn :length rhy
          :pitch  pit))
(setf pit2a (pitch-transpose 2 pit2))

 

The result is correct.

Possibly the transposition could be done before the make-omn:

(setf rhy '(e e_3q 3q 3q_e e_3q_3q 3q))
(setf pit '((c4 d4 e4 f4) (g4 a4)))
(setf pit2 (pitch-transpose 2 pit))

(setf omn (make-omn :length rhy
                     :pitch pit2))

At any point (usually at the end of your work) you can run quantize function to make the result look good (tuplet grouping) in notation.

(setf rhy '(1/8 5/24 1/12 5/24 7/24 1/12))
(setf pit '((c4 d4 e4 f4) (g4 a4)))
(setf pit2 (pitch-transpose 2 pit))

(setf omn (make-omn :length rhy
                    :pitch pit2))

(quantize omn '(1 2 3 4))
=> (e d4 e_3q e4 3q fs4 3q_e g4 e_3h a4 3q b4)