From f972a719aa6a7a0c75a17c32c88050e498cd6bcc Mon Sep 17 00:00:00 2001
From: preecej <preecej@localhost>
Date: Wed, 19 Oct 2011 00:11:18 +0000
Subject: [PATCH] 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
---
 preecej/perl_singletons/pathway_gene_swapper.pl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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
-- 
2.34.1