summaryrefslogtreecommitdiff
path: root/graphics/metapost/contrib/macros/txp/gentyp.awk
blob: 4f9da960070d6d28ed1feb3e6ea5a4911c46c92a (plain)
1
2
3
4
5
BEGIN {i=0}
    $1 == "(CHARACTER" { letter[i]=$3; i++}  
    $1 == "(CHARHT" { high[i-1]=10*$3;} 
    $1 == "(CHARDP" { deph[i-1] = 10*$3 ;}  
END{for(j=0;j<229;j++) print "alt["j+15"]:="(high[j]+deph[j])/2-deph[j]";" > "fontdat";}