Brunobkr/llama.cpp_AlgMor24_github

1#! /usr/bin/perl2 3#  Creates the metafont file needed for darker copies of the TeX fonts,4#  and modifies mftrace to use it.5#6#  Usage:  ./makeBlacker blackness7 8require "custom.cfg.pl";9 10$blacker = shift;11unless ($blacker) {12  print stderr "Usage:  ./makeBlacker blackness\n";13  exit;14}15 16sub editMftrace {17  my $oldMFTRACE = $MFTRACE_PATH;18  $MFTRACE = "./lib/mftrace-modified";19  print "Editing mftrace\n";20  open(MFT,$oldMFTRACE) || die "Can't read '$oldMFTRACE': $!\n";21  my $MFT = join("",<MFT>);22  close(MFT);23  $MFT =~ s!r"mf '\\mode:=(?:[^;]*)(; [^"]*)"!r"""mf '\\smode:="lib/blacker.mf"$1"""!;24  open(MFT,">$MFTRACE") || die "Can't write '$MFTRACE': $!\n";25  print MFT $MFT;26  close(MFT);27  chmod 0755, $MFTRACE;28}29 30sub makeBlackerMF {31  my $blacker = shift;32  print "Using blacker = $blacker\n";33  open(BLACKER,">lib/blacker.mf") || die "Can't write 'lib/blacker.mf': $!\n";34  print BLACKER << "  END";35    proofing:=0;36    fontmaking:=1;37    tracingtitles:=0;38    pixels_per_inch:=1200;39    blacker:=$blacker;40    fillin:=0;41    o_correction:=1;42  END43  close(BLACKER);44}45 46editMftrace();47makeBlackerMF($blacker);48 491;50