;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2008 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
dashed-slur
named-glyph
dashed-line
- zigzag-line
comment
repeat-slash
placebox
(use-modules (ice-9 regex)
(ice-9 string-fun)
- (ice-9 format)
(guile)
(srfi srfi-13)
(scm framework-tex)
(define (dashed-line thick on off dx dy phase)
(embedded-ps (list 'dashed-line thick on off dx dy phase)))
-(define (zigzag-line centre? zzw zzh thick dx dy)
- (embedded-ps (list 'zigzag-line centre? zzw zzh thick dx dy)))
-
(define (embedded-ps expr)
(let ((ps-string
(with-output-to-string
(embedded-ps (list 'round-filled-box x y width height blotdiam)))
(define (text font s)
- (format
+ (format #f
"\\hbox{\\~a{}~a}" (tex-font-command font)
(sanitize-tex-string s)))
(string-append "\\special{src:"
(line-column-location location) "}")
""))
- ""))
\ No newline at end of file
+ ""))