puts "========"
puts "0031284: Visualization - XCAFDoc_VisMaterialPBR lacks Index of Refraction"
puts "========"

pload MODELING XDE OCAF VISUALIZATION
if { $::tcl_platform(os) == "Darwin" } { vcaps -core }

box b 0.5 1.0 -0.5 3 1 1
psphere s1 0.5
psphere s2 0.5
psphere s3 0.5
ttranslate s1 1 0 0
ttranslate s2 2 0 0
ttranslate s3 3 0 0
Close D -silent
XNewDoc D
set l0 [XAddShape D b  0]
set l1 [XAddShape D s1 0]
set l2 [XAddShape D s2 0]
set l3 [XAddShape D s3 0]
XAddVisMaterial D m1 -baseColor GREEN -refractionIndex 1.0 -transparency 0.5 -metallic 0 -roughness 0
XAddVisMaterial D m2 -baseColor GREEN -refractionIndex 1.3 -transparency 0.5 -metallic 0 -roughness 0
XAddVisMaterial D m3 -baseColor GREEN -refractionIndex 2.5 -transparency 0.5 -metallic 0 -roughness 0
XSetVisMaterial D $l1 m1
XSetVisMaterial D $l2 m2
XSetVisMaterial D $l3 m3

vclear
vinit View1
vcamera -persp
vfront
XDisplay -dispMode 1 D
vfit
vviewparams -scale 245 -proj -0 -0.75 -0.66 -up 0 -0.66 0.75 -at 2.0 0.84 0.04
vlight -change 0 -intensity 2.5
vlight -change 1 -intensity 1.0
set aCubeMap [locate_data_file Circus_CubeMap_V.png]
vbackground -cubemap $aCubeMap

vrenderparams -shadingModel PBR -raster
vdump $imagedir/${casename}_pbr.png

if { ![string match "OpenGL ES 2.0*" [vglinfo VERSION]] && ![string match "OpenGL ES 3.0*" [vglinfo VERSION]] } {
  vrenderparams -raytrace -gi 0 -reflections 1 -rayDepth 10
  vfps 200
  vdump $imagedir/${casename}_rt.png

  vrenderparams -raytrace -gi 1
  vfps 200
  vdump $imagedir/${casename}_pt.png
}