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

Reply via email to