view release on metacpan or  search on metacpan

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

    $suximage_col_bar_max[1]     = .5;
    $suximage_col_bar_min[1]     = 0;
    $base_caption[1]             = "f = $iSunmo->{_freq}";
    $mute_picks_file[1]          = '.itemp_mute_picks_' . $sufile_in[1];

    $N = 3;
    $windowtitle[1] = "$N $iSunmo->{_sufile_in} CDP=$iSunmo->{_cdp_num}";

    $suximage->clear();
    $suximage->box_width( quotemeta(300) );
    $suximage->box_height( quotemeta(450) );
    $suximage->box_X0( quotemeta(1200) );
    $suximage->box_Y0( quotemeta(0) );
    $suximage->title( quotemeta( $base_caption[1] ) );
    $suximage->windowtitle( quotemeta( $windowtitle[1] ) );
    $suximage->ylabel( quotemeta('TWTT (s)') );
    $suximage->xlabel( quotemeta('tracl') );
    $suximage->legend( quotemeta($on) );
    $suximage->cmap( quotemeta('hsv2') );
    $suximage->first_x( quotemeta(1) );    #d2=1,f2=1
    $suximage->dx( quotemeta(1) );
    $suximage->loclip( quotemeta( $suximage_col_bar_min[1] ) );
    $suximage->hiclip( quotemeta( $suximage_col_bar_max[1] ) );
    $suximage->verbose( quotemeta($off) );

 #$suximage -> dx_major_divisions(quotemeta($iSunmo->{_velocity_increment}*10));
 #$suximage -> dy_minor_divisions(quotemeta($number_minor_time_divisions);
 #$suximage -> dy_major_divisions(quotemeta($time_inc_major);
 #$suximage -> percent4clip(95.0);
 #$suximage -> first_tick_number_x($iSunmo->{_first_velocity});
 # $suximage -> picks(\$iSunmo->{_Tvel_outbound});
 #print("Writing picks to $iSunmo->{_Tvel_outbound}\n\n");

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

=head2
 
  DEFINE FLOW(S)
  in interactive mode:
  first time you see the image number_of_tries =0
  The image is not connected to flow
  second, third, etc. times number_of_tries >0
  The image halts the flow

=cut

    @items = (
        $susort[1],   $in, $iSunmo->{_inbound}, $to,
        $suwind[1],   $to, $suwind[2],          $to,
        $sunmo[1],    $to, $sufilter[1],        $to,
        $sugain[1],   $to, $sugain[2],          $to,
        $suximage[1], $go
    );
    $flow[1] = $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] );

=head2

  LOG FLOW(S)TO SCREEN AND FILE

=cut

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

# end of calc_display subroutine

=head2 subroutine tmax_s


=cut

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

=head2 

 subroutine  TV pick file in

=cut

sub Tvel_inbound {
    my ( $variable, $Tvel_inbound ) = @_;
    $iSunmo->{_Tvel_inbound} = $Tvel_inbound if defined $Tvel_inbound;
}

#end of iSunmo
1;