From f9e98b0b23e0bce9083a5056289436a24e22a982 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 8 Apr 2002 13:40:20 +0000
Subject: *** empty log message ***

---
 sandbox/allgradients.pl | 57 +++++++++++++++++++++++++++++++++++++++++++++++++
 sandbox/allreliefs.pl   | 51 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 108 insertions(+)
 create mode 100644 sandbox/allgradients.pl
 create mode 100644 sandbox/allreliefs.pl

(limited to 'sandbox')

diff --git a/sandbox/allgradients.pl b/sandbox/allgradients.pl
new file mode 100644
index 0000000..b4512c0
--- /dev/null
+++ b/sandbox/allgradients.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+# $Id$
+# these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
+
+use Tk;
+use Tk::Zinc;
+use strict;
+
+my ($grp,, $s, $i);
+my $defaultfont = '-b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1';
+my $mw = MainWindow->new();
+my $zinc = $mw->Zinc(-width => 700, -height => 300,
+		     -render => 1,
+		     )->pack();
+
+
+$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');
+
+$grp = $zinc->add('group', 1);
+$zinc->add('rectangle', $grp, [0, 0, 70, 50],
+	   -filled => 1,
+	   -linewidth => 0,
+	   -fillcolor => 'axial 1',
+	   -tags => ['attrs']);
+$zinc->add('text', $grp,
+	   -text => 'axial 1',
+	   -anchor => 'center',
+	   -position => [35, -10],
+	   -tags => ['attrs']);
+$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,
+		       -fillcolor => $s);
+  $i++;
+  if ($i == 5) {
+    $zinc->translate($grp, -3*100, 80);
+    $i = 1;
+  }
+  else {
+    $zinc->translate($grp, 100, 0);
+  }
+}
+
+
+MainLoop();
diff --git a/sandbox/allreliefs.pl b/sandbox/allreliefs.pl
new file mode 100644
index 0000000..939e5ba
--- /dev/null
+++ b/sandbox/allreliefs.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/perl
+# $Id$
+# these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
+
+use Tk;
+use Tk::Zinc;
+use strict;
+
+my ($grp,, $s, $i);
+my $defaultfont = '-b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1';
+my $mw = MainWindow->new();
+my $zinc = $mw->Zinc(-width => 700, -height => 300,
+		     -render => 1,
+		     )->pack();
+
+
+$grp = $zinc->add('group', 1);
+$zinc->add('rectangle', $grp, [0, 0, 70, 50],
+	   -filled => 1,
+	   -fillcolor => 'tan',
+	   -linecolor => 'tan',
+	   -linewidth => 6,
+	   -relief => 'raised',
+	   -tags => ['attrs']);
+$zinc->add('text', $grp,
+	   -text => 'raised',
+	   -anchor => 'center',
+	   -position => [35, -10],
+	   -tags => ['attrs']);
+$zinc->translate($grp, 20, 30);
+$i = 1;
+foreach $s (('sunken', 'ridge', 'groove',
+	     'roundraised', 'roundsunken', 'roundridge', 'roundgroove',
+	     'raisedrule', 'sunkenrule')) {
+  $grp = $zinc->clone($grp);
+  $zinc->addtag("g$grp", 'withtag', 'attrs', $grp, 0);
+  $zinc->itemconfigure("attrs && g$grp",
+		       -text => $s,
+		       -relief => $s);
+  $i++;
+  if ($i == 5) {
+    $zinc->translate($grp, -3*90, 80);
+    $i = 1;
+  }
+  else {
+    $zinc->translate($grp, 90, 0);
+  }
+}
+
+
+MainLoop();
-- 
cgit v1.1