// Persistence of Vision Ray Tracer Scene Description File
// File: glashart.pov
// Vers: 3
// Desc: Glass heart
// Date: 97.6
// Auth: Don Cowger and Bob Hughes
//  This .pov file by OuTpaTienT 1994  Don Cowger
//  contact:  Outpatient@ashram.com
//            or Outptient on AOL

global_settings {
max_trace_level 9
 }

#include "colors.inc"

sky_sphere	// evening
{
  pigment
  {
    gradient y
color_map { [0.0 color rgb<0.9,0.5,0.475>] [1.0 color rgb<0.2,0.45,0.65>] }
  }
}

#declare Loc1 = <-12, 2, -3.75>
#declare Loc2 = <-2, 2, -1.25>
#declare Loc3 = <7, 2, 1.25>
#declare Loc4 = <17, 2, 3.75>

light_source { Loc1 color Red }
light_source { Loc2 color Yellow }
light_source { Loc3 color Green }
light_source { Loc4 color Blue }

// 4 X 3 window and white pointlight and camera with variable positions
#declare LCX = 0.0
#declare LCY = 0.0
#declare LCZ = -55
// rotation vectors (adjust for varying placements)
#declare RLX = 15		#declare RCX = 30
#declare RLY = 5		#declare RCY = -5.5
#declare RLZ = 0		#declare RCZ = 0

light_source { <LCX,LCY,LCZ> color rgb 1
 rotate RLX*x rotate RLY*y rotate RLZ*z
}
camera
{
  location  <LCX,LCY,LCZ>
	rotate RCX*x rotate RCY*y rotate RCZ*z
  direction 1.5*z
  look_at   <1.5, 0, 0>
}

/*
// ******************************* SKY *********************************
sphere { <0, 0, 0> 500
       texture { pigment { granite //mandel 43
                      color_map { [ 0.0 color Black ]
                                  [ 0.1 color NewMidnightBlue filter .90 ]
				  [ 0.2  color MidnightBlue filter .80 ]
				  [ 0.3 color Gray70 filter .5 ]
				  [ 0.4  color Gray60 ]
                                  [ 0.5 color Gray50 ]
				  [ 0.6  color Gray40 ]
                                  [ 0.7 color Gray30 ]
				  [ 0.8 color White ]
                                  [ 0.9 color Clear ]
				  [ 1.0 color Clear ] }
                  frequency 1
//                  turbulence 0.05
		  scale 195
		  rotate <0, 0, -20>
                  rotate <-20, 5, 0> }
                 finish { ambient 1 }
		 normal { bumps .1 scale 50 }
                }
 }

sphere { <0, 0, 0> 75000
       texture { Bright_Blue_Sky
                  scale <7000, 3000, 7000>
		  rotate <0, 0, 0> }
                 finish { ambient 1 }
//no_shadow
 }
*/
// ****************************** GLASS HEART TEXTURE **********************
#declare Heart_texture = texture { pigment
			{color red 1 green 1 blue 1 filter 1}
    finish
     {ambient .125
      diffuse .1
      specular .8
      roughness .001
      phong 1 phong_size 200
      reflection .25
      refraction 1
      ior  1.35               //1.45
        }
   normal { bumps .05 scale 1/2 } scale 6
 }

// ******************************** HEART PARTS *************************
// CGS
#declare cyloid = merge { object { sphere { <0, 12, 0>, 10 } }
			  object { cylinder { <0, -12, 0>, <0, 12, 0>, 10 }}}
// Hemiheart
#declare hemi = intersection { object { cyloid
			                 rotate <0, 0, 40>
			                 translate <-0.125, 0, 0> }
		               object {
                                      box { <-22, -24, -22> <0, 24, 22> } } }

#declare Heart = merge { object { hemi }
		         object { hemi rotate <0, 180, 0> }
			rotate <0, 180, 0>
			scale .33333 }

//************************************* HEARTS ************************

object { Heart texture { Heart_texture
				pigment { color LaserRed filter .5 transmit .5 }}
        translate Loc1}
object { Heart texture { Heart_texture
				pigment { color LaserYellow filter .5 transmit .5 } }
//	scale 0.825
        translate Loc2 }
object { Heart texture { Heart_texture
				pigment { color LaserGreen filter .5 transmit .5 } }
//	scale 0.60
        translate Loc3 }
object { Heart texture { Heart_texture
				pigment { color LaserBlue filter .5 transmit .5 } }
//	scale 0.50
        translate Loc4 }