5d96c80c4b8dff15b5df0fd238b47861a2e93f4c
[occt.git] / tests / v3d / glsl / pbr_spheres
1 puts "========"
2 puts "0030700: Visualization, TKOpenGl - support PBR Metallic-Roughness shading model"
3 puts "Spheres grid with different roughness values"
4 puts "========"
5
6 pload XDE OCAF MODELING VISUALIZATION
7 psphere s 0.35
8
9 catch { Close D }
10 XNewDoc D
11
12 # grid of spheres
13 set THE_UPPER 6
14 foreach i [list 0 3] {
15   set aPrefix ""
16   set aColor "GRAY80"
17   if { $i != 0 } {
18     set aPrefix "g_";
19     set aColor "CCB11D"
20   }
21   for { set m 0 } { $m <= $THE_UPPER } { incr m } {
22     for { set r 0 } { $r <= $THE_UPPER } { incr r } {
23       set aName ${aPrefix}m${m}r${r}
24       copy s $aName
25       ttranslate $aName ${r} ${i} ${m}
26       set aLab [XAddShape D $aName]
27       SetName D $aLab $aName
28       XAddVisMaterial D $aName -baseColor $aColor -metallic ${m}/$THE_UPPER -roughness ${r}/$THE_UPPER
29       XSetVisMaterial D $aLab $aName
30     }
31   }
32 }
33 XGetAllVisMaterials D
34
35 # labels
36 text2brep tm  "Metal"     -plane 0 -1 0 0 0 -1 -height 0.5 -pos -0.5 0  6.5 -halign left  -valign top -font monospace
37 text2brep tnm "Non-metal" -plane 0 -1 0 0 0 -1 -height 0.5 -pos -0.5 0 -0.5 -halign right -valign top -font monospace
38 text2brep ts  "Smooth"    -plane 0 -1 0 1 0  0 -height 0.5 -pos -0.5 0 -0.5 -halign left  -valign top -font monospace
39 text2brep tr  "Rough"     -plane 0 -1 0 1 0  0 -height 0.5 -pos  6.5 0 -0.5 -halign right -valign top -font monospace
40 set aLab [XAddShape D tm]
41 SetName D $aLab "Metal"
42 set aLab [XAddShape D tnm]
43 SetName D $aLab "Non-metal"
44 set aLab [XAddShape D ts]
45 SetName D $aLab "Smooth"
46 set aLab [XAddShape D tr]
47 SetName D $aLab "Rough"
48
49 vclear
50 vinit View1 -width 768 -height 768
51 vfront
52 vrenderparams -shadingModel PBR
53 vlight -change 0 -intensity 2.5
54 XDisplay -dispMode 1 D
55 vcamera -ortho
56 vfit
57 vlight -change 1 -intensity 0.0001
58 vdump $::imagedir/${::casename}_ortho0.png
59 vlight -change 1 -intensity 0.3
60 vdump $::imagedir/${::casename}_ortho30.png
61 vcamera -persp
62 vfit
63 vlight -change 1 -intensity 0.0001
64 vdump $::imagedir/${::casename}_persp0.png
65 vlight -change 1 -intensity 0.3
66 vdump $::imagedir/${::casename}_persp30.png
67
68 set aCubeMap [locate_data_file Circus_CubeMap_V.png]
69 vlight -change 1 -intensity 1
70 vbackground -cubemap $aCubeMap
71 vcamera -ortho
72 vdump $::imagedir/${::casename}_orthoenv.png
73 vcamera -persp
74 vdump $::imagedir/${::casename}_perspenv.png