|
![](/i/fill.gif) |
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)
|
![](/i/fill.gif) |