add dottedExtender
This commit is contained in:
		| @@ -193,4 +193,19 @@ updown = | |||||||
|     \tag #'up { \markup { #(string-capitalize word) } } |     \tag #'up { \markup { #(string-capitalize word) } } | ||||||
|     \tag #'down { \markup { #(string-downcase 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