X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-stencil-commands.scm;h=39733c37ce0a3630e1482eaa1f3169c208b4052c;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=f7beaee3a935fa1ec81d184551287160b49d65b5;hpb=9362fc6e2a7604cbe2dd977009e687137b5ef05a;p=lilypond.git

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index f7beaee3a9..39733c37ce 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -1,7 +1,11 @@
+;;
+;; define-stencil-commands.scm -- define valid stencil expression heads
+;;
+;; source file of the GNU LilyPond music typesetter
+;;
+;; (c) 2005--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;
 
-
-;; TODO: generate this list by registering the stencil expressions
-;;       stencil expressions should have docstrings.
 (map ly:register-stencil-expression
      '(beam
        bezier-sandwich
@@ -13,19 +17,31 @@
        dashed-slur
        dot
        draw-line
-       filledbox
+       ellipse
+       embedded-ps
        glyph-string
        named-glyph
+       oval
+       path
        polygon
        repeat-slash
+       resetcolor
        round-filled-box
+       setcolor
        text
        url-link
-       utf8-string
+       utf-8-string
        white-dot
        white-text
-       embedded-ps
-       zigzag-line))
+       zigzag-line
+
+       grob-cause
+       no-origin
+       placebox
+       unknown
+
+       delay-stencil-evaluation
+       ))
 
 ;; TODO:
 ;;  - generate this list by registering the output-backend-commands
@@ -34,8 +50,8 @@
 
 (define-public (ly:all-output-backend-commands)
   "Return list of output backend commands."
-  '(
-    grob-cause
-    no-origin
-    placebox
-    unknown))
+  '(combine-stencil
+    color
+    translate-stencil))
+
+(map ly:register-stencil-expression (ly:all-output-backend-commands))