Creating (and shortening) sigs seems to have come back into fashion so heres
an attempt I cooked up this evening

jim
--
#macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
#local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
rotate 360/N*i*z}#local i=i+1;#end//jim

Post a reply to this message

Attachments:
Download 'sig.jpg' (14 KB)

Preview of image 'sig.jpg'

On Fri, 14 Mar 2003 23:36:58 -0000, James Taylor wrote:

> #macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
> pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
> #local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
> rotate 360/N*i*z}#local i=i+1;#end//jim

#macro _(j,M)#while(j<M)cylinder{z*5y+5*z.1rotate 360/M*j*z pigment{rgb 2
*(3+z)/sqrt(j)}}#local j=j+1;#end#end#local i=0;#local N=20;_(1N)#while
(i<N)union{_(1N)translate 2*y rotate 360/N*i*z}#local i=i+1;#end//jim

-- 
light_source#macro G(E)sphere{z+E*y*5e-3.04rotate-z*E*6pigment{rgbt#end{
20*y-10#local n=162;1}#while(n)#local n=n-.3;G(n)x}}G(-n).7}}#end//GregE

Post a reply to this message

hmmm are these the same?  If its different can you guys post small images to
go along with it to show the difference?

> > #macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
> > pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
> > #local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
> > rotate 360/N*i*z}#local i=i+1;#end//jim
>
> #macro _(j,M)#while(j<M)cylinder{z*5y+5*z.1rotate 360/M*j*z pigment{rgb 2
> *(3+z)/sqrt(j)}}#local j=j+1;#end#end#local i=0;#local N=20;_(1N)#while
> (i<N)union{_(1N)translate 2*y rotate 360/N*i*z}#local i=i+1;#end//jim



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.461 / Virus Database: 260 - Release Date: 10/03/03

Post a reply to this message

On Sat, 15 Mar 2003 16:41:02 +1300, Aaron wrote:

> hmmm are these the same?  If its different can you guys post small images to
> go along with it to show the difference?
> 
>>> #macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
>>> pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
>>> #local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
>>> rotate 360/N*i*z}#local i=i+1;#end//jim
>>
>> #macro _(j,M)#while(j<M)cylinder{z*5y+5*z.1rotate 360/M*j*z pigment{rgb 2
>> *(3+z)/sqrt(j)}}#local j=j+1;#end#end#local i=0;#local N=20;_(1N)#while
>> (i<N)union{_(1N)translate 2*y rotate 360/N*i*z}#local i=i+1;#end//jim
> 
> 
> 
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.461 / Virus Database: 260 - Release Date: 10/03/03

Nope, the results are identical. I just shortened the code for ya!

Shaved off another byte:
#macro _(j,M)#while(j<M)cylinder{z*5y+5*z.1rotate 360/M*j*z pigment{rgb 2
*(3+z)/sqrt(j)}}#local j=j+1;#end#end#local i=0;#local N=20;_(1N)#while
(i<N)union{_(1N)translate y*2rotate 360/N*i*z}#local i=i+1;#end//jim

-- 
light_source#macro G(E)sphere{z+E*y*5e-3.04rotate-z*E*6pigment{rgbt#end{
20*y-10#local n=162;1}#while(n)#local n=n-.3;G(n)x}}G(-n).7}}#end//GregE

Post a reply to this message

> #macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
> pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
> #local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
> rotate 360/N*i*z}#local i=i+1;#end//jim

#macro _(j,i,m)#while(j)cylinder{z*5y+5*z.1rotate j*z*18translate
m*2rotate i*z*18pigment{rgb<.6.6.8>/sqrt(j)}finish{ambient 1}}#local
j=j-1;#end#if(i)_(19i-1m)#end#end _(19,0,0)_(19,19y)//jim

I tried to convert both loops to recursion, but pov's limits are
reached easily.

-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message

On Mon, 17 Mar 2003 12:41:04 +0100, Mark Weyer
<wey### [at] informatikuni-freiburgde> wrote:

> <.6.6.8>

.6+z/5

ABX

Post a reply to this message

> > <.6.6.8>
>
> .6+z/5
>
> ABX

Genuis! 8-0

Post a reply to this message

On Mon, 17 Mar 2003 17:12:02 -0000, "Andrew Coppin" <orp### [at] btinternetcom>
wrote:
> > > <.6.6.8>
> > .6+z/5
> > ABX
> Genuis! 8-0

Have to trust you, no such entry in my dictionary ;-)

ABX

Post a reply to this message

>><.6.6.8>
> 
> .6+z/5

But that was <.6.6.8>/sqrt(j), so shouldn't it be (.6+z/5)/sqrt(j),
saving no chars?

-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message

On Tue, 18 Mar 2003 10:56:25 +0100, Mark Weyer
<wey### [at] informatikuni-freiburgde> wrote:

> (.6+z/5)/sqrt(j)

(3+z)/5/sqrt(j)

:-)

ABX

Post a reply to this message