this was a lot harder than I thought :-/

I had to make a polygon-clipping macro to make sure all edges were 
smooth.  My first try on this just used intersections, but the results 
were ugly and way too, well, CSG'ish :)
So now I'm subdividing polygons into smaller polygons, and using a 
roundprism() macro I found (still waiting for permission to use and 
redistribute it, so at the moment I can't give anyone this 
greeble-macro) for the smooth edges.

Things to do: well... add the greebling itself of course :)

cu!
-- 
#macro G(b,e)b+(e-b)*C/50#end#macro _(b,e,k,l)#local C=0;#while(C<50)
sphere{G(b,e)+3*z.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1;
#end#end _(y-x,y,x,x+y)_(y,-x-y,x+y,y)_(-x-y,-y,y,y+z)_(-y,y,y+z,x+y)
_(0x+y.5+y/2x)_(0x-y.5+y/2x)            // ZK http://www.povplace.com

Post a reply to this message

Attachments:
Download 'polygongreebles.jpg' (61 KB)

Preview of image 'polygongreebles.jpg'

Ooaahhh, I just like these greebles! Well done!

Sven

Post a reply to this message

"Sven Littkowski" <sve### [at] jamaica-focuscom> wrote in message 
news:446d0bf0$1@news.povray.org...
> Ooaahhh, I just like these greebles! Well done!

thanks :)  Still have to fine-tune and parameterize some aspects, but I 
think I'm getting there :)
and once this is done, I'm going to start on curved surfaces: spheres, 
cylinders, torii, and maybe, if I find out how, also bicubic_patches, 
although I think that's a bit too far fetched for me :)

cu!
-- 
#macro G(b,e)b+(e-b)*C/50#end#macro _(b,e,k,l)#local C=0;#while(C<50)
sphere{G(b,e)+3*z.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1;
#end#end _(y-x,y,x,x+y)_(y,-x-y,x+y,y)_(-x-y,-y,y,y+z)_(-y,y,y+z,x+y)
_(0x+y.5+y/2x)_(0x-y.5+y/2x)            // ZK http://www.povplace.com

Post a reply to this message

"Zeger Knaepen" <zeg### [at] povplacecom> wrote in message 
news:446d0e27@news.povray.org...

> thanks :)  Still have to fine-tune and parameterize some aspects, but I 
> think I'm getting there :)


Would you be willing to post a picture with some 'fake' greebles - just some 
spheres and boxes?  You mention how you haven't created them yet, but I'm 
interested to see how the distribution will look from this sort of approach.

- How

Post a reply to this message

"How Camp" <hac### [at] gmailcom> wrote in message 
news:446da332$1@news.povray.org...
> 
> "Zeger Knaepen" <zeg### [at] povplacecom> wrote in message 
> news:446d0e27@news.povray.org...
> 
> > thanks :)  Still have to fine-tune and parameterize some aspects, 
but I 
> > think I'm getting there :)
> 
> 
> Would you be willing to post a picture with some 'fake' greebles - 
just some 
> spheres and boxes?  You mention how you haven't created them yet, but 
I'm 
> interested to see how the distribution will look from this sort of 
approach.

oh, actually I was never really planning on making "real" greebles as 
you see it, always just "spheres and boxes" (or superellipoids, prisms, 
cylinders and spheres really :))

here is an image of how it looks.

It's not yet finished, there's a problem I can't find yet (although it's 
not visible in this image)

cu!
-- 
#macro G(b,e)b+(e-b)*C/50#end#macro _(b,e,k,l)#local C=0;#while(C<50)
sphere{G(b,e)+3*z.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1;
#end#end _(y-x,y,x,x+y)_(y,-x-y,x+y,y)_(-x-y,-y,y,y+z)_(-y,y,y+z,x+y)
_(0x+y.5+y/2x)_(0x-y.5+y/2x)            // ZK http://www.povplace.com

Post a reply to this message

Attachments:
Download 'polygongreebles-2.jpg' (86 KB)

Preview of image 'polygongreebles-2.jpg'

"Zeger Knaepen" <zeg### [at] povplacecom> wrote in message 
news:446dc105@news.povray.org...

> here is an image of how it looks.

Excellent work!  This is really exciting.  I worked on a greeble generator 
for a while, and eventually gave up because it was so slow.  Your method 
seems to produce great results with very little parsing.  Any (ballpark) 
idea what the parse time was for this image?

Looking forward to the final macro sets!

- How

Post a reply to this message

btw: what are your texture/lighting settings on that one?
Regards Roman

Post a reply to this message

"Zeger Knaepen" <zeg### [at] povplacecom> wrote in message
news:446dc105@news.povray.org...
> here is an image of how it looks.

Looking very nice.

Post a reply to this message

"How Camp" <hac### [at] gmailcom> wrote in message 
news:446dcf3b@news.povray.org...
> Excellent work!  This is really exciting.

thank you :)

