#!/bin/sh

# Create virtual fonts providing Almost European Computer Modern
# with lowered tilde.  The ae package must be installed first if
# not already done.  Files ltae*.tfm and ltae*.vf are created in
# the current working directory.

# Usage: mkltae [ <texmf_dir> ]

# Script written in February 2006 by Vincent Lefevre, thanks to
# the help of Josselin Noirel, and released in public domain.

set -e
: ${TEXMFDIST:="${1:-/usr/share/texmf-tetex}"}

for file in "$TEXMFDIST"/fonts/tfm/public/ae/ae*.tfm
do
  name="`basename $file`"
  font="${name%.tfm}"
  fvpl="lt${font}.vpl"
  tftopl "$file" | perl -pe "
    /^\(FONTDIMEN/ and \$d=1;
    \$d && /^ *\)/ and \$d=0, \$_ .= \"(MAPFONT D 0 (FONTNAME $font))\n\";
    /^\(CHARACTER/ and \$t=0;
    /^\(CHARACTER O 176\$/ and \$t=1,
      \$_ .= \"   (MAP (MOVEDOWN R 0.3) (SETCHAR O 176))\n\";
    \$t && s/(\(CHARHT R )([0-9.]+)/\"\$1\".(\$2-0.3)/e;
  " > "$fvpl"
  vptovf "$fvpl"
  rm "$fvpl"
done

# $Id: mkltae 11109 2006-02-13 13:18:50Z lefevre $