# 4 (standard pov) - obfusticated enough? (and BTW this is extremely
addictive).

#macro G(D,E,F)#declare I=array[3]{D,E,F}#declare
B=0;triangle{#while(B<3)#declare
C=1;#declare
H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
+#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare
A=array[7]{x*1,x*2,x
*4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb
1}union{G(105,10,146)G(105,246,
10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb
1}}//TM



Here are my other sigs in one place for ABX

#1 (requires mp)

#version unofficial MegaPov.6;#init_3d_spline{"",x*2,<2,5>,y*2,<4,3>,<3,2>,
<5,2>,<4,3>,<6,3>,<6,2>,<6,3>,<7,2>,<8,3>,<8,2>}#macro B(C,D)$A=0;#while
(A<1)glow{type 0location z*25radius 100fade_power 3color D size C
translate eval_3d_spline("",A)}$A=A+.002;#end#end
B(.05,red.9)B(.1,blue.9)//TM

#2 (requires mp)

#version unofficial MegaPov.6;#init_3d_spline{"",x*2,<2,5>,y*2,<4,3>,
<3,2>,<5,2>,<4,3>,<6,3>,<6,2>,<6,3>,<7,2>,<8,3>,<8,2>}#macro C(D)$B=0;
#while(B<1)sphere{eval_3d_spline("",B)D translate z*25}$B=B+.002;
#end#end union{C(.1)pigment{blue.9}finish{ambient.9}}merge{C(.5)
pigment{rgbt.9}interior{media{emission blue.7}}hollow}//TM

#3 (standard pov)

#macro A(B,C)light_source{B+z*-9C}#end
camera{location-9*z}plane{-z,-9pigment{rgb.9}}triangle{y*2,-x,x}
A(x*-7,blue.9)A(x*-4,blue.9)A(<2,-4,0>,red.9)A(<-2,-4,0>,red.9)//TM

Post a reply to this message

Bah - word-wrap settings... try again.

#macro G(D,E,F)#declare I=array[3]{D,E,F}#declare B=0;triangle{#while(B<3)#declare
C=1;#declare H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
+#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare A=array[7]{x*1,x*2,x
*4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb 1}union{G(105,10,146)G(105,246,
10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM

Post a reply to this message

Tom Melly <tom### [at] tomandlucouk> wrote:
: #macro G(D,E,F)#declare I=array[3]{D,E,F}#declare B=0;triangle{#while(B<3)#declare
: C=1;#declare H=strlen(str(I[B],0,0));#while(C<=H)A[val(substr(str(I[B],0,0),C,1))]
: +#declare C=C+1;#end<-5,-2,9>#declare B=B+1;#end}#end#declare A=array[7]{x*1,x*2,x
: *4,y*1,y*2,y*4,z*1}light_source{-A[1]-A[2]-z*9 rgb 1}union{G(105,10,146)G(105,246,
: 10)G(105,56,146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM


  Don't know if this version is less obfuscated, but at least it's shorter:

#macro G(D,E,F)#local I=array[3]{D,E,F}#local B=0;triangle{#while(
B<3)#while(I[B])A[mod(I[B],10)]+#local I[B]=div(I[B],10);#end<-5,-
2,9>#local B=B+1;#end}#end #local A=array[7]{x,x*2,x*4,y,y*2,y*4,z
}light_source{-x*6-z*9,1}mesh{G(105,10,146)G(105,246,10)G(105,56,
146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM



-- 
#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

"Warp" <war### [at] tagpovrayorg> wrote in message news:3afbfc25@news.povray.org...
>
>
>   Don't know if this version is less obfuscated, but at least it's shorter:

Bah! I even remembered that "local" would be shorter than "declare" and then forgot
to change it. Oh, well. Hmm, what else has changed? Well, I don't understand the mod
or div stuff (I'll look it up and see if I can figure it out). Ah, so a mesh is just
a union of triangs! Well, we learn something new every day. (well, I knew a mesh was
made of triangles, I just thought internally it would be more complicated).

>
> #macro G(D,E,F)#local I=array[3]{D,E,F}#local B=0;triangle{#while(
> B<3)#while(I[B])A[mod(I[B],10)]+#local I[B]=div(I[B],10);#end<-5,-
> 2,9>#local B=B+1;#end}#end #local A=array[7]{x,x*2,x*4,y,y*2,y*4,z
> }light_source{-x*6-z*9,1}mesh{G(105,10,146)G(105,246,10)G(105,56,
> 146)G(105,1256,246)G(1256,126,220)G(22156,2216,201)pigment{rgb 1}}//TM
>

Right. That's my sig. Ta.

Post a reply to this message

Tom Melly wrote:
> 
> [...] Ah, so a mesh is just
> a union of triangs! Well, we learn something new every day. (well, I knew a mesh was
> made of triangles, I just thought internally it would be more complicated).
> 

A mesh is *not* just a union of triangles just to set this right, if many
triangles are involved, a mesh is much more efficient.  

Christoph

-- 
Christoph Hormann <chr### [at] gmxde>
IsoWood include, radiosity tutorial, TransSkin and other 
things on: http://www.schunter.etc.tu-bs.de/~chris/

Post a reply to this message

"Christoph Hormann" <chr### [at] gmxde> wrote in message
news:3AFC0036.AF8E63D5@gmx.de...
>
>
> A mesh is *not* just a union of triangles just to set this right, if many
> triangles are involved, a mesh is much more efficient.
>

So internally it's handled differently, but externally it looks like a union?

Post a reply to this message

Tom Melly wrote in message <3afbe7b7$1@news.povray.org>...
> Here are my other sigs in one place for ABX


Thanks. All will be available for viewing after weekend and I'll send url then.

--
#macro Sig(A,B,X)_(A,B)_(B,X)_(X,A)#end#macro _(A,B)cylinder{<A.x,A.y,3>,<B.u,
B.v,3>.1,9}#end global_settings{max_trace_level 9}light_source{0 1}camera{up y
*4right-3*x}blob{_(<3,1>,<1,-5>)_(<2,-2>,<4,-2>)Sig(x,<-1,1.5>,<1,3>)_(z-1,z-4
)pigment{rgb 1}}box{-3 3pigment{rgb 0}finish{reflection 1}hollow} // POV-Ray31

Post a reply to this message

On Fri, 11 May 2001 16:17:11 +0100, Tom Melly wrote:
>"Christoph Hormann" <chr### [at] gmxde> wrote in message
>news:3AFC0036.AF8E63D5@gmx.de...
>>
>> A mesh is *not* just a union of triangles just to set this right, if many
>> triangles are involved, a mesh is much more efficient.
>
>So internally it's handled differently, but externally it looks like a union?

Almost.  A union can use any texture, but a mesh has to use predeclared 
textures.

-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)merge{R(z+a z)R(-z a-z)R(a
-z-z-z a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro Z(a F T)merge{
P(z+a)P(z-a)R(-z-z-x a)pigment{rgbf 1}hollow interior{media{emission 3-T}}}#end 
Z(-x-x.2x)camera{location z*-10rotate x*90normal{bumps.02scale.05}}

Post a reply to this message

Tom Melly <tom### [at] tomandlucouk> wrote:
: Well, I don't understand the mod
: or div stuff

  Then it's obfuscated ;)

-- 
#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

"Warp" <war### [at] tagpovrayorg> wrote in message news:3afc0680@news.povray.org...
> Tom Melly <tom### [at] tomandlucouk> wrote:
> : Well, I don't understand the mod
> : or div stuff
>
>   Then it's obfuscated ;)

Confusing idiots is easy ;)

Post a reply to this message