#! /usr/bin/perl

#  Creates the metafont file needed for darker copies of the TeX fonts,
#  and modifies mftrace to use it.
#  
#  Usage:  ./makeBlacker blackness

$blacker = shift;
unless ($blacker) {
  print stderr "Usage:  ./makeBlacker blackness\n";
  exit;
}

$MFTRACE = "/opt/local/bin/mftrace";

sub editMftrace {
  my $oldMFTRACE = $MFTRACE;
  $MFTRACE = "./lib/mftrace-modified";
  print "Editing mftace\n";
  open(MFT,$oldMFTRACE) || die "Can't read '$oldMFTRACE': $!\n";
  my $MFT = join("",<MFT>);
  close(MFT);
  $MFT =~ s!r"mf '\\mode:=(?:[^;]*)(; [^"]*)"!r"""mf '\\smode:="lib/blacker.mf"$1"""!;
  open(MFT,">$MFTRACE") || die "Can't write '$MFTRACE': $!\n";
  print MFT $MFT;
  close(MFT);
  chmod 0755, $MFTRACE;
}

sub makeBlackerMF {
  my $blacker = shift;
  print "Using blacker = $blacker\n";
  open(BLACKER,">lib/blacker.mf") || die "Can't write 'lib/blacker.mf': $!\n";
  print BLACKER << "  END";
    proofing:=0;
    fontmaking:=1;
    tracingtitles:=0;
    pixels_per_inch:=1200;
    blacker:=$blacker;
    fillin:=0;
    o_correction:=1;
  END
  close(BLACKER);
}

editMftrace();
makeBlackerMF($blacker);

1;