|
![](/i/fill.gif) |
#macro RBox(xdim,ydim,zdim,er)
#local xd=xdim/2;
#local yd=ydim/2;
#local zd=zdim/2;
union{
box{<-xd,-yd+er,-zd+er>,<xd,yd-er,zd-er>}
box{<-xd+er,-yd,-zd+er>,<xd-er,yd,zd-er>}
box{<-xd+er,-yd+er,-zd>,<xd-er,yd-er,zd>}
#local j=-1;#while (j<2)
#local i=pi/4;#while (i<2*pi)
#local cy=(yd-er)*j;
#local cx=(xd-er)*(cos(i)>0 ? 1 : -1);
#local cz=(zd-er)*(sin(i)>0 ? 1 : -1);
sphere{<cx,cy,cz>,er}
cylinder{<cx,cy,cz>,<(xd-er)*(cos(i+pi/2)>0 ? 1 :
-1),cy,(zd-er)*(sin(i+pi/2)>0 ? 1 : -1)>,er}
#if (j=1)
cylinder{<cx,cy,cz>,<cx,-yd+er,cz>,er}
#end
#local i=i+pi/2;#end
#local j=j+2;#end
bounded_by{box{<-xd,-yd,-zd>,<xd,yd,zd>}}
#end
}
#end
______________________________________________________________________
Kari Kivisalo http://www.kivisalo.net
Post a reply to this message
|
![](/i/fill.gif) |