On Tue, 26 Nov 2002 14:11:04 +0200, "Mikael Pohjola" <emp### [at] cchutfi>
wrote:
> Hi, to you all!

Hi to you too :-)

> I have read this newsgroup for a year (...) I was wondering how many
> are like me? I mean, follow this news-server, but
> don't write to it?

I have read half of posts before my first posting into this server. And I hope
I have read all messages up to now. That's incredible knowledge behind this
community and I very like it.

> The other reason why I posted this message was that I finally made my own
> signature. Take a look at it (it has a hidden feature). You are free to
> obfuscate it, but I will probably keep it like this, since this is MY sig.
>
> #declare P=<-5,0,20>;#macro L(N,D)#if(N>0)#declare P=P+D;box{-.5,.5translate
> z*mod(9*vlength(P),4)pigment{rgb P}rotate<45clock,0>translate P}L(N-1,D)#end
> #end#macro _(M,X,Y)#if(M>0)L(mod(M,8),<mod(X,3),mod(Y,3),1>-1)_(div(M,8),div
> (X,3),div(Y,3))#end#end _(2301603551,12850,60365)plane{y,-9pigment{rgb 1}}
> light_source{20*y rgb 1}

It will be shortened by other probably but ... I tried the same width as you
plus I added comment with initials.

plane{y,-9pigment{rgb 1}}#macro _(M,X,Y)#if(M)L(mod(M,8)<mod(X,3)mod(Y,3)1>-
1)_(div(M,8)div(X,3)div(Y,3))#end#end light_source{20*y 1}#macro L(N,D)#if(N
)#declare P=P+D;box{-.5.5translate z*mod(9*P.gray,4)pigment{rgb P}rotate//MP
x*45translate P}L(N-1D)#end#end#local P=20*z-5*x;_(2301603551,12850,60365)

ABX
-- 
disc{z,-z#macro O()asc(substr("-+((1*(,1,/.-,*/(,&.323/'1"e 1))/10-4#declare
e=e-1;#end#local e=26;5pigment{#local g=function(_){ceil(_)-_}function#local
k=function{pattern{object{sphere_sweep{linear_spline 13#while(e)<O()O()>.01#
end}}}}{k(g(atan2(x,y)),g(ln(pow(x+y,2)+1e-5)),0)}}finish{ambient 1}}//ABX35

Post a reply to this message