Hi,

I'am having hard times to understand length-to-rest:

 

(setf one '(-q e f5 mp 3q b5 mp 3e f6 mp 3e g5 p 3wq. gs5eb6 p))

(setf two (length-to-rest 'q one :type 'under))

==>(-q -e -3q -3e - 3wq. f5 mp)



;;simplified example works as expected

(setf three '(q f4 3q b4 a4 b4 e d4 3wq gb5eb5))

(setf four (length-to-rest 'q three :type 'under))

==>(q f4 -3q - - -e 3wq gb5eb5)

 

what am I missing?

 

thanks for help!

I experimented a little more and found out that length-to-rest can not handle chords (I would like to make a feature request..)

But I still don't get the pitches, I would expect the pitches from the list where length-to-rest is applied to??

Can someone please chime in?

 

Thanks!

 

Quote

(setf longer '((-3e_3q_3e_3e 3q eb5 -3e e gs5 3e c6 mf 3h gs6 p e gs5 mp -3q_3q_3e) 
(-3e_3e_3e_3e_3e 3q eb5 3e a5 - eb5 mf 3he e6 e a5 mp -3q_3e_e) 
(-3e_3e_3e_3q 3q a5 3e eb5 3h bb5 3e bb6 p 3q a5 3e eb5 mp 3q bb5 -3q_3q_3e_3e)))

(setf l2r (length-to-rest '3q_3q longer :type 'under ))

(ps 'vep
    :p1 (list longer)
    :vib (list l2r))

 

 

length-to-rest has nothing to do with pitches or chords.

 

(length-to-rest 1/4 '(-1/8 1/8 1/20 4/20 1/8 -1/16 1/16 1/4))
=> (-1/8 1/8 1/20 1/5 1/8 -1/16 1/16 -1/4)

(length-to-rest 1/16 '(-1/8 1/8 1/20 4/20 1/8 -1/16 1/16 1/4) :type 'under)
=> (-1/8 1/8 -1/20 1/5 1/8 -1/16 1/16 1/4)

(length-to-rest 1/16 '(-1/8 1/8 1/20 4/20 1/8 -1/16 1/16 1/4) :type 'over)
=> (-1/8 -1/8 1/20 -1/5 -1/8 -1/16 1/16 -1/4)

(length-to-rest 'q '((q s e e q..) (e h q e)) :type 'over :omn t)
=> ((q s e = -q..) (e -h q e))

 

OMN:

(length-to-rest 'q '(q e4f4fs4g4 s e4f4fs4g4 e e4f4fs4g4 e e4f4fs4g4 q.. e4f4fs4g4) :type 'under)
=> (q e4f4fs4g4 -s -e - q.. e4f4fs4g4)

 

Your OMN example works like I expected it, why does my example above did not work, what am I missing?