/* a brilliant-cut gem.
 * Eli Brandt 7/92 
 * (rayshade4)
 */

eyep 6 .5 3.5
up 0 0 1
lookp 0 0 0
fov 10

background 0 .2 .4
light .3 ambient
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 diamond
	diffuse .1 .1 .1
	specular 1 1 1
	specpow 40
	index 2.42
	transp .9
	reflect .2
	extinct .95

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


define r1 1.4
define k1 0.333
define r3 3.125
define h1 1.2833
define h2 4.1
define theta 22.5
define s1 1.159798
define half .579899
define OtoB 1.51535
define BtoD 1.60965
define BtoH 0.53655
define OtoH 2.1462
define OtoC 2.32303
define HtoC 0.888985
define c_z -0.427767
define d_x 2.88712
define d_y 1.195886
define e_x 1.64263027
define e_y (e_x)

name tri1
	triangle  (r1) (-half) 0   (OtoC) 0 ((c_z)-.08)   (r1) (half) 0

name kite
	polygon (r1) (half) 0
		(OtoC) 0 (c_z)
		(d_x) (d_y) (-h1)
		(e_x) (e_y) (c_z)

name tri2
	triangle  (OtoC) 0 (c_z)   (r3) 0 (-h1)   (d_x) (d_y) (-h1)

name bottri
	triangle  (r3) 0 (-h1)   0 0 (-h2)   (d_x) (d_y) (-h1)

name facetgroup list
	object tri1
	object kite
	object tri2
	object tri2   scale 1 -1 1
	object bottri
	object bottri   scale 1 -1 1
end

name facetgroup2 list
	object facetgroup
	object facetgroup
	  rotate 0 0 1  45
end

name facetgroup3 list
	object facetgroup2
	object facetgroup2
	  rotate 0 0 1  90
end

/* gem w/ old-style diamond cut, origin in center, facing z-wards.
 * diameter 1; z from -.45 to .21
 * (actually, the bottom is not right, as I couldn't see it well)
 */
name oldcut_gem list
	polygon	(r1) (-half) 0	 (r1) (half) 0
		(half) (r1) 0	 (-half) (r1) 0
		(-r1) (half) 0	 (-r1) (-half) 0
		(-half) (-r1) 0	 (half) (-r1) 0
	object facetgroup3
	object facetgroup3
	  rotate 0 0 1  180
end translate 0 0 (h1)
    scale .16 .16 .16

name oldcut_drill1 list
	object bottri
	object bottri
	  scale 1 -1 1
end

name oldcut_drill2 list
	object oldcut_drill1
	object oldcut_drill1
	  rotate 0 0 1  45
end

name oldcut_drill3 list
	object oldcut_drill2
	object oldcut_drill2
	  rotate 0 0 1  90
end

define x1 3.125
define y1 0
define x2 2.8871235
define y2 1.1958857
define x3 2.2097087
define y3 (x3)
/*  color silver and subtract from the material in which gem is to be set
 */
name oldcut_driller list
	polygon	(x1)  (y1)  (-h1)
		(x2)  (y2)  (-h1)
		(x3)  (y3)  (-h1)
		(y2)  (x2)  (-h1)
		(y1)  (x1)  (-h1)
		(-y2) (x2)  (-h1)
		(-x3) (x3)  (-h1)
		(-x2) (y2)  (-h1)
		(-x1) (y1)  (-h1)
		(-x2) (-y2) (-h1)
		(-x3) (-x3) (-h1)
		(-y2) (-x2) (-h1)
		(y1)  (-x1) (-h1)
		(y2)  (-x2) (-h1)
		(x3)  (-x3) (-h1)
		(x2)  (-y2) (-h1)		
	object oldcut_drill3
	object oldcut_drill3
	  rotate 0 0 1  180
end translate 0 0 (h1)
    scale .16 .16 .16
    translate 0 0 .001

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

list
	difference
		box greenstuff -.6 -.6 -3.1  .6 .6 0
		applysurf silver
		object oldcut_driller
	end

	object diamond oldcut_gem
end rotate 0 0 1  10