[mf2pt1] Updated to version 2.5.

diff --git a/mf/mf2pt1.mp b/mf/mf2pt1.mp
index a8b45aad07cde7041d0f505663619db4f4d4bb4a..bb6ceda5dc32e7e5b5b26f6f2857b273b01a0690 100644 (file)
--- a/mf/mf2pt1.mp
+++ b/mf/mf2pt1.mp
@@ -10,7 +10,7 @@
 
 %%%% ==================================================================== %%%%
 %%%% mf2pt1                                                               %%%%
-%%%% Copyright (C) 2008 Scott Pakin                                       %%%%
+%%%% Copyright (C) 2012 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     %%%%
@@ -58,7 +58,7 @@ def beginchar(expr c,w_sharp,h_sharp,d_sharp) =
     w:=charwd*pt; h:=charht*pt; d:=chardp*pt;
     charic:=0; clearxy; clearit; clearpen; scantokens extra_beginchar;
 
-    def to_bp (expr num) = decimal (ceiling (num*bp_per_pixel)) enddef;
+    def to_bp (expr num) = decimal (round (num*bp_per_pixel)) enddef;
     special "% MF2PT1: glyph_dimensions 0 " & to_bp (-d) & " " & to_bp(w) & " " & to_bp(h);
     special "% MF2PT1: font_size " & decimal designsize;
     special "% MF2PT1: font_slant " & decimal font_slant_;

diff --git a/scripts/build/mf2pt1.pl b/scripts/build/mf2pt1.pl
index befe8bc3e20721ec38b5fae30d8cc41d03c362e9..746fb829f60cde99dc65f221494d02dc2e330fa6 100644 (file)
--- a/scripts/build/mf2pt1.pl
+++ b/scripts/build/mf2pt1.pl
@@ -7,7 +7,7 @@
 
 ########################################################################
 # mf2pt1                                                               #
-# Copyright (C) 2011 Scott Pakin                                       #
+# Copyright (C) 2012 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.4.5";   # mf2pt1 version number
+our $VERSION = "2.5";     # 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) 2011 Scott Pakin
+Copyright (C) 2012 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
@@ -588,7 +588,7 @@ sub output_font_programs ()
         my @fontprog;
         push @fontprog, ("/$gname {",
                          frac_string (frac_approx ($charbbox[$charnum]->[0]),
-                                      frac_approx ($charwd[$charnum] * $mag))
+                                      frac_approx ($charbbox[$charnum]->[2]))
                          . "hsbw");
         my ($cpx, $cpy) =
             ($charbbox[$charnum]->[0], 0);  # Current point (PostScript)