#Display "raytrace" "framebuffer" "rgb"
Display "raydemo.tif" "tiff" "rgb"
Format 480 320 -1
Projection "perspective" "fov" [70]

PixelSamples 4 4
ShadingRate 2

Rotate 75 1 0 0
#fig.1,fig.2,fig.3
Translate 0 1.732 0.5
#fig.4
#Translate -0.4 1.732 0.5

WorldBegin

#fig.1
LightSource "pointlight" 1 "intensity" [1] "from" [0.75 -1.2 -1.5]
#fig.2
#LightSource "pointlight" 1 "intensity" [2] "from" [1 0 -1.732]
#fig.3
#LightSource "distantlight" 1 "intensity" [1] "from" [0 -1 -0.5] "to" [0 0 -0.5]
#fig.4
#LightSource "pointlight" 1 "intensity" [1.27] "from" [-1 1.5 -1.5]
#LightSource "pointlight" 1 "intensity" [0.84] "from" [1 -1.15 -1.732]


Declare "Ka" "float"
Declare "Kd" "float"
Declare "Ks" "float"
Declare "Kr" "float"
Declare "roughness" "float"

Declare "shd_sample" "float"
Declare "ray_sample" "float"
Declare "shd_switch" "string"
Declare "ray_switch" "string"
Declare "light_type" "string"
Declare "sphere_opacity" "color"
Declare "Kd_sphere" "float"
Declare "Ks_sphere" "float"
Declare "decay_shd_pow" "float"
Declare "decayshd_switch" "string"


AttributeBegin
Translate 0 0 -0.5
#Opacity 0.25 0.5 0.5    #fig.4
Color 1 0 0
#Surface "KTplastic" "roughness" [0.1] "Ks" [0.5] "Kd" [0]
#Surface "KTphong" "roughness" [0.1] "Ks" [0.5] "Kd" [0.5]
#Surface "matte"
Surface "plastic" "roughness" [0.1]      #fig1,2,3,4
#                    "Kd" [1] "Ks" [2] "Ka" [1]     #fig4
Sphere 0.5 -0.5 0.5 360
AttributeEnd

AttributeBegin
Color 1 1 1
#Surface "plastic" "Ks" [1] "roughness" [0.1] "Kd" [1]
#Surface "matte"
#Surface "KTenv" "texname" ["envtest"] "roughness" [0.1]
Surface "raydemo" "shd_sample" [4] "ray_sample" [4] "roughness" [0.1] 
                                    "shd_switch" ["on"] "ray_switch" ["on"]
#                                  "sphere_opacity" [0.25 0.5 0.5] "Kd_sphere" [1] "Ks_sphere" [2]     #fig.4
#                                        "decay_shd_pow" [1.5] "decayshd_switch" ["on"]      #fig.4
Patch "bilinear" "P" [-5 -5  0 5 -5 0 -5 5 0 5 5 0]
AttributeEnd

WorldEnd