1 ;;;; texstr.scm -- implement Scheme output routines for TeX strings
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 (define-module (scm output-texstr))
8 (define this-module (current-module))
16 (define (dummy . foo) #f)
18 (map (lambda (x) (module-define! this-module x dummy))
19 (ly:all-stencil-expressions))
21 (define-public (grob-cause . x) "")
22 (define-public (no-origin . x) "")
23 (define-public (placebox
28 (define-public (text font str)
29 (call-with-output-string
31 (display (format "\\lilygetmetrics{~a~a}{~a}{1.0}{~a}\n"
33 (hash str TEX_STRING_HASHLIMIT)
34 (ly:font-file-name font)
35 (ly:font-file-name font)