Brendan Hurley wrote:

> Oh, well, I'll keep hoping someone has a copy stashed away
> somewhere...or knows an active link to a site with it.

Here's one I did some time ago.

#macro RoundBox(bdown,bup,br)
// bdown bottom left corner
// bup top right corner
// br angle radius
union{
        sphere{0,br translate bdown+br}
        sphere{0,br translate <bdown.x+br,bup.y-br,bdown.z+br>}
        sphere{0,br translate <bup.x-br,bup.y-br,bdown.z+br>}
        sphere{0,br translate <bup.x-br,bdown.y+br,bdown.z+br>}
        sphere{0,br translate bup-br}
        sphere{0,br translate <bdown.x+br,bup.y-br,bup.z-br>}
        sphere{0,br translate <bdown.x+br,bdown.y+br,bup.z-br>}
        sphere{0,br translate <bup.x-br,bdown.y+br,bup.z-br>}
        box{<bdown.x+br,bdown.y+br,bdown.z>,<bup.x-br,bup.y-br,bdown.z+br>}
        box{<bdown.x,bdown.y+br,bdown.z+br>,<bdown.x+br,bup.y-br,bup.z-br>}
        box{<bup.x-br,bdown.y+br,bdown.z+br>,<bup.x,bup.y-br,bup.z-br>}
        box{<bdown.x+br,bup.y-br,bdown.z+br>,<bup.x-br,bup.y,bup.z-br>}
        box{<bdown.x+br,bdown.y,bdown.z+br>,<bup.x-br,bdown.y+br,bup.z-br>}
        box{<bdown.x+br,bdown.y+br,bup.z-br>,<bup.x-br,bup.y-br,bup.z>}
        cylinder{x*(bdown.x+br),x*(bup.x-br),br translate
<0,bdown.y+br,bdown.z+br>}
        cylinder{x*(bdown.x+br),x*(bup.x-br),br translate
<0,bup.y-br,bdown.z+br>}
        cylinder{x*(bdown.x+br),x*(bup.x-br),br translate
<0,bdown.y+br,bup.z-br>}
        cylinder{x*(bdown.x+br),x*(bup.x-br),br translate
<0,bup.y-br,bup.z-br>}
        cylinder{y*(bdown.y+br),y*(bup.y-br),br translate
<bdown.x+br,0,bdown.z+br>}
        cylinder{y*(bdown.y+br),y*(bup.y-br),br translate
<bup.x-br,0,bdown.z+br>}
        cylinder{y*(bdown.y+br),y*(bup.y-br),br translate
<bdown.x+br,0,bup.z-br>}
        cylinder{y*(bdown.y+br),y*(bup.y-br),br translate
<bup.x-br,0,bup.z-br>}
        cylinder{z*(bdown.z+br),z*(bup.z-br),br translate
<bdown.x+br,bdown.y+br,0>}
        cylinder{z*(bdown.z+br),z*(bup.z-br),br translate
<bdown.x+br,bup.y-br,0>}
        cylinder{z*(bdown.z+br),z*(bup.z-br),br translate
<bup.x-br,bdown.y+br,0>}
        cylinder{z*(bdown.z+br),z*(bup.z-br),br translate
<bup.x-br,bup.y-br,0>}
}
#end

G.
--

**********************
http://www.oyonale.com
**********************
Graphic experiments
Pov-ray gallery

Post a reply to this message