求一计算机图形学VB编程代码,用Weiler-Atherton算法,随便一个例子就可以

来源：百度知道 编辑：UC知道 时间：2024/05/10 09:55:32
在线等!跪求!!大哥们帮帮忙!
只要随便给个例子,用得到Weiler-Atherton算法,用VB语言把代码写在回答里,写得完整有多少分给多少分!
我已经找得要崩溃了!!!觉得复制网址可以帮到我的,对不起!没多余的分了!

const int MAXVERT = 500;
const int MAXPOLYV = 50;
const int MAXH = 10;

struct Point2D
{float x,y;
};
typedef Point2D Vertices[MAXVERT];

enum VerType = {Polygon, Intersection};

typedef struct ClipListRec * ClipPtr;
struct ClipListRec
{ int Vindex;
ClipPtr next;
VerType Kind;
float t;
ClipPtr otherList;
}

struct Polygon
{ int nVertex;
int vert[MAXPOLYV];
ClipPtr list;
}
struct GenPolygon
{ Polygon exterior;
int numHoles;
Polygon Holes[MAXH];
}

GenPolygon Sub,Clip;
int entering[MAXVERT],exiting[MAXVERT];
Vertices V;
int numVertex = 0; // size of the array of verticies
int clipPoly[MAXVERT]; // a clip polygon

int readPoint();
{ cin >> inX; cin >> inY;
if (numVertex < MAXVERT)
{ V[numVertex].x = inX;
V[numVertex].y = inY;
id