* scm/chord-name.scm: don't export anything from chord module.

[lilypond.git] / scm / tex.scm

diff --git a/scm/tex.scm b/scm/tex.scm
index 4026ec1789c13b94e388ec52b9f6efd86409abb8..cdb5cec39ea0fa00e60c22ed98f2381c53698720 100644 (file)
--- a/scm/tex.scm
+++ b/scm/tex.scm
@@ -81,6 +81,12 @@
     
     ))
 
+(define (blank)
+  "")
+
+(define (dot x y radius)
+  (embedded-ps (list 'dot x y radius)))
+
 (define (beam width slope thick)
   (embedded-ps (list 'beam  width slope thick)))
 
@@ -99,6 +105,9 @@
 (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 (font-load-command name-mag command)
   (string-append
    "\\font\\" command "="
@@ -257,6 +266,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)))
 
@@ -274,15 +286,8 @@
 ;; no-origin not yet supported by Xdvi
 (define (no-origin) "")
 
-(define my-eval-in-module eval)
-
-(if (or (equal? (minor-version) "4.1")
-       (equal? (minor-version) "4")
-       (equal? (minor-version) "3.4"))
-    (set! my-eval-in-module eval-in-module))
-
 (define-public (tex-output-expression expr port)
-  (display (my-eval-in-module expr this-module) port )
+  (display (eval expr this-module) port )
   )