Documentation/snippets/drawing-circles-around-note-heads.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.2"
   8
   9 \header {
  10   lsrtags = "editorial-annotations"
  11
  12 %% Translation of GIT committish: 30339cb3706f6399c84607426988b25f79b4998c
  13   texidocfr = "
  14 Voici comment entourer d'un cercle une note :
  15
  16 "
  17   doctitlefr = "Encerclement de notes"
  18
  19   texidoc = "
  20 Here is how to circle a note.
  21
  22 "
  23   doctitle = "Drawing circles around note heads"
  24 } % begin verbatim
  25
  26 circle =
  27 \once \override NoteHead #'stencil = #(lambda (grob)
  28     (let* ((note (ly:note-head::print grob))
  29            (combo-stencil (ly:stencil-add
  30                note
  31                (circle-stencil note 0.1 0.8))))
  32           (ly:make-stencil (ly:stencil-expr combo-stencil)
  33             (ly:stencil-extent note X)
  34             (ly:stencil-extent note Y))))
  35
  36 { \circle c' }