-- 
#local a=<1,1,0>;#local b=<2,1,0>;#local c=<3,2,0>;#local d=<5,3,0>;
#macro P(A,B) polygon{4,A,A+z,B+z,B texture{pigment{color rgb 1}finish
{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P(2*b,d)P(
d,<2,3,0>)}camera{location <5,1.2,-5>look_at a orthographic}//FL

Post a reply to this message

On Tue, 08 May 2001 10:56:23 -0400, Francois Labreque wrote:
>
>-- 
>#local a=<1,1,0>;#local b=<2,1,0>;#local c=<3,2,0>;#local d=<5,3,0>;
>#macro P(A,B) polygon{4,A,A+z,B+z,B texture{pigment{color rgb 1}finish
>{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P(2*b,d)P(
>d,<2,3,0>)}camera{location <5,1.2,-5>look_at a orthographic}//FL

I had to do it; it's a compulsion. Doesn't anyone understand?

#local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B) polygon{
4,A,A+z,B+z,B texture{pigment{color rgb 1}finish{ambient 1}}}
#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P(2*b,b+c)P(b+
c,<2,3>)}camera{location<5,1.2,-5>look_at a orthographic}//FL

or

#local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z,B,A//FL
texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P
(2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a orthographic}

which has the advantage of rendering without warnings.


-- 
#local R=<7084844682857967,32787982,826975826580>#macro L(P)concat(#while(P)chr(
mod(P,100)),#local P=P/100;#end"")#end background{rgb 1}text{ttf L(R.x)L(R.y)0,0
translate<-.8,0,-1>}text{ttf L(R.x)L(R.z)0,0translate<-1.6,-.75,-1>}sphere{z/9e3
4/26/2001finish{reflection 1}}//ron.parker@povray.org My opinions, nobody else's

Post a reply to this message

Francois Labreque <fla### [at] videotronca> wrote:
: #local a=<1,1,0>;#local b=<2,1,0>;#local c=<3,2,0>;#local d=<5,3,0>;
: #macro P(A,B) polygon{4,A,A+z,B+z,B texture{pigment{color rgb 1}finish
: {ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P(2*b,d)P(
: d,<2,3,0>)}camera{location <5,1.2,-5>look_at a orthographic}//FL

  I don't understand what does it do, but it can ne made a lot shorter:

#local a=x+y;#local b=a+x;#local c=a+b;#local d=b+c;#macro P(A,B)polygon{
5,A,A+z,B+z,B,A pigment{rgb 9}}#end P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P
(2*b,d)P(d,<2,3,0>)camera{location <5,1.2,-5>look_at a orthographic}//FL


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

Ron Parker <ron### [at] povrayorg> wrote:
: #local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z,B,A//FL
: texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P
: (2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a orthographic}

  Darn, you made it first.
  However, my version is shorter :)

#local a=x+y;#local b=a+x;#local c=a+b;#local d=b+c;#macro P(A,B)polygon{
5,A,A+z,B+z,B,A pigment{rgb 9}}#end P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P
(2*b,d)P(d,<2,3,0>)camera{location <5,1.2,-5>look_at a orthographic}//FL

  And doesn't warn either.

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

On 8 May 2001 11:45:16 -0400, Warp wrote:
>  Darn, you made it first.
>  However, my version is shorter :)

Yes, I like the rgb 9 trick.  That one's new to me.  And of course the
'texture' keyword is almost always redundant.

>2*b,d)P(d,<2,3,0>)camera{location <5,1.2,-5>look_at a orthographic}//FL

The ,0 is unnecessary, as is the space after location.

So can you make my new one smaller?

-- 
#local R=rgb 99;#local P=R-R;#local F=pigment{gradient x}box{0,1pigment{gradient
y pigment_map{[.5F pigment_map{[.3R][.3F color_map{[.15red 99][.15P]}rotate z*45
translate x]}]#local H=pigment{gradient y color_map{[.5P][.5R]}scale 1/3}[.5F
pigment_map{[.3R][.3H][.7H][.7R]}]}}}camera{location.5-3*z} // Only my opinions

Post a reply to this message

On 8 May 2001 12:03:50 -0400, Ron Parker wrote:
>So can you make my new one smaller?

