X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-stencil-commands.scm;h=904b6348d42c967ccce64e705935d38749c30cdc;hb=9e781b7dc83b60a543ce218aa1a5f139f74c760f;hp=c8a6b179622d6b071064edb6a3e3afbb5d9bfa9a;hpb=1be9b72e4f00f7273a8e5ff220b710a52f975344;p=lilypond.git

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index c8a6b17962..904b6348d4 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2005--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2005--2014 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
@@ -21,15 +21,10 @@
 (define-public (ly:all-stencil-commands)
   "Return the list of stencil commands that can be
 defined in the output modules (@file{output-*.scm})."
-  '(beam
-    bezier-sandwich
-    blank
-    bracket
+  '(blank
     char
     circle
     dashed-line
-    dashed-slur
-    dot
     draw-line
     ellipse
     embedded-ps
@@ -39,13 +34,11 @@ defined in the output modules (@file{output-*.scm})."
     grob-cause
     named-glyph
     no-origin
-    oval
     page-link
     path
     partial-ellipse
     placebox
     polygon
-    repeat-slash
     resetcolor
     resetrotation
     resetscale
@@ -58,7 +51,6 @@ defined in the output modules (@file{output-*.scm})."
     unknown
     url-link
     utf-8-string
-    zigzag-line
     ))
 
 ;; TODO:
@@ -75,8 +67,9 @@ are used internally in @file{lily/@/stencil-interpret.cc}."
     rotate-stencil
     scale-stencil
     translate-stencil
+    transparent-stencil
     ))
 
-(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)))