*** empty log message ***

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index 41b43d2d68c30abbde7ac1868e016e46f08d9398..af3470c02eed53d8a43f21d7acbcb4788b757ab8 100644 (file)
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -81,6 +81,9 @@
     
     ))
 
+(define (dot x y radius)
+  (embedded-ps (list 'dot x y radius)))
+
 (define (beam width slope thick)
   (embedded-ps (list 'beam  width slope thick)))
 
@@ -260,6 +263,9 @@
 (define (tuplet ht gapx dx dy thick dir)
   (embedded-ps (list 'tuplet  ht gapx dx dy thick dir)))
 
+(define (polygon points blotdiameter)
+  (embedded-ps (list 'polygon points blotdiameter)))
+
 (define (draw-line thick fx fy tx ty)
   (embedded-ps (list 'draw-line thick fx fy tx ty)))