Nouvel item permettant d'afficher une liste de triangles

1 files changed, 42 insertions, 17 deletions

diff --git a/sandbox/local.pl b/sandbox/local.pl
index cabd58b..14a8914 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -13,17 +13,19 @@ $penguin = $mw->Photo(-format => 'png',
 		      -file => "xpenguin.png");
 
 $top = 1;
-$zinc = $mw->Zinc(-render => 0,
-		  -borderwidth => 5,
-		  -highlightthickness => 5,
+$zinc = $mw->Zinc(-render => 1,
+		  -borderwidth => 0,
+		  -highlightthickness => 0,
 		  -relief => 'sunken',
 		  -takefocus => 1,
-		  -tile => $papier);
+#		  -tile => $papier
+		  );
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 $gr1 = $zinc->add('group', $top);
 #$clip = $zinc->add('rectangle', $gr1, [50, 50, 399, 399],
 $clip = $zinc->add('arc', $gr1, [50, 50, 399, 399],
+		   -visible => 1,
 		   -filled => 1,
 		   -fillcolor => 'Pink:40',
 #		   -fillpattern => 'AlphaStipple4',
@@ -31,11 +33,15 @@ $clip = $zinc->add('arc', $gr1, [50, 50, 399, 399],
 #$zinc->itemconfigure($gr1, -clip => $clip);
 $gr2 = $zinc->add('group', $gr1);
 $clip2 = $zinc->add('rectangle', $gr2, [200, 200, 450, 300],
+		    -visible => 1,
 		    -filled => 1,
+		    -fillcolor => '#70C5C0:15',
 #		    -fillcolor => 'white:100|white:0',
-		    -fillcolor => 'white:100 0|black:100 100(260 230', 
+#		    -fillcolor => '#ffffff:15 0|#ffff00:15 50|#000000:15 100/270',
 #		    -fillcolor => 'white 0 |blue 20|blue 80|black:0 100/270',
-		    -linewidth => 0);
+		    -linewidth => 9,
+		    -linestyle => 'dashed',
+		    -linecolor => 'red');
 #$zinc->itemconfigure($gr2, -clip => $clip2);
 $view = $zinc->add('group', $gr2, -tags => "controls");
 $zinc->lower($clip);
@@ -80,22 +86,36 @@ $mp = $zinc->add('curve', $view, [50, 150, 100, 250, 270, 170,
 		 -markercolor => 'red');
 #$zinc->itemconfigure($gr1, -clip => $mp);
 
-$mp2 = $zinc->add('curve', $view, [100, 450, 200, 450],
-		  -linewidth => 10,
+$mp2 = $zinc->add('curve', $view, [0, 320, 80, 470, 200, 470],
+		  -visible => 1,
+		  -linewidth => 20,
 		  -closed => 0,
 		  -joinstyle => 'round',
-		  -linecolor => 'tan',
+		  -capstyle => 'round',
+		  -linestyle => 'mixed',
+		  -linecolor => 'red',
 		  -linealpha => 50,
-		  -filled => 1,
+		  -filled => 0,
 #		 -fillcolor => 'white|black(10 10',
 		  -fillcolor => 'wheat',
 #		 -fillpattern => 'AlphaStipple8',
 #		 -tile => $papier,
 		  -marker => '',
 		  -markercolor => 'red');
+$mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430],
+		  -linewidth => 9,
+		  -closed => 0,
+#		  -linestyle => 'dashed',
+		  -joinstyle => 'round',
+		  -firstend => [3, 12, 8],
+		  -lastend => [12, 12, 8],
+		  -capstyle => 'round',
+		  -linecolor => 'red',
+		  -filled => 1,
+		  -linealpha => 100);
 
 $zinc->add('reticle', $view,
-	   -visible => 0,
+	   -visible => 1,
 	   -position => [300, 300],
 	   -firstradius => 60,
 	   -stepsize => 30,
@@ -111,17 +131,19 @@ for ($i = 0; $i < 100; $i++) {
     $x = $x+5;
     $y = $y+7;
     $zinc->add('text', $view,
-	       -visible => 0,
+	       -visible => 1,
 	       -text => "BlaBla et tout et tout, bref...",
 	       -position => [$x, $y], -anchor => 'nw',
 	       -color => 'red', -alpha => 30);
 }
 $peng = $zinc->add('icon', $view,
+		   -visible => 1,
 		   -image => $penguin, -position => [300, 300],
 		   -anchor => 'center',
 		   -alpha => 50);
 
 $fvwm = $zinc->add('icon', $top,
+		   -visible => 1,
 		   -mask => '@fvwm.xbm',
 		   -position => [50, 20],
 		   -anchor => 'center',
@@ -129,7 +151,7 @@ $fvwm = $zinc->add('icon', $top,
 		   -alpha => 100);
 
 #$zinc->gname('white 0 80|black[0 0', 'cone');
-$zinc->gname('white:50 0 80|black 30|white 100(0 0', 'oeil');
+$zinc->gname('white:50 0 80|black 50|white 100(0 0', 'oeil');
 $zinc->gname('white:100|black:100(-20 -15', 'boule');
 $zinc->gname('white:100|black:100(-15 -100', 'arrondi');
 $zinc->gname('white:100|black:100/45', 'cyl');
@@ -137,18 +159,21 @@ $arc = $zinc->add('arc', $view, [-45, -45, 45, 45],
 		  -visible => 1,
 		  -fillcolor => 'boule',
 		  -linewidth => 1,
-		  -filled => 1,
+#		  -filled => 1,
 		  -startangle => 0,
-#		  -extent => 240,
-		  -closed => 1,
+		  -extent => 240,
+		  -closed => 0,
+		  -firstend => [12, 12, 8],
+		  -lastend => [12, 12, 8],
 #		  -tile => $logo,
 		  -pieslice => 0
 		  );
+
 $zinc->add('rectangle', $view, [100, 100, 200, 200],
 	   -fillcolor => 'cyl',
 	   -linewidth => 1,
 	   -filled => 1,
-	   -visible => 0
+	   -visible => 1
 	   );
 
 $zinc->translate($arc, 125, 300);