[tex-k] afm2tfm hardwired charht

Mon Mar 10 12:50:45 CET 2003

Greetings,

The attached test.afm file has only one character in it, a capital A,
with these values:
C 65 ; WX 690 ; N A ; B 2 -4 685 682 ;

When I run
  afm2tfm test.afm -v test.vpl test.tfm
on this test.afm, the resulting test.vpl file has a strange set of
CHARHT values, for both uppercase and lowercase letters.  This is with
afm2tfm 8.1 from TeX Live 7.

The height of A is 400 (the default xheight), instead of the correct
682.  The height of C, D, c, d, and other letters is also 400.  However,
the height of B, b, and another set of letters is the correct zero.

Looking at the source, it is just inserting the value from the
texheight function. And texheight ends with:
         if (0 != (acci=findadobe(buffer))
                     return (acci->ury - aci->ury + xheight) ;
So I guess findadobe is sometimes returning nonzero even though the
character doesn't exist, and thus it returns the xheight.  Furthermore,
the actual height of the A from the afm file is being ignored.

The test.tfm file that afm2tfm creates is correct.

Sorry I don't have an actual patch.  Hope it's easy.

Thanks,
karl

#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2.1).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 2003-03-10 09:50 PST by <karl at lark.freefriends.org>.
# Source directory was `/u/karl/tex/fonts/ourfonts/baskerville/r/a'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
#
# This shar contains:
# length mode       name
# ------ ---------- ------------------------------------------
#  10079 -rw-rw-rw- test.afm
#
save_IFS="${IFS}"
IFS="${IFS}:"
gettext_dir=FAILED
locale_dir=FAILED
first_param="$1"
for dir in $PATH
do
  if test "$gettext_dir" = FAILED && test -f $dir/gettext \
     && ($dir/gettext --version >/dev/null 2>&1)
  then
    set `$dir/gettext --version 2>&1`
    if test "$3" = GNU
    then
      gettext_dir=$dir
    fi
  fi
  if test "$locale_dir" = FAILED && test -f $dir/shar \
     && ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
  then
    locale_dir=`$dir/shar --print-text-domain-dir`
  fi
done
IFS="$save_IFS"
if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
then
  echo=echo
else
  TEXTDOMAINDIR=$locale_dir
  export TEXTDOMAINDIR
  TEXTDOMAIN=sharutils
  export TEXTDOMAIN
  echo="$gettext_dir/gettext -s"
fi
if touch -am -t 200112312359.59 $$.touch >/dev/null 2>&1 && test ! -f 200112312359.59 -a -f $$.touch; then
  shar_touch='touch -am -t $1$2$3$4$5$6.$7 "$8"'
elif touch -am 123123592001.59 $$.touch >/dev/null 2>&1 && test ! -f 123123592001.59 -a ! -f 123123592001.5 -a -f $$.touch; then
  shar_touch='touch -am $3$4$5$6$1$2.$7 "$8"'
elif touch -am 1231235901 $$.touch >/dev/null 2>&1 && test ! -f 1231235901 -a -f $$.touch; then
  shar_touch='touch -am $3$4$5$6$2 "$8"'
else
  shar_touch=:
  echo
  $echo 'WARNING: not restoring timestamps.  Consider getting and'
  $echo "installing GNU \`touch', distributed in GNU File Utilities..."
  echo
fi
rm -f 200112312359.59 123123592001.59 123123592001.5 1231235901 $$.touch
#
if mkdir _sh32096; then
  $echo 'x -' 'creating lock directory'
else
  $echo 'failed to create lock directory'
  exit 1
fi
# ============= test.afm ==============
if test -f 'test.afm' && test "$first_param" != -c; then
  $echo 'x -' SKIPPING 'test.afm' '(file already exists)'
else
  $echo 'x -' extracting 'test.afm' '(gzipped)'
  sed 's/^X//' << 'SHAR_EOF' | uudecode &&
begin 600 _sh32096/gzi
M'XL(`+S*;#X"`WV:77?:.!"&[_D5NMP]9YO8YB,AO2(IZ9)-H!M"/W(G;`%*
M;8O*=DERT=^^!KHM+S/CT]-3J-Z,1L_(DEXYTU+[\MKEY9TIO8T+%9T$K2N7
M928OU7N3&Z]+DZCYBUHOM$EL^:OQRAM=6I>K=[7B0MW5G^ZT5V&@@OY%U+N(
M`A4%0;NU#3[6F5'+^7??NJ[2].";SFSZ\OO[)V.7JU+=FV65:M\:N]+&1OWQ
M.X^%=YFJ4]7;J&INRTROM\EEB]+K6AJ>!"=A])=:E>7ZXO1TL]F<Q,5)59WD
MZ>F/E<XW)C_]J3U5?[9&I4YM/,B7J5%!:U1<VV>3?+!EO%(+G1:F-<L3XU.;
MFP^NL+O1O at F#X/=_/ZQL_#4W1:&Z0>NC\<56$@1U&D'8&N:Q2VR^G,8K4X]P
MF_)T;6*[L/&.RN6E>U:1>M-1O?-N_3=J3;?5N%II_ZL:W5[K2 at 7JK?KT>??/
M6"V]_F[J3Y?U]_V?M[4D/)3HN"JI)#J4Q-;'5;9(S3/1M0]UI4T3&JIS*$FL
M\::P!5%U#U6K*E]J7V6IKDJB[!TJ?8V,*,X@>>UKS,>2\T/)W!N&4O]0DNF8
M"Q,"[<25.HZW\YWH`'E</QMIJJD*J+NER\U7*@+DWRI7UCSK23G7!5-I at +^L
M;+K3IF;!Y-AEM7[WE!%QCV21S(6X9YQ4"'O.:?FA]8_334WF2C:%*&"U?`X1
MU,KDB2Y65`2E,ADO at E+%FXPJH#YKX\N5JPJ=)U39/9II:;V06"KK,;(G*H.:
M+!8H4+<JK?\SW7VR]2>[_R$HSH+I'$JR^_FCU2+`;FF(=H@*)@:0+];;E9QH
M`+QYCE--V;<[W%RC,@"?5]E\NW(OZ5K0/D)?/^&>BLZ."LXN%VT at K;-:QTZ*
M=I\, at 9_3'0"_UM[D[(/2"8E."`A5T,6VXX(N5ATHQ#JMZ,+?@3+$]8&!+HP=
MW!U>UBM#^7=Z1VBMH\0ZP+](N<>V`_1?C7=4`N#K=9KN9T"\W-`876!=KKQA
MH@#FA:OHC.JV\:ED=K(N("XLW<:[`+BHMT/*MPM\#3LMNH`WMQR8<ZQWRFRK
MW3ZFDUE>UP/(VZ6.2G`U_U9I^HCW(CPSU6=50T'WCC9>4^S.>$0&L#5S?OG)
MNM??2P8[Q>'1;B\#W)<T#*"^HNW`^1UM!\9#>H@"MM>T'<"^I^T`]6_:#CA'
M9`>Z4:.;O1"`WM!`,'?_H>T`\I:V`\@[V at X@Q[0=0$[H41-`?J#M`/)?V at X@
M[VD[@)S2=N#W0-N!WXRV`[^/M!WX?:+MP.\S;0=^7^@Y'/@]TO80S_(Z_FKX
M8V`?2,YK(;\!]-M,1'X?[./37L36[MT250+F:FL*B]AYQG?0HS4_&N!.-\T^
M>AS:#MQCQMN at N6$$N+8R`MR^N%/FKT.FW7U8[`ZCNY^%(BR9X(!^Q0B`N"6]
M/RG[]%,)R)^84,":,64!P$X9`=I)QB$";<9JHH=TC`!HKQD![F",`)!Z1H#G
M!$8`)#DC#"0K1@`DOS,"(+EA7#20?&8$0/*%$0#)5T9`5 at C^&0W1X,T91Q"B
ML]O%$LPQFKO=8L-?N83H[XI%*9R90_1T`_XF)$1C-Q!O)@#\%7^S%*+%N^+O
M9T*T>>\D%=1A**F@"$,Q?2C$>X$%VKQ;:9!0@%LI,:!_R^]&(;J\L=`C6KRQ
MT",:O"%S>1:BM9LTWL6%:/#NI=R@`/=2;L!_*L4"_E,IUAFJI!LW]'H/4K0^
MJJ1H:/IFS>C0_\W8F\P0#>`7\?HT1!OX*,!#)_ at H#!?=X&/#M29ZPM$-HX!"
MC)IB02F2V#O-J8ZL8<R:L!"=H1:>932'6EH8T!_&`EOTA['`%NUA(JF@`D92
MH2,7TX<2+"46>(*1!@GX4R$Q](ZIL*ZA@\R%'M%'YE*/>./'/4KH(UWSPXFF
MTDNYX;L(*3?<C*58P+^08N'T%U<B-)VE$`VM9RE'@QI4S>C0CU;\NH:F]$5>
MU]"=O at KPT*.^2L.%0KPVK$7H62WC"-"U[J^8$[=A>D7_^O^]D:"%@FQO55,6
M'SK9@?":#WWL0&"'%G;0\+(O1`\[$`Z?:&`'<FW1P0[XF8(V=C!D%'T\4`JS
M.$(_.^2A16AJA\+K472VPP9H$1K9H8 at C0D,[DO*#&HRD_'!C;LSO:(>6\X-*
M#$OFA1>ZW#$_02*TNA-AH.AW)\)`T?1.F@:*]G<B)0=5F, at XT`M/AHP"BC#A
MM\$('?%,H@'P9Q(-X#]KHH$N>2:/$]WR%Z%GM,P/*^=S1H17E5-&@?=I`@RT
MS%I*">UR(PR\2Q.F!IIEW8`,RJ#9A2U"MZR9_M`IQ^+"AE[9"-".7HH*T-`K
MFR9HZ)>-C`,MLY7R at QI8*3_<F1OS at RI8.3^TSH9;V-`WY\($Z1S]`@<_4/3,
M3A at H>F;7-%`TSDY*#JK@&G!`(1P7"HK at A(4-77,ET$#/7`DTT"Q73330,E?R
M.-$ROT@]=_`U+;NPH6->&I_I/)FGQYT.\^3@%[:V7P]^FZ[U'U>8&]I?)P``
`
end
SHAR_EOF
  $echo 'gunzipping file' 'test.afm' &&
  gzip -d < _sh32096/gzi > 'test.afm' &&
  (set 20 03 03 10 09 26 20 'test.afm'; eval "$shar_touch") &&
  chmod 0666 'test.afm' ||
  $echo 'restore of' 'test.afm' 'failed'
  if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
  && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
    md5sum -c << SHAR_EOF >/dev/null 2>&1 \
    || $echo 'test.afm:' 'MD5 check failed'
baa5cf2750108c15d80eb427c3de61b2  test.afm
SHAR_EOF
  else
    shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'test.afm'`"
    test 10079 -eq "$shar_count" ||
    $echo 'test.afm:' 'original size' '10079,' 'current size' "$shar_count!"
  fi
fi
rm -fr _sh32096
exit 0