#!@@PERL@@ -n
#
#	This script is part of rtfdtohtml.
#	Copyright (c) 1996  Elmar Ludwig - Universitaet Osnabrueck
#
#	Map fontsizes to those listed in the html-trans file.
#	This script reduces all fontsizes to normal text.
#	Note: All fontsizes here are in half points (e.g. 16.0 pt. == 32)

$out = '';

while (/\\fs([0-9]+)/)
{
    $fs = $1;
    $fs = '24' if substr($`, -1) ne '\\';
    $out .= "$`\\fs$fs";
    $_ = $';
}

print $out . $_;
