> #default{pigment{rgb 2}finish{specular 1}}#macro D()difference{#end#macro Q(p,d)
> D()cylinder{p/9+z,p/9-z,d/9}cylinder{p/9+z,p/9-z,(d-1)/9}}#end#macro S()sphere{<
> 0,0,0>,1}#end camera{location-20*z angle 25}light_source{<-1,2,-4>,rgb 1}D()S()
> union{Q(<8,-4,0>,7)Q(-<8,4,0>,7)}translate-2.2*x}D()S()union{Q(2*y,3)Q(9*y,14)}
> }D()S()union{Q(9*x,8)Q(11*x,17)}translate 2.2*x}
> 
> And I wanted all that code to fit into an e-mail sig...

How about:

#macro Q(a,d,p)difference{object{a}difference{cylinder{-z+p/9z+p/9d/9}cylinder
{z+p/9p/9-z(d-1)/9}}}#end union{Q(Q(sphere{-2.2*x 1}7<-11.8,-4,0>)7,-<27.8,4,0
 >)Q(Q(sphere{0 1}3y*2)14y*9)Q(Q(sphere{2.2*x 1}8x*28.8)17x*30.8)pigment{rgb 2}
finish{specular 1}}camera{location-z*20angle 25}light_source{<-1,2,-4>1}//NAME

About your City entry... I am as much impressed as the other posters. I am now
sure that I will not win (if I do not submit another entry, that is). Let's see
if anyone can top you.


-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message