Re: markup avec cercle plein (circle fill)

[survoje]

Le 03/05/2020 à 12:25, Valentin Villenave a écrit :
> Sans bout de code, ça va être difficile à débugger…

Je pensais que tu pouvais lire le code "à distance" :-D

ci-dessous :

--------------------------------------------

%% mai 2020
%% Essai totalement fictif (non valable musicalement)
% aménagement ligne de basse accord (MG)
%% solution \layout de Valentin Villenave

\version "2.18.2"

\header {
  title = "Essai_VV"
}


% appel des fonctions de la "maindroite"
\include "MonDiato.ly"

%--------------------

melodie = \relative c' {
  \clef G
  \key c \major
  \time 4/4
  \set Staff.midiInstrument = "flute"
  a'4 a a b c d c b a c a b}

maindroite = {
  s4-\tg #"7" s-\tg #"5" s4-\tg #"7" s4-\tc #"6"
  s4-\pg #"8" s-\pc #"7" s-\pg #"8" s-\pc #"6" s4-\tg #"7" s4-\pc #"8" 
s4-\pc #"8" s4-\tg #"7"
}

lignebasse = \chords { g4 r g r d1 g4 r g r }
%----------------------
\score {
\new StaffGroup <<
    \new Staff{
      \clef "G"
      \context Voice = "melodie" {\melodie}}
    %=================== Tablatures
  \new DrumStaff
    \with {
      \override StaffSymbol #'line-count = #1
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"
    }
    %=== main droite (mélodie)
    <<
      \set Staff.instrumentName = \markup{\column{C G}}
      {\autoBeamOff
       \maindroite
      }
    >>
 \new DrumStaff
    \with {
      \override StaffSymbol #'line-count = #0
      \remove "Time_signature_engraver"
      \remove "Clef_engraver"}
    %====== main gauche (basse accord)
    <<
      \set Staff.instrumentName = \markup{\column{MG}}
      \lignebasse

    >>

    >>


  \layout {
    \context {
      \ChordNames
      \consists Staff_symbol_engraver
      \consists Bar_engraver
      \override StaffSymbol.line-count = 1
      \override StaffSymbol.line-positions =#'(2)
      \override VerticalAxisGroup.default-staff-staff-spacing =
      #'((basic-distance . 1.5)
         (padding . -5))
      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))))
    }
  }
}