From e02bbf073992734c798d4bab6f7e135e6e093876 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Tue, 3 Jul 2012 07:55:16 +0200 Subject: [PATCH] [mf2pt1] Updated to version 2.5. --- mf/mf2pt1.mp | 4 ++-- scripts/build/mf2pt1.pl | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/mf/mf2pt1.mp b/mf/mf2pt1.mp index a8b45aad07..bb6ceda5dc 100644 --- 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 befe8bc3e2..746fb829f6 100644 --- 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) -- 2.39.2