filling 'time-points'?

[o_e]

Hi,

Is there a way to fill in distances between 'time-points' like in the example? Thanks for help!

best

ole

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

[Stephane Boussuge]

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.

[o_e]

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

[JulioHerrlein]

Now we have

length-legato

Just revisiting the forum...

In the search of length-delta-map examples.

Best !