;;;; source file of the GNU LilyPond music typesetter
;;;;
;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;; The public interface is tight.
dashed-slur
named-glyph
dashed-line
- zigzag-line
comment
repeat-slash
placebox
"\\char" (number->string subidx))
(begin
- (ly:warning (_ "can't find ~a in ~a" name font))
+ (ly:warning (_ "cannot find ~a in ~a" name font))
""))))
(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
(define (no-origin) "")
-
-
(define-public (line-location file line col)
"Print an input location, without column number ."
(string-append (number->string line) " " file))