Source position: fppdf.pp line 1399
function FontUnitsTomm(
AUnits: TPDFFloat;
APointSize: TPDFFloat;
AUnitsPerEm: Integer
):single;