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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
/* Functions: PS_vector_plot
**
** Modified by: Janne Soimasuo August 1994 line_cat added
** Author: Paul W. Carlson March 1992
** modified to use G_plot_line() by Olga Waupotitsch on dec,93
*/
#include "Vect.h"
#include "symbol.h"
#include "ps_info.h"
#include "clr.h"
#include "local_proto.h"
#include "vector.h"
int PS_vpoints_plot (struct Map_info *P_map, int vec, int type)
{
struct line_pnts *Points, *nPoints, *pPoints;
int k, line, cat, nlines, ret;
struct line_cats *Cats;
char eps[50], epsfile[1024], sname[100];
double nn, ee;
double s, x, y, xt, yt;
double llx, lly, urx, ury;
int x_int, y_int, eps_exist;
SYMBOL *Symb;
VARRAY *Varray = NULL;
/* Create vector array if required */
if ( vector.layer[vec].cats != NULL || vector.layer[vec].where != NULL ) {
Varray = Vect_new_varray ( Vect_get_num_lines(P_map) );
if ( vector.layer[vec].cats != NULL ) {
ret = Vect_set_varray_from_cat_string (P_map, vector.layer[vec].field,
vector.layer[vec].cats, vector.layer[vec].ltype, 1, Varray );
} else {
ret = Vect_set_varray_from_db (P_map, vector.layer[vec].field,
vector.layer[vec].where, vector.layer[vec].ltype, 1, Varray );
}
G_debug ( 3, "%d items selected for vector %d", ret, vec );
}
/* allocate memory for coordinates */
Points = Vect_new_line_struct();
Cats = Vect_new_cats_struct ();
/* process only vectors in current window */
Vect_set_constraint_region(P_map, PS.w.north, PS.w.south, PS.w.east, PS.w.west,
PORT_DOUBLE_MAX, -PORT_DOUBLE_MAX);
s = vector.layer[vec].size;
/* Read symbol */
if ( vector.layer[vec].symbol != NULL ) {
sprintf( sname, "SITESYMBOL%d", vec);
Symb = S_read ( vector.layer[vec].symbol );
if ( Symb == NULL ) {
G_warning ("Cannot read symbol, using default icon");
}
symbol_save ( Symb, s, &(vector.layer[vec].color),
&(vector.layer[vec].fcolor), sname );
vector.layer[vec].symbol_ps = G_store ( sname );
}
/* if eps file is specified as common for all points then
read bbox and save eps to PS file */
if ( vector.layer[vec].epstype == 1)
{
if ( !eps_bbox( vector.layer[vec].epspre, &llx, &lly, &urx, &ury) ) {
vector.layer[vec].epstype = 0; /* eps file can't be read */
} else { /* save to PS */
sprintf (eps, "SITEEPSF%d", vec);
eps_save ( PS.fp, vector.layer[vec].epspre, eps);
}
}
/* read and plot vectors */
k = 0;
nlines = Vect_get_num_lines ( P_map );
for ( line = 1; line <= nlines; line++ ) {
int ret;
if (0 > (ret = Vect_read_line(P_map, Points, Cats, line))) {
if (ret == -1) G_warning("Read error in vector file\n");
break;
}
if ( !(ret & GV_POINTS) ) continue;
if ( !(ret & vector.layer[vec].ltype) ) continue;
if ( Varray != NULL && Varray->c[line] == 0 ) continue; /* is not in array */
pPoints = Points; nPoints=0;
Vect_cat_get( Cats, 1, &cat);
nn = Points->y[0];
ee = Points->x[0];
if (nn > PS.w.north || nn < PS.w.south) continue;
if (ee > PS.w.east || ee < PS.w.west ) continue;
G_plot_where_xy(ee, nn, &x_int, &y_int);
x = (double) x_int / 10.;
y = (double) y_int / 10.;
if (vector.layer[vec].epstype == 1) /* draw common eps */
{
/* calculate translation */
eps_trans (llx, lly, urx, ury, x, y, s, vector.layer[vec].rotate, &xt, &yt);
eps_draw_saved ( PS.fp, eps, xt, yt, s, vector.layer[vec].rotate);
}
else if ( vector.layer[vec].epstype == 2) /* draw epses */
{
sprintf (epsfile, "%s%d%s", vector.layer[vec].epspre, cat, vector.layer[vec].epssuf);
if ( (eps_exist = eps_bbox( epsfile, &llx, &lly, &urx, &ury)) )
{
eps_trans (llx, lly, urx, ury, x, y, s, vector.layer[vec].rotate, &xt, &yt);
eps_draw ( PS.fp, epsfile, xt, yt, s, vector.layer[vec].rotate);
}
}
/* draw the icon */
if ( ( vector.layer[vec].epstype == 0) || (vector.layer[vec].epstype == 2
&& !eps_exist ) )
{
if ( Symb != NULL ) {
symbol_draw ( sname, x, y, vector.layer[vec].size, vector.layer[vec].rotate,
vector.layer[vec].width);
}
}
}
fprintf(PS.fp, "\n");
return 0;
}
|
