OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Michael van Elst
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 15-Jan-2003 16:51:27
Branch: HEAD Handle: 2003011515512600
Modified files:
openpkg-web/dep vdg.pl
Log:
use shapes to distinguish edge nodes
Summary:
Revision Changes Path
1.11 +88 -36 openpkg-web/dep/vdg.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/dep/vdg.pl
============================================================================
$ cvs diff -u -r1.10 -r1.11 vdg.pl
--- openpkg-web/dep/vdg.pl 14 Jan 2003 20:33:02 -0000 1.10
+++ openpkg-web/dep/vdg.pl 15 Jan 2003 15:51:26 -0000 1.11
@@ -25,17 +25,23 @@
# PreReq
# vcg colors
-my $color_node_background = "245 240 224";
-my $colorentry_node_background = "36";
-my $colorentry_upnode_background = "37";
-my $color_node_text = "0 0 0";
-my $colorentry_node_text = "37";
-my $colorentry_upnode_text = "39";
-my $color_root_node_background = "181 176 160";
+my $color_node_background = "245 240 224";
+my $colorentry_node_background = "36";
+my $color_node_text = "0 0 0";
+my $colorentry_node_text = "37";
+my $shape_node = 'box';
+
+my $color_root_node_background = "181 176 160";
my $colorentry_root_node_background = "38";
-my $color_root_node_text = "0 120 0";
-my $colorentry_root_node_text = "39";
-my $color_arrow = "255 255 255";
+my $color_root_node_text = "0 0 0";
+my $colorentry_root_node_text = "39";
+my $shape_root_node = 'ellipse';
+
+my $colorentry_upnode_background = "37"; # same as node text
+my $colorentry_upnode_text = "39"; # same as root_node text
+my $shape_upnode = 'ellipse';
+
+my $color_arrow = "255 255 255";
my $colorentry_arrow = "40";
my $color_background = "229 224 208";
my $colorentry_background = "41";
@@ -423,11 +429,19 @@
foreach $key (keys %requirepack) {
my $pen = pkgpen($key);
if ($key !~ m/[A-Z]+/) {
- print " node: { title:\"$key\" label:\"$key\\n$version{$key}\"
textmode: center color: \
- $pen textcolor: $colorentry_node_text}\n";
+ print " node: {\n".
+ " title:\"$key\" label:\"$key\\n$version{$key}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_node_text\n".
+ " shape: $shape_node\n".
+ " }\n";
} else {
- print " node: { title:\"$key\" label:\"$key\\n$version{$key}\"
textmode: center color: \
- $pen textcolor: $colorentry_upnode_text}\n";
+ print " node: {\n".
+ " title:\"$key\" label:\"$key\\n$version{$key}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_upnode_text\n".
+ " shape: $shape_upnode\n".
+ " }\n";
}
}
print "\n";
@@ -435,8 +449,12 @@
foreach $key (keys %requirepack) {
@requirearray = split (/\s/, $requirepack{$key}) ; # Split to array
foreach (@requirearray) {
- print " edge: { sourcename: \"$key\" targetname:\"$_\" color: \
- $colorentry_arrow priority: 1}\n";
+ print " edge: {\n".
+ " sourcename: \"$key\"\n".
+ " targetname:\"$_\"\n".
+ " color: $colorentry_arrow\n".
+ " priority: 1\n".
+ " }\n";
}
}
# print the endmarker
@@ -507,19 +525,33 @@
if ($firsthit) {
my $pen = pkgpen($acttreepoint);
if ($acttreepoint eq $roottreepoint) {
- print " node: { title:\"$acttreepoint\"
label:\"$acttreepoint\\n$version{$acttreepoint}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_root_node_text level: $level}\n";
+ print " node: {\n".
+ " title:\"$acttreepoint\"\n".
+ " label:\"$acttreepoint\\n$version{$acttreepoint}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_root_node_text\n".
+ " level: $level\n".
+ " shape: $shape_root_node\n".
+ " }\n";
$level = $level + 1 ;
} else {
if ($acttreepoint !~ m/[A-Z]+/) {
- print " node: { title:\"$acttreepoint\"
label:\"$acttreepoint\\n$version{$acttreepoint}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_node_text level: $level}\n";
+ print " node: {\n".
+ " title:\"$acttreepoint\"\n".
+ " label:\"$acttreepoint\\n$version{$acttreepoint}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_node_text\n".
+ " level: $level\n".
+ " shape: $shape_node\n".
+ " }\n";
} else {
- print " node: { title:\"$acttreepoint\"
label:\"$acttreepoint\\n$version{$acttreepoint}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_upnode_text}\n";
+ print " node: {\n".
+ " title:\"$acttreepoint\"\n".
+ " label:\"$acttreepoint\\n$version{$acttreepoint}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_upnode_text\n".
+ " shape: $shape_upnode\n".
+ " }\n";
}
}
push (@foundarray, $acttreepoint);
@@ -537,19 +569,35 @@
if ($firsthit) {
my $pen = pkgpen($useelement);
if ($useelement eq $roottreepoint) {
- print " node: { title:\"$useelement\"
label:\"$useelement\\n$version{$useelement}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_root_node_text level: $level}\n";
+ print " node: {\n".
+ " title:\"$useelement\"\n".
+ " label:\"$useelement\\n$version{$useelement}\"\n".
+ " textmode: center\n".
+ " color: $pen\n".
+ " textcolor: $colorentry_root_node_text\n".
+ " level: $level\n".
+ " shape: $shape_root_node\n".
+ " }\n";
$level = $level + 1;
} else {
if ($useelement !~ m/[A-Z]+/) {
- print " node: { title:\"$useelement\"
label:\"$useelement\\n$version{$useelement}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_node_text level: $level}\n";
+ print " node: {\n".
+ " title:\"$useelement\"\n".
+ " label:\"$useelement\\n$version{$useelement}\"\n".
+ " textmode: center color: $pen\n".
+ " textcolor: $colorentry_node_text\n".
+ " level: $level\n".
+ " shape: $shape_node\n".
+ " }\n";
} else {
- print " node: { title:\"$useelement\"
label:\"$useelement\\n$version{$useelement}\" \
- textmode: center color: $pen textcolor: \
- $colorentry_upnode_text}\n";
+ print " node: {\n".
+ " title:\"$useelement\"\n".
+ " label:\"$useelement\\n$version{$useelement}\"\n".
+ " textmode: center\n".
+ " color: $pen\n".
+ " textcolor: $colorentry_upnode_text\n".
+ " shape: $shape_upnode\n".
+ " }\n";
}
}
push (@foundarray, $_);
@@ -566,8 +614,12 @@
}
}
if ($firstconhit) {
- print " edge: { sourcename: \"$acttreepoint\"
targetname:\"$useelement\" color: \
- black priority: 1}\n";
+ print " edge: {\n".
+ " sourcename:\"$acttreepoint\"\n".
+ " targetname:\"$useelement\"\n".
+ " color: black\n".
+ " priority: 1\n".
+ " }\n";
push (@foundconarray, $actparam);
}
&mk_vcg_tree_tree ($useelement, $roottreepoint, $level + 1);
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
