On Thu, Feb 12, 2015 at 6:16 PM, thepocketwade <thepocketw...@gmail.com> wrote: > > Is it possible to change the appearance of augmentation dots? I'd like to > use an open dot (think a degree symbol), to indicate adding 1/4 of note > value. I've only seen this notation in Stuart Saunders Smith's pieces, but > it seems useful. > > Thanks for your help.
Here ya go: %%% \version "2.19.8" #(define (draw-semi-dots grob) (let* ((count (ly:grob-property grob 'dot-count)) (dot (grob-interpret-markup grob (markup #:musicglyph "dots.dot"))) (dot-width ((lambda (ext) (- (cdr ext) (car ext))) (ly:stencil-extent dot X))) (semi-dot (grob-interpret-markup grob (markup #:draw-circle (* 0.5 dot-width) 0.1 #f))) (stil (make-transparent-box-stencil '(0 . 0) '(0 . 0)))) (if (number? count) (let loop ((i count)) (if (= i 0) stil (begin (set! stil (ly:stencil-combine-at-edge stil X RIGHT semi-dot dot-width)) (loop (- i 1)))))))) semiDot = #(define-music-function (parser location music) (ly:music?) #{ \temporary \override Staff.Dots.stencil = #draw-semi-dots \scaleDurations #'(5 . 6) $music \revert Staff.Dots.stencil #}) \new Staff { \time 2/4 \semiDot c'4. d'8. \semiDot e'4. f'8. } %%% Regards, Nathan _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user