#macro Poly_Torus(_major_r, _minor_r)
#local R = _major_r;
#local r = _minor_r;

#local poly_obj =
polynomial{
4,
xyz(4,0,0):1,
xyz(0,4,0):1,
xyz(0,0,4):1,
xyz(2,2,0):2,
xyz(0,2,2):2,
xyz(2,0,2):2,
xyz(2,0,0):-2*R*R - 2*r*r,
xyz(0,2,0):-2*R*R - 2*r*r,
xyz(0,0,2):2*R*R - 2*r*r,
xyz(0,0,0):pow(R*R - r*r,2),
}
poly_obj
#end




intersection{
    sphere{
    <0,0,0>,0.02
    }
    object{
    Poly_Torus(0.01247, 0.02357)
    inverse
    }
pigment{rgb<0.34,0.38,0.12>}
}

Post a reply to this message

Attachments:
Download 'poly torus_2.png' (26 KB)

Preview of image 'poly torus_2.png'