← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/horae/intrepid

« back to all changes in this revision

Viewing changes to Ifeffit/Path.pm

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Ifeffit/Path.pm
57
57
@ISA = qw(Exporter AutoLoader Ifeffit::Tools Ifeffit::FindFile);
58
58
@EXPORT_OK = qw();
59
59
 
60
 
$VERSION = "0.8.008";
 
60
$VERSION = "0.8.011";
61
61
$cvs_info = '$Id: $ ';
62
62
$module_version = (split(' ', $cvs_info))[2] || 'pre_release';
63
63
@indeces_used = ('^^placeholder^^');
757
757
      $ytext = "\"" . join('.', $group, 'k') . "^$w*" . join('.', $group, 'chi') . "\"";
758
758
      $ylabel = 'k\\u' . $w . '\\d\\gx(k)';
759
759
    };
 
760
    $stack -= $stack_delta if ($$r_paths{$p}->{type} eq 'fit');
760
761
    my $stst = $stack + $ds_offset;
761
762
    (my $yyy = $ytext) =~ s/\"$/+$stst\"/;
762
763
    %hash = (plot      => $plot,
787
788
 
788
789
    $stack += $stack_delta;
789
790
 
 
791
 
790
792
    ## A fit has been selected AND bkg and/or res have been requested
791
793
    if (($$r_paths{$p}->{type} eq 'fit') and $$r_paths{$p}->{parent}) {
792
794
      if (($do_bkg) and (-e $$r_paths{$p}->get('bkgfile'))) {
794
796
        ++$i;
795
797
        $i = $i % 10;
796
798
        (my $this_ytext = $ytext) =~ s/$group/$gr/g;
 
799
        $stack -= $stack_delta if ($$r_paths{$p}->{type} eq 'fit');
797
800
        $stst = $stack + $ds_offset;
798
801
        (my $yyy = $this_ytext) =~ s/\"$/+$stst\"/;
799
802
        %hash = (plot      => 'plot',
836
839
                 xmax      => $$r_pf{rmax},
837
840
                 style     => $style,
838
841
                 color     => "\"" . $$r_pf{'c'.$i} . "\"",
839
 
                 key       => 'Res for '.$$r_paths{$p}->short_descriptor,
 
842
                 key       => 'Resid for '.$$r_paths{$p}->short_descriptor,
840
843
                 title     => "\"\'$set\' in R space\"");
841
844
        my $this = plotstring(\%hash);
842
845
        $this = wrap("", $indent, $this);
1051
1054
    $i = $i % 10;
1052
1055
    my $inv = "";
1053
1056
    ($inv = "-1*") if ($invert and ($$r_paths{$p}->type eq 'path'));
 
1057
    $stack -= $stack_delta if ($$r_paths{$p}->{type} eq 'fit');
1054
1058
    my $stst = $stack + $ds_offset;
1055
1059
    %hash = (plot      => $plot,
1056
1060
             'x'       => join('.', $group, 'r'),
1088
1092
        $i = $i % 10;
1089
1093
        $inv = "";
1090
1094
        ($inv = "-1*") if $invert;
 
1095
        $stack -= $stack_delta if ($$r_paths{$p}->{type} eq 'fit');
1091
1096
        $stst = $stack + $ds_offset;
1092
1097
        %hash = (plot      => 'plot',
1093
1098
                 'x'       => join('.', $gr, 'r'),
1129
1134
                 xmax      => $$r_pf{rmax},
1130
1135
                 style     => $style,
1131
1136
                 color     => "\"" . $$r_pf{'c'.$i} . "\"",
1132
 
                 key       => 'Res for '.$$r_paths{$p}->short_descriptor,
 
1137
                 key       => 'Resid for '.$$r_paths{$p}->short_descriptor,
1133
1138
                 title     => "\"\'$set\' in R space\"");
1134
1139
        my $this = plotstring(\%hash);
1135
1140
        $this = wrap("", $indent, $this);
1382
1387
    ($inv = "-1*") if ($invert and ($$r_paths{$p}->type eq 'path'));
1383
1388
    ++$i;
1384
1389
    $i = $i % 10;
 
1390
    $stack -= $stack_delta if ($$r_paths{$p}->{type} eq 'fit');
1385
1391
    my $stst = $stack + $ds_offset;
1386
1392
    %hash = (plot      => $plot,
1387
1393
             'x'       => join('.', $group, 'q'),
1462
1468
                 xmax      => $$r_pf{rmax},
1463
1469
                 style     => $style,
1464
1470
                 color     => "\"" . $$r_pf{'c'.$i} . "\"",
1465
 
                 key       => 'Res for '.$$r_paths{$p}->short_descriptor,
 
1471
                 key       => 'Resid for '.$$r_paths{$p}->short_descriptor,
1466
1472
                 title     => "\"\'$set\' in R space\"");
1467
1473
        my $this = plotstring(\%hash);
1468
1474
        $this = wrap("", $indent, $this);
1741
1747
      last SWITCH;
1742
1748
    };
1743
1749
    ($self->{type} eq 'feff') and do {
1744
 
      return $self->{lab};
 
1750
      return join(": ", $$r_paths{$self->{data}}->{lab}, $self->{lab});
1745
1751
      last SWITCH;
1746
1752
    };
1747
1753
    ($self->{type} eq 'path') and do {