view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iApply_mute.pm  view on Meta::CPAN

    # $suximage -> clear();
    # $suximage -> box_width(300);
    # $suximage -> box_height(700);
    # $suximage -> box_X0(70);
    # $suximage -> box_Y0(120);
    # $suximage -> title($base_caption);
    # $suximage -> windowtitle($windowtitle);
    # $suximage -> ylabel(quotemeta('TWTTs'));
    # $suximage -> xlabel($iApply_mute->{_offset_type});
    # $suximage -> legend($on);
    # $suximage -> cmap('rgb0');
    # #$suximage -> loclip($iApply_mute->{_min_amplitude});
    # #$suximage -> hiclip($iApply_mute->{_max_amplitude});
    # $suximage -> verbose($off);
    # $suximage[1]  = $suximage -> Step();
    #

=head2 Set wiggle plot 
	
	for tau-p data

=cut

    $suxwigb->clear();
    $suxwigb->defaults( 'iSurf4', 'top_middle' );
    $suxwigb->key('tracl');
    $suxwigb->title( $iApply_mute->{_file_in} );

    #$suxwigb-> pmin($CFG->{sutaup}{1}{pmin});
    #$suxwigb-> dp($dp);
    $suxwigb->box_width(400);
    $suxwigb->box_height(500);

    #$suxwigb-> percent(99.9);
    $suxwigb->clip(1);
    $suxwigb->windowtitle( quotemeta('Muted Taup Data') );
    $suxwigb[1] = $suxwigb->Step();

=head2
 
  DEFINE FLOW(S)

=cut

    @items =
      ( $sumute[1], $in, $iApply_mute->{_inbound}, $to, $suxwigb[1], $go );
    $flow[1] = $run->modules( \@items );

    @items = (
        $sumute[1], $in, $iApply_mute->{_inbound},
        $out, $iApply_mute->{_outbound}, $go
    );
    $flow[2] = $run->modules( \@items );

=head2

  RUN FLOW(S)
  output copy of picked data points
  only occurs after the number of tries
  is updated

=cut

    $run->flow( \$flow[1] );
    $run->flow( \$flow[2] );

=head2

  LOG FLOW(S)TO SCREEN AND FILE

=cut

    #print  "$flow[1]\n";
    #$log->file($flow[1]);
    print "$flow[2]\n";

    #$log->file($flow[2]);

}    # end calcNdisplay subroutine

1;