129 |
|
double y1 |
130 |
|
) |
131 |
|
{ |
132 |
– |
static char ill_crop[] = "zero crop area"; |
132 |
|
static char ill_hemi[] = "illegal crop for hemispherical view"; |
133 |
|
double d; |
134 |
|
/* order crop extrema */ |
135 |
|
if (x0 > x1) { d=x0; x0=x1; x1=d; } |
136 |
|
if (y0 > y1) { d=y0; y0=y1; y1=d; } |
137 |
|
|
138 |
< |
d = x1 - x0; |
139 |
< |
if (d == .0) |
140 |
< |
return(ill_crop); |
141 |
< |
if (!FABSEQ(d, 1.)) /* adjust horizontal size? */ |
138 |
> |
if ((x1-x0 <= FTINY) | (y1-y0 <= FTINY)) |
139 |
> |
return("zero crop area"); |
140 |
> |
|
141 |
> |
d = x1 - x0; /* adjust horizontal size? */ |
142 |
> |
if (!FABSEQ(d, 1.)) |
143 |
|
switch (v->type) { |
144 |
|
case VT_PER: |
145 |
|
v->horiz = 360./PI*atan( d*tan(PI/360.*v->horiz) ); |
161 |
|
v->horiz = 360./PI*acos( (1. - d*d) / (1. + d*d) ); |
162 |
|
break; |
163 |
|
} |
164 |
< |
d = y1 - y0; |
165 |
< |
if (d == .0) |
166 |
< |
return(ill_crop); |
167 |
< |
if (!FABSEQ(d, 1.)) /* adjust vertical size? */ |
164 |
> |
|
165 |
> |
d = y1 - y0; /* adjust vertical size? */ |
166 |
> |
if (!FABSEQ(d, 1.)) |
167 |
|
switch (v->type) { |
168 |
|
case VT_PER: |
169 |
|
case VT_CYL: |
185 |
|
v->vert = 360./PI*acos( (1. - d*d) / (1. + d*d) ); |
186 |
|
break; |
187 |
|
} |
188 |
< |
/* fix offsets */ |
188 |
> |
/* adjust offsets */ |
189 |
|
v->hoff = ((x0 + x1)*.5 - .5 + v->hoff) / (x1 - x0); |
190 |
|
v->voff = ((y0 + y1)*.5 - .5 + v->voff) / (y1 - y0); |
191 |
|
|
313 |
|
break; |
314 |
|
case VT_PER: /* perspective view */ |
315 |
|
d = DOT(disp,v->vdir); |
316 |
< |
if ((v->vaft > FTINY) & (d >= v->vaft)) |
317 |
< |
rflags |= VL_BEYOND; |
316 |
> |
rflags |= VL_BEYOND*((v->vaft > FTINY) & |
317 |
> |
(d >= v->vaft)); |
318 |
|
ip[2] = VLEN(disp); |
319 |
|
if (d < -FTINY) { /* fold pyramid */ |
320 |
|
ip[2] = -ip[2]; |
343 |
|
d2 = d*d + d2*d2; |
344 |
|
if (d2 <= FTINY*FTINY) |
345 |
|
return(VL_BAD); /* at pole */ |
346 |
< |
if ((v->vaft > FTINY) & (d2 >= v->vaft*v->vaft)) |
347 |
< |
rflags |= VL_BEYOND; |
346 |
> |
rflags |= VL_BEYOND*((v->vaft > FTINY) & |
347 |
> |
(d2 >= v->vaft*v->vaft)); |
348 |
|
d = 1.0/sqrt(d2); |
349 |
|
ip[1] = DOT(disp,v->vvec)*d/v->vn2 + 0.5 - v->voff; |
350 |
|
ip[2] = VLEN(disp); |