Changeset 279 for trunk/klask
- Timestamp:
- Sep 25, 2017, 5:34:00 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r278 r279 2841 2841 2842 2842 my $peripheries = 1; 2843 $peripheries = 2 if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/; 2843 my $color = 'black'; 2844 if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) { 2845 $peripheries = 2; 2846 $color = "\"$color:invis:$color\""; 2847 } 2844 2848 print "\"$sw:$db_switch_output_port{$sw}\" [label = \"".format_aggregator4dot($db_switch_output_port{$sw})."\", color = black, fillcolor = lightblue, peripheries = $peripheries, style = filled];\n"; 2845 2849 … … 2848 2852 print "\"$sw\" [label = \"$swname\", color = black, fillcolor = palegreen, shape = rect, style = filled];\n"; 2849 2853 print "\"location$b-$l\" -> \"$sw\" [len = 2, color = firebrick, arrowtail = dot]\n"; 2850 print "\"$sw\" -> \"$sw:$db_switch_output_port{$sw}\" [len=2, style=bold, arrowhead = normal, arrowtail = invdot]\n";2854 print "\"$sw\" -> \"$sw:$db_switch_output_port{$sw}\" [len=2, style=bold, color = $color, arrowhead = normal, arrowtail = invdot]\n"; 2851 2855 2852 2856 … … 2858 2862 $peripheries = 2 if $port_connect =~ m/^(Trk|Br|Po)/; 2859 2863 print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum, peripheries = $peripheries, style = filled];\n"; 2860 print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, arrowhead= normal, arrowtail = inv]\n";2864 print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color = $color, arrowhead= normal, arrowtail = inv]\n"; 2861 2865 } 2862 2866 }
Note: See TracChangeset
for help on using the changeset viewer.