function box(x1,y1,z1,x2,y2,z2,specification)
if nargin < 6
 if (nargin==5) specification = y2; end;
 y2 = x2;
 x2 = z1;
 if (nargin==5) 
   myline(x1,y1,x2,y1,specification); 
   myline(x1,y1,x1,y2,specification); 
   myline(x1,y2,x2,y2,specification); 
   myline(x2,y1,x2,y2,specification); 
 else 
   myline(x1,y1,x2,y1); 
   myline(x1,y1,x1,y2); 
   myline(x1,y2,x2,y2); 
   myline(x2,y1,x2,y2); 
 end;
else
 if (nargin==7) 
   myline(x1,y1,z1,x2,y1,z1,specification); 
   myline(x1,y1,z1,x1,y2,z1,specification); 
   myline(x1,y2,z1,x2,y2,z1,specification); 
   myline(x2,y1,z1,x2,y2,z1,specification); 
   myline(x1,y1,z2,x2,y1,z2,specification); 
   myline(x1,y1,z2,x1,y2,z2,specification); 
   myline(x1,y2,z2,x2,y2,z2,specification); 
   myline(x2,y1,z2,x2,y2,z2,specification); 
   myline(x1,y1,z1,x1,y1,z2,specification); 
   myline(x1,y2,z1,x1,y2,z2,specification); 
   myline(x2,y1,z1,x2,y1,z2,specification); 
   myline(x2,y2,z1,x2,y2,z2,specification); 
 else 
   myline(x1,y1,z1,x2,y1,z1); 
   myline(x1,y1,z1,x1,y2,z1); 
   myline(x1,y2,z1,x2,y2,z1); 
   myline(x2,y1,z1,x2,y2,z1); 
   myline(x1,y1,z2,x2,y1,z2); 
   myline(x1,y1,z2,x1,y2,z2); 
   myline(x1,y2,z2,x2,y2,z2); 
   myline(x2,y1,z2,x2,y2,z2); 
   myline(x1,y1,z1,x1,y1,z2); 
   myline(x1,y2,z1,x1,y2,z2); 
   myline(x2,y1,z1,x2,y1,z2); 
   myline(x2,y2,z1,x2,y2,z2); 
 end;
end;

