From 68b16a6fb7340a5fe52ce884796726953c45d6e9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 27 Nov 2007 15:52:25 +0000 Subject: update mpattern from ctan, changes test files git-svn-id: svn://tug.org/texlive/trunk@5628 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/source/metapost/mpattern/mpp | 55 -------------------------- 1 file changed, 55 deletions(-) delete mode 100644 Master/texmf-dist/source/metapost/mpattern/mpp (limited to 'Master/texmf-dist/source/metapost') diff --git a/Master/texmf-dist/source/metapost/mpattern/mpp b/Master/texmf-dist/source/metapost/mpattern/mpp deleted file mode 100644 index d5d81c5be59..00000000000 --- a/Master/texmf-dist/source/metapost/mpattern/mpp +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/perl -i -########################################################################### -# This file is part of the MPATTERN package -# -# mpp: Postprocessing MetaPost output files in which patterns were used -# -# Author: Piotr Bolek -# version: 0.2 (Sep 25, 1998) -# -# $Id: mpp,v 1.3 1998/09/25 10:49:30 piotrek Exp $ -########################################################################### - -$file=shift; -($logfile = $file . ".log") =~ s/\.mp\.log/.log/; -$file =~ s/\.mp$//; - -system("mpost $file"); - -open LOG, $logfile; -while() { - if (/Pattern:(\d+)/) { - push @pictures, $1; - } -} - -print STDERR "Postprocessing patterns"; - -for $i (@pictures) { - $newfile="$file.$i"; print STDERR "."; - $oldfile="$file.p!!"; - rename($newfile,$oldfile); - - open IN, $oldfile; - open OUT, ">$newfile"; - $output = $fonts = ""; - LINE: - while(){ - if((/^%%EndProlog\s*$/../^%%EOF\s*$/) && /%*Font:/) { - $fonts .= $_; - next LINE; - } - if(/^% Pattern:(0\.[0-9]+):(.*)/) { - $pattern{$1}=$2; -# print STDERR "\$pattern{$1}=$2\n"; - } - if(/^ (0\.[0-9]+) setgray/ && (defined $pattern{$1})) { - s"^ (0\.[0-9]+).*"%$&\n$pattern{$1} setpattern"; - } - $output .= $_; - } - $output =~ s/%%EndProlog/$fonts$&/; - print OUT $output; - unlink $oldfile; -} -print STDERR "\n"; -- cgit v1.2.3