From 7bfb47a65f439c0b8a6810047b2b000727eafaf6 Mon Sep 17 00:00:00 2001
From: vinot
Date: Fri, 2 Apr 2004 15:08:28 +0000
Subject: corection de l'appel fonction buildZincItem() modifi�e de Graphics

---
 Perl/demos/Tk/demos/zinc_lib/MagicLens.pl | 55 ++++++++++++++++---------------
 1 file changed, 28 insertions(+), 27 deletions(-)

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
index 09e83e4..8fafab1 100644
--- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
@@ -55,32 +55,33 @@ my %lensitems = ('back' => {-itemtype => 'arc',
 					-tags => ['lensback'],
 				       },
 			   },
-		 'light' => {-itemtype => 'pathline',
-			     -metacoords => {-type => 'polygone',
-					     -coords => [0, 0],
-					     -numsides => 36,
-					     -radius => 100,
-					     -startangle => 240,
-					    },
-			     -linewidth => 10,
-			     -shifting => 'right',
-			     -closed => 1,
-			     -graduate => {-type => 'double',
-					   -colors => [['#ffffff;0', '#6666cc;0', '#ffffff;0'],
-						       ['#ffffff;100', '#333399;50', '#ffffff;100']],
-					  },
-			     -params => {-priority => 50,
-					},
-			    },
-		 'bord' => {-itemtype => 'hippodrome',
-			    -coords => [[-100, -100],[100, 100]],
-			    -params => {-priority => 100,
-					-closed => 1,
-					-filled => 0,
-					-linewidth => 2,
-					-linecolor => '#222266;80'
-				       },
-			   },
+ 		 'light' => {-itemtype => 'pathline',
+ 			     -metacoords => {-type => 'polygone',
+ 					     -coords => [0, 0],
+ 					     -numsides => 36,
+ 					     -radius => 100,
+ 					     -startangle => 240,
+ 					    },
+ 			     -linewidth => 10,
+ 			     -shifting => 'in',
+ 			     -closed => 1,
+ 			     -graduate => {-type => 'double',
+ 					   -colors => [['#ffffff;0', '#6666cc;0', '#ffffff;0'],
+ 						       ['#ffffff;100', '#333399;50', '#ffffff;100']],
+ 					  },
+ 			     -params => {-priority => 50,
+ 					},
+ 			    },
+ 		 'bord' => {-itemtype => 'hippodrome',
+ 			    -coords => [[-100, -100],[100, 100]],
+ 			    -params => {-priority => 100,
+ 					-closed => 1,
+ 					-filled => 0,
+ 					-linewidth => 2,
+ 					-linecolor => '#222266;80'
+ 				       },
+
+ 			   },
 		);
 				
 
@@ -223,7 +224,7 @@ $zinc->coords($lensgroup, [300, 110]);
 
 # items graphiques
 while (my ($name, $style) = each(%lensitems)) {
-  &buildZincItem($zinc, $lensgroup, $style, undef, $name);
+  &buildZincItem($zinc, $lensgroup, %{$style});
 }
 
 # clipping lensview
-- 
cgit v1.1