;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-ps))
(if (and (not embed)
(equal? 'regular (stat:type (stat full-name)))
(equal? name (ly:ttf-ps-name full-name)))
- (set! embed (font-file-as-ps-string name full-name)))
+ (set! embed (font-file-as-ps-string name full-name 0)))
(if (or (equal? "." f)
(equal? ".." f))
#t
#f
systems)
(for-each (lambda (system-list)
+ ;; filter out headers and top-level markup
+ (if (pair? system-list)
(clip-score-systems
(if (> count 0)
(format "~a-~a" basename count)
basename)
- system-list))
+ system-list)))
score-system-list)))
(define-public (output-preview-framework basename book scopes fields)