Hi everyone,
some time ago someone I do not remember the name posted images of a black
pearl with diamonds. It gave me the envy to try to texture a black pearl,
here is the result so far. It doesn't really looks like a black pearl, but
I do not have big ideas to improve it.
  The pearl is made of 8 concentric, almost black, transparent spheres with
normal, high diffraction, and different indices.

Post a reply to this message

Attachments:
Download 'pn4.jpg' (53 KB)

Preview of image 'pn4.jpg'

> Hi everyone,
> some time ago someone I do not remember the name posted images of a black
> pearl with diamonds. It gave me the envy to try to texture a black pearl,
> here is the result so far. It doesn't really looks like a black pearl, but
> I do not have big ideas to improve it.
>   The pearl is made of 8 concentric, almost black, transparent spheres with
> normal, high diffraction, and different indices.

looks pretty good ...
looks as if you didn't use just a sphere ...
but have some irregularities in the shape ...
which seems more realistic.
the original black pearl thread is here:
http://news.povray.org/povray.binaries.images/thread/%3C4357addf%241%40news.povray.org%3E/?ttop=220778&toff=50
which contains some of the texture code experiments.

post your texture code?

-ts-

Post a reply to this message

"ts" <nomail@nomail> wrote:

> looks as if you didn't use just a sphere ...

  that's the effect of normals.

> post your texture code?

#declare nc = 8 ; // number of levels
#declare ec =.003 ; // thickness of the levels
#declare ds = 12 ; // dispersion samples
#declare rd=seed(1) ;

#macro M_PerleNoire(n,decal) material {
  texture {
    pigment {rgbt <.2,.2,.2,.8>}
    finish {
      ambient .2 diffuse .4
      specular .23 roughness .04
      phong .2 phong_size 350
      brilliance 2
    }
    normal {
      bumps .3+rand(rd)*.1
      scale .4+rand(rd)*.1
      translate decal
    }
  }
  interior {
    ior 1+2*n/nc
    dispersion 10
    dispersion_samples ds
  }
}#end

#declare Perle = union {
  #local ip=0 ;
  #local dec = 0 ;
  #while(ip<nc)
    #local ip=ip+1 ;
    #local dec=dec+<rand(rd),rand(rd),rand(rd)>*ec*2 ;
    sphere {0 1-ec*(nc-ip) M_PerleNoire(ip,dec)}
  #end
}

Post a reply to this message

Looks good!  Think some photons would look nice too focusing the light from
the ring! Good job!

Post a reply to this message