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
|
#include "Vlib.h"
#define COLLAPSEUNUSEDPOINTS
/*ARGSUSED*/
void VFillPolygon(v, win, gc, poly)
Viewport *v;
Window win;
GC gc;
VPolygon *poly; {
VPoint *p;
XPoint xpt[VmaxVP], *lastpt;
register int i, k;
Drawable d;
ZInfo *z;
if (v->ztop == v->zsize) {
fprintf (stderr, "Z-information pool overflow\n");
return;
}
z = &(v->zpool[(v->ztop)++]);
d = (v->flags & VPPixmap) ? (Drawable) v->monoPixmap : (Drawable) win;
if (poly == (VPolygon *) NULL)
return;
k = 0;
lastpt = &xpt[0];
/*
*/
z->depth = -- v->depth;
z->color = VComputePolygonColor(v, poly);
for ((i=0, p=poly->vertex); i<poly->numVtces; (++i, ++p)) {
if (v->flags & VPPerspective && p->z != 0.0) {
xpt[k].x = (v->Middl.x + (int) (v->Scale.x * p->x / p->z)) >> 2;
xpt[k].y = (v->Middl.y - (int) (v->Scale.y * p->y / p->z)) >> 2;
}
else {
xpt[k].x = (v->Middl.x + (int) (v->Scale.x * p->x)) >> 2;
xpt[k].y = (v->Middl.y - (int) (v->Scale.y * p->y)) >> 2;
}
/*
* This hack insures that improperly 3-D clipped polygons will not
* induce a core dump. This problem appears when the height is an even value.
*/
if (xpt[k].x >= v->width)
xpt[k].x = v->width - 1;
if (xpt[k].y >= v->height)
xpt[k].y = v->height - 1;
#ifdef COLLAPSEUNUSEDPOINTS
if (k == 0 || !(xpt[k].x == lastpt->x && xpt[k].y == lastpt->y))
lastpt = &xpt[k++];
#else
++k;
#endif
}
if (k > 0) {
#ifdef COLLAPSEUNUSEDPOINTS
if (k == 1)
DrawPoint (v->w, xpt[0].x, xpt[0].y, z);
else if (k == 2)
DrawLine (v->w, xpt[0].x, xpt[0].y,
xpt[1].x, xpt[1].y, z);
else
#endif
FillPolygon (v->w, xpt, k, z);
}
}
|
