> > I tried to make it small. What is typical sig size?
> > 80 chars a line and so many lines?
>
> it is good to have less then 80 chars (78, 76) in 4 lines

#declare R=.8;#declare S=1;#declare T=.7;#declare I=1;union{blob{threshold T
#while(I<=5)sphere{<-I,1,10>,R,S}sphere {<-I,-1,10>,R,S}#declare I=I+1;#end
sphere{<-5,0,10>,R,S}}blob{threshold T sphere{<5,1,10>,R,S}sphere{<5,0,10>,R
,S} sphere{<3,0,10>,R,S}sphere{<1,0,10>,R,S}sphere{<1,1,10>,R,S}#declare I=1
;#while(I<=5)sphere{<I,-1,10>,R,S}#declare I=I + 1;#end} pigment{rgb 10.0}}

One line too long :(

> be carefull - in next post I will post my version of your sig
> if you prefer own fun with adjusting then don't look there :-)

Well considering I'm such a novice with macros I might have a look
Should be fun! :)

Corey

Post a reply to this message

wrote:
> be carefull - in next post I will post my version of your sig
> if you prefer own fun with adjusting then don't look there :-)

#macro _(C,W)sphere{20*<C,W,10>,16,1}#end blob{threshold.7_(-5,0)_(5,1)_(5,0)
_(3,0)_(1,0)_(1,1)#local I=5;#while(I)_(I,-1)#local I=I-1;_(-I-1,1)_(-I-1,-1)
#end pigment{rgb 9}}

probably can be shorten in hands of Warp or Ron or somebody else.

ABX

Post a reply to this message

wrote:
> probably can be shorten in hands of Warp or Ron or somebody else...

or even in my own - two spaces shorten

blob{threshold#macro _(C,W)sphere{20*<C,W,10>,16,1pigment{rgb 9}}#end.7_(-5,0
)_(5,1)_(5,0)_(3,0)_(1,0)_(1,1)#local I=5;#while(I)_(I,-1)#local I=I-1;_(-I-1
,1)_(-I-1,-1)#end}

ABX

Post a reply to this message

news:5lam9ugp70l9a8136abg2qae98kq4n96a8@4ax.com...

<abx### [at] babilonorg>
> wrote:
> > probably can be shorten in hands of Warp or Ron or somebody else...
>
> or even in my own - two spaces shorten
>
> blob{threshold#macro _(C,W)sphere{20*<C,W,10>,16,1pigment{rgb
9}}#end.7_(-5,0
> )_(5,1)_(5,0)_(3,0)_(1,0)_(1,1)#local I=5;#while(I)_(I,-1)#local
I=I-1;_(-I-1
> ,1)_(-I-1,-1)#end}

WOW! I thought this was beyond all understanding untill I spaced it out like
this:

blob{
  threshold

  #macro _(C,W)
    sphere{20*<C,W,10>,16,1 pigment{rgb 9} }
  #end.7_(-5,0)_(5,1)_(5,0)_(3,0)_(1,0)_(1,1)

  #local I=5;
  #while(I)_(I,-1)
    #local I=I-1;_(-I-1,1)_(-I-1,-1)
  #end
}

 I'm not gonna tell you how long I was looking for the _ operator in the
help files :)

Corey

Post a reply to this message

> blob{threshold#macro _(C,W)sphere{20*<C,W,10>,16,1pigment{rgb 9}}#end.7_(-5,0
> )_(5,1)_(5,0)_(3,0)_(1,0)_(1,1)#local I=5;#while(I)_(I,-1)#local I=I-1;_(-I-1
> ,1)_(-I-1,-1)#end}

blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{threshold#macro _(W,
C)sphere{20*<C,W,10>16,1pigment{rgb 9}}#end.7_(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_
(1,1)L(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

On 22 Mar 2002 11:04:32 -0500, Warp <war### [at] tagpovrayorg> wrote:
> blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{threshold#macro _(W,
> C)sphere{20*<C,W,10>16,1pigment{rgb 9}}#end.7_(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_
> (1,1)L(5)}

blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{#macro _(W,C)sphere{
20*<C,W,10>20,1}#end _(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_(1,1)L(5)}background{1}

:-)

ABX

Post a reply to this message

> blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{#macro _(W,C)sphere{
> 20*<C,W,10>20,1}#end _(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_(1,1)L(5)}background{1}

  That's not the same image anymore...

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

On 22 Mar 2002 11:25:19 -0500, Warp <war### [at] tagpovrayorg> wrote:
> > blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{#macro _(W,C)sphere{
> > 20*<C,W,10>20,1}#end _(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_(1,1)L(5)}background{1}
>
>  That's not the same image anymore...

blob{threshold#macro _(s,i,g)#if(s)sphere{20*(i-<5,1,-10>)16,1pigment{rgb 9}}
_(s-1i+g,g)#end#end.7_(4x,x)_(2,0y)_(5y*2x)_(5x*6x)_(3<6,1>2*x)_(2<6,2>4*x)}

:-)

ABX

Post a reply to this message

news:s0pm9uo6tvflm5hkdabolm1d1l323cem8l@4ax.com...
> On 22 Mar 2002 11:25:19 -0500, Warp <war### [at] tagpovrayorg> wrote:
> > > blob#macro L(I)#if(I)_(-1I)_(1,-I)_(-1,-I)L(I-1)#end#end{#macro
_(W,C)sphere{
> > > 20*<C,W,10>20,1}#end
_(0,-5)_(1,5)_(0,5)_(0,3)_(0,1)_(1,1)L(5)}background{1}
> >
> >  That's not the same image anymore...
>
> blob{threshold#macro _(s,i,g)#if(s)sphere{20*(i-<5,1,-10>)16,1pigment{rgb
9}}
>
_(s-1i+g,g)#end#end.7_(4x,x)_(2,0y)_(5y*2x)_(5x*6x)_(3<6,1>2*x)_(2<6,2>4*x)}

I  have a questions about #end.7 Does that mean the macro returns .7 or does
putting the entire macro between threshold and .7 just a way of deleteing a
sapce?

Corey

Post a reply to this message

On Fri, 22 Mar 2002 22:11:19 -0500, "Corey Woodworth" <cdw### [at] mpinetnet>
wrote:
> I  have a questions about #end.7 Does that mean the macro returns .7 or does
> putting the entire macro between threshold and .7 just a way of deleteing a
> sapce?

None of above.
I have put it there to get favourite wrapping. This macro can be placed
anywhere before first call.

ABX

Post a reply to this message