Okay, that one was boring.  So's this one, but at least the output is pretty.

-- 
plane{z 3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate z
*60#local a=a-1;#end translate-15*x}pigment{rgb 1}}light_source{-9red 1rotate 60
*z}light_source{-9rgb y rotate-z*60}light_source{-9blue 1scale-x-y+z}text{ttf
"arial.ttf""RP".01,0translate-<.6,.4,.02>}light_source{-z*3rgb-.2} // Ron Parker

Post a reply to this message

On 8 May 2001 16:01:26 -0400, Ron Parker wrote:
>On 8 May 2001 12:03:50 -0400, Ron Parker wrote:
>>So can you make my new one smaller?
>
>Okay, that one was boring.  So's this one, but at least the output is pretty.

And now: the warning-free version.

-- 
plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
*z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
"RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

Post a reply to this message

That looks like fun! So I made my own. I'm sure it can be shortened more
than this, but 4 lines ain't bad :)

--
#default{texture{pigment{rgb 0}finish{reflection 1}}}#macro M(A) #declare
B=A;
#end#macro L(A) sphere{A,1}sphere{B,1}cylinder{A,B,1}#declare B=A;#end
M(<4,0>)
L(<8,8>)L(<2,8>)M(<6,0>)L(<10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location
<9,4,-15>}sky_sphere{pigment{bozo colour_map{[0 rgb 0][1 rgb 1]}}} // Tek

Post a reply to this message

> #default{texture{pigment{rgb 0}finish{reflection 1}}}#macro M(A) #declare
> B=A;
> #end#macro L(A) sphere{A,1}sphere{B,1}cylinder{A,B,1}#declare B=A;#end
> M(<4,0>)
> L(<8,8>)L(<2,8>)M(<6,0>)L(<10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location
> <9,4,-15>}sky_sphere{pigment{bozo colour_map{[0 rgb 0][1 rgb 1]}}} // Tek
>
>

Doh! It wrapped wrong! Can anyone explain what's going on with that? When I
wrote it it wasn't wrapping like that :(

--
Tek
http://www.evilsuperbrain.com

Post a reply to this message

I think I've fixed it now... I hope...

--
#default{texture{pigment{rgb 0}finish{reflection 1}}}#macro M(A) #declare B=A;
#end#macro L(A) sphere{A,1}sphere{B,1}cylinder{A,B,1}#declare B=A;#end M(<4,0>)
L(<8,8>)L(<2,8>)M(<6,0>)L(<10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location
<9,4,-15>}sky_sphere{pigment{bozo colour_map{[0 rgb 0][1 rgb 1]}}} // Tek

Post a reply to this message

On Tue, 8 May 2001 21:22:12 +0100, Tek wrote:
>
>Doh! It wrapped wrong! Can anyone explain what's going on with that? When I
>wrote it it wasn't wrapping like that :(

Your newsreader is set to wrap words automatically.


-- 
plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
*z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
"RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

Post a reply to this message

Yup, I've bumped it up to 80 characters now.

--
Tek
http://www.evilsuperbrain.com

Ron Parker <ron### [at] povrayorg> wrote in message
news:slr### [at] fwicom...
> On Tue, 8 May 2001 21:22:12 +0100, Tek wrote:
> >
> >Doh! It wrapped wrong! Can anyone explain what's going on with that? When I
> >wrote it it wasn't wrapping like that :(
>
> Your newsreader is set to wrap words automatically.
>
>
> --
> plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip
x}rotate
> z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate
60
> *z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb
z}text{ttf"arial.ttf"
> "RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron
Parker

Post a reply to this message

On Tue, 8 May 2001 21:21:04 +0100, Tek wrote:
>That looks like fun! So I made my own. I'm sure it can be shortened more
>than this, but 4 lines ain't bad :)

Still 4 lines, but lots more room for comments:

#default{pigment{rgb 0}finish{reflection 1}}#macro M(A)#declare B=A;#end#macro L
(A)sphere{A,1}sphere{B,1}cylinder{A,B,1}M(A)#end M(4*u)L(<8,8>)L(<2,8>)M(6*u)L(<
10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location<9,4,-15>}sky_sphere{pigment{bozo
color_map{[0rgb 0][1rgb 1]}}} // Tek


