#!/usr/bin/perl -w

use strict;

my %filesToChange = (
  'tetraPlot.eps' => 1,
  'tetraSizePlot.eps' => 1,
  'tetraBondsPlot.eps' => 1,
  'tetraTorsionPlot.eps' => 1,
  'tetraTorsionSizePlot.eps' => 1,
  'tetraTorsionBondsPlot.eps' => 1,

  'octaPlot.eps' => 1,
  'octaSizePlot.eps' => 1,
  'octaBondsPlot.eps' => 1,
  'octaTorsionPlot.eps' => 1,
  'octaTorsionSizePlot.eps' => 1,
  'octaTorsionBondsPlot.eps' => 1,

  'cubePlot.eps' => 1,
  'cubeSizePlot.eps' => 1,
  'cubeBondsPlot.eps' => 1,
  'cubeTorsionPlot.eps' => 1,
  'cubeTorsionSizePlot.eps' => 1,
  'cubeTorsionBondsPlot.eps' => 1,

  'icosaPlot.eps' => 1,
  'icosaSizePlot.eps' => 1,
  'icosaBondsPlot.eps' => 1,
  'icosaTorsionPlot.eps' => 1,
  'icosaTorsionSizePlot.eps' => 1,
  'icosaTorsionBondsPlot.eps' => 1,

  'icosaFixedTor1Plot.eps' => 1,
);

for (`ls *.eps`) {
    chomp;
    if ($filesToChange{$_}) {
	my $changed;
	my $inFile = $_;
	open INFILE, "<$inFile" or die "$!";
	my $outFile = $_ . "2";
	open OUTFILE, ">$outFile";
	for (<INFILE>) {
	    $changed = 1 if /(\%\%BoundingBox\:.*)410/;
	    s/(\%\%BoundingBox\:.*)410/${1}433/;
	    print OUTFILE;
	}
	print `mv $outFile $inFile`;
	print "Fixed bounding box for $_.\n" if $changed;
    }
}
