2012/10/10 Federico Bruni <[email protected]>: > Il 10/10/2012 22:55, Nels ha scritto: > >> Is there a way to make the default rehearsal mark a >> filled in box with white lettering/number inside? >> >> > > Do you mean something like this: > > \version "2.16.0" > { > \set Score.markFormatter = #format-mark-box-numbers > c1 \mark \default > c1 \mark \default > c1 \mark \default > } > > where the reharsal marks are black on white? > > -- > Federico > > > _______________________________________________ > lilypond-user mailing list > [email protected] > https://lists.gnu.org/mailman/listinfo/lilypond-user
Or did you mean (png attached):
\version "2.16.0"
#(define (rounded-filled-box-stencil stencil thickness padding blot)
"Add a rounded filled box to @var{stencil}, producing a new stencil."
(let* ((xext (interval-widen (ly:stencil-extent stencil 0) padding))
(yext (interval-widen (ly:stencil-extent stencil 1) padding))
(min-ext (min (-(cdr xext) (car xext)) (-(cdr yext) (car yext))))
(ideal-blot (min blot (/ min-ext 2)))
(ideal-thickness (min thickness (/ min-ext 2)))
(outer (ly:round-filled-box
(interval-widen xext ideal-thickness)
(interval-widen yext ideal-thickness)
ideal-blot)))
(set! stencil outer)
stencil))
#(define-markup-command (rounded-filled-box layout props arg)
(markup?)
#:properties ((thickness 1)
(corner-radius 0.4)
(font-size 0)
(box-padding 0.3))
"Draw a rounded filled box with white @var{arg} in it"
(let ((th (* (ly:output-def-lookup layout 'line-thickness)
thickness))
(pad (* (magstep font-size) box-padding))
(m (interpret-markup layout props (markup #:with-color white arg))))
(ly:stencil-add (rounded-filled-box-stencil m th pad corner-radius)
m)))
#(define (format-mark-filled-box-letters mark context)
(make-bold-markup
(make-rounded-filled-box-markup
(make-markletter-markup (1- mark)))))
% test ------------
\relative c'' {
\set Score.markFormatter = #format-mark-filled-box-letters
c1 \mark \default
c1 \mark \default
c1 \mark \default
}
Cheers,
Harm
<<attachment: filled-box-marks.png>>
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
