87180d3ad4884c36d5eb3a4e75ff3975f088f3ef
[occt.git] / tests / v3d / materials / ior
1 puts "========"
2 puts "0031284: Visualization - XCAFDoc_VisMaterialPBR lacks Index of Refraction"
3 puts "========"
4
5 pload MODELING XDE OCAF VISUALIZATION
6 # Ray-Tracing doesn't work with Compatible Profile on macOS
7 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
8
9 box b 0.5 1.0 -0.5 3 1 1
10 psphere s1 0.5
11 psphere s2 0.5
12 psphere s3 0.5
13 ttranslate s1 1 0 0
14 ttranslate s2 2 0 0
15 ttranslate s3 3 0 0
16 catch { Close D }
17 XNewDoc D
18 set l0 [XAddShape D b  0]
19 set l1 [XAddShape D s1 0]
20 set l2 [XAddShape D s2 0]
21 set l3 [XAddShape D s3 0]
22 XAddVisMaterial D m1 -baseColor GREEN -refractionIndex 1.0 -transparency 0.5 -metallic 0 -roughness 0
23 XAddVisMaterial D m2 -baseColor GREEN -refractionIndex 1.3 -transparency 0.5 -metallic 0 -roughness 0
24 XAddVisMaterial D m3 -baseColor GREEN -refractionIndex 2.5 -transparency 0.5 -metallic 0 -roughness 0
25 XSetVisMaterial D $l1 m1
26 XSetVisMaterial D $l2 m2
27 XSetVisMaterial D $l3 m3
28
29 vclear
30 vinit View1
31 vcamera -persp
32 vfront
33 XDisplay -dispMode 1 D
34 vfit
35 vviewparams -scale 245 -proj -0 -0.75 -0.66 -up 0 -0.66 0.75 -at 2.0 0.84 0.04
36 vlight -change 0 -intensity 2.5
37 vlight -change 1 -intensity 1.0
38 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
39 vbackground -cubemap $aCubeMap
40
41 vrenderparams -shadingModel PBR -raster
42 vdump $imagedir/${casename}_pbr.png
43
44 vrenderparams -raytrace -gi 0 -reflections 1 -rayDepth 10
45 vfps 200
46 vdump $imagedir/${casename}_rt.png
47
48 vrenderparams -raytrace -gi 1
49 vfps 200
50 vdump $imagedir/${casename}_pt.png