2 puts "0031284: Visualization - XCAFDoc_VisMaterialPBR lacks Index of Refraction"
5 pload MODELING XDE OCAF VISUALIZATION
6 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
8 box b 0.5 1.0 -0.5 3 1 1
17 set l0 [XAddShape D b 0]
18 set l1 [XAddShape D s1 0]
19 set l2 [XAddShape D s2 0]
20 set l3 [XAddShape D s3 0]
21 XAddVisMaterial D m1 -baseColor GREEN -refractionIndex 1.0 -transparency 0.5 -metallic 0 -roughness 0
22 XAddVisMaterial D m2 -baseColor GREEN -refractionIndex 1.3 -transparency 0.5 -metallic 0 -roughness 0
23 XAddVisMaterial D m3 -baseColor GREEN -refractionIndex 2.5 -transparency 0.5 -metallic 0 -roughness 0
24 XSetVisMaterial D $l1 m1
25 XSetVisMaterial D $l2 m2
26 XSetVisMaterial D $l3 m3
32 XDisplay -dispMode 1 D
34 vviewparams -scale 245 -proj -0 -0.75 -0.66 -up 0 -0.66 0.75 -at 2.0 0.84 0.04
35 vlight -change 0 -intensity 2.5
36 vlight -change 1 -intensity 1.0
37 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
38 vbackground -cubemap $aCubeMap
40 vrenderparams -shadingModel PBR -raster
41 vdump $imagedir/${casename}_pbr.png
43 if { ![string match "OpenGL ES 2.0*" [vglinfo VERSION]] && ![string match "OpenGL ES 3.0*" [vglinfo VERSION]] } {
44 vrenderparams -raytrace -gi 0 -reflections 1 -rayDepth 10
46 vdump $imagedir/${casename}_rt.png
48 vrenderparams -raytrace -gi 1
50 vdump $imagedir/${casename}_pt.png