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

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index f7beaee3a9..2e816ccaa2 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--2009 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,29 +17,41 @@
        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
 ;;    output-backend-commands should have docstrings.
-;;  - remove hard copies in output-ps output-tex
+;;  - remove hard copies in output-ps
 
 (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))