X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-stencil-commands.scm;h=6fc7188aa90101b200605990394a2d61b5584193;hb=f114f22fd1ca52a46d76b34480bb0f19282a0e84;hp=46d315381ea674d710f269f4e797beb7803773ce;hpb=11153496a76ccdfb764d4d9f217edc0a2d0f49c8;p=lilypond.git

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 46d315381e..6fc7188aa9 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -3,10 +3,15 @@
 ;;
 ;; source file of the GNU LilyPond music typesetter
 ;;
-;; (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;; (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;
 
-(map ly:register-stencil-expression
+;; TODO:
+;;  - stencil-commands should have docstrings.
+
+(define-public (ly:all-stencil-commands)
+  "Return the list of stencil commands that can be
+defined in the output modules (output-*.scm)"
      '(beam
        bezier-sandwich
        blank
@@ -17,29 +22,46 @@
        dashed-slur
        dot
        draw-line
-       filledbox
+       ellipse
+       embedded-ps
+       embedded-svg
        glyph-string
        named-glyph
+       oval
+       path
        polygon
        repeat-slash
+       resetcolor
+       resetrotation
        round-filled-box
+       setcolor
+       setrotation
        text
        url-link
-       utf8-string
+       utf-8-string
        white-dot
        white-text
-       embedded-ps
-       zigzag-line))
+       zigzag-line
+
+       grob-cause
+       no-origin
+       placebox
+       unknown
+       ))
 
 ;; TODO:
-;;  - generate this list by registering the output-backend-commands
-;;    output-backend-commands should have docstrings.
-;;  - remove hard copies in output-ps output-tex
+;;  - output-backend-commands should have docstrings.
 
 (define-public (ly:all-output-backend-commands)
-  "Return list of output backend commands."
-  '(
-    grob-cause
-    no-origin
-    placebox
-    unknown))
+  "Return the list of extra output backend commands that
+are used internally in lily/stencil-interpret.cc."
+  '(color
+    combine-stencil
+    delay-stencil-evaluation
+    rotate-stencil
+    translate-stencil
+    ))
+
+(map ly:register-stencil-expression
+  (append (ly:all-stencil-commands)
+	  (ly:all-output-backend-commands)))