Warp <war### [at] tagpovrayorg> wrote:
: light_source{0,1}#macro c(J,a)sphere{0,1scale a translate J+O}#end#macro B(R,
: V,O)c(0,4)intersection{c(V,R)difference{c(-z*4x+10)c(-z*4.1x+10)c(0<7.5,45,5>
: )}}#end union{B(12,0z*25)B(8y*4<0,12,50>)pigment{rgb z}}

  And as there's no need for scaling anymore, we can reduce the sig even
more:

light_source{0,1}#macro c(J,a)sphere{0,1pigment{rgb z}scale a translate J+O}
#end#macro B(R,V,O)c(0,4)intersection{c(V,R)difference{c(-z*4x+10)c(-z*4.1x+
10)c(0<7.5,45,5>)}}#end B(12,0z*25)B(8y*4<0,12,50>)


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