From: <sil...@li...> - 2005-08-04 14:23:10
|
Update of /cvsroot/silgraphite/silgraphite/contrib/Perl/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23368/scripts Modified Files: maketest.pl Log Message: fix for API changes and add -d to scripts/maketest Index: maketest.pl =================================================================== RCS file: /cvsroot/silgraphite/silgraphite/contrib/Perl/scripts/maketest.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- maketest.pl 17 Jul 2003 10:16:29 -0000 1.4 +++ maketest.pl 4 Aug 2005 14:22:58 -0000 1.5 @@ -3,6 +3,11 @@ use SIL::Graphite::PerlGraphics; use SIL::Graphite::PerlText; use IO::File; +use Getopt::Std; + +getopts('d:'); + +$opt_d ||= 1000; %tests = ( 'piglatin' => [ @@ -16,7 +21,8 @@ foreach $t (sort keys %tests) { - $graphics = SIL::Graphite::PerlGraphics->new(font_file => "../fonts/$t.ttf", size => 12, XperInch => 1000); +# $graphics = SIL::Graphite::PerlGraphics->new(font_file => "../fonts/$t.ttf", size => 12, XperInch => 1000); + $graphics = SIL::Graphite::PerlGraphics->new(font_file => "../fonts/$t.ttf", size => 12, XperInch => $opt_d); $gr = PerlGraphicsPtr->new($graphics); $engine = SIL::Graphite::GrEngine->new("../fonts/$t.ttf", $graphics, $gr); $text = SIL::Graphite::PerlText->new(); |