summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/mf2pt1
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-11-27 21:38:14 +0000
committerKarl Berry <karl@freefriends.org>2020-11-27 21:38:14 +0000
commit887bfffd417c5b4c794b80801fbce4538c049e0c (patch)
tree1cbbc8210291e3e7993e0a887010374d924a75a3 /Master/texmf-dist/scripts/mf2pt1
parentd105e39cfd3ca41faa6daf909518daf2c5cbbf23 (diff)
mf2pt1 (27nov20)
git-svn-id: svn://tug.org/texlive/trunk@57018 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/mf2pt1')
-rwxr-xr-xMaster/texmf-dist/scripts/mf2pt1/mf2pt1.pl17
1 files changed, 9 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl b/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
index abfd02c2f8d..3546aee3931 100755
--- a/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
+++ b/Master/texmf-dist/scripts/mf2pt1/mf2pt1.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#! /usr/bin/env perl
##################################################
# Convert stylized Metafont to PostScript Type 1 #
@@ -7,7 +7,7 @@
########################################################################
# mf2pt1 #
-# Copyright (C) 2014 Scott Pakin #
+# Copyright (C) 2005-2020 Scott Pakin #
# #
# This program may be distributed and/or modified under the conditions #
# of the LaTeX Project Public License, either version 1.3c of this #
@@ -21,7 +21,7 @@
# version 2006/05/20 or later. #
########################################################################
-our $VERSION = "2.5a"; # mf2pt1 version number
+our $VERSION = "2.6"; # mf2pt1 version number
require 5.6.1; # I haven't tested mf2pt1 with older Perl versions
use File::Basename;
@@ -160,7 +160,7 @@ my $filedir;
my $filenoext;
my $versionmsg = "mf2pt1 version $VERSION
-Copyright (C) 2012 Scott Pakin
+Copyright (C) 2005-2020 Scott Pakin
This program may be distributed and/or modified under the conditions
of the LaTeX Project Public License, either version 1.3c of this
@@ -404,11 +404,11 @@ ENDHEADER
}
# Show the final boilerplate.
+ print OUTFILE "/UniqueID $uniqueID def\n" if defined $uniqueID;
print OUTFILE <<"ENDHEADER";
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
-/UniqueID $uniqueID def
/FontBBox{@fontbbox}readonly def
currentdict end
currentfile eexec
@@ -794,13 +794,14 @@ if ($rounding<=0.0 || $rounding>1.0) {
die sprintf "%s: Invalid rounding amount \"%g\"; value must be a positive number no greater than 1.0\n", $progname, $rounding;
}
-# Ensure that every user-definable parameter is assigned a value.
+# Ensure that every user-definable parameter is assigned a value. The only
+# exception is the unique ID, as Adobe no longer recommends specifying one.
assign_default $fontversion, $opthash{fontversion}, "001.000";
assign_default $creationdate, scalar localtime;
assign_default $comment, $opthash{comment}, "Font converted to Type 1 by mf2pt1, written by Scott Pakin.";
assign_default $weight, $opthash{weight}, "Medium";
assign_default $fixedpitch, $opthash{fixedpitch}, 0;
-assign_default $uniqueID, $opthash{uniqueid}, int(rand(1000000)) + 4000000;
+assign_default $uniqueID, $opthash{uniqueid};
assign_default $designsize, $opthash{designsize};
die "${progname}: a design size must be specified in $mffile or on the command line\n" if !defined $designsize;
die "${progname}: the design size must be a positive number\n" if $designsize<=0.0;
@@ -858,11 +859,11 @@ mf2pt1 is using the following font parameters:
font_underline_position: $underlinepos
font_underline_thickness: $underlinethick
font_name: $fontname
- font_unique_id: $uniqueID
font_size: $designsize (bp)
font_coding_scheme: $encoding_name
PARAMVALUES
;
+print " font_unique_id: $uniqueID\n" if defined $uniqueID;
print "\n";
# Scale by a factor of 1000/design size.