v0=vector(-2.750000,-1.250000,0.625000);
v1=vector(2.750000,1.250000,0.625000);
v2=vector(-2.750000,-1.250000,-0.625000);
v3=vector(2.750000,1.250000,-0.625000);
v4=vector(-0.250000,1.250000,0.625000);
v5=vector(-0.250000,1.250000,-0.625000);
v6=vector(0.250000,-1.250000,0.625000);
v7=vector(0.250000,-1.250000,-0.625000);

poly0=poly(list(v0,v6,v1,v4),FALSE); 
poly1=poly(list(v7,v2,v5,v3),FALSE);
poly2=poly(list(v2,v7,v6,v0),FALSE);
poly3=poly(list(v4,v1,v3,v5),FALSE);
poly4=poly(list(v4,v5,v2,v0),FALSE);
poly5=poly(list(v1,v6,v7,v3),FALSE);

obj=mergepoly(list(poly0,poly1,poly2,poly3,poly4,poly5));

save("block4.dat",convex(obj));