Commit 7b7ec2f8 authored by Matthieu Muffato's avatar Matthieu Muffato
Browse files

With the "DisplayStretched" option on: now draws the mid-point of the...

With the "DisplayStretched" option on: now draws the mid-point of the semaphores next to the boxes instead of under them
parent ca0fb028
......@@ -24,11 +24,11 @@ See inline
=head1 AUTHOR
$Author: lg4 $
$Author: mm14 $
=head1 VERSION
$Revision: 1.20 $
$Revision: 1.21 $
=cut
......@@ -185,9 +185,15 @@ sub build {
$self->_dataflow_rules( $all_dataflow_rules );
if($self->config->get('Graph', 'DisplayStretched') ) {
# The invisible edges will be linked to the destination analysis instead of the midpoint
my $id_to_rule = {map { $_->dbID => $_ } @$all_dataflow_rules};
my @all_fdr_id = grep {$_} (map {$_->funnel_dataflow_rule_id} @$all_dataflow_rules);
my $midpoint_to_analysis = {map { _midpoint_name( $_ ) => _analysis_node_name( $id_to_rule->{$_}->to_analysis->dbID ) } @all_fdr_id};
while( my($from, $to) = each %subgraph_allocation) {
if($to) {
$self->graph->add_edge( $from => $to,
$self->graph->add_edge( $from => $midpoint_to_analysis->{$to},
color => 'black',
style => 'invis', # toggle visibility by changing 'invis' to 'dashed'
);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment