# mental ray scene file from "Writing mental ray shaders"
# http://www.writingshaders.com/scene_catalog.html

verbose on

link "square.so"
$include "square.mi"
link "lambert.so"
$include "lambert.mi"
link "hair_geo_curl.so"
$include "hair_geo_curl.mi"
link "hair_color_light.so"
$include "hair_color_light.mi"
link "sinusoid_soft_spotlight.so"
$include "sinusoid_soft_spotlight.mi"

options "opt"
    object space
    contrast .1 .1 .1 1
    scanline rapid
    shadow on
    shadowmap detail
    samples collect 5
    filter mitchell 4
end options
 

light "light"
  "sinusoid_soft_spotlight" (
	"light_color"  1 1 1,
	"inner_spread" .93
    )
    origin -2 2 2
    direction 2 -2 -2
    spread .75
    shadowmap detail
    shadowmap samples 16
    shadowmap detail samples 4
    shadowmap resolution 1024
    shadowmap softness .01
end light

instance "light-inst" "light" end instance

material "diffuse"
    "lambert" ( 
	"diffuse" .95 .95 1,
        "lights" ["light-inst"]
    )
end material

material "hair_light"
    "hair_color_light" (
        "lights" ["light-inst"],
        "diffuse" .4 .5 .3,
        "specular" .6 .6 .3,
	"root_opacity" 1,
        "tip_opacity" .9,
    )
    shadow "hair_color_light" (
        "diffuse" .45 .5 .4,
	"root_opacity" 1,
        "tip_opacity" .5
    )
end material

instance "hair-instance"
    geometry 
        "hair_geo_curl" (
	    "name" "::hair",
	    "count" 200,
	    "root_radius" .04,
	    "tip_radius" .0001,
	    "center" 0 .3 0,
	    "length_min" .6,
	    "length_max"  .85,
            "spiral_turns_min" .5,
	    "spiral_turns_max" 1.5,
	    "spiral_radius_min" .02,
	    "spiral_radius_max" .03
        )
    material "hair_light"
end instance


camera "cam"
    output "rgba" "tif"
        "geometry_13.tif"
    focal 1.5
    aperture 1
    aspect 1
    resolution 350 350
end camera

instance "camera-instance" "cam"
    transform 
        0.928477 -0.007426 0.371316 0.0 
        0.0 0.99980 0.019996 0.0 
        -0.371391 -0.018566 0.928291 0.0 
        0.0 -0.246099 -2.698043 1.0 
end instance

instance "square-1"
    geometry "bw_square" ()
    material "diffuse"
    transform 
        0.010 0.0 0.0 0.0 
        0.0 -0.0 -1.0 0.0 
        0.0 0.010 -0.0 0.0 
        0.0 -0.0 -0.50 1.0 
    tag 1
    globillum on
    globillum 3
end instance

instgroup "root"
    "camera-instance"
    "light-inst" "hair-instance"    "square-1" 
end instgroup

render "root" "camera-instance" "opt"