[ << Editorial annotations ]	[Top][Contents]	[ Text >> ]
[ < Grob の周りにボックスを表示する ]	[ Up : Editorial annotations ]	[ 様々なオブジェクトの周りを円で囲む > ]

---

符頭の周りを円で囲む

符頭を円で囲む方法です。

circle =
\once \override 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))))

{ \circle c'' }