Posted February 27, 20159 yr Hi,Is there a way to fill in distances between 'time-points' like in the example? Thanks for help!bestole(setf time-points '(e b5 f - - - b5 - - b5 - - - - b5 - b5 - - b5 - - - b5 - - - - a5 - - - - - a5 - - - a5 - - - - a5 - - - a5 - - - a5 - - - - a5 - - - a5 - - - - a5)) (omn :length time-points) ;is there a way to achive this: (setf filled '(4/8 3/8 5/8 2/8 3/8 4/8 5/8 6/8 4/8 5/8 4/8 4/8 5/8 4/8 5/8 1/8)) (setf time-points-filled (make-omn :length filled :pitch (pitch-transpose -12 (omn :pitch time-points)) :velocity (omn :velocity time-points))) (def-score tp (:key-signature '(c maj) :time-signature '(4 4) :tempo 50) (voice1 :omn time-points :channel 1 :sound 'gm :program 0) (voice2 :omn time-points-filled :channel 2 :sound 'gm :program 0))
February 28, 20159 yr Hi Ole, may be something like this:(setf time-points '(e b5 f - - - b5 - - b5 - - - - b5 - b5 - - b5 - - - b5 - - - - a5 - - - - - a5 - - - a5 - - - - a5 - - - a5 - - - a5 - - - - a5 - - - a5 - - - - a5)) (setf len (omn :length time-points)) (setf map (gen-binary-length len)) (setf result (binary-length-map map 'e :omn nil))SB.
February 28, 20159 yr Author Thank you Stephane!Only problem is that if my 'timepoints' list is starting with rests than they will be swallowed. But I think I can handle this somehow.ole
December 28, 20204 yr Now we have length-legato Just revisiting the forum... In the search of length-delta-map examples. Best !
Create an account or sign in to comment