From cd59603b2b55cf5f7264db5226f78a53ecf1dee9 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 20 Dec 2002 14:01:05 +0000
Subject: passage aux gradients nouvelle syntaxe

---
 sandbox/allgradients.pl | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/allgradients.pl b/sandbox/allgradients.pl
index 98b2c9c..bd7a4d6 100644
--- a/sandbox/allgradients.pl
+++ b/sandbox/allgradients.pl
@@ -19,10 +19,10 @@ $zinc->gname('black|white', 'axial 1');
 $zinc->gname('black|white/90', 'axial 2');
 $zinc->gname('black|white/30', 'axial 3');
 $zinc->gname('black|black:0/30', 'axial 4');
-$zinc->gname('white|black(25 15', 'radial 1');
-$zinc->gname('white:50 0 70|black 50|white 100(35 25', 'radial 2');
-$zinc->gname('white|black:80[25 15', 'path 1');
-$zinc->gname('white|white 30|black:80[25 15', 'path 2');
+$zinc->gname('white|black(-14 -20', 'radial 1');
+$zinc->gname('white:50 0 70|black 50|white 100(0 0', 'radial 2');
+$zinc->gname('white|black:80[-14 -20', 'path 1');
+$zinc->gname('white|white 30|black:80[-14 -20', 'path 2');
 
 $grp = $zinc->add('group', 1);
 $zinc->add('rectangle', $grp, [0, 0, 70, 50],
@@ -34,20 +34,21 @@ $zinc->add('rectangle', $grp, [0, 0, 70, 50],
 	   -linewidth => 1, # to help making the background transparent with gimp!
 
 	   -fillcolor => 'axial 1',
-	   -tags => ['attrs']);
+	   -tags => ['rect']);
 $zinc->add('text', $grp,
 	   -text => 'axial 1',
 	   -anchor => 'center',
 	   -position => [35, -10],
-	   -tags => ['attrs']);
+	   -tags => ['txt']);
 $zinc->translate($grp, 20, 30);
 $i = 1;
 foreach $s (('axial 2', 'axial 3', 'axial 4', 'radial 1',
 	    'radial 2', 'path 1', 'path 2')) {
   $grp = $zinc->clone($grp);
-  $zinc->addtag("g$grp", 'withtag', 'attrs', $grp, 0);
-  $zinc->itemconfigure("attrs && g$grp",
-		       -text => $s,
+  $zinc->addtag("g$grp", 'withtag', "$grp*attrs"); #, $grp, 0);
+  $zinc->itemconfigure(".$grp.txt",
+		       -text => $s);
+  $zinc->itemconfigure(".$grp.rect",
 		       -fillcolor => $s);
   $i++;
   if ($i == 5) {
-- 
cgit v1.1