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
