From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/755
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: Re: Mathtimes
Date: Sun, 29 Aug 1999 14:33:38 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <37C928A2.40B8AE87@wxs.nl>
References: <3.0.5.32.19990827221345.00b2e650@mail.northcoast.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed;
X-Trace: main.gmane.org 1035391597 26789 80.91.224.250 (23 Oct 2002 16:46:37 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 16:46:37 +0000 (UTC)
Original-To: David Arnold <darnold@northcoast.com>
Xref: main.gmane.org gmane.comp.tex.context:755
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:755

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--