-- 
plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
*z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
"RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

Post a reply to this message

Ron Parker wrote:
> Still 4 lines, but lots more room for comments:

Hey, I didn't know you could put line breaks there! Thanks :)

--
#default{pigment{rgb 0}finish{reflection 1}}#macro M(A)#declare B=A;#end#macro L
(A)sphere{A,1}sphere{B,1}cylinder{A,B,1}M(A)#end M(4*u)L(<8,8>)L(<2,8>)M(6*u)L(<
10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location<9,4,-15>}sky_sphere{pigment{bozo
color_map{[0rgb 0][1rgb 1]}}} // Tek. www.evilsuperbrain.com

Post a reply to this message

Ron Parker wrote:
> 
> or
> 
> #local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z,B,A//FL
> texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P
> (2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a orthographic}
> 
> which has the advantage of rendering without warnings.

Thanks for the optimization.  I had to leave for work before I had
finished... I knew I had to close my polygons, but I also found one that
was unecessary, So here's the final version:

-- 
#local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z
,B,A texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(
b,c)P(2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a
orthographic} // Francois Labreque - fla### [at] videotronca

Post a reply to this message

Ron Parker wrote:
> 
> On 8 May 2001 16:01:26 -0400, Ron Parker wrote:
> >On 8 May 2001 12:03:50 -0400, Ron Parker wrote:
> >>So can you make my new one smaller?
> >
> >Okay, that one was boring.  So's this one, but at least the output is pretty.
> 
> And now: the warning-free version.

wrong!
I get a "Can't find font file!" error.

I know how to fix it, but it should work "out-of-the-box".

-- 
Francois Labreque | The surest sign of the existence of extra-
    flabreque     | terrestrial intelligence is that they never
        @         | bothered to come down here and visit us!
  videotron.ca    |                             - Calvin

Post a reply to this message

Tek wrote:
> 
> I think I've fixed it now... I hope...
> 
> --
> #default{texture{pigment{rgb 0}finish{reflection 1}}}#macro M(A) #declare B=A;
> #end#macro L(A) sphere{A,1}sphere{B,1}cylinder{A,B,1}#declare B=A;#end M(<4,0>)
> L(<8,8>)L(<2,8>)M(<6,0>)L(<10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location
> <9,4,-15>}sky_sphere{pigment{bozo colour_map{[0 rgb 0][1 rgb 1]}}} // Tek

Reminds me of the Van Halen logo.

-- 
Francois Labreque | The surest sign of the existence of extra-
    flabreque     | terrestrial intelligence is that they never
        @         | bothered to come down here and visit us!
  videotron.ca    |                             - Calvin

Post a reply to this message

On Tue, 08 May 2001 20:32:47 -0400, Francois Labreque wrote:
>Ron Parker wrote:
>> And now: the warning-free version.
>
>wrong!
>I get a "Can't find font file!" error.
>
>I know how to fix it, but it should work "out-of-the-box".

Well, maybe... but I'm cursed with initials that don't have easy
sphere-and-cylinder construction, so I have to fall back on ttf 
objects.

-- 
plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
*z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
"RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

Post a reply to this message

Ron Parker <ron### [at] povrayorg> wrote:
: Well, maybe... but I'm cursed with initials that don't have easy
: sphere-and-cylinder construction, so I have to fall back on ttf 
: objects.

  Well, my nick has an 'R' and a 'P' as well (besides 'W' and 'A') and I
don't have any problem ;)

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

Francois Labreque <fla### [at] videotronca> wrote:
: So here's the final version:

: #local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z
: ,B,A texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(
: b,c)P(2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a
: orthographic} // Francois Labreque - fla### [at] videotronca

  Wouldn't you prefer:

#local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z
,B,A pigment{rgb 9}}#end P(0,a)P(a,b)P(b,c)P(2*a,2*b)P(2*b,b+c)P(b+c,<2
,3>)camera{location<5,1.2,-5>look_at a orthographic}
// Francois Labreque - fla### [at] videotronca

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

