8 extern float topo_scale;
13 extern unsigned long tmap[50];
29 float x[5],y[5],
xx[5],
yy[5];
30 int line_style,cap_style,join_style;
32 int xint,yint,dup_flag[5];
43 telim[
i]=telim[
i]*topo_scale;
88 XSetLineAttributes(
display,
gc,line_width,line_style,cap_style,join_style);
101 for(mm=0;mm<4;mm++) {
103 if(
value[mm] < mintop)
106 if(
value[mm] > maxtop)
118 if(telim[l] < mintop || telim[l] > maxtop)
125 if((telim[l] >=
value[m] &&
126 telim[l] <
value[m+1]) ||
127 (telim[l] <
value[m] &&
128 telim[l] >=
value[m+1])) {
137 (telim[l]-
value[m+1]);
143 (telim[l]-
value[m+1]);
147 if(x[h]==x[pnum] && y[h]==y[pnum])
154 for(kk=0;kk<3;kk++) {
158 for(mm=0;mm<4;mm++) {
186 if(dup_flag[kk]==0) {
205 if(pnum != 2 && pnum != 4)
213 for(
k=0;
k<pnum;
k++) {
223 for(
k=0;
k<pnum;
k++) {
231 for(
k=0;
k<pnum;
k++) {
246 if(telim[l] <
value[1]) {
268 line_style=LineSolid;
270 join_style=JoinMiter;
272 XSetLineAttributes(
display,
gc,line_width,line_style,cap_style,join_style);
void contour_topo(Pixmap pixm, int h, int display_flag)