void ContourFree(int cnum,struct PolygonData **ptr) {
int i=0;
if (ptr==NULL) return;
for (i=0;i<cnum;i++) {
if (ptr[i] !=NULL) PolygonFree(ptr[i]);
}
free(ptr);
}
int main(int argc,char *argv[]) {
struct Rplot *rplot=NULL;
float wdt=400,hgt=400;
unsigned int bgcol=0xffffffff;
unsigned int fgcol=0xff000000;
int i,j;
float x;
float pnt[2];
float *ptr;
poly=PolygonMake(sizeof(float)*2,PolygonXYbbox);
for (x=0.4;x>0.1;x-=0.1) {
PolygonAddPolygon(poly,1);
pnt[0]=0.5-x;
pnt[1]=0.5-x;
PolygonAdd(poly,pnt,0);
pnt[0]=0.5-x;
pnt[1]=0.5+x;
PolygonAdd(poly,pnt,0);
pnt[0]=0.5+x;
pnt[1]=0.5+x;
PolygonAdd(poly,pnt,0);
pnt[0]=0.5+x;
pnt[1]=0.5-x;
PolygonAdd(poly,pnt,0);
}
copy=PolygonCopy(poly);
PolygonFree(poly);
rplot=RplotMake();
RplotSetText(rplot,stream,stdout);
RplotMakeDocument(rplot,"PolygonCopy","1",wdt,hgt,24);
RplotMakePlot(rplot,"PolygonCopy",wdt,hgt,24);
RplotRectangle(rplot,NULL,0,0,wdt,hgt,
1,bgcol,0x0f,0,NULL);
for (i=0;i<copy->polnum;i++) {
fgcol=RplotColor(239-i*16,239-i*16,239-i*16,255);
for (j=0;j<copy->num[i];j++) {
ptr=(float *) PolygonRead(copy,i,j);
fx[j]=ptr[0]*wdt;
fy[j]=ptr[1]*hgt;
t[j]=0;
}
RplotPolygon(rplot,NULL,0,0,copy->num[i],fx,fy,t,
1,fgcol,0x0f,0,NULL);
}
RplotEndPlot(rplot);
RplotEndDocument(rplot);
return 0;
}
struct PolygonData *wrap(struct PolygonData *src) {
struct PolygonData *dst;
dst=MapWraparound(src);
PolygonFree(src);
return dst;
}