Ron Parker <ron### [at] povrayorg> wrote:
: #default{pigment{rgb 0}finish{reflection 1}}#macro M(A)#declare B=A;#end#macro L
: (A)sphere{A,1}sphere{B,1}cylinder{A,B,1}M(A)#end M(4*u)L(<8,8>)L(<2,8>)M(6*u)L(<
: 10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location<9,4,-15>}sky_sphere{pigment{bozo
: color_map{[0rgb 0][1rgb 1]}}} // Tek

  If you add a "scale.5" or similar right after the color_map block, the
sig will be 7 characters longer but will look a lot cooler.

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

Ron Parker <ron### [at] povrayorg> wrote:
: plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
: z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
: *z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
: "RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

  A bit shorter:

#macro L(P,C,R)light_source{P,rgb C rotate z*R}#end plane{-z,-3normal{crackle
scale.2#local a=5;#while(a)warp{repeat x flip x}rotate z*60#local a=a-1;#end
translate-9*x}pigment{rgb 1}}L(-9,x,60)L(-9,y,-60)L(9-z*18,z,0)L(-z*3,-.2,0)
text{ttf"arial.ttf""RP".1,0translate-<.6,.4,.02>pigment{bozo}}//Ron Parker


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

On 9 May 2001 06:21:00 -0400, Warp wrote:
>Ron Parker <ron### [at] povrayorg> wrote:
>: Well, maybe... but I'm cursed with initials that don't have easy
>: sphere-and-cylinder construction, so I have to fall back on ttf 
>: objects.
>
>  Well, my nick has an 'R' and a 'P' as well (besides 'W' and 'A') and I
>don't have any problem ;)

Good point.  It just presents more challenge, right?

I'm starting to think I should create a script to randomly select one of my
(four, so far, counting this new one) signatures for each post.

Look, Ma, no commas, no #locals, and no #declares!

-- 
#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{rgbt 1}hollow interior{media{emission T}}}#end Z(
-x-x.2y)Z(-x-x.4x)camera{location z*-10rotate x*90} // ron### [at] povrayorg

Post a reply to this message

On 9 May 2001 13:22:33 -0400, Ron Parker wrote:
>Look, Ma, no commas, no #locals, and no #declares!

Still none of those things, and now with added highlights.

-- 
#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{rgbt 1}hollow interior{media{emission T}}finish{
reflection.1}}#end Z(-x-x.2y)Z(-x-x.4x)camera{location z*-10rotate x*90}

Post a reply to this message

In article <slr### [at] fwicom>, Ron Parker says...
> 
> Good point.  It just presents more challenge, right?
> 
> I'm starting to think I should create a script to randomly select one of my
> (four, so far, counting this new one) signatures for each post.
> 
> Look, Ma, no commas, no #locals, and no #declares!
> 
Smart!

I have the distinct feeling that I am lagging behind, somehow :(

-- 
Regards,  Sander

Post a reply to this message

I figured I'd post here rather than start another thread.  I had to try
making my own.  It's too long for a sig, but I was still pleased with the
result.

#version unofficial MegaPov 0.6;camera{location-z*8direction z*2look_at 0}

light_source{<-2,5,-2>*1e3 rgb1}%K=text{ttf"cyrvetic.ttf""KEVIN".25,0
translate-1.5*x scale 1.5}%G=pigment{rgb<.8,.6,.4>}%R=seed(0);#macro
B()<rand(
R)-.5,rand(R)-.5,rand(R)-.5>#end#macro
A(C)%T=0;%V=<0,1,0>;#while(T<250)%S=0;%
P=B();%U=trace(K,C,P)-C;#while(S<15)%P1=B();%W=trace(K,C,P1)-C;#if(vlength(W)

<vlength(U))%P=P1;%U=trace(K,C,P)-C;#end%S=S+1;#end%V=V+P;%V=V/vlength(V);%D=(

250-T)/1e4;union{cylinder{C,C+V*.03,D}sphere{C,D}triangle{C,C+B()*D*10,C+B()*D

*4
pigment{rgb<0,.7,0>}}pigment{G}no_shadow}%C=C+V*.03;%T=T+1;#end#end%N=0;
#while(N<35)A(<(rand(R)-.5)*3, 0, rand(R)/4>*1.7)%N=N+1;#end  // Kevin
Wampler

Post a reply to this message

