%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


% ****************************************************************
% Start cut-&-pastable-section
% ****************************************************************

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "snippets/drawing-circles-around-note-heads.ly"
\sourcefileline 0
%% DO NOT EDIT this file manually; it was automatically
%% generated from the LilyPond Wiki
%% (https://wiki.lilypond.community).
%%
%% Make any changes in the Wiki itself, or in
%% `Documentation/snippets/new/`, then run
%% `scripts/auxiliar/makelsr.pl`.
%%
%% This file is in the public domain.

\version "2.24.0"

\header {
%% Translation of GIT committish: a8a85e19654e46d725563e6deba44083ef137a2c
  texidocja = "
符頭を円で囲む方法です。
"
  doctitleja = "符頭の周りを円で囲む"

%% Translation of GIT committish: 606ac3c3b22c41d84aa5fa938d42da5125ac572a
  texidocfr = "
Un cercle peut venir entourer une note à l'aide d'une fonction Scheme
dédiée qui, temporairement, viendra en modifier la propriété
@code{stencil}.
"

  doctitlefr = "Encerclement de notes"

%% Translation of GIT committish: ba471fb6847b18d111fe7ea3c0e3ff86fe37c113
  texidoces = "
Se puede trazar una circunferencia alrededor de la cabeza de una
nota aportando una función de Scheme personalizada para
sobreescribir temporalmente la propiedad @code{stencil}.

"
  doctitlees = "Trazar circunferencias alrededor de la cabeza de las notas"

%% Translation of GIT committish: 8ffecf6be17c6ec2ff87cf31873121a8cce29b09
  texidocca = "
Aquí es presenta com rodejar una nota amb una circumferència.

"
  doctitleca = "Traçar circumferències al voltant del cap de les notes"

  categories = "Editorial annotations, Scheme"

  texidoc = "
A circle can be drawn around a note head by providing a custom Scheme
function to temporarily override the @code{stencil} property.
"

  doctitle = "Drawing circles around note heads"
} % begin verbatim



circle = \tweak NoteHead.stencil
  #(lambda (grob)
    (let* ((note (ly:note-head::print grob))
           (combo-stencil (ly:stencil-add
               note
               (circle-stencil note 0.1 0.8))))
          (ly:make-stencil (ly:stencil-expr combo-stencil)
            (ly:stencil-extent note X)
            (ly:stencil-extent note Y))))
  \etc

{ a' b' \circle c'' d'' }



% ****************************************************************
% end ly snippet
% ****************************************************************
