Content-Transfer-Encoding: 8Bit



Found an interesting shape while trying to make a sphere... 



If there's a math guru out there who knows how to translate this code to 

make a sphere, don't hesitate  :-)



#declare Cx=-pi;

#declare Step=pi/30;

#while(Cx<pi)

 #declare Cy=-pi;

 #while(Cy<pi)

  box {<-.04,-.04,-.04>,<.04,.04,.04>

   texture { T_Gold_3C }

  rotate <degrees(Cx),degrees(Cy),00>

  translate <sin(Cx),cos(Cx)*(abs(Step-Cy))/2,sin(Cy)> }

 #declare Cy=Cy+Step;

 #end

#declare Cx=Cx+Step;

#end



-- 

+--------------------------------------------------------------+

 | http://pingou.linux-site.net/~zebu/      ( o<     =P.O.V=  |

 |                                          / /\     =Perl5=  |

 |    [ Spammers'll be eaten! ]             \V_/_    =Fsims=  |

+--------------------------------------------------------------+

Post a reply to this message

Attachments:
Download 'us-ascii' (126 KB)