Whoops, line wraps messed the formatting up, and I made a type too...  Hopefully this
will be better

#version unofficial MegaPov 0.6;camera{location-z*8direction z*2look_at 0}
light_source{<-2,5,-2>*1e3 rgb 1}%K=text{ttf"cyrvetic.ttf""KEVIN".25,0
translate-1.5*x scale 1.5}%G=pigment{rgb<.8,.6,.4>}%R=seed(0);#macro B()<rand(
R)-.5,rand(R)-.5,rand(R)-.5>#end#macro A(C)%T=0;%V=<0,1,0>;#while(T<250)%S=0;%
P=B();%U=trace(K,C,P)-C;#while(S<15)%P1=B();%W=trace(K,C,P1)-C;#if(vlength(W)
<vlength(U))%P=P1;%U=trace(K,C,P)-C;#end%S=S+1;#end%V=V+P;%V=V/vlength(V);%D=(
250-T)/1e4;union{cylinder{C,C+V*.03,D}sphere{C,D}triangle{C,C+B()*D*10,C+B()*D
*4 pigment{rgb<0,.7,0>}}pigment{G}no_shadow}%C=C+V*.03;%T=T+1;#end#end%N=0;
#while(N<35)A(<(rand(R)-.5)*3, 0, rand(R)/4>*1.7)%N=N+1;#end  // Kevin Wampler

Post a reply to this message

In article <3AFA277A.440A9AA4@u.arizona.edu>, Kevin Wampler says...
> Whoops, line wraps messed the formatting up, and I made a type too...  
> Hopefully this will be better
> 
> #version unofficial MegaPov 0.6;camera{location-z*8direction z*2look_at 0}
<snip>

As far as I understand you are not suppose to have the actual characters 
appearing in the sig!
It IS very nice, though, your sig :))
-- 
Regards,  Sander

Post a reply to this message

Kevin Wampler wrote in message <3AFA1C94.F93EB686@u.arizona.edu>...
> I figured I'd post here rather than start another thread.

So and I.

My current sig is fine but just for fun I realized next idea :-)
I must admit those all our sigs are very good lesson of povray and I think we
got small "testing compatibility for next versions" pack.

Here it is (don't worry I'm not the ghost):

#macro A(B,X)[1spherical color_map{[.5rgb 0][1rgb 19]}translate C*(X-B)+B+z*8]
#end light_source{0 1}plane{-z,-8pigment{average pigment_map{#local C=1;#while
(C)A(-4*x-y,y-3*x)A(y-3*x,-2*x-y)A(-4*x-y,-2*x-y)A(y-x,-y-x)A(2*y-x,x+y)A(x+y,
-x)A(-x,x-y)A(x-y,-2*y-x)A(2*x+y,4*x-y)A(4*x+y,2*x-y)#local C=C-.04;#end}}}


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

Ron Parker <ron### [at] povrayorg> wrote:
: I'm starting to think I should create a script to randomly select one of my
: (four, so far, counting this new one) signatures for each post.

  I think most newsreader have this kind of functionality already.
  At least in tin, if you configure the signature path to point to a
directory (instead to a file), it will select a random file from that
directory.

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

On 9 May 2001 13:22:33 -0400, Ron Parker wrote:
>Look, Ma, no commas, no #locals, and no #declares!

I know, resurrecting an old thread...  I just wanted to debut my new .sig,
because I think it's kinda cool.  And it still has no #locals and no
#declares, though the commas proved intractable.  To compensate, though,
this one has a loop with no #while.  I'd love to see suggestions on how to
make this one shorter, even though I don't need them at this point.

-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z a-z)R(
a-z*3 a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro S(g)9-(D-g)*(D
-g)#end#macro Z(D a T F)union{P(z+a)P(z-a)R(-z-z-x a)translate-10*y+D/10pigment
{rgb<S(7)S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}

Post a reply to this message

On 29 Jun 2001 15:29:01 -0400, Ron Parker wrote:
>On 9 May 2001 13:22:33 -0400, Ron Parker wrote:
>>Look, Ma, no commas, no #locals, and no #declares!
>
>I know, resurrecting an old thread...  I just wanted to debut my new .sig,
>because I think it's kinda cool.  And it still has no #locals and no
>#declares, though the commas proved intractable.  To compensate, though,
>this one has a loop with no #while.  I'd love to see suggestions on how to
>make this one shorter, even though I don't need them at this point.

So of course I found some of my own...

-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z a-z)R(a
-z*3a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro S(g)9-(D-g)*(D-g)
#end#macro Z(D a T F)union{P(z+a)P(z-a)R(-z+y-1a)translate.1*D-y*8pigment{rgb<S(
7)S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}

