> On Tue, 3 Jul 2001 03:27:46 +0100, Tek wrote:
> >Inspired, I've come up with this one:

<clip>

I got to admit I ran out and did the same thing after I saw Ron and Warps sigs.

I came up with this one...

light_source{-9 color rgb 1}#macro C(a)cylinder{-a.x*y,0,.1 rotate a.z*z
translate<a.y,0,6>}#end#macro V(a,b,c,d,e)torus{a,.1 clipped_by{plane{z,e}}
rotate b*90*x translate<c,d,6>}#end union{C(x-3*y)C(x-y*2)C(x-y*1.5)C(x-y)C(x+
y*3.45)C(.8*x-y/2)C(.8*x-.1*y)C(.8*x+.3*y)C(<2.5,-3,90>)V(.4,1,1,-.5,2)V(.4,1,
2,-.5,2)V(.4,1,3,-.5,2)V(.5,1,-2.5,0,0)V(.2,-1,-.3,-.7,0)V(.2,-1,.1,-.7,0)
pigment{rgb x+y}}

But that seemed too long, so I tried this.

light_source{<-9,9,-9> color rgb 1}#macro A(T E)cylinder{-T.x*y 0 .1 rotate 90*
T.z*z translate<T.y,E,4>}#end union{torus{.5,.1 clipped_by{plane{z,0}}rotate 90
*x translate<.5,0,4>}A(<1.5,-1.25,0> .5)A(x 0)A(x+y 0)A(x+z (-.25))A(<1.5,-2,1>
.5)pigment{rgb<1,.9,.2>}finish{phong.05 reflection.1}}

Which fit in 4 lines, but didn't look as nice. Then I figured I'd try again and got:

light_source{-10 color rgb 1}#local T=6*z-3*x;#local I=T;#local M=0;#local A=
array[10]{1287709,43035510,7312399,36346003,50603446,6192184,12772732,33037915,
41777870,42384480}union{#while(M<99)#local N=int(mod(A[div(M,10)]/pow(6,(9-mod(
M,10))),6));#local I=I+((N=0)-(N=1))*y/2+((N=3)-(N=2))*x/2;#if(N=4)sphere{T.1}
cylinder{T,I,.1}#end#local T=((N>3)?I:T);#local M=M+1;#end pigment{rgb x+y}}

Which is a bit long, but is obfuscated nicely. So I tried simple but nice..

light_source{<-9,9,-9>rgb x+y+z}text{ttf"timrom.ttf"    // timothyea
"Tim Attwood".1,0 pigment{rgb x+y}translate<-2.7,-.3,5>}// @worldnet.att.net
sky_sphere {pigment{gradient y color_map{[.45 rgb<.2,.3,.2>][0.5 rgb x+y+z]
[0.55 rgb x+y][0.6 rgb x+.5*y][.7 rgb 0]}scale 2 translate -1}}

And that's perty and has the benefit of having my name all over it. Maybe I'll use
it again, but I also
came up with this one:

#macro T(I M)cylinder{0,I*x,.2 rotate 15*M*z translate A pigment{rgb E}finish
{ambient 1}}#end#macro Y(E O)#local A=y-x+O;T(1,0)T(2,18)T(1,12)#local A=x+y
+O;T(2,17)T(2,19)#local A=.7*x-.5*y+O;T(.6,0)#end#local D=seed(2);#local W=1;
#while(W<35)Y(rand(D)*z<9*rand(D)-5,9*rand(D)-5,9>)#local W=W+1;#end Y(1,4*z)

And that seemed perty good too.  Which do you prefer?

Post a reply to this message