/* a lousy little gem.
 * Eli Brandt 7/92 
 * (rayshade4)
 */

eyep 4 1 5
up 0 0 1
lookp 0 0 0
fov 35

background 0 .2 .4
light 1 directional -2 2 5
/*light 2 spot  0 0 10  0 0 0  5*/

maxdepth 5

surface dgray
	diffuse .3 .3 .3

surface lgray
	diffuse .7 .7 .7

surface greenstuff
	diffuse 0 .7 .3
	specular .4 .4 .4
	specpow 10

surface silver
	ambient 0.185 0.1825 0.175
	diffuse 0.5 0.45 0.35
	specular 0.8 0.8 0.8
	specpow 15
	reflect 0.5

surface ruby
	diffuse .2 0 0
	specular .8 .8 .8
	specpow 20
	body .9 .05 0
	reflect .2
	transp .9
	index 1.765
	extinct .95

surface redstuff
	diffuse .8 .2 .35
	specular .7 .7 .7
	specpow 10

/*  square-top gem.  origin in center, face +z.
 *  -1 to 1 in x, y; -1.33 to .667 in z.
 */
name small_gem grid 3 3 5
	poly  0 0 1  1 0 1   1 1 1   0 1 1	/* top facet		*/
	
	poly  0 0 1  0 -1 0  1 -1 0  1 0 1	/* side facets		*/
    triangle  1 0 1  1 -1 0  2 0 0
	poly  1 0 1  2 0 0   2 1 0   1 1 1
    triangle  1 1 1  2 1 0   1 2 0
	poly  1 1 1  1 2 0   0 2 0   0 1 1
    triangle  0 1 1  0 2 0   -1 1 0
	poly  0 1 1  -1 1 0  -1 0 0  0 0 1
    triangle  0 0 1  -1 0 0  0 -1 0

	triangle  0 -1 0   .5 .5 -2   1 -1 0	/* bottom facets	*/
	triangle  1 -1 0   .5 .5 -2   2 0 0
	triangle  2 0 0    .5 .5 -2   2 1 0
	triangle  2 1 0    .5 .5 -2   1 2 0
	triangle  1 2 0    .5 .5 -2   0 2 0
	triangle  0 2 0    .5 .5 -2   -1 1 0
	triangle  -1 1 0   .5 .5 -2   -1 0 0
	triangle  -1 0 0   .5 .5 -2   0 -1 0
end
  translate -.5 -.5 0
  scale .66667 .66667 .66667

/*  color silver and subtract from the material in which gem is to be set
 */
name small_gem_driller grid 3 3 2
	poly  0 -1 0   1 -1 0   2 0 0   2 1 0		/* ... */
	      1 2 0    0 2 0    -1 1 0  -1 0 0

	triangle  0 -1 0   .5 .5 -2   1 -1 0	/* bottom facets	*/
	triangle  1 -1 0   .5 .5 -2   2 0 0
	triangle  2 0 0    .5 .5 -2   2 1 0
	triangle  2 1 0    .5 .5 -2   1 2 0
	triangle  1 2 0    .5 .5 -2   0 2 0
	triangle  0 2 0    .5 .5 -2   -1 1 0
	triangle  -1 1 0   .5 .5 -2   -1 0 0
	triangle  -1 0 0   .5 .5 -2   0 -1 0
end
  translate -.5 -.5 .001
  scale .66667 .66667 .66667

plane lgray 0 0 -3  0 0 1
  texture checker dgray
    translate 0 0 .1 

difference
	box greenstuff -1.5 -1.5 -3.1  1.5 1.5 0
	applysurf silver
	object small_gem_driller
end

object ruby small_gem