-
-(define-public (postscript->pdf paper-width paper-height name)
- (let* ((pdf-name (string-append
- (basename (basename name ".ps") ".eps")
- ".pdf"))
- (is-eps (string-match "\\.eps$" name))
- (paper-size-string (if is-eps
- " -dEPSCrop "
- (format "-dDEVICEWIDTHPOINTS=~,2f \
--dDEVICEHEIGHTPOINTS=~,2f "
- paper-width paper-height )))