Mod'd the heat map "temperature" to apply evenly to all grouped paralogs that

map to a single original gene. This is clearer for the user.

svn path=/; revision=190

diff --git a/preecej/perl_singletons/pathway_gene_swapper.pl b/preecej/perl_singletons/pathway_gene_swapper.pl
index 0b6a2c5e008e0a1dc3fee57d0ec0278532898520..833a6d663a2f0b7f89d7622715804de7d0a00337 100644 (file)
--- a/preecej/perl_singletons/pathway_gene_swapper.pl
+++ b/preecej/perl_singletons/pathway_gene_swapper.pl
@@ -716,8 +716,6 @@ sub swap_genes
                 # (in all three dimensions)
                 my $offset_multiplier = 0;
                 my $gene_suffix_counter = 0; # used to affix numbers to multiple new gene symbols
-                # used to track the application of the gradient in reverse
-                my $new_nodes_dec = scalar(@new_nodes_map) + 1;  
                 
                 # for new nodes ary
                 for (@new_nodes_map)
@@ -725,7 +723,6 @@ sub swap_genes
                     if (scalar(@new_nodes_map) > 1)
                     {
                         $gene_suffix_counter++;
-                        $new_nodes_dec--;
                     }
                     
                     my $curr_new_node = $$_[0];
@@ -778,7 +775,7 @@ sub swap_genes
                     # add "heat" to genes with multiple homologs
                     if ($apply_homolog_heat && ($gene_suffix_counter > 0))
                     {
-                        $curr_graphics->setAttribute("FillColor", $gradient{$new_nodes_dec});
+                        $curr_graphics->setAttribute("FillColor", $gradient{scalar(@new_nodes_map)});
                         $curr_graphics->setAttribute("Color","8888ff");
                     }
                     else