# IRIT model for `block2' object
# 8/10/95 PJF
#
#a = box(vector(0,0,0),5.5,2.75,3.75);
#b = box(vector(2.75,1.25,-1),1.5,5,5);
#c = a-b;
#d = gbox

a1=poly(list(vector(0,0,0),
             vector(0,0,3.75),
             vector(0,2.75,3.75),
             vector(0,2.75,0)),false);

a2=poly(list(vector(0,0,0),
             vector(5.5,0,0),
             vector(5.5,2.75,0),
             vector(0,2.75,0)),false);

a3=poly(list(vector(0,0,0),
             vector(5.5,0,0),
             vector(5.5,0,1.25),
             vector(2.75,0,1.25),
             vector(2.75,0,3.75),
             vector(0,0,3.75)),false);

a4=poly(list(vector(0,0,3.75),
             vector(2.75,0,3.75),
             vector(2.75,2.75,3.75),
             vector(0,2.75,3.75)),false);

a5=poly(list(vector(0,2.75,0),
             vector(0,2.75,3.75),
             vector(2.75,2.75,3.75),
             vector(2.75,2.75,1.25),
             vector(4.25,2.75,1.25),
             vector(4.25,2.75,6.75),
             vector(5.5,2.75,6.75),
             vector(5.5,2.75,0)),false);

a6=poly(list(vector(2.75,0,1.25),
             vector(2.75,2.75,1.25),
             vector(2.75,2.75,3.75),
             vector(2.75,0,3.75)),false);

a7=poly(list(vector(2.75,0,1.25),
             vector(4.25,0,1.25),
             vector(4.25,2.75,1.25),
             vector(2.75,2.75,1.25)),false);

a8=poly(list(vector(4.25,0,1.25),
             vector(4.25,2.75,6.75),
             vector(4.25,2.75,1.25)),false);

a9=poly(list(vector(5.5,0,0),
             vector(5.5,2.75,0),
             vector(5.5,2.75,6.75),
             vector(5.5,0,1.25)),false);

a10=poly(list(vector(4.25,0,1.25),
              vector(5.5,0,1.25),
              vector(5.5,2.75,6.75),
              vector(4.25,2.75,6.75)),false);

b=mergepoly(list(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10));

save("block2",convex(b));