Changeset 284


Ignore:
Timestamp:
Sep 25, 2017, 8:42:50 PM (7 years ago)
Author:
g7moreau
Message:
  • Change arrow color
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r283 r284  
    28492849
    28502850            my $peripheries = 1;
    2851             my $color = 'black';
     2851            my $color = 'lightblue';
    28522852            if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
    28532853               $peripheries = 2;
    2854                $color = "\"$color:invis:$color\"";
     2854               $color = "\"$color:$color\"";
    28552855               }
    28562856            print "\"$sw:$db_switch_output_port{$sw}\" [label=\"".format_aggregator4dot($db_switch_output_port{$sw})."\", color=black, fillcolor=lightblue, peripheries=$peripheries, style=filled];\n";
     
    28682868               next if $port_connect eq $db_switch_output_port{$sw};
    28692869               my $peripheries = 1;
    2870                my $color = 'black';
     2870               my $color = 'plum';
    28712871               if ($port_connect =~ m/^(Trk|Br|Po)/) {
    28722872                  $peripheries = 2;
    2873                   $color = "\"$color:invis:$color\"";
     2873                  $color = "\"$color:$color\"";
    28742874                  }
    28752875               print "\"$sw:$port_connect\" [label=\"".format_aggregator4dot($port_connect)."\", color=black, fillcolor=plum, peripheries=$peripheries, style=filled];\n";
     
    28982898      else {
    28992899         my $style = 'solid';
    2900          my $color = 'navyblue';
     2900         my $color = 'black'; # navyblue
    29012901         if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
    29022902            $style = 'bold';
     
    29142914      for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
    29152915         my $style = 'solid';
    2916          my $color = 'navyblue';
     2916         my $color = 'black'; # navyblue
    29172917         if ($port_connect =~ m/^(Trk|Br|Po)/) {
    29182918            $style = 'bold';
Note: See TracChangeset for help on using the changeset viewer.