From 19da05793497d681edd16a0d88b47e98fc55c7bf Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Tue, 18 Jan 2005 08:30:37 +0000 Subject: [PATCH] * scm/framework-ps.scm (procset): New function to define a procset resource. (preamble): Use it. --- ChangeLog | 2 ++ scm/framework-ps.scm | 18 +++++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 36513a4bdc..889d4e7a3c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,8 @@ 2005-01-18 Werner Lemberg * scm/framework-ps.scm (ps-embed-cff): Fix DSC comments. + (procset): New function to define a procset resource. + (preamble): Use it. 2005-01-18 Han-Wen Nienhuys diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 188edf57fa..35813d046c 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -193,6 +193,15 @@ (supplies-or-needs paper load-fonts?) "%%EndComments\n")) +(define (procset name) + (string-append + (format + "%%BeginResource: procset (~a) 1 0 +~a +%%EndResource +" + name (ly:gulp-file name)))) + (define (preamble paper load-fonts?) (define (load-fonts paper) (let* ((fonts (ly:paper-fonts paper)) @@ -232,14 +241,13 @@ (list (output-variables paper) - (ly:gulp-file "music-drawing-routines.ps") - (ly:gulp-file "lilyponddefs.ps") + (procset "music-drawing-routines.ps") + (procset "lilyponddefs.ps") (if load-fonts? - (load-fonts paper) - "") + (load-fonts paper)) (define-fonts paper))) -(define-public (output-framework basename book scopes fields ) +(define-public (output-framework basename book scopes fields) (let* ((filename (format "~a.ps" basename)) (outputter (ly:make-paper-outputter filename (ly:output-backend))) -- 2.39.5