Post a reply to this message

Two characters:

#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z a-z)R(a
-z*3a+z)torus{1F clipped_by{plane{a 0}}}translate z+V}#end#macro S(g)9-(D-g)*(D-
g)#end#macro Z(D a T F)union{P(a)P(-a)R(y-z-1a)translate.1*D-y*8pigment{rgb<S(7)
S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}


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

On 29 Jun 2001 18:06:37 -0400, Warp wrote:
>  Two characters:
>
>>>
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z a-z)R(a
-z*3a+z)torus{1F clipped_by{plane{a 0}}}translate z+V}#end#macro S(g)9-(D-g)*(D-
g)#end#macro Z(D a T F)union{P(a)P(-a)R(y-z-1a)translate.1*D-y*8pigment{rgb<S(7)
S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}
<<<

Thanks, I've adopted those two.  The one was painfully obvious, wasn't it?
Any other takers?

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

Ron Parker <ron### [at] povrayorg> wrote in message
news:slr### [at] fwicom...
> #macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z
a-z)R(a
> -z*3a+z)torus{1F clipped_by{plane{a 0}}}translate z+V}#end#macro
S(g)9-(D-g)*(D-
> g)#end#macro Z(D a T
F)union{P(a)P(-a)R(y-z-1a)translate.1*D-y*8pigment{rgb<S(7)
> S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}

Nice :)

Inspired, I've come up with this one:

media{emission rgb<2,3,4>absorption rgb<2,3,4>density{function{.1/(y+1)}}}#macro
P(d)pigment{checker rgb 6 translate d scale.15 rotate 45*y}#end#macro F(S,T,E,G)
box{<S,T,-.01>,<E,G,1>}#end camera{location<1,2,-3>look_at 0}sphere{y-x,1 finish
{reflection 1}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4,2,6,3)scale.35
rotate 90*x P(1)}plane{y,0 P(0)} // Tekno Frannansa. evilsuperbrain.com

It's kind of the reflective ball on checkered floor, but showing off more ;).
Obviously it's a bit long at the moment, so I was kind of hoping someone might
have some suggestions for shortening it, because I've run out of ideas (well,
it's 3 in the morning, I think my brain's given up!).

Cheers.

--
Tek
http://www.evilsuperbrain.com

Post a reply to this message

On Tue, 3 Jul 2001 03:27:46 +0100, Tek wrote:
>Inspired, I've come up with this one:
>
media{emission rgb<2,3,4>absorption rgb<2,3,4>density{function{.1/(y+1)}}}#macro
P(d)pigment{checker rgb 6 translate d scale.15 rotate 45*y}#end#macro F(S,T,E,G)
box{<S,T,-.01>,<E,G,1>}#end camera{location<1,2,-3>look_at 0}sphere{y-x,1 finish
{reflection 1}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4,2,6,3)scale.35
rotate 90*x P(1)}plane{y,0 P(0)} // Tekno Frannansa. evilsuperbrain.com

I can't render it.  It seems to have an unsupported keyword in it. :)

Nonetheless, you can save some characters by just removing unnecessary spaces
after numbers and before keywords and/or symbols.  So, for example,
"scale.15 rotate" becomes "scale.15rotate".  That doesn't come anywhere near
making it small enough, of course.

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

> On Tue, 3 Jul 2001 03:27:46 +0100, Tek wrote:
> >Inspired, I've come up with this one:

<clip>

I got to admit I ran out and did the same thing after I saw Ron and Warps sigs.

I came up with this one...

