X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-stencil-commands.scm;h=a7f762ecfdcc5447be93ef2149ba258d576f99ec;hb=HEAD;hp=2ff87cfc7292baa0443821d62d4be76642975fe3;hpb=18b1975ebc7601abf5fb49df87d5a965c53fce9b;p=lilypond.git

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 2ff87cfc72..a7f762ecfd 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -1,51 +1,56 @@
-;;
-;; 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>
-;;
+;;;; This file is part of LilyPond, the GNU music typesetter.
+;;;;
+;;;; Copyright (C) 2005--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;;
+;;;; LilyPond is free software: you can redistribute it and/or modify
+;;;; it under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation, either version 3 of the License, or
+;;;; (at your option) any later version.
+;;;;
+;;;; LilyPond is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 ;; 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
-    bracket
+defined in the output modules (@file{output-*.scm})."
+  '(blank
     char
     circle
     dashed-line
-    dashed-slur
-    dot
     draw-line
     ellipse
     embedded-ps
     embedded-svg
+    end-group-node
     glyph-string
     grob-cause
     named-glyph
     no-origin
-    oval
+    page-link
     path
+    partial-ellipse
     placebox
     polygon
-    repeat-slash
     resetcolor
     resetrotation
+    resetscale
     round-filled-box
     setcolor
     setrotation
+    setscale
+    start-group-node
     text
     unknown
     url-link
     utf-8-string
-    white-dot
-    white-text
-    zigzag-line
     ))
 
 ;; TODO:
@@ -53,14 +58,19 @@ defined in the output modules (output-*.scm)"
 
 (define-public (ly:all-output-backend-commands)
   "Return the list of extra output backend commands that
-are used internally in lily/stencil-interpret.cc."
+are used internally in @file{lily/@/stencil-interpret.cc}."
   '(color
     combine-stencil
     delay-stencil-evaluation
+    footnote
+    output-attributes
     rotate-stencil
+    scale-stencil
     translate-stencil
+    transparent-stencil
+    with-outline
     ))
 
-(map ly:register-stencil-expression
-  (append (ly:all-stencil-commands)
-	  (ly:all-output-backend-commands)))
+(for-each ly:register-stencil-expression
+          (append (ly:all-stencil-commands)
+                  (ly:all-output-backend-commands)))