Select Code to Download

  my ($x_ppem, $y_ppem, $ascender, $descender, $width, $height, $max_a
+dvance) =
  $overL->QueryFontMetrics
...
    text => "$overText",
    '@C:/WINDOWS/Fonts/times.ttf', # Omit for default font
    );

  my $mswinpath;
  my $fontpath = ($mswinpath = $ENV{SYSTEMDIR} || $ENV{WINDIR})
...
    $fontpath
    );