...since it seems a subject which never goes away and I've still lacked a
real one.  Plain as ever before for mine, and definitely not very unique.
Unveiled below where it ought to be.  (yeah, you can picture it already,
huh?)
--
sphere_sweep{b_spline 20<-2,-2,4>.1<-2,-1,4>.15<-1.5,1,4>.1<0,0,4>.1
<-2,0,4>.1<0,-1,4>.1<-2.5,-1,4>.1<-.5,-1,4>.1,<0,0,4>.1<1,-.5,4>.1
<0,-1,4>.1<-.5,-.5,4>.1<0,0,4>.1<1,-1,4>.1<1.5,-.25,4>.1<2,0,4>.1
<2,-.75,4>.1<1,-1,4>.1<1.5,1,4>.1<1.5,1,4>.1pigment{rgb 9}}//v3.5

Post a reply to this message

bob h wrote:
> 
> ...since it seems a subject which never goes away and I've still lacked a
> real one.  Plain as ever before for mine, and definitely not very unique.
> Unveiled below where it ought to be.  (yeah, you can picture it already,
> huh?)

I think i have to show my version sometime too so here it is.

Disclaimer: the use of 'internal' in scenes is officially deprecated so if
Thorsten is mean it will look totally different in the next beta. ;-)

Christoph

-- 
#macro X()function{#end#local Y=X()internal(35)}#local Z=X()internal(36)
}isosurface{X()-Y(Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient 99 rotate<
99,40>pigment{slope x color_map{[0rgb 9*x][1rgb 9*z]}}translate 3*z}//CH

Post a reply to this message

On Fri, 22 Mar 2002 15:49:53 +0100, Christoph Hormann <chr### [at] gmxde>
wrote:
> I think i have to show my version sometime too so here it is.

I couldn't resist :-)
One space saved and more obfuscated coding :-)

#macro i()function{internal(#end#macro _(Y,Z,k,c)isosurface{function{-Y(
Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient k rotate<k,40>pigment{slope
x color_map{[0c*x][1c*z]}}translate#end _(i()35)}i()36)}99rgb 9)3*z}//CH

btw: I think it could be enough space to not use internal token and build in
real equation :-)

ABX

Post a reply to this message

> 
> I couldn't resist :-)
> One space saved and more obfuscated coding :-)
> 
> #macro i()function{internal(#end#macro _(Y,Z,k,c)isosurface{function{-Y(
> Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient k rotate<k,40>pigment{slope
> x color_map{[0c*x][1c*z]}}translate#end _(i()35)}i()36)}99rgb 9)3*z}//CH

Nice, but you have to admit that 1 space is really not much.  And it's
only achieved by placing a necessary whitespace at the line break.

The same macro modification shortens my version too:

isosurface{#macro X()function{internal(#end#local Y=X()35)}#local Z=X()
36)}function{-Y(Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient 99 rotate<99
,40>pigment{slope x color_map{[0rgb 9*x][1rgb 9*z]}}translate 3*z}//C.H.

NTL yours is really more obfuscated.

I somehow liked the

isosurface{X()-Y(Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}

in my first version though (it's not only obfuscated but also misleading).

> btw: I think it could be enough space to not use internal token and build in
> real equation :-)

I doubt this would fit in 4 lines, but it would definitely look
interesting...

Christoph

-- 
POV-Ray tutorials, IsoWood include,                 
TransSkin and more: http://www.tu-bs.de/~y0013390/  
Last updated 18 Mar. 2002 _____./\/^>_*_<^\/\.______

Post a reply to this message

bob h <omn### [at] charternet> wrote:
> sphere_sweep{b_spline 20<-2,-2,4>.1<-2,-1,4>.15<-1.5,1,4>.1<0,0,4>.1
> <-2,0,4>.1<0,-1,4>.1<-2.5,-1,4>.1<-.5,-1,4>.1,<0,0,4>.1<1,-.5,4>.1
> <0,-1,4>.1<-.5,-.5,4>.1<0,0,4>.1<1,-1,4>.1<1.5,-.25,4>.1<2,0,4>.1
> <2,-.75,4>.1<1,-1,4>.1<1.5,1,4>.1<1.5,1,4>.1pigment{rgb 9}}//v3.5

  Couldn't resist:

sphere_sweep{b_spline 20<-2,-2>.1<-2,-1>.15<-1.5,1>.1,0,.1x*-2,.1,-y.1<
-2.5,-1>.1<-.5,-1>.1,0,.1<1,-.5>.1,-y.1<-.5,-.5>.1,0,.1x-y.1<1.5,-.25>.1
x*2,.1<2,-.75>.1x-y.1<1.5,1>.1<1.5,1>.1pigment{rgb 9}translate z*4}//v3.5



-- 
#macro M(A,N,D,L)plane{-z,-9pigment{mandel L*9translate N color_map{[0rgb x]
[1rgb 9]}scale<D,D*3D>*1e3}rotate y*A*8}#end M(-3<1.206434.28623>70,7)M(
-1<.7438.1795>1,20)M(1<.77595.13699>30,20)M(3<.75923.07145>80,99)// - Warp -

Post a reply to this message

Well, I changed this a lot, and it isn't exactly what I wanted, but it's
pretty tight for what it does (I think).  Although, somebody more familiar

still read the same.

Cheers!

Chip Shults
My robotics, space and CGI web page - http://home.cfl.rr.com/aichip

#macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro
N(a,c)
#local k=1;#while(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end#local
c=int(c/2);#local
k=k+1;#end#end light_source{0rgb
1}N(1,61)N(0,37)N(-1,55)N(-2,4)N(-3,4)N(3,1)

Post a reply to this message

For some reason my settings were wrapping it at 76 characters... looks like
junk.  I have corrected that.

Cheers!

Chip Shults
My robotics, space and CGI web page - http://home.cfl.rr.com/aichip

#macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(a,c)
#local k=1;#while(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end#local  c=int(c/2);#local
k=k+1;#end#end light_source{0rgb 1}N(1,61)N(0,37)N(-1,55)N(-2,4)N(-3,4)N(3,1)

Post a reply to this message

Sir Charles W. Shults III <aic### [at] cflrrcom> wrote:
> #macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(a,c)
> #local k=1;#while(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end#local  c=int(c/2);#local
> k=k+1;#end#end light_source{0rgb 1}N(1,61)N(0,37)N(-1,55)N(-2,4)N(-3,4)N(3,1)

#macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(c,k,
a)#if(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end N(int(c/2)k+1a)#end#end light_source
{0rgb 1}N(61,1,1)N(37,1,0)N(55,1,-1)N(4,1,-2)N(4,1,-3)N(1,1,3)


-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message

Very nice recursive call!  Also, I see that the middle term of each call is
1, so that could also be pulled out, true?

Cheers!

Chip Shults
My robotics, space and CGI web page - http://home.cfl.rr.com/aichip

Post a reply to this message

Ah ah, very neat means of creating the variable- no #declare or #local- my
hat is off to you.

Cheers!

Chip Shults
My robotics, space and CGI web page - http://home.cfl.rr.com/aichip

Post a reply to this message