* Documentation/topdocs/NEWS.tely: add inputfileref macro.

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

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index e4aab9f61395a9784a31d7e24f5cf142b2669799..c0aa31680bcb9fa7f94228bc141a643923235390 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -23,30 +23,29 @@
 
   ;; JUNK this -- see lily.scm: ly:all-output-backend-commands
   #:export (unknown
-            blank
-            dot
-            white-dot
-            beam
-            bracket
-            dashed-slur
-            named-glyph
-            dashed-line
-            zigzag-line
-            ez-ball
-            comment
-            repeat-slash
-            placebox
-            bezier-sandwich
-            horizontal-line
-            filledbox
-            round-filled-box
-            text
-            white-text
-            polygon
-            draw-line
-            no-origin
-            grob-cause
-            ))
+           blank
+           dot
+           white-dot
+           beam
+           bracket
+           dashed-slur
+           named-glyph
+           dashed-line
+           zigzag-line
+           ez-ball
+           comment
+           repeat-slash
+           placebox
+           bezier-sandwich
+           horizontal-line
+           filledbox
+           round-filled-box
+           text
+           white-text
+           polygon
+           draw-line
+           no-origin
+           grob-cause))
 
 (use-modules (ice-9 regex)
             (ice-9 string-fun)
@@ -56,11 +55,16 @@
             (scm framework-tex)
             (lily))
 
+
+
 ;;;;;;;;
 ;;;;;;;; DOCUMENT ME!
 ;;;;;;;;
 
 
+(define (char font i)
+  (string-append "\\" (tex-font-command font)
+                "\\char" (ly:inexact->string i 10) " "))
 
 (define (unknown) 
   "%\n\\unknown\n")
@@ -86,33 +90,25 @@
 (define (bracket arch_angle arch_width arch_height height arch_thick thick)
   (embedded-ps (list 'bracket  arch_angle arch_width arch_height height arch_thick thick)))
 
-(define (dashed-slur thick dash l)
-  (embedded-ps (list 'dashed-slur thick dash `(quote ,l))))
-
-(define (digits->letters str)
-    (regexp-substitute/global
-     #f "([0-9])" str
-     'pre
-     (lambda (match)
-       (make-string
-       1
-       (integer->char
-        (+ (char->integer #\A)
-           (- (char->integer #\0))
-           (char->integer (string-ref (match:substring match 1) 0)))
-        )))
-     'post))
+(define (dashed-slur thick on off lst)
+  (embedded-ps (list 'dashed-slur thick on off `(quote ,lst))))
 
 (define (named-glyph font name)
-  (string-append "\\" (tex-font-command font)
-                "\\"
-                (string-append
-;                (digits->letters (ly:font-name font))
-                 (regexp-substitute/global
-                  #f "[\\._]"
-                  (digits->letters name)
-                  'pre ""
-                  'post))))
+  (let* ((info (ly:otf-font-glyph-info font name))
+        (subfont (assoc-get 'subfont info))
+        (subidx  (assoc-get 'subfont-index info)))
+    
+    ;;(stderr "INFO: ~S\n" info)
+    ;;(stderr "FONT: ~S\n" font)
+    (if (and subfont subidx)
+       (string-append "\\" (tex-font-command-raw
+                            subfont
+                            (ly:font-magnification font))
+                      "\\char" (number->string subidx))
+
+       (begin
+         (ly:warn "Can't find ~a in ~a" name font)
+         ""))))
 
 (define (dashed-line thick on off dx dy)
   (embedded-ps (list 'dashed-line  thick on off dx dy)))
@@ -120,23 +116,18 @@
 (define (zigzag-line centre? zzw zzh thick dx dy)
   (embedded-ps (list 'zigzag-line centre? zzw zzh thick dx dy)))
 
-(define (ez-ball c l b)
-  (embedded-ps (list 'ez-ball  c  l b)))
-
-
+(define (ez-ball c lst b)
+  (embedded-ps (list 'ez-ball c lst b)))
 
 (define (embedded-ps expr)
   (let ((ps-string
         (with-output-to-string
           (lambda () (ps-output-expression expr (current-output-port))))))
     (string-append "\\embeddedps{" ps-string "}")))
-  
 
 (define (repeat-slash w a t)
   (embedded-ps (list 'repeat-slash  w a t)))
 
-
-
 (define (number->dim x)
   (string-append
    ;;ugh ly:* in backend needs compatibility func for standalone output
@@ -146,8 +137,8 @@
   (string-append
    "\\lyitem{" (ly:number->string x) "}{" (ly:number->string y) "}{" s "}%\n"))
 
-(define (bezier-sandwich l thick)
-  (embedded-ps (list 'bezier-sandwich  `(quote ,l) thick)))
+(define (bezier-sandwich lst thick)
+  (embedded-ps (list 'bezier-sandwich `(quote ,lst) thick)))
 
 ;; WTF is this in every backend?
 (define (horizontal-line x1 x2 th)
@@ -168,30 +159,13 @@
   (embedded-ps (list 'round-filled-box  x y width height blotdiam)))
 
 (define (text font s)
-  (let*
-      ((mapping #f)       ;; (assoc-get  'char-mapping (ly:font-encoding-alist font))))
-
-
-       ;; TODO: we'd better do this for PS only
-       ;; LaTeX gets in the way, and we need to remap
-       ;; nonprintable chars.
-       
-       (input-enc-name #f) ;; (assoc-get 'input-name (ly:font-encoding-alist font) ))
-       )
-
-    (string-append "\\hbox{\\" (tex-font-command font)
-                  (if (string? input-enc-name)
-                      (string-append "\\inputencoding{" input-enc-name "}")
-                      "{}")
-                  (sanitize-tex-string
-                   (if (vector? mapping)
-                       (reencode-string mapping s)
-                       s))
-                  "}")))
+  (format
+   "\\hbox{\\~a{}~a}" (tex-font-command font)
+   (sanitize-tex-string s)))
 
 (define (white-text scale s)
-   (embedded-ps (list 'white-text scale s)))
-   
+  (embedded-ps (list 'white-text scale s)))
+
 (define (polygon points blotdiameter)
   (embedded-ps (list 'polygon `(quote ,points) blotdiameter)))