Tor Olav Kristensen wrote in message <3AE6068B.352F774F@online.no>...
>Wlodzimierz ABX Skiba wrote:
>> 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.
>
> Interesting technique ABX !

Thanks

> It reminds me of something we played with once
> at the university. Guess what.

No idea.

> "000035130155025154176178169149128057156146157"
> Then also replace the camera location z*8 with
> z*18 for a better view of this one.

I'll check this

> Btw: You'll get one character less if you replace
> .1e-3 with 1e-4. (Or did you do it that way to get
> a straight right margin ?)

at begining there was simple .001
but I add 1e-3 with the same space but more magic look ;-)
and add "." to justify margins

ABX

Post a reply to this message

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