%%%% ==================================================================== %%%%
%%%% 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 %%%%
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_;
########################################################################
# 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 #
# 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;
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
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)