* scm/stencil.scm (stack-lines): return empty-stencil if argument

[lilypond.git] / scm / output-tex.scm

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index c75994d0c3191d5d9a8fbf95aa5e0b01e3162679..c8ac8ec04ed1dce379ff0d3127b992cbc0aa647d 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -32,7 +32,6 @@
             char
             dashed-line
             zigzag-line
-            symmetric-x-triangle
             ez-ball
             comment
             repeat-slash
@@ -42,7 +41,7 @@
             filledbox
             round-filled-box
             text
-            tuplet
+            white-text
             polygon
             draw-line
             no-origin
@@ -74,6 +73,10 @@
 (define (dot x y radius)
   (embedded-ps (list 'dot x y radius)))
 
+
+(define (embedded-ps string)
+  (embedded-ps (list 'embedded-ps string)))
+
 (define (white-dot x y radius)
   (embedded-ps (list 'white-dot x y radius)))
 
@@ -96,10 +99,6 @@
 (define (zigzag-line centre? zzw zzh thick dx dy)
   (embedded-ps (list 'zigzag-line centre? zzw zzh thick dx dy)))
 
-(define (symmetric-x-triangle t w h)
-  (embedded-ps (list 'symmetric-x-triangle t w h)))
-
-
 (define (ez-ball c l b)
   (embedded-ps (list 'ez-ball  c  l b)))
 
@@ -169,10 +168,9 @@
                        s))
                   "}")))
 
-
-(define (tuplet ht gapx dx dy thick dir)
-  (embedded-ps (list 'tuplet  ht gapx dx dy thick dir)))
-
+(define (white-text scale s)
+   (embedded-ps (list 'white-text scale s)))
+   
 (define (polygon points blotdiameter)
   (embedded-ps (list 'polygon `(quote ,points) blotdiameter)))