- (draw-line th x1 0 x2 0))
-
-(define (fontify name-mag-pair exp)
-
- (define (select-font name-mag-pair)
- (let ((c (assoc name-mag-pair font-name-alist)))
-
- (if c
- (string-append " " (cddr c) " ")
- (begin
- (ly:warn
- (format "Programming error: No such font: ~S" 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 (select-font name-mag-pair) exp))
-
-(define (header creator generate)
- (string-append
- "%!PS-Adobe-3.0\n"
- "%%Creator: " creator generate "\n"))
-
-(define (header-end)
- (string-append
- ;; URG: now we can't use scm output without Lily
- (ly:gulp-file "lilyponddefs.ps")
- "{exch pop //systemdict /run get exec}\n\n"
- (ly:gulp-file "music-drawing-routines.ps")
- "{ exch pop //systemdict /run get exec }\n\n"
- ;; ps-testing wreaks havoc when used with lilypond-book.
- ;; -- is this still true with new modules system?
-;; (if (defined? 'ps-testing) "\n /testing true def" "")
- ; "\n /testing true def"
- ))