silgraphite-cvs

[<sil...@li...>]

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();