view release on metacpan or  search on metacpan

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

      $iVrms2Vint->{_number_of_velocities} * $iVrms2Vint->{_velocity_increment};

    my $num_points_per_plot = $num_points_Vrms . ',' . $num_points_Vint_plot;
    $xgraph->clear();
#    $xgraph->d1(quotemeta (.05));
    $xgraph->geometry( quotemeta( $geometry[1] ) );
#    $xgraph->grid1_type( quotemeta('dash') );
#    $xgraph->grid2_type( quotemeta('dash') );
    $xgraph->num_points( quotemeta($num_points_per_plot) );
    $xgraph->num_points( quotemeta($num_points_per_plot) );
    $xgraph->x1_min( quotemeta(0) );
    $xgraph->x1_max( quotemeta( $iVrms2Vint->{_tmax_s} ) );
    $xgraph->x2_min( quotemeta($xgraph_first_vel) );
    $xgraph->x2_min(0);
    $xgraph->x2_max( quotemeta($xgraph_last_vel) );
    $xgraph->windowtitle(
        quotemeta( $sufile_in[1] . ' ' . $date . ' ' . $suffix[3] ) );
    $xgraph->title( quotemeta( $Vrmsfile_in[1] . ' Vrms(green) Vint(red)' ) );
    $xgraph->format( quotemeta('2,2') );
    $xgraph->mark_indices( quotemeta('0,8') );
    $xgraph->mark_size_pix( quotemeta('12,8') );
    $xgraph->box_width( quotemeta($wbox) );
    $xgraph->box_height( quotemeta($hbox) );
    $xgraph->geometry( quotemeta( $geometry[1] ) );
    $xgraph->label1( quotemeta('Time (s)') );
    $xgraph->label2( quotemeta('Velocity (m/s)') );
    $xgraph->line_widths( quotemeta('2,2') );
    $xgraph->line_color( quotemeta('3,2') );
    $xgraph->axes_style( quotemeta('seismic') );

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

=head2 DEFINE FLOW(S)
 

=cut 

    @items = (
        "cat",                  " ", $Vrms_read_file[1], " ",
        $Vint_plot_outbound[1], $to, $a2b[1],            $to,
        $xgraph[1],             $go
    );
    $flow[2] = $run->modules( \@items );

=head2 RUN FLOW(S)


=cut

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

=head2 LOG FLOW(S)

  TO SCREEN AND FILE

=cut

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

=head2 WRITE OUTPUT FILE

 write Vint file 

=cut

    $files->write_2cols( $ref_T, $ref_Vint, $num_points_Vint,
        \$Vint_outbound[1], \$format[1] );
}

# END calcNdisplay

=head2 subroutine file_in

 Required file name
 on which to perform velocity analyses 

=cut

sub file_in {
    my ( $variable, $file_in ) = @_;
    $iVrms2Vint->{_file_in} = $file_in if defined($file_in);

    #print("file name is $iVrms2Vint->{_file_in} \n\n");
}

=head2 subroutine first_velocity


=cut

sub first_velocity {
    my ( $variable, $first_velocity ) = @_;
    $iVrms2Vint->{_first_velocity} = $first_velocity
      if defined($first_velocity);

    #print("first velocity is $iVrms2Vint->{_first_velocity} \n\n");
}

=head2 subroutine number_of_velocities


=cut

sub number_of_velocities {
    my ( $variable, $number_of_velocities ) = @_;
    $iVrms2Vint->{_number_of_velocities} = $number_of_velocities
      if defined $number_of_velocities;

   #print(" number_of_velocities is $iVrms2Vint->{_number_of_velocities} \n\n");
}

=head2 subroutine tmax_s


=cut

sub tmax_s {
    my ( $self, $tmax_s ) = @_;
    if ($tmax_s) {
        $iVrms2Vint->{_tmax_s} = $tmax_s;