Here is the scene text:

//Wax letter seal by Wayne 2006
//wdecatur@yahoo.com
//adapted from Kenneth posting Subject: Re: Giving thickness to plane
surfaces and his stirred chocolate texture also posted
//in the povray newsgroups

camera {
  location  <0.0, 3.5, -5.0>
  direction 1.0*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}

light_source {
  <0, 0, 0>            // light's position (translated below)
  color rgb <1, 1, 1>  // light's color
  translate <-30, 30, -30>
}

// ----------------------------------------
#include "colors.inc"
plane {
  z, 2
  hollow
  pigment { White *2.2 }
  finish { ambient .5 }
}



#declare my_pigment_function_1 =
function{
 pigment{
  image_map{"crater.bmp" map_type 0 interpolate 2 once}
    scale 2.5
    rotate 90*x
    translate <-1.25,0,-1.25>
             }
                     }


//Here's POV's CELLS pattern turned into a function...
#declare my_pigment_function_2 =
function{
 pigment{
  cells scale .025
                     }
             }

# declare wax_seal_outer_iso = union {
 isosurface{
  function{y - my_pigment_function_1 (x,y,z).gray * .4}
max_gradient 2.8
 contained_by{sphere { <0, 0, 0>, 1.0 }}
 texture{
          pigment{color rgb <.9,.1,.08>*1.1}
          finish{
                ambient .15
                diffuse .35
                phong .35
                phong_size 14
                specular .9
                roughness .004
                }
            }
                                      }  }


#declare outer_wax_ring = difference {
object {wax_seal_outer_iso}
box { <-1, -1, -1>, <1, 0.2, 1> }
                        }


#declare my_seal_function_1 =
function{
 pigment{
  image_map{"my_seal.bmp" map_type 0 interpolate 2 once}
    scale 2.5
    rotate 90*x
    translate <-1.25,0,-1.25>
             }
                     }
# declare wax_seal_inner_iso = union {
 isosurface{
  function{y - my_seal_function_1 (x,y,z).gray * .4}
max_gradient 2.8
 contained_by{sphere { <0, 0, 0>, 1.0 }}
 texture{
          pigment{color rgb <.9,.1,.08>*1.1}
          finish{
                ambient .15
                diffuse .35
                phong .35
                phong_size 14
                specular .9
                roughness .004
                }
            }
                                      }  }


#declare main_wax_seal_piece = difference {
object {wax_seal_inner_iso}
box { <-1, -1, -1>, <1, 0.0, 1> }
bounded_by { sphere { <0, 0, 0>, 0.7 } }

}


union {
object {outer_wax_ring scale <1.0,0.6,1.0> }
object {main_wax_seal_piece scale <1,1,1> }
scale <1.2,1.2,1.2> rotate x*-45
}

Post a reply to this message