> I worked on a greeble generator 
> for a while, and eventually gave up because it was so slow.  Your 
method 
> seems to produce great results with very little parsing.  Any 
(ballpark) 
> idea what the parse time was for this image?

let's see
parse time: 3 seconds
render time: 3 minutes 42 seconds

on an athlon xp 2500+ with 1GB RAM
 
> Looking forward to the final macro sets!

so am I actually :p :)

cu!
-- 
#macro G(b,e)b+(e-b)*C/50#end#macro _(b,e,k,l)#local C=0;#while(C<50)
sphere{G(b,e)+3*z.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1;
#end#end _(y-x,y,x,x+y)_(y,-x-y,x+y,y)_(-x-y,-y,y,y+z)_(-y,y,y+z,x+y)
_(0x+y.5+y/2x)_(0x-y.5+y/2x)            // ZK http://www.povplace.com

Post a reply to this message

"Roman Reiner" <lim### [at] gmxde> wrote in message 
news:web.446dd34618e64389b2631f1f0@news.povray.org...
> btw: what are your texture/lighting settings on that one?

try this:

-- begin code --
camera {
 location <0,4,-3>/3
 look_at z/4
}
light_source {<-150,500,500> rgb <1.5,1.4,1.3>}

#declare Kleur=<1,1,1>;
#declare Vuilkleur=<.8,.75,.7>;
#declare Gewoon_vuil=
texture {
 pigment {
  granite
  color_map {
   [0 rgb .2*Vuilkleur transmit .99]
   [1 rgb .1*Vuilkleur transmit .8]
  }
  rotate x*90
  translate -.5
  translate z*2
 }
 finish {ambient 0 diffuse .5}
}
#declare Gewoon_heel_vuil=
texture {
 pigment {
  granite
  color_map {
   [0 rgb .2*Vuilkleur transmit .99]
   [1 rgb .1*Vuilkleur transmit .6]
  }
  rotate x*90
  translate -.5
  //scale <4*6,1,3*6>
  translate z*2
 }
 finish {ambient 0 diffuse .5}
}

#declare Scar=
texture {
 pigment {
  crackle form <1,0,0>
  color_map {
   [0 rgbt <.1,.01,0,.8>]
   [.2 rgbt <.1,.01,0,1>]
  }
  scale .5
  turbulence .2
  lambda 3
  scale 4
 }
 normal {
  dents .1
 }
 finish {
  diffuse .5 ambient 0
 }
}

plane {y,0
 #declare BS=1.0000;
 texture {
 pigment {
  average
  pigment_map {
   [1
   cells
   pigment_map {
    [0 
     cells
     color_map {
      [0 rgb .8*Kleur]
      [1 rgb 1*Kleur]
     }
     scale .5
    ]
    [.4 
     cells
     color_map {
      [0 rgb .8*Kleur]
      [1 rgb 1*Kleur]
     }
     translate <.25,.5,.2>
    ]
   }
   scale 1
   ]
   [1
   cells
   color_map {
    [0 rgb .8*Kleur]
    [1 rgb 1*Kleur]
   }
   translate <.25,1.5,.2>
   scale 2
   translate <2.25,1.5,3.5>
   ]
  }
  scale .25
 }
 normal {
  average
  normal_map {
   [1
   cells
   normal_map {
    [0 
     cells
     bump_size .25*BS
     scale .5
    ]
    [.4 
     cells
     bump_size .2*BS
     translate <.25,.5,.2>
    ]
   }
   scale 1
   ]
   [1
   cells
   normal_map {
    [0 
     cells
     bump_size .25*BS
     scale .5
    ]
    [.4 
     cells
     bump_size .2*BS
     translate <.25,.5,.2>
    ]
   }
   scale .25
   ]
   [1
   cells
   bump_size .125*BS
   translate <.25,1.5,.2>
   scale 2
   translate <2.25,1.5,3.5>
   ]
  }
  scale .125/8
 }
 finish {ambient 0 diffuse 1 brilliance 3 specular 1 roughness .01 
metallic}
 scale 5
 }
 texture {Scar scale <.25,.25,1>}
 texture {Gewoon_vuil scale <.5,.25,1>} 
 texture {Gewoon_heel_vuil scale <.25,.125,.7>}
} 
-- end code --

cu!
-- 
#macro G(b,e)b+(e-b)*C/50#end#macro _(b,e,k,l)#local C=0;#while(C<50)
sphere{G(b,e)+3*z.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1;
#end#end _(y-x,y,x,x+y)_(y,-x-y,x+y,y)_(-x-y,-y,y,y+z)_(-y,y,y+z,x+y)
_(0x+y.5+y/2x)_(0x-y.5+y/2x)            // ZK http://www.povplace.com

Post a reply to this message