view release on metacpan or  search on metacpan

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

=head2

  set filtering parameters 

=cut

    $sufilter->clear();
    $sufilter->freq( $iShow_picks->{_freq} );
    $sufilter[1] = $sufilter->Step();

=head2

 GAIN DATA

=cut

    $sugain->clear();
    $sugain->pbal($on);
    $sugain[1] = $sugain->Step();

    $sugain->clear();
    $sugain->agc($on);

    # nominal agc width
    my $wagc =
      ( $iShow_picks->{_max_x1} - $iShow_picks->{_min_x1} ) / 10;

    # print("iShow_picks,calcNdisplay,wagc=$wagc\n");
    $sugain->width($wagc);
    $sugain[2] = $sugain->Step();

    $sugain->clear();
    $sugain->tpower(1.8);
    $sugain[3] = $sugain->Step();

=head2

 DISPLAY DATA (SUXIMAGE)

=cut

    $base_caption[1] =
        $iShow_picks->{_file_in}
      . quotemeta(' ')
      . quotemeta(' f=')
      . $iShow_picks->{_freq};
    $windowtitle[1] =
        $iShow_picks->{_gather_header}
      . quotemeta(' = ')
      . $iShow_picks->{_gather_num};

    $suximage->clear();
    $suximage->box_width(400);
    $suximage->box_height(600);
    $suximage->box_X0(200);
    $suximage->box_Y0(150);
    $suximage->title( $base_caption[1] );
    $suximage->windowtitle( $windowtitle[1] );
    $suximage->ylabel( quotemeta('TWTTs') );
    $suximage->xlabel( $iShow_picks->{_offset_type} );
    $suximage->legend($on);
    $suximage->cmap('rgb0');
    $suximage->loclip( $iShow_picks->{_min_amplitude} );
    $suximage->hiclip( $iShow_picks->{_max_amplitude} );
    
    # geopsy plot preference for JML
	if (    length $iShow_picks->{_purpose}
		and $iShow_picks->{_purpose} eq 'geopsy'
		and $iShow_picks->{_max_x1} > $iShow_picks->{_min_x1} ) {

		$suxwigb->x1beg( $iShow_picks->{_max_x1} );
		$suxwigb->x1end( $iShow_picks->{_min_x1} );
#		print("iShow_picks, suximage with \'geopsy\' purpose\n");
		
	} else {
		$suxwigb->x1beg( $iShow_picks->{_min_x1} );
		$suxwigb->x1end( $iShow_picks->{_max_x1} );
	}
    

    $suximage->verbose($off);

    _inbound_curve_file();

    print("iShow_picks,calc, using a curve file:\n");
    print("\t$iShow_picks->{_inbound_curve_file}\n\n");

    $suximage->curve( quotemeta( $iShow_picks->{_inbound_curve_file} ) );
    my ( $ref_T, $ref_X, $num_tx_pairs ) =
    $manage_files_by->read_2cols( \$iShow_picks->{_inbound_curve_file} );
    $suximage->npair( quotemeta($num_tx_pairs) );
    $suximage->curvecolor( quotemeta(2) );

=item choose to save picks
 
=cut

    if ( $iShow_picks->{_number_of_tries} > 0 ) {

        $iShow_picks->{_TX_outbound} = $itemp_picks_ . $iShow_picks->{_file_in};
        $suximage->picks( $DATA_DIR_OUT . '/' . $iShow_picks->{_TX_outbound} );

        print(
"iShow_picks, suximage, writing picks to $itemp_picks_$iShow_picks->{_file_in} \n"
        );

        # print("iShow_picks, suximage, PATH: $DATA_DIR_OUT \n\n");
        # print("number of tries is $iShow_picks->{_number_of_tries} \n\n");
    }

    $suximage[1] = $suximage->Step();

=head2

 DISPLAY DATA (SUXWIGB) 

=cut

    $base_caption[2] =
      $iShow_picks->{_file_in} . quotemeta(' f=') . $iShow_picks->{_freq};
    $windowtitle[2] =