Re: Mathtimes

[Hans Hagen <pragma@wxs.nl>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: multipart/mixed;, Size: 2295 bytes --]

This is a multi-part message in MIME format.
--------------148F34903EF7F56658D9491A
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

David Arnold wrote:

> at the beginning of my Metapost file, as in the attached twomasses.mp, I
> can use distiller to produce twomasses.pdf from the resulting twomasses.1,
> no problem. Everything looks good at this end. Open the pdf file for me and
> see if all looks well to you.
> 
> Then, if I comment out the above lines, computer modern is assumed and
> distiller will not deal with the resulting twomasses.1.

Indeed. As I told you before, MP output expects DVIPS. Nevertheless, you
can use the attached script to convert a .1 file into an .mps that can
be handled by distiller. 

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.nl
-----------------------------------------------------------------
--------------148F34903EF7F56658D9491A
Content-Type: application/x-perl;
 name="mptomps.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="mptomps.pl"

# copyright : PRAGMA ADE / Hans Hagen / 29 aug 1999
# 
# PRAGMA Advanced Document Engineering / www.prama-ade.nl 
#
# This script is part of ConTeXt and will be incorporated into texutil. 

@files = glob "$ARGV[0].1" ; 

foreach $file (@files) 
  { ($name,$suffix) = split (/\./, $file) ; 
    if (open(INP,$file)&&open(OUT,">$name.mps"))  
      { print "$file => $name.mps" ; 
        while (<INP>)
          { chomp ; 
            if (/%%DocumentFonts: (.*)/) 
              { @fonts = split (/ /, $1) ; 
                print OUT "%%DocumentFonts:" ; 
                print " : cm fonts" ; 
                foreach (@fonts) 
                  { if (/^cm/i) { $_ = uc $_ ; print " $_" } 
                    print OUT " $_" }
                print OUT "\n" }
            elsif (/\s*(\/cm.*)\s*(\/cm.*) def/i) 
              { print OUT " $1 " . uc $2 . " def\n" } 
            else 
              { print OUT "$_\n" } } 
        print "\n" ; 
        close (INP) ; 
        close (OUT) } }   

--------------148F34903EF7F56658D9491A--