vg

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # vg
   5 # File ID: 58ece940-08f3-11de-ab14-000475e441b9
   6 # View GPX files in gnuplot(1)
   7 #
   8 # Character set: UTF-8
   9 # ©opyleft 2009– Øyvind A. Holm <sunny@sunbase.org>
  10 # License: GNU General Public License version 3 or later, see end of
  11 # file for legal stuff.
  12 #=======================================================================
  13
  14 use strict;
  15 use warnings;
  16 use Getopt::Long;
  17
  18 $| = 1;
  19
  20 our $Debug = 0;
  21
  22 our %Std = (
  23
  24     'label-file' => "$ENV{'HOME'}/gps/poi/labels.gnuplot",
  25     'with' => 'l',
  26
  27 );
  28
  29 our %Opt = (
  30
  31     '2d' => 0,
  32     'debug' => 0,
  33     'help' => 0,
  34     'keep-files' => 0,
  35     'label-file' => "$Std{'label-file'}",
  36     'time' => 0,
  37     'verbose' => 0,
  38     'version' => 0,
  39     'with' => $Std{'with'},
  40
  41 );
  42
  43 our $progname = $0;
  44 $progname =~ s/^.*\/(.*?)$/$1/;
  45 our $VERSION = "0.00";
  46
  47 Getopt::Long::Configure("bundling");
  48 GetOptions(
  49
  50     "2d|2" => \$Opt{'2d'},
  51     "debug" => \$Opt{'debug'},
  52     "help|h" => \$Opt{'help'},
  53     "keep-files|k" => \$Opt{'keep-files'},
  54     "label-file|l=s" => \$Opt{'label-file'},
  55     "time|t" => \$Opt{'time'},
  56     "verbose|v+" => \$Opt{'verbose'},
  57     "version" => \$Opt{'version'},
  58     "with|w=s" => \$Opt{'with'},
  59
  60 ) || die("$progname: Option error. Use -h for help.\n");
  61
  62 $Opt{'debug'} && ($Debug = 1);
  63 $Opt{'help'} && usage(0);
  64 if ($Opt{'version'}) {
  65     print_version();
  66     exit(0);
  67 }
  68
  69 ($Opt{'2d'} && $Opt{'time'}) && die("$progname: Cannot mix --2d and --time options\n");
  70 ($Opt{'with'} =~ /^(d|l|lp|p)$/) || die("$progname: $Opt{'with'}: Invalid value of --with option, see $progname -h for help\n");
  71
  72 my ($dat_file, $cmd_file);
  73 my $fp;
  74
  75 if ($Opt{'time'}) {
  76     $dat_file = sprintf("/tmp/vg-t.%u.%u.tmp", time, $$);
  77     open($fp, ">$dat_file") || die("$progname: $dat_file: Cannot open file for write: $!\n");
  78     my @gpst_array = ("gpst", "-o", "csv", "-rt", "-e", "-d", "-t", @ARGV, "|", "rmspcall", "|", "uniq");
  79     print($fp `@gpst_array`);
  80     close($fp);
  81     $cmd_file = sprintf("/tmp/vg-t-cmd.%u.%u.tmp", time, $$);
  82     open($fp, ">$cmd_file") || die("$progname: $cmd_file: Cannot open file for write: $!\n");
  83     print($fp <<END);
  84 set mouse format "%.6f"
  85 load "$Opt{'label-file'}"
  86 set zdata time
  87 # set timefmt "%Y-%m-%dT%H:%M:%SZ"
  88 set timefmt "%s"
  89 splot "$dat_file" using 2:3:1 w $Opt{'with'} palette
  90 pause -1 "Trykk Enter..."
  91 END
  92     close($fp);
  93     system("gnuplot -persist $cmd_file");
  94 } elsif ($Opt{'2d'}) {
  95     $dat_file = sprintf("/tmp/vg-2.%u.%u.tmp", time, $$);
  96     open($fp, ">$dat_file") || die("$progname: $dat_file: Cannot open file for write: $!\n");
  97     my @gpst_array = ("gpst", "-o", "clean", "-rp", "-d", "-t", @ARGV, "|", "rmspcall", "|", "uniq");
  98     print($fp `@gpst_array`);
  99     close($fp);
 100     $cmd_file = sprintf("/tmp/vg-2-cmd.%u.%u.tmp", time, $$);
 101     open($fp, ">$cmd_file") || die("$progname: $cmd_file: Cannot open file for write: $!\n");
 102     print($fp <<END);
 103 set mouse format "%.6f"
 104 load "$Opt{'label-file'}"
 105 plot "$dat_file" using 1:2 w $Opt{'with'}
 106 pause -1 "Trykk Enter..."
 107 END
 108     close($fp);
 109     system("gnuplot -persist $cmd_file");
 110 } else {
 111     $dat_file = sprintf("/tmp/vg.%u.%u.tmp", time, $$);
 112     open($fp, ">$dat_file") || die("$progname: $dat_file: Cannot open file for write: $!\n");
 113     my @gpst_array = ("gpst", "-o", "clean", "-ret", "-d", "-t", @ARGV, "|", "rmspcall", "|", "uniq");
 114     print($fp `@gpst_array`);
 115     close($fp);
 116     $cmd_file = sprintf("/tmp/vg-cmd.%u.%u.tmp", time, $$);
 117     open($fp, ">$cmd_file") || die("$progname: $cmd_file: Cannot open file for write: $!\n");
 118     print($fp <<END);
 119 set mouse format "%.6f"
 120 load "$Opt{'label-file'}"
 121 splot "$dat_file" w $Opt{'with'} palette
 122 pause -1 "Trykk Enter..."
 123 END
 124     close($fp);
 125     system("gnuplot -persist $cmd_file");
 126 }
 127 $Opt{'keep-files'} || unlink($dat_file, $cmd_file);
 128
 129 sub print_version {
 130     # Print program version {{{
 131     print("$progname v$VERSION\n");
 132     # }}}
 133 } # print_version()
 134
 135 sub usage {
 136     # Send the help message to stdout {{{
 137     my $Retval = shift;
 138
 139     if ($Opt{'verbose'}) {
 140         print("\n");
 141         print_version();
 142     }
 143     print(<<END);
 144
 145 Usage: $progname [options] [file [files [...]]]
 146
 147 Options:
 148
 149   -2, --2d
 150     Create 2D plot instead of 3D. Bigger window by default in gnuplot,
 151     and it’s faster when plotting lots of data.
 152   -h, --help
 153     Show this help.
 154   -k, --keep-files
 155     Don’t remove temporary files after program execution.
 156   -l X, --label-file X
 157     Use X as label file.
 158     Default: $Std{'label-file'}
 159   -t, --time
 160     Use time as Z axis instead of elevation.
 161   -v, --verbose
 162     Increase level of verbosity. Can be repeated.
 163   -w X, --with X
 164     Use line type X:
 165       d  - dots
 166       l  - lines
 167       p  - points
 168       lp - lines with points
 169       Default: $Std{'with'}
 170   --version
 171     Print version information.
 172   --debug
 173     Print debugging messages.
 174
 175 END
 176     exit($Retval);
 177     # }}}
 178 } # usage()
 179
 180 sub msg {
 181     # Print a status message to stderr based on verbosity level {{{
 182     my ($verbose_level, $Txt) = @_;
 183
 184     if ($Opt{'verbose'} >= $verbose_level) {
 185         print(STDERR "$progname: $Txt\n");
 186     }
 187     # }}}
 188 } # msg()
 189
 190 sub D {
 191     # Print a debugging message {{{
 192     $Debug || return;
 193     my @call_info = caller;
 194     chomp(my $Txt = shift);
 195     my $File = $call_info[1];
 196     $File =~ s#\\#/#g;
 197     $File =~ s#^.*/(.*?)$#$1#;
 198     print(STDERR "$File:$call_info[2] $$ $Txt\n");
 199     return("");
 200     # }}}
 201 } # D()
 202
 203 __END__
 204
 205 # Plain Old Documentation (POD) {{{
 206
 207 =pod
 208
 209 =head1 NAME
 210
 211
 212
 213 =head1 SYNOPSIS
 214
 215  [options] [file [files [...]]]
 216
 217 =head1 DESCRIPTION
 218
 219
 220
 221 =head1 OPTIONS
 222
 223 =over 4
 224
 225 =item B<-h>, B<--help>
 226
 227 Print a brief help summary.
 228
 229 =item B<-v>, B<--verbose>
 230
 231 Increase level of verbosity. Can be repeated.
 232
 233 =item B<--version>
 234
 235 Print version information.
 236
 237 =item B<--debug>
 238
 239 Print debugging messages.
 240
 241 =back
 242
 243 =head1 BUGS
 244
 245
 246
 247 =head1 AUTHOR
 248
 249 Made by Øyvind A. Holm S<E<lt>sunny@sunbase.orgE<gt>>.
 250
 251 =head1 COPYRIGHT
 252
 253 Copyleft © Øyvind A. Holm E<lt>sunny@sunbase.orgE<gt>
 254 This is free software; see the file F<COPYING> for legalese stuff.
 255
 256 =head1 LICENCE
 257
 258 This program is free software: you can redistribute it and/or modify it
 259 under the terms of the GNU General Public License as published by the
 260 Free Software Foundation, either version 3 of the License, or (at your
 261 option) any later version.
 262
 263 This program is distributed in the hope that it will be useful, but
 264 WITHOUT ANY WARRANTY; without even the implied warranty of
 265 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 266 See the GNU General Public License for more details.
 267
 268 You should have received a copy of the GNU General Public License along
 269 with this program.
 270 If not, see L<http://www.gnu.org/licenses/>.
 271
 272 =head1 SEE ALSO
 273
 274 =cut
 275
 276 # }}}
 277
 278 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :