 |
|
|
|
|
|
| |
| |
|
|
From: Wlodzimierz ABX Skiba
Subject: I was disappointed with six lines
Date: 4 May 2001 03:59:34
Message: <3af26166@news.povray.org>
|
|
|
| |
| |
|
|
Inspired by old images from p.b.i I discovered five lines long.
--
#macro L(D)light_source{D*5D spotlight point_at-D falloff 25}#end#local C=0;L(
x)L(y)#macro G()#declare C=C+1;val(substr(concat("00000100200301001402002102",
"3030034040122141142143222242322341342343400401402403410414420421423430434440"
),C,1))#end L(z)camera{location 8look_at 0}union{#while(1e2>C)box{#local P=<G(
),G(),G()>*.4-1;P+.4P}#end box{-9 9}texture{pigment{rgb 1}}}// call me ABX :-)
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
On Fri, 4 May 2001 09:59:02 +0200, Wlodzimierz ABX Skiba wrote:
>Inspired by old images from p.b.i I discovered five lines long.
It renders quickly too.
--
Cheers
Steve email mailto:ste### [at] zeropps uklinuxnet
%HAV-A-NICEDAY Error not enough coffee 0 pps.
web http://www.zeropps.uklinux.net/
or http://start.at/zero-pps
11:27am up 92 days, 12:13, 2 users, load average: 1.07, 1.08, 1.07
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Very clever, i love it.
Nekar
--
#version unofficial MegaPov 0.7;#local Q=seed(7);#local S=<-2,2,5>;#local
E=<2
,-2,5>;#local B=S;#while(vlength(B-E)>.1)#local
B=(B+(<rand(Q),rand(Q),rand(Q)
>/20));#local B=B-(2*(B-S))*((vlength(B-E)>vlength(S-E)));#local
S=B;glow{//NX
location S size.1 radius.07}glow{location S size.1 radius.07 rotate
z*90}#end
Post a reply to this message
|
|
| |
| |
|
|
From: Wlodzimierz ABX Skiba
Subject: Re: I was disappointed with six lines
Date: 7 May 2001 05:33:38
Message: <3af66bf2@news.povray.org>
|
|
|
| |
| |
|
|
Nekar Xenos wrote in message <3af64708@news.povray.org>...
>
> Very clever, i love it.
Thanks
> Nekar
> --
> #version unofficial MegaPov 0.7;#local Q=seed(7);#local S=<-2,2,5>;#local E=<2
> ,-2,5>;#local B=S;#while(vlength(B-E)>.1)#local B=(B+(<rand(Q),rand(Q),rand(Q)
> >/20));#local B=B-(2*(B-S))*((vlength(B-E)>vlength(S-E)));#local S=B;glow{//NX
> location S size.1 radius.07}glow{location S size.1 radius.07 rotate z*90}#end
can I suggest some optimizations ?
#version unofficial MegaPov.7;#local Q=seed(7);#local B=<-2,2,5>;#local E=<2,-
2,5>;#while(vlength(B-E)>.1)#local S=B;#local B=B+<rand(Q),rand(Q),rand(Q)//NX
>/20;#local B=B-2*(B-S)*(vlength(B-E)>vlength(S-E));glow{radius.07location<B.y
,-B.x,B.z>size.1}glow{radius.07size.1location B}#end
and becouse of megapov declaration you can use shortcuts for #local of course
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Thanks!
Nekar
--
#version unofficial MegaPov.7;#local Q=seed(7);#local B=<-2,2,5>;#local
E=<2,-
2,5>;#while(vlength(B-E)>.1)#local S=B;#local
B=B+<rand(Q),rand(Q),rand(Q)//NX
>/20;#local
B=B-2*(B-S)*(vlength(B-E)>vlength(S-E));glow{radius.07location<B.y
,-B.x,B.z>size.1}glow{radius.07size.1location B}#end
Post a reply to this message
|
|
| |
| |
|
|
From: Wlodzimierz ABX Skiba
Subject: Re: I was disappointed with six lines
Date: 7 May 2001 10:43:27
Message: <3af6b48f@news.povray.org>
|
|
|
| |
| |
|
|
Nekar Xenos wrote in message <3af66f2a@news.povray.org>...
> Thanks!
Do you want three lines long version ?
#version unofficial MegaPov.7;#macro G(L)glow{radius.07size.1location L}#end%Q
=seed(7);%E=<2,-2,5>;%B=<-2,2,5>;#while((E-B).x>.1)%S=B;%B=B+<rand(Q),rand(Q),
rand(Q)>/20;%B=(vlength(B-E)<vlength(S-E)?B:2*S-B);G(<B.y,-B.x,B.z>)G(B)#end
ABX
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
> and becouse of megapov declaration you can use shortcuts for #local of
course
What are those?
Nekar
--
#version unofficial MegaPov.7;#local Q=seed(7);#local B=<-2,2,5>;#local
E=<2,-
2,5>;#while(vlength(B-E)>.1)#local S=B;#local B=B+<rand(Q),rand(Q),rand(Q)
>/20;#local
B=B-2*(B-S)*(vlength(B-E)>vlength(S-E));glow{radius.07location<B.y
,-B.x,B.z>size.1}glow{radius.07size.1location B}#end// Nekar Xenos
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Thanks.
I just missed this message when I sent the other one. I assume % is the
shortcut for #local then? Now I have more space to try and make it look like
lightning...
Nekar Xenos
"Wlodzimierz ABX Skiba" <abx### [at] abxartpl> wrote in message
news:3af6b48f@news.povray.org...
> Nekar Xenos wrote in message <3af66f2a@news.povray.org>...
> > Thanks!
>
>
> Do you want three lines long version ?
>
> #version unofficial MegaPov.7;#macro G(L)glow{radius.07size.1location
L}#end%Q
>
=seed(7);%E=<2,-2,5>;%B=<-2,2,5>;#while((E-B).x>.1)%S=B;%B=B+<rand(Q),rand(Q
),
>
rand(Q)>/20;%B=(vlength(B-E)<vlength(S-E)?B:2*S-B);G(<B.y,-B.x,B.z>)G(B)#end
>
> ABX
>
>
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Nekar Xenos <j-p### [at] citywalkcoza> wrote:
: I just missed this message when I sent the other one. I assume % is the
: shortcut for #local then? Now I have more space to try and make it look like
: lightning...
Do you think it's a good idea to make a unofficial-povray signature?
After all, not all povray users even have megapov...
--
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}// - Warp -
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
> Do you think it's a good idea to make a unofficial-povray signature?
> After all, not all povray users even have megapov...
Mmm. Sorry, I didn't think of that. I also noticed I pasted it wrong into
the signature box. This one should be fine (I hope).
Thanks
Nekar Xenos
--
#local Q=seed(7);#local B=<-2,2,5>;#local E=<2,-2,5>;#local
C=<2,4,6>*4;blob{
threshold 1#while(vlength(B-E)>.1)#local S=B;#local
B=B+<rand(Q),rand(Q),rand(
Q)>/20;#local B=B-2*(B-S)*(vlength(B-E)>vlength(S-E));sphere{0,1,1
scale.1//NX
translate<B.y,-B.x,B.z>}sphere{0,1,1 scale.1translate B}#end pigment{rgb C}}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
|
|
