Re: markup avec cercle plein (circle fill)

[Valentin Villenave]

On 5/3/20, Gerard <address@hidden> wrote:
> J'utilise une fonction (fournie par la liste, merci !):
> bp =
> #(define-music-function
> (parser location button)
> (string?)
> (make-music
> 'TextScriptEvent
> 'direction 1
> 'text ( markup #:with-color ColorBassP #:fontsize 1 #:circle #:bold button)
> ))

Il doit y avoir plus simple :

%%%%

\layout {
  \context {
    \ChordNames
    \consists Staff_symbol_engraver
    \consists Bar_engraver
    \override StaffSymbol.line-count = 1
    \override StaffSymbol.line-positions =#'(2)
    noChordSymbol = \markup \bold "/"
    \override ChordName.stencil =
    #(lambda (grob)
       (let* ((cause (ly:grob-property grob 'cause))
              (props (ly:prob-immutable-properties cause))
              (rest? (memq 'rest-event (assoc-get 'class props)))
              (stencil (ly:text-interface::print grob))
              (th .25))
         (if rest?
             stencil
             (ly:stencil-translate-axis
              (ly:stencil-scale
               (circle-stencil
                (stencil-whiteout-box stencil 1 360)
                th (- th))
               (- 1 th) (- 1 th))
              (/ th 2) Y))))
  }
}

\chords { g4 r g r d1 }

%%%%

V.