summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/metapost/mpattern/mpp
blob: d5d81c5be59f4be0d7cbb086d3ee33e9a95cf860 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/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(<LOG>) {
    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(<IN>){
	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";