Changeset 279

Timestamp:

Sep 25, 2017, 5:34:00 PM (7 years ago)

Author:

g7moreau

Message:

• double arrow for trunk port

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -2841 +2841 @@
 
             my $peripheries = 1;
-            $peripheries = 2 if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
+            my $color = 'black';
+            if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
+               $peripheries = 2;
+               $color = "\"$color:invis:$color\"";
+               }
             print "\"$sw:$db_switch_output_port{$sw}\" [label = \"".format_aggregator4dot($db_switch_output_port{$sw})."\", color = black, fillcolor = lightblue,  peripheries = $peripheries, style = filled];\n";
 
@@ -2848 +2852 @@
             print "\"$sw\" [label = \"$swname\", color = black, fillcolor = palegreen, shape = rect, style = filled];\n";
             print "\"location$b-$l\" -> \"$sw\" [len = 2, color = firebrick, arrowtail = dot]\n";
-            print "\"$sw\" -> \"$sw:$db_switch_output_port{$sw}\" [len=2, style=bold, arrowhead = normal, arrowtail = invdot]\n";
+            print "\"$sw\" -> \"$sw:$db_switch_output_port{$sw}\" [len=2, style=bold, color = $color, arrowhead = normal, arrowtail = invdot]\n";
 
 
@@ -2858 +2862 @@
                $peripheries = 2 if $port_connect =~ m/^(Trk|Br|Po)/;
                print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum,  peripheries = $peripheries, style = filled];\n";
-               print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, arrowhead= normal, arrowtail = inv]\n";
+               print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color = $color, arrowhead= normal, arrowtail = inv]\n";
               }
             }