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