add dottedExtender
This commit is contained in:
		| @@ -193,4 +193,19 @@ updown = | ||||
|     \tag #'up { \markup { #(string-capitalize word) } } | ||||
|     \tag #'down { \markup { #(string-downcase word) } } | ||||
|   } | ||||
| #}) | ||||
| #}) | ||||
|  | ||||
| dottedExtender = { | ||||
|   \override LyricExtender.style = #'dotted-line | ||||
|   \override LyricExtender.thickness = 2 | ||||
|   \override LyricExtender.Y-offset = 0.1 | ||||
|   \override LyricExtender.stencil = | ||||
|     #(lambda (grob) | ||||
|       (let* ((stil (ly:lyric-extender::print grob)) | ||||
|              (x-ext (ly:stencil-extent stil X))) | ||||
|          (make-connected-line | ||||
|            (list | ||||
|              (cons (car x-ext) 0) | ||||
|              (cons (cdr x-ext) 0)) | ||||
|            grob))) | ||||
| } | ||||
		Reference in New Issue
	
	Block a user