light_source{-9 color rgb 1}#macro C(a)cylinder{-a.x*y,0,.1 rotate a.z*z
translate<a.y,0,6>}#end#macro V(a,b,c,d,e)torus{a,.1 clipped_by{plane{z,e}}
rotate b*90*x translate<c,d,6>}#end union{C(x-3*y)C(x-y*2)C(x-y*1.5)C(x-y)C(x+
y*3.45)C(.8*x-y/2)C(.8*x-.1*y)C(.8*x+.3*y)C(<2.5,-3,90>)V(.4,1,1,-.5,2)V(.4,1,
2,-.5,2)V(.4,1,3,-.5,2)V(.5,1,-2.5,0,0)V(.2,-1,-.3,-.7,0)V(.2,-1,.1,-.7,0)
pigment{rgb x+y}}

But that seemed too long, so I tried this.

light_source{<-9,9,-9> color rgb 1}#macro A(T E)cylinder{-T.x*y 0 .1 rotate 90*
T.z*z translate<T.y,E,4>}#end union{torus{.5,.1 clipped_by{plane{z,0}}rotate 90
*x translate<.5,0,4>}A(<1.5,-1.25,0> .5)A(x 0)A(x+y 0)A(x+z (-.25))A(<1.5,-2,1>
.5)pigment{rgb<1,.9,.2>}finish{phong.05 reflection.1}}

Which fit in 4 lines, but didn't look as nice. Then I figured I'd try again and got:

light_source{-10 color rgb 1}#local T=6*z-3*x;#local I=T;#local M=0;#local A=
array[10]{1287709,43035510,7312399,36346003,50603446,6192184,12772732,33037915,
41777870,42384480}union{#while(M<99)#local N=int(mod(A[div(M,10)]/pow(6,(9-mod(
M,10))),6));#local I=I+((N=0)-(N=1))*y/2+((N=3)-(N=2))*x/2;#if(N=4)sphere{T.1}
cylinder{T,I,.1}#end#local T=((N>3)?I:T);#local M=M+1;#end pigment{rgb x+y}}

Which is a bit long, but is obfuscated nicely. So I tried simple but nice..

light_source{<-9,9,-9>rgb x+y+z}text{ttf"timrom.ttf"    // timothyea
"Tim Attwood".1,0 pigment{rgb x+y}translate<-2.7,-.3,5>}// @worldnet.att.net
sky_sphere {pigment{gradient y color_map{[.45 rgb<.2,.3,.2>][0.5 rgb x+y+z]
[0.55 rgb x+y][0.6 rgb x+.5*y][.7 rgb 0]}scale 2 translate -1}}

And that's perty and has the benefit of having my name all over it. Maybe I'll use
it again, but I also
came up with this one:

#macro T(I M)cylinder{0,I*x,.2 rotate 15*M*z translate A pigment{rgb E}finish
{ambient 1}}#end#macro Y(E O)#local A=y-x+O;T(1,0)T(2,18)T(1,12)#local A=x+y
+O;T(2,17)T(2,19)#local A=.7*x-.5*y+O;T(.6,0)#end#local D=seed(2);#local W=1;
#while(W<35)Y(rand(D)*z<9*rand(D)-5,9*rand(D)-5,9>)#local W=W+1;#end Y(1,4*z)

And that seemed perty good too.  Which do you prefer?

Post a reply to this message

> I can't render it.  It seems to have an unsupported keyword in it. :)

Doh! That's because I used the "function" command. It works fine in Megapov,
which is perculiar because it shouldn't allow me to use unnofficial features
unless I have a #version at the start!

Anyway, here's a fixed version, though it doesn't look as good:

camera{location<1,2,-3>look_at 0}sphere{y-x,1#macro F(S,T,E,G)box{<S,T,-.01>,<E,
G,1>}#end finish{reflection 1}}#macro P(d)pigment{checker rgb 6translate d scale
.15rotate 45*y}#end media{emission rgb<.2,.3,.4>absorption rgb<.2,.3,.4>density{
planar poly_wave .1scale 9000}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4
,2,6,3)scale.35rotate 90*x P(1)}plane{y,0 P(0)}// Tekno Frannansa.


And for comparison, here's the original version (from before the 1st one I
posted), which is megapov only and uses radiosity:

