On Fri, Feb 22, 2013 at 8:25 AM, Nathan <when.possi...@gmail.com> wrote:
> On Fri, Feb 22, 2013 at 7:55 AM, Nels Daily <dailymusici...@gmail.com>wrote: > >> Is there a way to make the default rehearsal mark a >> filled-in box/circle/rounded-box with white text? >> >> > Here's what I got: > > #(define-public (format-mark-inverse-rounded-box mark context) > (markup #:bold #:combine > #:center-align #:filled-box '(-0.5 . 2.5) '(-0.5 . 2.5) 1 > #:center-align #:with-color white (make-markletter-markup (1- > mark)))) > [...] > A minor correction and also implementations of the other two shapes: #(define-public (format-mark-inverse-box mark context) (markup #:bold #:combine #:vcenter #:center-align #:filled-box '(0 . 3) '(0 . 3) 0 #:vcenter #:center-align #:with-color white (make-markletter-markup (1- mark)))) #(define-public (format-mark-inverse-rounded-box mark context) (markup #:bold #:combine #:vcenter #:center-align #:filled-box '(0 . 3) '(0 . 3) 1 #:vcenter #:center-align #:with-color white (make-markletter-markup (1- mark)))) #(define-public (format-mark-inverse-circle mark context) (markup #:bold #:combine #:vcenter #:center-align #:draw-circle 1.7 0 #t #:vcenter #:center-align #:with-color white (make-markletter-markup (1- mark)))) music = { c1 \mark \default c1 \mark \default c1 \mark \default c1 \break } \relative c' { \set Score.markFormatter = #format-mark-inverse-box \music \set Score.markFormatter = #format-mark-inverse-rounded-box \music \set Score.markFormatter = #format-mark-inverse-circle \music } Regards, Nathan
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user