Changeset 10589 in ntrip


Ignore:
Timestamp:
Dec 12, 2024, 12:15:30 PM (6 hours ago)
Author:
stuerze
Message:

minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/BNC/scripts/pppPlot.pl

    r10585 r10589  
    147147    $headline_text->text($headline);
    148148    $y = $y0;
    149     my $pngName  = sprintf ( "%s_NEU.png", $station );
     149    my $pngNameNEU  = sprintf ( "%s_NEU.png", $station );
    150150    my $chartNEU = newChart($station);
    151     $chartNEU->set( output => $pngName );
     151    $chartNEU->set( output => $pngNameNEU);
    152152    $chartNEU->set( ylabel => "Displacements [m]", yrange => [ " -0.9 ", " 0.9 " ] );
    153153
    … …  
    179179
    180180    $png = $page->gfx();
    181     LOGDIE("could not find image file: $!\n") unless -e $pngName;
    182     $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );    #print "y= : $y \n"
     181    LOGDIE("could not find image file: $!\n") unless -e $pngNameNEU;
     182    $png->image( $pdf->image_png($pngNameNEU), $x, $y, $width, $height );    #print "y= : $y \n"
    183183
    184184    ######### TRP #####################
    185185    if ( grep ( $_ eq "ALL", @plotTypes ) ) {
    186186        DEBUG "Plot TRP";
    187         my $pngName  = sprintf ( "%s_TRP.png", $station );
     187        my $pngNameTRP  = sprintf ( "%s_TRP.png", $station );
    188188        my $chartTRP = newChart($station);
    189         $chartTRP->set( output => $pngName );
     189        $chartTRP->set( output => $pngNameTRP);
    190190        $chartTRP->set( ylabel => "Tropospheric Delay [m]", yrange => [ " 1.0 ", " 3.0 " ] );
    191191
    … …  
    206206        }
    207207        $png = $page->gfx();
    208         LOGDIE("could not find image file: $!\n") unless -e $pngName;
    209         $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     208        LOGDIE("could not find image file: $!\n") unless -e $pngNameTRP;
     209        $png->image( $pdf->image_png($pngNameTRP), $x, $y, $width, $height );
    210210
    211211        ######### RECCLK #####################
    … …  
    223223        $chartRECCLK->set( legend => { position => "outside right" } );
    224224        my @datasets = ();                                                # init datasets
    225         my $pngName  = sprintf ( "%s_RECCLK.png", $station);
    226             $chartRECCLK->set( output => $pngName );
     225        my $pngNameRECCLK  = sprintf ( "%s_RECCLK.png", $station);
     226            $chartRECCLK->set( output => $pngNameRECCLK);
    227227            $chartRECCLK->set( ylabel => "Receiver Clocks [m]" );
    228228            # SYSTEM
    … …  
    250250            }
    251251            $png = $page->gfx();
    252             die ("could not find image file: $!") unless -e $pngName;
    253             $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     252            die ("could not find image file: $!") unless -e $pngNameRECCLK;
     253            $png->image( $pdf->image_png($pngNameRECCLK), $x, $y, $width, $height );
    254254
    255255        ######### ELE #####################
    … …  
    272272            # print "$key_sys \n";# print Dumper $ELE{$key_sys};
    273273            my @datasets = ();                                                # init datasets
    274             my $pngName  = sprintf ( "%s_ELE_%s.png", $station, $key_sys );
    275             $chartELE->set( output => $pngName );
     274            my $pngNameELE  = sprintf ( "%s_ELE_%s.png", $station, $key_sys );
     275            $chartELE->set( output => $pngNameELE);
    276276            $chartELE->set( ylabel => "Elevation [°]", yrange => [ " 0.0 ", " 90.0 " ] );
    277277
    … …  
    301301            }
    302302            $png = $page->gfx();
    303             die ("could not find image file: $!") unless -e $pngName;
    304             $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     303            die ("could not find image file: $!") unless -e $pngNameELE;
     304            $png->image( $pdf->image_png($pngNameELE), $x, $y, $width, $height );
    305305        }
    306306
    … …  
    322322                #print "$key_sys \n"; print Dumper $AMB{$key_ambType};
    323323                my ( @datasets_amb, @datasets_epo );    # init datasets
    324                 my $pngName_amb = sprintf ( "%s_AMB_%s_%s.png", $station, $key_ambType, $key_sys );
    325                 my $pngName_epo = sprintf ( "%s_EPO_%s_%s.png", $station, $key_ambType, $key_sys );
     324                my $pngNameAMB = sprintf ( "%s_AMB_%s_%s.png", $station, $key_ambType, $key_sys );
     325                my $pngNameEPO = sprintf ( "%s_EPO_%s_%s.png", $station, $key_ambType, $key_sys );
    326326                my $chartAMB = Chart::Gnuplot->new(
    327                     output   => $pngName_amb,
     327                    output   => $pngNameAMB,
    328328                    terminal => 'png',
    329329                    title    => $station,
    … …  
    338338                );
    339339                my $chartEPO = Chart::Gnuplot->new(
    340                     output   => $pngName_epo,
     340                    output   => $pngNameEPO,
    341341                    terminal => 'png',
    342342                    title    => $station,
    … …  
    391391                }
    392392                $png = $page->gfx();
    393                 LOGDIE("could not find image file: $!\n") unless -e $pngName_amb;
    394                 $png->image( $pdf->image_png($pngName_amb), $x, $y, $width, $height );
     393                LOGDIE("could not find image file: $!\n") unless -e $pngNameAMB;
     394                $png->image( $pdf->image_png($pngNameAMB), $x, $y, $width, $height );
    395395
    396396                # number of epochs used for ambiguity
    … …  
    405405                }
    406406                $png = $page->gfx();
    407                 LOGDIE("could not find image file $pngName_epo: $!\n") unless -e $pngName_epo;
    408                 $png->image( $pdf->image_png($pngName_epo), $x, $y, $width, $height );
     407                LOGDIE("could not find image file $pngNameEPO: $!\n") unless -e $pngNameEPO;
     408                $png->image( $pdf->image_png($pngNameEPO), $x, $y, $width, $height );
    409409            }
    410410        }
    … …  
    429429            foreach my $ksys ( sort keys %ION ) {    #print "$key_sys \n"; #print Dumper $ION{$key_sys};
    430430                my @datasets;                        # init datasets
    431                 my $pngName = sprintf ( "%s_ION_%s.png", $station, $ksys );
    432                 $chartION->set( output => $pngName );
     431                my $pngNameION = sprintf ( "%s_ION_%s.png", $station, $ksys );
     432                $chartION->set( output => $pngNameION);
    433433
    434434                # SATELLITE
    … …  
    454454                }
    455455                $png = $page->gfx();
    456                 die ("could not find image file: $!") unless -e $pngName;
    457                 $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     456                die ("could not find image file: $!") unless -e $pngNameION;
     457                $png->image( $pdf->image_png($pngNameION), $x, $y, $width, $height );
    458458            }
    459459        }
    … …  
    480480                    #print "key_sys: $key_sys \n"; #print Dumper $BIA{$key_biasType};
    481481                    my @datasets;                            # init datasets
    482                     my $pngName = sprintf ( "%s_BIAS_%s_%s.png", $station, $key_biasType, $key_sys );
    483                     $chartBIAS->set( output => $pngName );
     482                    my $pngNameBIA = sprintf ( "%s_BIAS_%s_%s.png", $station, $key_biasType, $key_sys );
     483                    $chartBIAS->set( output => $pngNameBIA);
    484484                    $chartBIAS->set( ylabel => "Receiver Bias $key_biasType [m]" );
    485485
    … …  
    502502                    }
    503503                    $png = $page->gfx();
    504                     die ("could not find image file: $!") unless -e $pngName;
    505                     $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     504                    die ("could not find image file: $!") unless -e $pngNameBIA;
     505                    $png->image( $pdf->image_png($pngNameBIA), $x, $y, $width, $height );
    506506                }
    507507            }
    … …  
    529529                #print "key_sys: $key_sys \n"; #print Dumper $RES{$key_resType};
    530530                my @datasets;
    531                 my $pngName = sprintf ( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
    532                 $chartRES->set( output => $pngName );
     531                my $pngNameRES = sprintf ( "%s_RES_%s_%s.png", $station, $key_resType, $key_sys );
     532                $chartRES->set( output => $pngNameRES);
    533533                $chartRES->set( ylabel => "Residuals $key_resType [m]" );
    534534
    … …  
    565565                }
    566566                $png = $page->gfx();
    567                 LOGDIE("could not find image file: $!\n") unless -e $pngName;
    568                 $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
     567                LOGDIE("could not find image file: $!\n") unless -e $pngNameRES;
     568                $png->image( $pdf->image_png($pngNameRES), $x, $y, $width, $height );
    569569            }
    570570        }
Note: See TracChangeset for help on using the changeset viewer.