#version Unofficial Megapov 0.7 global_settings{ini_option"+qr"radiosity{}}media
{emission rgb<2,3,4>absorption rgb<2,3,4>density{function{.1/(y+1)}}}#macro P(d)
pigment{checker rgb 6 translate d scale.15 rotate 45*y}#end#macro F(S,T,E,G)box{
<S,T,-.01>,<E,G,1>}#end union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4,2,6,3)
rotate 90*x scale.35 P(1)}plane{y,0 P(0)}camera{location<1,2,-3>look_at 0}sphere
{y-x,1 finish{reflection 1}} // TeknoFrannansa. evilsuperbrain.com


It looks nice, but it's way to long for a sig, and excludes anyone using normal
pov.

--
Tek
http://www.evilsuperbrain.com

Post a reply to this message

Tek <tek### [at] evilsuperbraincom> wrote:
: camera{location<1,2,-3>look_at 0}sphere{y-x,1#macro F(S,T,E,G)box{<S,T,-.01>,<E,
: G,1>}#end finish{reflection 1}}#macro P(d)pigment{checker rgb 6translate d scale
: .15rotate 45*y}#end media{emission rgb<.2,.3,.4>absorption rgb<.2,.3,.4>density{
: planar poly_wave .1scale 9000}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4
: ,2,6,3)scale.35rotate 90*x P(1)}plane{y,0 P(0)}// Tekno Frannansa.

  It doesn't look 100% the same, but a bit shorter:

camera{location<1,2,-3>look_at 0}#macro P(d)pigment{checker rgb 6translate d
scale.15rotate 45*y}#end sphere{y-x#macro F(S,T,E,G)box{<S,T,-.01><E,G,1>scale
.35rotate 90*x P(1)}#end 1finish{reflection 1}}fog{rgb 1fog_type 2distance 2
fog_alt.5}fog{rgb<.2,.3,.6>distance 10}F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5
)F(4,2,6,3)plane{y,0P(0)}// Tekno Frannansa.


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

On 3 Jul 2001 09:15:15 -0400, Warp wrote:
>camera{location<1,2,-3>look_at 0}#macro P(d)pigment{checker rgb 6translate d
>scale.15rotate 45*y}#end sphere{y-x#macro F(S,T,E,G)box{<S,T,-.01><E,G,1>scale
>.35rotate 90*x P(1)}#end 1finish{reflection 1}}fog{rgb 1fog_type 2distance 2
 .35rotate x*90P(1)}...


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

Tim Attwood <tim### [at] worldnetattnet> wrote:
: #macro T(I M)cylinder{0,I*x,.2 rotate 15*M*z translate A pigment{rgb E}finish
: {ambient 1}}#end#macro Y(E O)#local A=y-x+O;T(1,0)T(2,18)T(1,12)#local A=x+y
: +O;T(2,17)T(2,19)#local A=.7*x-.5*y+O;T(.6,0)#end#local D=seed(2);#local W=1;
: #while(W<35)Y(rand(D)*z<9*rand(D)-5,9*rand(D)-5,9>)#local W=W+1;#end Y(1,4*z)

  A bit shorter:

#macro T(I M A)cylinder{0,I*x,.2pigment{rgb E*9}rotate M*z*15translate A}
#end#macro Y(E O)T(1,0,y-x+O)T(2,18,y-x+O)T(1,12,y-x+O)T(2,17,x+y+O)T(2,
19,x+y+O)T(.6,0,.7*x-.5*y+O)#end#local D=seed(2);#macro X(W)#if(W)Y(rand
(D)*z<9*rand(D)-5,9*rand(D)-5,9>)X(W-1)#end#end X(35)Y(1,4*z)


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

I like the last one.


--
/* Nekar Xenos */#local N=<-20,40,100>;#local K=<20,-40,100>;#local R=seed(0);
blob{#while((K-N).x>0)#local X=N;#local N=N+<rand(R),rand(R),1>/3;#local N=(
vlength(N-K)<vlength(X-K)?N:2*X-N);sphere{<N.y,-N.x,N.z>,1,1 scale .02}sphere{N
,1,1 scale.02}sphere{<-N.x-40,N.y,N.z>1,1 scale.01}sphere{<N.x+40,-N.y,N.z>1,1
scale.01 }#end pigment{rgbt 1}interior{media{emission <2,4,5>*5}}hollow}

Post a reply to this message