sub DetermineFontSize ($) {
  my ($tagCnt) = @_;
  my $cntRatio;
  if ($useLogCurve) {
      $cntRatio = (log($tagCnt) - $minLog)/$logRange;
  }
    my $fsize = $minFontSize + $fontRange * $cntRatio;
  return $fsize;
}