1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
/*
* For RSL version 0.28 and higher.
*
* v1.0 Began 2/16/94 by John Merritt.
*
* Demonstrates reading NEXRAD files and loading the Radar structure.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "rsl.h"
usage(int argc, char **argv)
{
fprintf(stderr,"Usage: %s infile [firstfile | callid]\n", argv[0]);
exit(-1);
}
process_args(int argc, char **argv,
char **in_file, char **out_file)
{
if (argc == 2) {
*in_file = strdup(argv[1]);
*out_file = NULL;
} else if (argc == 3) {
*in_file = strdup(argv[1]);
*out_file = strdup(argv[2]);
} else {
usage(argc, argv);
}
}
main(int argc, char **argv)
{
char *infile, *firstfile;
char outfile[100];
Radar *radar;
Cappi *cappi;
int i, j;
/* 1. Process the arguments. */
process_args(argc, argv, &infile, &firstfile); /* malloc for in/outfile */
i = DZ_INDEX;
RSL_radar_verbose_on();
if ((radar = RSL_anyformat_to_radar(infile, firstfile)) == NULL) exit(-1);
printf("Radar date: %2.2d/%2.2d/%2.2d\n", radar->h.month, radar->h.day, radar->h.year);
printf("Radar time: %2.2d:%2.2d:%f\n", radar->h.hour, radar->h.minute, radar->h.sec);
printf("Radar file: %s\n", infile);
printf("Radar site: %c%c%c%c\n",
radar->h.name[0],
radar->h.name[1],
radar->h.name[2],
radar->h.name[3]);
printf("Radar date: %2.2d/%2.2d/%2.2d\n", radar->h.month, radar->h.day, radar->h.year);
printf("Radar time: %2.2d:%2.2d:%f\n", radar->h.hour, radar->h.minute, radar->h.sec);
if (i == DZ_INDEX) RSL_load_refl_color_table();
if (i == VR_INDEX) RSL_load_vel_color_table();
if (i == SW_INDEX) RSL_load_sw_color_table();
if (i == VR_INDEX) RSL_rebin_velocity_volume(radar->v[i]); /* Modifies v[i]. */
for (j=1; j<=5; j++) {
cappi = RSL_cappi_at_h( radar -> v[i], (float)j/2.0, 200.0);
sprintf(outfile, "cappi_%2.2d.gif", j);
printf("Writing %s.\n", outfile);
RSL_sweep_to_gif(cappi->sweep, outfile, 400, 400, 200.0);
RSL_free_cappi(cappi);
}
exit(0);
}
|
