demos d�plac�es de examples/ vers demos/

ajout de nouvelles demos: tkZincLogo.pl window-contours.pl

1 files changed, 422 insertions, 0 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl
new file mode 100644
index 0000000..a9bd20d
--- /dev/null
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -0,0 +1,422 @@
+#!/usr/bin/perl
+# This simple demo has been developped by C. Schlienger <celine@intuilab.com>
+
+
+use Tk;
+use Tk::Zinc;
+use strict;
+use constant;
+
+my constant $PI=3.1416;
+
+my $boldfont = '-adobe-helvetica-bold-r-normal--20-240-100-100-p-182-iso8859-1';
+
+my $mw = MainWindow->new();
+
+###########################################
+# Text zone
+###########################################
+
+my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true
+	      -height 6 -scrollbars e/);
+$text->pack(qw/-expand yes -fill both/);
+
+$text->insert('0.0',
+	      'This toy-appli shows a simple counter.It is made thanks to clips and contours : this is the only way to do this.
+The following operations are possible:
+   Drag and drop the counter to move it. Observe that the colour of the backgound of the counter is the same as the one of the window (use of clips)' );
+
+###################################################
+# Zinc
+###################################################
+
+my $zinc = $mw->Zinc(-width => 700, -height => 400,
+		     -font => "10x20", 
+		     -borderwidth => 3, 
+		     -relief => 'sunken',
+		     -render => 1,
+		    )->pack;
+
+my $r = $zinc->add('rectangle', 1,
+		     [0,0,700,700],
+		     -filled => 1,  -linewidth => 0,
+		     -fillcolor => "red:40|green:40 50|blue:40/90"
+		     );
+
+###################################################
+# Les positions
+###################################################
+
+#--------------------------------
+# Carre dans lequel sera inscrit le cercle du compteur
+#---------------------------------
+
+my $x0=250;
+my $y0=100;
+my $x1=$x0+200;
+my $y1=$y0+200;
+
+#--------------------------------
+# Rectangle dans lequel defileront les chiffres
+#---------------------------------
+
+my $x2=$x0+50;
+my $y2=$y0+130;
+my $x3=$x1-50;
+my $y3=$y1-50;
+
+
+###################################################
+# Chiffres clippes
+###################################################
+
+my $general_group = $zinc->add('group',1, -visible => 1);
+
+my $clipped_group1 = $zinc->add('group',$general_group, -visible => 1);
+
+#--------------------------------
+# Clipping items
+#---------------------------------
+
+my $clipping_item1 = $zinc->add('curve', $clipped_group1,
+			       [$x2,$y2,$x3,$y2,$x3,$y3,$x2,$y3,$x2,$y2]
+			      );
+
+#--------------------------------
+# Clipped items
+#---------------------------------
+
+my $group1=$zinc->add('group',$clipped_group1);
+
+my $ecart=17;
+
+# Il y a deux listes de chifres pour centaines, dizaines, unites,
+# pour assurer l'enchainement des chiffres quand le temps passe
+# (cf. : actions automatiques)
+
+#--------------------------------
+# Centaines
+#---------------------------------
+
+my $cent = $zinc->add('group',$group1, -visible => 1,);
+my $xc=$x2+20;
+my $yc=$y2;
+
+
+my $nbc1=$zinc->add('text', $cent,
+	   -font => $boldfont,
+	   -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+	   -anchor => 'nw',
+	   -position => [$xc, $yc],
+);
+my $nbc2=$zinc->add('text', $cent,
+	   -font => $boldfont,
+	   -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+	   -anchor => 'nw',
+	   -position => [$xc, $yc+210],
+);
+#--------------------------------
+# Dixaines
+#---------------------------------
+
+my $dix = $zinc->add('group',$group1, -visible => 1);
+
+my $xd=$xc+30;
+my $yd=$y2;
+my $nbd1=$zinc->add('text', $dix,
+	   -font => $boldfont,
+	   -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+	   -anchor => 'nw',
+	   -position => [$xd,$yd]);
+
+my $nbd2=$zinc->add('text', $dix,
+	   -font => $boldfont,
+	   -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+	   -anchor => 'nw',
+	   -position => [$xd,$yd+210]);
+#--------------------------------
+# Unites
+#---------------------------------
+
+my $unit = $zinc->add('group',$group1, -visible => 1);
+my $xu=$xd+30;
+my $yu=$y2;
+my $nbu1=$zinc->add('text', $unit,
+		    -font => $boldfont,
+		    -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+		    -anchor => 'nw',
+		    -position => [$xu, $yu]);
+
+my $nbu2=$zinc->add('text', $unit,
+		    -font => $boldfont,
+		    -text => "0
+1
+2
+3
+4
+5
+6
+7
+8
+9",
+		    -anchor => 'nw',
+		    -position => [$xu, $yu+210]);
+
+#--------------------------------
+# Clip
+#---------------------------------
+
+$zinc->itemconfigure($clipped_group1, -clip => $clipping_item1);
+
+
+###################################################
+# Cadran clippe
+###################################################
+
+my $clipped_group2 = $zinc->add('group',$general_group, -visible => 1);
+
+#--------------------------------
+# Clipping items
+#---------------------------------
+
+my $clipping_item2 = $zinc->add('curve', $clipped_group2,
+			       [0,0,700,0,700,700,0,700,0,0],
+				-linewidth=>0,
+			      );
+
+$zinc->contour($clipping_item2,"diff",[$x2,$y2,$x3,$y2,$x3,$y3,$x2,$y3,$x2,$y2]);
+
+#--------------------------------
+# Clipped items
+#---------------------------------
+
+my $group2=$zinc->add('group',$clipped_group2);
+
+my $cercle=$zinc->add('arc',$group2,[$x0,$y0,$x1,$y1],
+			 -visible=>1,
+			 -filled=>1,
+			 -fillcolor=>"yellow",);
+
+my $fleche=$zinc-> add('curve', $group2, [$x0+40,$y0+40,$x1-100,$y1-25],
+		       -firstend => [10, 10, 10],
+		       -linewidth => 7,
+		       -linecolor=>"red",
+	    );
+
+#--------------------------------
+# Clip
+#---------------------------------
+
+$zinc->itemconfigure($clipped_group2, -clip => $clipping_item2);
+
+
+###################################################
+# Actions automatiques
+###################################################
+
+#--------------------------------
+# Variables
+#---------------------------------
+# Pour le timer
+my $repeat=10;
+
+# Pour la rotation
+my @centre=($x1-100,$y1-25);
+my $pas=40;
+my $angle=+$PI/$pas;
+my $nb_tot=12;
+my $nb=0;
+
+# Pour la translation des centaines
+my @c_c1=$zinc->itemcget($nbc1,-position);
+my @c_c2=$zinc->itemcget($nbc2,-position);
+my $nbtour_cent=2;
+
+# Pour la translation des dizaines
+my @c_d1=$zinc->itemcget($nbd1,-position);
+my @c_d2=$zinc->itemcget($nbd2,-position);
+my $nbtour_dix=2;
+
+# Pour la translation des unites
+my @c_u1=$zinc->itemcget($nbu1,-position);
+my @c_u2=$zinc->itemcget($nbu2,-position);
+my $nbtour_unit=2;
+
+
+#--------------------------------
+# Timer
+#---------------------------------
+$zinc->repeat($repeat, [\&refresh]);
+
+#--------------------------------
+# Actions
+#---------------------------------
+sub refresh {
+  #--------------------------------
+  # Rotation de la fleche
+  #---------------------------------
+  $zinc->rotate("$fleche",$angle,$centre[0],$centre[1]);
+  $nb+=1;
+  if (($nb==$nb_tot)&&($angle==$PI/$pas))
+    {
+      $nb=0;
+      $angle=-$PI/$pas;
+    } 
+  else{
+    if(($nb==$nb_tot)&&($angle==-$PI/$pas)){
+      $nb=0;
+      $angle=+$PI/$pas;
+    }
+  }
+  #--------------------------------
+  # Deplacement du texte
+  #---------------------------------
+
+  #--------------------------------
+  # Centaines
+  #---------------------------------
+  $zinc->translate("$cent",0,-0.01);
+
+  my @coords_c1=$zinc->transform($cent,$group1,[$c_c1[0],$c_c1[1]]);
+  if(int($coords_c1[1])==$yc-210){
+    $zinc->itemconfigure($nbc1,-position=>[$xc,$yc+($nbtour_cent*210)]);
+    $nbtour_cent+=1;
+    @c_c1=$zinc->itemcget($nbc1,-position);
+  }
+
+  my @coords_c2=$zinc->transform($cent,$group1,[$c_c2[0],$c_c2[1]]);
+  if($coords_c2[1]==$yc-210){
+    $zinc->itemconfigure($nbc2,-position=>[$xc,$yc+($nbtour_cent*210)]);
+    $nbtour_cent+=1;
+    @c_c2=$zinc->itemcget($nbc2,-position);
+  }
+
+  #-------------------------------- 
+  #Dixaines
+  #---------------------------------
+  $zinc->translate("$dix",0,-0.1);
+
+  my @coords_d1=$zinc->transform($dix,$group1,[$c_d1[0],$c_d1[1]]);
+  if(int($coords_d1[1])==$yd-210){
+    $zinc->itemconfigure($nbd1,-position=>[$xd,$yd+($nbtour_dix*210)]);
+    $nbtour_dix+=1;
+    @c_d1=$zinc->itemcget($nbd1,-position);
+  }
+
+  my @coords_d2=$zinc->transform($dix,$group1,[$c_d2[0],$c_d2[1]]);
+  if($coords_d2[1]==$yd-210){
+    $zinc->itemconfigure($nbd2,-position=>[$xd,$yd+($nbtour_dix*210)]);
+    $nbtour_dix+=1;
+    @c_d2=$zinc->itemcget($nbd2,-position);
+  }
+
+
+  #--------------------------------
+  # Unites
+  #---------------------------------
+  $zinc->translate("$unit",0,-1);
+
+  my @coords_u1=$zinc->transform($unit,$group1,[$c_u1[0],$c_u1[1]]);
+  if($coords_u1[1]==$yu-210){
+    $zinc->itemconfigure($nbu1,-position=>[$xu,$yu+($nbtour_unit*210)]);
+    $nbtour_unit+=1;
+    @c_u1=$zinc->itemcget($nbu1,-position);
+  }
+
+  my @coords_u2=$zinc->transform($unit,$group1,[$c_u2[0],$c_u2[1]]);
+  if($coords_u2[1]==$yu-210){
+    $zinc->itemconfigure($nbu2,-position=>[$xu,$yu+($nbtour_unit*210)]);
+    $nbtour_unit+=1;
+    @c_u2=$zinc->itemcget($nbu2,-position);
+  }
+
+}
+
+###################################################
+# Actions manuelles
+###################################################
+
+#---------------------------------------------
+# Drag and drop the counter
+#---------------------------------------------
+
+$zinc -> bind("$cercle",'<ButtonPress-1>'=>[sub{
+					      move_on($_[1],$_[2]); #"move_on" state
+					    },Ev('x'),Ev('y')]); 
+
+#"move_on" state#
+sub move_on{
+  my ($xi,$yi)=@_;
+  $zinc -> bind("$cercle",'<ButtonPress-1>'=>"");
+  $zinc -> bind("$cercle",'<Motion>'=>
+		[sub{move($xi,$yi,$_[1],$_[2]); #move the counter
+		     $xi=$_[1];
+		     $yi=$_[2];
+		   },Ev('x'),Ev('y')]); 
+  $zinc -> bind("$cercle",'<ButtonRelease-1>'=>sub{
+		  move_off();}); #"move_off" state
+}
+
+
+#"move_off" state#
+sub move_off{
+  $zinc -> bind("$cercle",'<ButtonPress-1>'=>[sub{
+					       move_on($_[1],$_[2]); #"move_on" state
+					     },Ev('x'),Ev('y')]); 
+  $zinc -> bind("$cercle",'<Motion>'=>""); 
+  $zinc -> bind("$cercle",'<ButtonRelease-1>'=>"");
+}
+
+#move the counter#
+sub move{
+  my ($xi,$yi,$x,$y)=@_;
+  $zinc->translate("$clipped_group1",$x-$xi,$y-$yi);
+  $zinc->translate("$clipped_group2",$x-$xi,$y-$yi);
+}
+ 
+MainLoop;