% RETURN DASH DEFINITION FOR SOLID FROM 0 TO s1, DOTTED FROM s1 TO d1 AND FROM d2 TO s2
% AND SOLID FROM s2 to 1
#(define (sdds s1 d1 d2 s2)
   (list
    (list 0 s1 1 0)
    (list s1 d1 0.1 0.3)
    (list d2 s2 0.1 0.3)
    (list s2 1 1 0)))

% DASH DEFINITION FOR SOLID OF LENGTH s1, DOTTED OF LENGTH d2, NOTHING, DOTTED OF LENGTH d2, SOLID OF LENGTH s2
#(define (lsdds s1 d1 d2 s2)
   (sdds s1 (+ s1 d1) (- 1 (+ d2 s2)) (- 1 s2)))


{
  \set tieWaitForNote = ##t
  c'8\tweak dash-definition #(lsdds 0.13 0.05 0.04 0.15) ~
  d'\tweak dash-definition #(lsdds 0.13 0.05 0.05 0.1) ~
  e'
  f'
  g'
  f'\tweak dash-definition #(lsdds 0.07 0.06 0.08 0.15) ~
  e'\tweak dash-definition #(lsdds 0.1 0.08 0.12 0.17) ~
  g'~
  |
  <c' d' e' f' g' c''>1
}