* Documentation/user/examples.itely: removed \midi block to

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

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 0943751436fd0d2a1927ef68c09ac95c3ea44416..4ea8fbe77d2419d82e7e156251f7bf411cc99cd8 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -3,19 +3,29 @@
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
 ;;;; (c)  1998--2004 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;;                  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
 ;; (debug-enable 'backtrace)
 
-;; the public interface is tight.
+;; The public interface is tight.
 ;; It has to be, because user-code is evalled with this module.
 
+;; ***It should also be clean, well defined, documented and reviewed***
+
+;; To be reasonably safe, you probably do not want to use the TeX
+;; backend anyway, but rather the PostScript backend.  You may want
+;; to run gs in a uml sandbox too.
+
+
 (define-module (scm output-tex)
   #:re-export (quote)
+
+  ;; JUNK this -- see lily.scm: ly:all-output-backend-commands
   #:export (unknown
             blank
             dot
+            white-dot
             beam
             bracket
             dashed-slur
@@ -32,11 +42,12 @@
             filledbox
             round-filled-box
             text
+            white-text
             tuplet
             polygon
             draw-line
-            define-origin
             no-origin
+            grob-cause
             ))
 
 (use-modules (ice-9 regex)
@@ -64,6 +75,13 @@
 (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)))
+
 (define (beam width slope thick blot)
   (embedded-ps (list 'beam  width slope thick blot)))
 
@@ -156,7 +174,9 @@
                        s))
                   "}")))
 
-
+(define (white-text scale s)
+   (embedded-ps (list 'white-text scale s)))
+   
 (define (tuplet ht gapx dx dy thick dir)
   (embedded-ps (list 'tuplet  ht gapx dx dy thick dir)))
 
@@ -166,13 +186,19 @@
 (define (draw-line thick fx fy tx ty)
   (embedded-ps (list 'draw-line thick fx fy tx ty)))
 
-(define (define-origin file line col)
-  (if (procedure? point-and-click)
-      (string-append "\\special{src:" ;;; \\string ? 
-                    (point-and-click line col file)
-                    "}" )
-      ""))
-
 ;; no-origin not yet supported by Xdvi
 (define (no-origin) "")
 
+(define (grob-cause grob)
+  (if (procedure? point-and-click)
+      (let* ((cause (ly:grob-property grob 'cause))
+            (music-origin (if (ly:music? cause)
+                              (ly:music-property cause 'origin)))
+            (location (if (ly:input-location? music-origin)
+                          (ly:input-location music-origin))))
+       (if (pair? location)
+            ;;; \\string ? 
+           (string-append "\\special{src:"
+                          (apply point-and-click location) "}")
+           ""))
+      ""))