2004-02-09 Jan Nieuwenhuizen <janneke@gnu.org>
+ * scripts/lilypond-book.py (compose_ly): Add kludge for relative.
+
* Documentation/user/refman.itely: Run texinfo-all-menus-update
(fixes make web).
@noindent
then the result looks like this:
-@c ?
-@c \transpose c c' { c d e f g a b }
-@c @lily pond[notime]
-@c \property Score.timing = ##f
-@lilypond[notime,relative=2]
+@lilypond[notime,relative]
c d e f g a b
@end lilypond
-
;;; tex.scm -- implement Scheme output routines for TeX
;;;
;;; source file of the GNU LilyPond music typesetter
(if (eq? c #f)
(begin
- (display "FAILED\n")
- (display (object-type (car name-mag-pair)))
- (display (object-type (caaar font-name-alist)))
-
(ly:warn (string-append
"Programming error: No such font known "
(car name-mag-pair) " "
- (ly:number->string (cdr name-mag-pair))
- ))
- "") ; issue no command
- (string-append "\\" (cddr c)))
-
-
- ))
+ (ly:number->string (cdr name-mag-pair))))
+
+ (display "FAILED\n" (current-error-port))
+ (if #f ;(pair? name-mag-pair))
+ (display (object-type (car name-mag-pair)) (current-error-port))
+ (write name-mag-pair (current-error-port)))
+ (if #f ; (pair? font-name-alist)
+ (display
+ (object-type (caaar font-name-alist)) (current-error-port))
+ (write font-name-alist (current-error-port)))
+
+ ;; (format #f "\n%FAILED: (select-font ~S)\n" name-mag-pair))
+ "")
+
+ (string-append "\\" (cddr c)))))
(define (blank)
"")