From 6b36f92065f054abd810d956169a87180677d4f7 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 18 Feb 2002 16:03:54 +0000
Subject: Passage des couleurs en gradients pour uniformiser

---
 sandbox/local.pl | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/local.pl b/sandbox/local.pl
index 14a8914..5f96fc2 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -58,7 +58,7 @@ $rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300],
 $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200],
 		   -visible => 1,
 		   -linewidth => 4,
-		   -linealpha => 100,
+		   -linecolor => 'black:100',
 #		   -fillcolor => 'pink:50',
 		   -fillcolor => 'tan',
 		   -relief => 'sunken',
@@ -68,15 +68,14 @@ $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200],
 $mp = $zinc->add('curve', $view, [50, 150, 100, 250, 270, 170,
 				  220, 100, 200, 100, 180, 0,
 				  140, 140, 70, 0],
-		 -visible => 1,
+		 -visible => 0,
 		 -composescale => 1,
 		 -composerotation => 1,
 		 -linewidth => 4,
 		 -relief => 'sunken',
 		 -closed => 1,
 		 -joinstyle => 'round',
-		 -linecolor => 'black',
-		 -linealpha => 50,
+		 -linecolor => 'black:50',
 		 -filled => 1,
 		 -fillcolor => 'white|black[100 100',
 #		 -fillcolor => 'white',
@@ -93,8 +92,7 @@ $mp2 = $zinc->add('curve', $view, [0, 320, 80, 470, 200, 470],
 		  -joinstyle => 'round',
 		  -capstyle => 'round',
 		  -linestyle => 'mixed',
-		  -linecolor => 'red',
-		  -linealpha => 50,
+		  -linecolor => 'red:50',
 		  -filled => 0,
 #		 -fillcolor => 'white|black(10 10',
 		  -fillcolor => 'wheat',
@@ -110,9 +108,8 @@ $mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430],
 		  -firstend => [3, 12, 8],
 		  -lastend => [12, 12, 8],
 		  -capstyle => 'round',
-		  -linecolor => 'red',
-		  -filled => 1,
-		  -linealpha => 100);
+		  -linecolor => 'red:100',
+		  -filled => 1);
 
 $zinc->add('reticle', $view,
 	   -visible => 1,
@@ -134,21 +131,20 @@ for ($i = 0; $i < 100; $i++) {
 	       -visible => 1,
 	       -text => "BlaBla et tout et tout, bref...",
 	       -position => [$x, $y], -anchor => 'nw',
-	       -color => 'red', -alpha => 30);
+	       -color => 'red:30');
 }
 $peng = $zinc->add('icon', $view,
 		   -visible => 1,
 		   -image => $penguin, -position => [300, 300],
 		   -anchor => 'center',
-		   -alpha => 50);
+		   -color => 'black:50');
 
 $fvwm = $zinc->add('icon', $top,
 		   -visible => 1,
 		   -mask => '@fvwm.xbm',
 		   -position => [50, 20],
 		   -anchor => 'center',
-		   -color => 'orange',
-		   -alpha => 100);
+		   -color => 'orange:100');
 
 #$zinc->gname('white 0 80|black[0 0', 'cone');
 $zinc->gname('white:50 0 80|black 50|white 100(0 0', 'oeil');
@@ -173,7 +169,7 @@ $zinc->add('rectangle', $view, [100, 100, 200, 200],
 	   -fillcolor => 'cyl',
 	   -linewidth => 1,
 	   -filled => 1,
-	   -visible => 1
+	   -visible => 0
 	   );
 
 $zinc->translate($arc, 125, 300);
-- 
cgit v1.1