sweeeet! :)
I tried one too.  It might be a bit long...

> Inspired by Warp and others I decided to spent my last evening on
signature. I
> hope it is not too long for a first time and I like its output.
>
> ABX
>
> --
> #local A="000114120001121034130151142153134064180060195"#local B=0;#macro
G()
> #declare B=B+1;val(substr(A,B,1))#end#local
S=seed(1);light_source{10,1}blob{
> threshold.6#local U=z;#local Y=0;#while(Y<15)#local E=G()*.7+.1e-3;#local
V=<
> 3.5-G(),G()-2.5,-1>;#local
X=0;#while(X<1)sphere{<12*X+rand(S)-6,Y+rand(S)-5,
> -1>1,1}sphere{U+X*(V-U)+rand(S)E,.3}#local X=X+.01;#end#local U=V;#local
Y=Y+
> 1;#end texture{pigment{rgb 1}normal{agate}}}camera{location z*8look_at 0}


--
camera{location -z*3}#macro G(b,e)b+(e-b)*(C/50)#end#macro L(b,e,k,l)#local
C=0;#while(C<50)sphere{G(b,e),.1pigment{rgb G(k,l)}finish{ambient 1}}#local
C=C+1;#end#end
L(<-1,1>,<0,1>,<1,0>,<1,1>)L(<0,1>,<-1,-1>,<1,1>,<0,1>)L(<-1,-1>,<0,-1>,<0,1
>,<0,1,1>)L(<0,-1>,<0,1>,<0,1,1>,<1,1,0>)L(0,<1,1>,<.5,1,.5>,<1,0>)L(0,<1,-1
>,<.5,1,.5>,<1,0>)  // ZK http://www.povplace.be.tf

Post a reply to this message