From 24df859cbc6bb1661abfa7bbe52cfc3dd1b14120 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 12 Jan 2000 13:56:36 +0000
Subject: *** empty log message ***

---
 sandbox/testzinc.pl | 229 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 229 insertions(+)
 create mode 100644 sandbox/testzinc.pl

(limited to 'sandbox/testzinc.pl')

diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
new file mode 100644
index 0000000..ebcb40c
--- /dev/null
+++ b/sandbox/testzinc.pl
@@ -0,0 +1,229 @@
+#!/usr/bin/perl
+
+use Tk;
+
+$mw = MainWindow->new;
+$logo = $mw->Photo(-file => "/home/etienne/images/logo.gif");
+# $canvas = $mw->Canvas;
+# $canvas->pack(-expand => t, -fill => 'both');
+# $text = $canvas->create('text', 30, 20, -width => 45, -text => "hello");
+# @listOfList = $canvas->itemconfigure($text);
+# for (@listOfList) {
+#     ($option, $name, $class, $default, $value) = @$_;
+#     print "$option, $value\n";
+# }
+# MainLoop;
+# exit;
+###################################################
+# creation radar
+###################################################
+
+#$mw->Radar()->pack;
+#MainLoop; exit;
+$radar = $mw->Radar(-backcolor => 'skyblue', -relief => 'sunken');
+$radar->pack(-expand => t, -fill => 'both');
+
+$radar->configure(-width => 800, -height => 500);
+$color = $radar->cget("-backcolor"); print "radar backcolor=$color\n";
+
+###################################################
+# creation track
+###################################################
+$track = $radar->add("track", 10);
+#$radar->itemconfigure($track, -tags => 'toto');
+
+$radar->itemconfigure($track, -position => [1, 1]); 
+$radar->itemconfigure($track, -position => [10, 10]); 
+$radar->itemconfigure($track, -position => [20, 20]); 
+$radar->itemconfigure($track, -position => [30, 30]); 
+$radar->itemconfigure($track, -position => [40, 40]); 
+$radar->itemconfigure($track, -position => [50, 50]); 
+$radar->itemconfigure($track, -position => [60, 50]); 
+$radar->itemconfigure($track, -speedvector => [20, 0]); 
+$radar->itemconfigure($track, -symbolcolor => 'red', -labeldistance => 60);
+$radar->itemconfigure($track, -markersize => 10, -filledmarker => 1,
+		      -markercolor => "green");
+
+print "radar itemconfigure :\n\n";
+for $attr ($radar->itemconfigure($track)) {
+    print "  ( ",join(',', @$attr)," )\n" ;
+}
+print "\n";
+
+$size = $radar->itemcget($track, -markersize); print "track markersize=$size\n";
+(@coords) = $radar->itemcget($track, "-position");
+print "track position=",$coords[0],"+",$coords[1],"\n";
+
+
+$radar->itemconfigure($track, -labelformat =>
+		      "150x60|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0,2:150x60+0+0");
+
+$radar->itemconfigure($track, 0, -filled => 1 , -backcolor => "red",
+ 		      -border => "contour");
+$radar->itemconfigure($track, 0, -text => "TO");
+$radar->itemconfigure($track, 1, -filled => 1 , -backcolor => "green",
+		      -border => "contour");
+$radar->itemconfigure($track, 1, -filled => 1 , -backcolor => "green",
+		      -border => "contour");
+$radar->itemconfigure($track, 2, -image => $logo , -alignment => "center");
+$mk = $radar->itemcget($track, -markercolor);
+
+$radar->itemconfigure($track, 0, -reliefthickness =>  2, -relief => "sunken",
+		      -bordercolor => "red", -border => "noborder");
+
+$radar->bind($track.":-3", "<Enter>",
+	     sub {$radar->itemconfigure($track, -speedvectorcolor => 'red')});
+$radar->bind($track.":-3", "<Leave>",
+    sub {$radar->itemconfigure($track, -speedvectorcolor => 'black')});
+	     
+
+###################################################
+# creation way point
+###################################################
+print "creating way point\n";
+my $wp = $radar->add("waypoint", 10);
+$radar->itemconfigure($wp,
+    -symbolcolor => "green",
+    -position => [0, 80],
+    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0,2:80x40+0+0"
+    );
+$radar->itemconfigure($wp, 0 ,-filled => 1 ,-backcolor => "tan",-text => "TO");
+$radar->itemconfigure($wp, 1 ,-filled => 1 ,-backcolor => "wheat",-text => "TO");
+$radar->itemconfigure($wp, 2 ,-border => "contour");
+$radar->bind($wp, "<Enter>", [ \&borders, "on"]);
+$radar->bind($wp, "<Leave>", [ \&borders, "off"]);
+
+###################################################
+# creation 2nd track
+###################################################
+print "creating second track\n";
+$track2 = $radar->add("track", 10, -speedvector => [-20, 0], -position => [0, 50]);
+$radar->itemconfigure($track2, -connecteditem => $track);
+
+###################################################
+# creation macro
+###################################################
+print "creating macro\n";
+$macro = $radar->add("macro", 10,
+    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0"
+    );
+$radar->itemconfigure($macro, 0 , -text => "une");
+$radar->itemconfigure($macro, 1, -text => "macro");
+$radar->itemconfigure($macro, -connecteditem => $track);
+$radar->bind($macro.":0", "<Enter>", [ \&borders, "on"]);
+$radar->bind($macro.":0", "<Leave>", [ \&borders, "off"]);
+
+###################################################
+# creation ministrip
+###################################################
+print "creating ministrip\n";
+$ministrip = $radar->add("ministrip", 10,
+    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0",
+    -position => [100, 10]
+    );
+$radar->itemconfigure($ministrip, 0 , -text => 'ministrip');
+
+###################################################
+# creation map
+###################################################
+print "creating map\n";
+$mw->videomap("load", "/home/etienne/tmp/videomap_paris-w_90_2", 0, "paris-w");
+$mw->videomap("load", "/home/etienne/tmp/videomap_orly", 17, "orly");
+$mw->videomap("load", "/home/etienne/tmp/hegias_parouest_TE.vid", 0, "paris-ouest");
+
+print "videomap ids : ",
+    join('|', $mw->videomap("ids", "/home/etienne/tmp/videomap_orly")),"\n";
+$map = $radar->add("map", -color => red);
+$radar->itemconfigure($map,-mapinfo => orly);
+
+$map2 = $radar->add("map", -color => green, -filled => 1, -priority => 0,
+    -fillpattern => AlphaStipple6);
+#$radar->itemconfigure($map2, -mapinfo => paris-ouest);
+
+$map3 = $radar->add("map", -color => orange);
+$radar->itemconfigure($map3,-mapinfo => "paris-w");
+
+
+###################################################
+#creation rectangle, arc, curve
+###################################################
+
+$rect = $radar->add(rectangle, -50, -50, 50, -80, -linecolor => bisque);
+$radar->bind($rect, '<Enter>', sub { $radar->itemconfigure($rect, -linecolor => red)});
+$radar->bind($rect, '<Leave>', sub { $radar->itemconfigure($rect, -linecolor => bisque)});
+
+$arc = $radar->add(arc, -100, 80, -50, 30, -linecolor => bisque,
+    -tags => ["arc"]);
+#$radar->addtag("fleche",'withtag', $arc);
+#$radar->addtag("carquois",'withtag', $arc);
+$radar->add(rectangle, -101, 81, -49, 29, -linecolor => green);
+$radar->raise($arc);
+$radar->bind($arc, '<Enter>', sub {$radar->itemconfigure($arc, -linecolor => red)});
+$radar->bind($arc, '<Leave>', sub {$radar->itemconfigure($arc, -linecolor => bisque)});
+print "arc tags=", join('|',$radar->gettags($arc)),"\n";
+
+$radar->itemconfigure($arc, -startangle => 0, -extent => 360);
+
+$mp = $radar->add(curve, -300, 0, -250, 100, -80, 20);
+$radar->itemconfigure($mp, -filled => 1, -linewidth => 4, -linecolor => yellow,
+    -fillcolor => tan, -fillpattern => AlphaStipple8);
+$radar->itemconfigure($mp, -marker => AtcSymbol9 , -markercolor => red);
+
+###################################################
+# Map info
+###################################################
+$mw->mapinfo('mpessai', 'create');
+$mw->mapinfo('mpessai', add, text, normal, simple, 0, 200, "Et voilą");
+$mw->mapinfo(mpessai, add, line, simple, 0,  0, 0, 0, 200);
+#$mw->mapinfo('mpessai', add, line, simple, 5, -100, 100, 0, 0);
+$radar->itemconfigure($map3, -mapinfo => mpessai);
+
+print "mapinfo count line : ", $mw->mapinfo(mpessai, count, line),"\n";
+print "mapinfo get line 3: ", join('|',$mw->mapinfo(mpessai, get, line, 0)),"\n";
+###################################################
+# tests diverses methodes 
+###################################################
+
+for ($radar->find('all')) {
+    print $_, " -> ", $radar->type($_),"\n";
+}
+$radar->Tk::bind("<2>", [sub {
+    print $_[1], "@" ,$_[2], ", closest: ",
+    join(' ',$radar->find('closest', $_[1], $_[2])),"\n";
+    }, Ev('x'), Ev('y')]);
+
+
+$radar->Tk::bind('<ButtonPress-1>',
+    [ sub {($origx, $origy) = ($_[1], $_[2]); }, Ev('x'), Ev('y') ]);
+
+$radar->Tk::bind('<ButtonRelease-1>',
+    [ sub {&finditems($_[1], $_[2]); }, Ev('x'), Ev('y') ]);
+
+$radar->Tk::bind("<2>", sub {$radar->translate('all', 10,10); });
+$radar->Tk::bind("<3>", sub {$radar->scale(1.1, 1.1); });
+
+
+@position = [20, 40, 50, 80];
+#@xy = $radar -> worldcoords (0, @position);
+@xy = $radar -> worldcoords (0, [10, 23, 45, 65]);
+print ("x = ",$xy[0],"   y = ",$xy[1],"\n");
+
+
+
+MainLoop;
+
+sub borders {
+    my($widget, $onoff) = @_;
+    my $part = $radar->currentpart;
+    my $contour = "noborder";
+    $contour = "contour" if ($onoff eq 'on');
+    $radar->itemconfigure('current', $part, -border => $contour) if ($part >= 0);
+}
+
+sub finditems {
+    my($cornerx, $cornery) = @_;
+    print "--- enclosed --->",
+    join('|', $radar->find('enclosed',$origx, $origy, $cornerx, $cornery)),"\n";
+    print "--- overlapping --->",
+    join('|',$radar->find('overlapping',$origx, $origy, $cornerx, $cornery)),"\n\n";
+}
-- 
cgit v1.1