[Plplot-cvs] plplot/examples/perl x20.pl,1.9,1.10

[Andrew R. <and...@us...>]

Update of /cvsroot/plplot/plplot/examples/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29212/examples/perl

Modified Files:
	x20.pl 
Log Message:

Small fixes to make example 20 work correctly in both interactive and
non-interactive mode.



Index: x20.pl
===================================================================
RCS file: /cvsroot/plplot/plplot/examples/perl/x20.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- x20.pl	27 Apr 2005 06:43:57 -0000	1.9
+++ x20.pl	4 Dec 2006 11:14:33 -0000	1.10
@@ -140,8 +140,8 @@
   if (not $nointeractive) {
     $xi = 200;
     $xe = 330;
-    $yi = 280;
-    $ye = 220;
+    $yi = 220;
+    $ye = 280;
 
     if (get_clip (\$xi, \$xe, \$yi, \$ye)) { # get selection rectangle
       plend ();
@@ -256,27 +256,27 @@
       }
     }
     plxormod (0); # leave xor mod
+    if ($xxe < $xxi) {
+	my $t = $xxi;
+	$xxi = $xxe;
+	$xxe = $t;
+    }
+    
+    if (yyi < yye) {
+	my $t = $yyi;
+	$yyi = $yye;
+	$yye = $t;
+    }
+    
+    $$xe = $xxe;
+    $$xi = $xxi;
+    $$ye = $yye;
+    $$yi = $yyi;
+    
+    return ($gin{keysym} eq 'Q');
   }
 
-  if ($xxe < $xxi) {
-    my $t = $xxi;
-    $xxi = $xxe;
-    $xxe = $t;
-  }
-
-  if (yyi < yye) {
-    my $t = $yyi;
-    $yyi = $yye;
-    $yye = $t;
-  }
-
-  $$xe = $xxe;
-  $$xi = $xxi;
-  $$ye = $yye;
-  $$yi = $yyi;
-
-  return ($gin{keysym} eq 'Q');
-
+  return 0;
 }
 
 # save plot