// Persistence Of Vision raytracer version 3.1g isosurface patch with HyperFun
// sample file.
// This image contains an example of 'isosurface'.

#include "colors.inc"
#include "metals.inc" 
#include "shapes.inc"

camera {
   up<0,1,0>
   right<-1.33,0,0>
   location <30, 10, 100>
   direction <0, 0,  2.5>
   look_at <0,10,0>
}

light_source {<50, 70,  150> color White}
background {color Black}

object{
   Plane_XZ
   texture{
        pigment{
                //checker color White, color Black
                color red 1 green 0.1 blue 0.1
                scale 4
        }
   }
   translate -10*y
}
object{
   Plane_XY
   texture{
        pigment{
                color red 0.2 green 0.2 blue 0.2                   
        }
   }
   translate -20*z
}


isosurface{
     function {"HyperFun", library "hyperfun","HF_program=Head.hf, HF_object=Bone, x=1, y=2, z=3", <0,0,0,0>}       
     bounded_by{ box {<-15, 0, -15>, <15, 30, 15>}} 
     accuracy 0.01
     sign -1
     eval
        
      texture {
        pigment{ crackle scale 1.5 
                color_map { [0.01 colour Black]
                            [0.05 colour White]
                            [1.00 colour White]
                }                                                
                
        }
        normal { crackle 0.6 scale 0.5 }
        finish{ phong 0.6 phong_size 200}
     }
     translate <-10, 0, 0>
}                               

isosurface{
     function {"HyperFun", library "hyperfun","HF_program=Body.hf, HF_object=Body, x=1, y=2, z=3", <0,0,0,0>}     
     bounded_by{ box {<-15, -10, -15>, <15, 10, 15>}} 
     accuracy 0.01
     sign -1
     eval
     
     texture {
        pigment{ crackle scale 1.5 
                color_map { [0.01 colour Black]
                            [0.05 colour White]
                            [1.00 colour White]
                }                                                
                
        }
        normal { crackle 0.6 scale 0.5 }
        finish{ phong 0.6 phong_size 200}
     }
     translate <-10, 0, 0>
}     

isosurface{
     function {"HyperFun", library "hyperfun","HF_program=Head.hf, HF_object=Bone, x=1, y=2, z=3", <0,0,0,0>}   
     bounded_by{ box {<-15, 0, -15>, <15, 30, 15>}} 
     accuracy 0.01
     sign -1
     eval
     texture {
        T_Gold_4C
        finish {
                diffuse 1
                phong 0
                phong_size 0
                reflection 0
        }
     }
     translate <10, 0, 0>
}                               

isosurface{
     function {"HyperFun", library "hyperfun","HF_program=Body.hf, HF_object=Body, x=1, y=2, z=3", <0,0,0,0>}
     bounded_by{ box {<-15, -10, -15>, <15, 10, 15>}} 
     accuracy 0.01
     sign -1
     eval
     texture {
        T_Gold_4C
        finish {
                diffuse 1
                phong 0
                phong_size 0
                reflection 0
        }
     }
     translate <10, 0, 0>
}