POV-Ray : Newsgroups : povray.unix : gradient problem vers. 3.1g : Re: gradient problem vers. 3.1g Server Time
28 Jul 2024 12:24:27 EDT (-0400)
  Re: gradient problem vers. 3.1g  
From: Ron Parker
Date: 20 Sep 2001 12:48:45
Message: <slrn9qk7ff.du4.ron.parker@fwi.com>
On Thu, 20 Sep 2001 12:14:44 -0400, Lothar Esser wrote:
>Ron Parker wrote:
>
>> --
#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}

>
>Ultra cool !!! Very hard to understand. If you have time what is -x-x.2y ? I know x
>= <1,0,0> and
>a vector.x is the x component of vector but x.2y ?? I can probably read the manual
>- I still think only in pov3.0.2 :)

-x-x.2y takes advantage of the parser in interesting ways.  It's really three
values: -2*x, 0.2, y.  Notice that Z takes three parameters, per its 
declaration at the end of the second line.  The first parameter, -2*x, is
a constant.  Its use here is to avoid the use of #declare (note that there
are no #declare or #local statements anywhere in there) in giving the 
constant 'a' a value.  The next parameter, .2 (or .4) is the radius of the
tube which contains the media.  The last parameter is the color: x is red,
y is green, and z is blue (since x is really <1,0,0> and rgb <1,0,0> is red.)
The small green media inside the red media gives an effect that looks like 
an orange glow.

Others here have signatures that are every bit as convoluted; it's an 
interesting game to try to understand some of them, and some of them
are far better than anything I've done.  I actually have six different 
signatures that are selected randomly.  You can collect the whole set 
by just finding enough postings by me.  (or look at the end of this 
post for the whole set)

All of this sig stuff started with Warp's sig, and generated several 
conversations in povray.general sometime in the past few months, mostly
containing evil tricks to squeeze even more characters out of a script.  
Also some conversations in povray.off-topic, but those would have expired 
by now.  I think (though I'm not sure) that the sig at the end of this
post is one that I never told anyone about and just hoped people would
notice in the rotation.

#local R=<7084844682857967,0787982,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

#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

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

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

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

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


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.