* Documentation/user/instrument-notation.itely (String number

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index e975b35acff004b150996132d95b5b1fa144894b..bd8d08c5875d78130892252e99032ebc83546fab 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -16,6 +16,14 @@
   "Stencil as markup"
   stil)
 
+(def-markup-command (circle layout props radius thickness)
+  (number? number?)
+  "A circle of radius @var{radius} and thickness @var{thickness}"
+
+  (ly:make-stencil
+   (list 'circle radius thickness)
+   (cons (- radius) radius)
+   (cons (- radius) radius)))
 
 (def-markup-command (with-url layout props url arg) (string? markup?)
   "Add a link to URL @var{url} around @var{arg}. This only works in