X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-stencil-commands.scm;h=2ff87cfc7292baa0443821d62d4be76642975fe3;hb=51f0b5dbbd1b93207a6d02bb40cf24ad04e78feb;hp=9b0b9422d6adc459071fbc497fdbb47f552e246e;hpb=e864a61c53a13b5b53843dc702f6ba4e54a8fc6b;p=lilypond.git

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 9b0b9422d6..2ff87cfc72 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -3,51 +3,64 @@
 ;;
 ;; source file of the GNU LilyPond music typesetter
 ;;
-;; (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;; (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;
 
-(map ly:register-stencil-expression
-     '(beam
-       bezier-sandwich
-       blank
-       bracket
-       char
-       circle
-       dashed-line
-       dashed-slur
-       dot
-       draw-line
-       embedded-ps
-       glyph-string
-       named-glyph
-       path
-       polygon
-       repeat-slash
-       resetcolor
-       round-filled-box
-       setcolor
-       text
-       url-link
-       utf-8-string
-       white-dot
-       white-text
-       zigzag-line
+;; TODO:
+;;  - stencil-commands should have docstrings.
 
-       grob-cause
-       no-origin
-       placebox
-       unknown
-       ))
+(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
+    bracket
+    char
+    circle
+    dashed-line
+    dashed-slur
+    dot
+    draw-line
+    ellipse
+    embedded-ps
+    embedded-svg
+    glyph-string
+    grob-cause
+    named-glyph
+    no-origin
+    oval
+    path
+    placebox
+    polygon
+    repeat-slash
+    resetcolor
+    resetrotation
+    round-filled-box
+    setcolor
+    setrotation
+    text
+    unknown
+    url-link
+    utf-8-string
+    white-dot
+    white-text
+    zigzag-line
+    ))
 
 ;; 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."
-  '(combine-stencil
-    color
-    translate-stencil))
+  "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 (ly:all-output-backend-commands))
+(map ly:register-stencil-expression
+  (append (ly:all-stencil-commands)
+	  (ly:all-output-backend-commands)))