open-type fonts for Perl-Tk with Linux

[patcat]

I am trying to use the unicode open-type font "STIXGeneral.otf" with Perl-Tk, for I am making a math word processor. In order to test this font, I have written a small Perl-Tk script (see below) and a small HTML file (displaying the same characters), in order to test this font.

  use utf8;use Tk;
  $f="STIXGeneral";$c="\n";
  $s="\x{2014}"x2;$s=$c.$s."o".$s.$c;$p=" (Perl-Tk)";
  $s=$f.$p.$s."A B C D \x{300}x \x{302}x \x{303}x ".
    "\x{304}x".$c."\x{210C} \x{210E} \x{2112} \x{2115} ".
    "\x{2202} \x{2207} \x{2211} \x{221A}".$s;
  $m=MainWindow->new(-title=>'STIXtest (P. Assouad)');
  $m->geometry('400x400+40+40');
  $t=$m->Scrolled('Text')->pack();
  $t->configure(-font=>"{".$f."} 18 {normal}");
  $t->insert('1.0',$s); MainLoop();

The results are the following : -- the Perl-Tk script works very well with Windows Vista, but very bad with Linux Ubuntu (the font is not recognized by Perl-Tk, although the browser recognizes it) ; -- the HTML file works very well with both Windows Vista and Linux Ubuntu. If I replace open-type by true-type, the things are not better. What do you think about ?

[lamprecht]

Hi,

which version of Tk is that? Your example looks nice on Ubuntu 8.04. You probably need to build Tk with XFT=1. I think this is default with latest versions from CPAN.


Cheers, Chris

Update: Sorry, I was wrong: It's not set by default. You have to explicitly enable XFT support with perl Makefile.PL XFT=1

[Tux]

I'd like to try, but I cannot find STIXGeneral.otf available for download or in a (OpenSUSE) package.

[lamprecht]

http://www.stixfonts.org/
Cheers, Christoph

[Tux]

I fetched the ZIP-file from download, copied all Fonts/*.otf to /usr/share/fonts/truetype and then ran

use strict;
use warnings;

use Tk;

my $f = "STIXGeneral";
my $l = "\x{2014}\x{2014}o\x{2014}\x{2014}";
my $m = MainWindow->new (-title => "STIXtest (P. Assouad)");
   $m->geometry ("400x400+40+40");
my $t = $m->Scrolled ("Text")->pack;
   $t->configure (-font => "{$f} 18 normal");
   $t->insert ("1.0", join "\n" =>
        "$f (Perl-Tk)",
        $l,
        "A B C D  \x{300}x \x{302}x \x{303}x \x{304}x",
        "\x{210C} \x{210E} \x{2112} \x{2115} \x{2202}".
            "\x{2207} \x{2211} \x{221A}",
        $l);
MainLoop ();

and then got this, which looks pretty OK to me. Note that I left out the braces around normal

This is perl, v5.10.1 (*) built for x86_64-linux
...perl5/site_perl/5.10.1/x86_64-linux/Tk.pm: 804.029