From: preecej <preecej@localhost>
Date: Wed, 19 Oct 2011 00:11:18 +0000 (+0000)
Subject: Mod'd the heat map "temperature" to apply evenly to all grouped paralogs that
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=f972a719aa6a7a0c75a17c32c88050e498cd6bcc;p=old-jaiswallab-svn%2F.git

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 0b6a2c5..833a6d6 100644
--- 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