0031999: Tests - request Core Profile on macOS for Ray-Tracing tests
[occt.git] / samples / tcl / pathtrace_materials.tcl
1 # Script demonstrating Global illumination materials
2 # using path tracing rendering engine in 3D view
3
4 #Category: Visualization
5 #Title: Path tracing - Materials
6
7 set aBallPath [locate_data_file occ/Ball.brep]
8
9 pload MODELING VISUALIZATION
10 # Ray-Tracing doesn't work with Compatible Profile on macOS
11 if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
12
13 # Setup 3D viewer
14 vclear
15 vinit name=View1 w=512 h=512
16 vglinfo
17 vvbo 0
18 vsetdispmode 1
19
20 # Restore exported shapes
21 restore $aBallPath Ball0
22 restore $aBallPath Ball1
23 restore $aBallPath Ball2
24 restore $aBallPath Ball3
25 restore $aBallPath Ball4
26 restore $aBallPath Ball5
27 restore $aBallPath Ball6
28 restore $aBallPath Ball7
29 restore $aBallPath Ball8
30
31 # Create chessboard-style floor
32 box tile 10 10 0.1
33 eval compound [lrepeat 144 tile] tiles
34 explode tiles
35 for {set i 0} {$i < 12} {incr i} {
36   for {set j 1} {$j <= 12} {incr j} {
37     ttranslate tiles_[expr 12 * $i + $j] [expr $i * 10 - 90] [expr $j * 10 - 70] -0.15
38     vdisplay -noupdate tiles_[expr 12 * $i + $j]
39
40     vsetmaterial -noupdate tiles_[expr 12 * $i + $j] plaster
41
42     if {($i + $j) % 2 == 0} {
43       vbsdf tiles_[expr 12 * $i + $j] -kd 0.85
44     } else {
45       vbsdf tiles_[expr 12 * $i + $j] -kd 0.45
46     }
47   }
48 }
49
50 # Setup object 'Ball1'
51 vdisplay Ball1
52 vsetmaterial Ball1 Brass
53 vbsdf Ball1 -Kc 0 0 0
54 vbsdf Ball1 -Kd 0.272798 0.746262 0.104794
55 vbsdf Ball1 -Ks 0.253738 0.253738 0.253738
56 vbsdf Ball1 -Kt 0 0 0
57 vbsdf Ball1 -baseRoughness 0.045
58 vbsdf Ball1 -coatRoughness 0
59 vbsdf Ball1 -Le 0 0 0
60 vbsdf Ball1 -absorpColor 0 0 0
61 vbsdf Ball1 -absorpCoeff 0
62 vbsdf Ball1 -coatFresnel Constant 0
63 vbsdf Ball1 -baseFresnel Schlick 0.58 0.42 0.2
64 vlocation Ball1 -rotation 0 0 0 1
65 vlocation Ball1 -location 10 0 0
66
67 # Setup object 'Ball2'
68 vdisplay Ball2
69 vsetmaterial Ball2 Brass
70 vbsdf Ball2 -Kc 0 0 0
71 vbsdf Ball2 -Kd 0.8 0.8 0.8
72 vbsdf Ball2 -Ks 0 0 0
73 vbsdf Ball2 -Kt 0 0 0
74 vbsdf Ball2 -baseRoughness 0
75 vbsdf Ball2 -coatRoughness 0
76 vbsdf Ball2 -Le 2.02 0.171915 0.171915
77 vbsdf Ball2 -absorpColor 0 0 0
78 vbsdf Ball2 -absorpCoeff 0
79 vbsdf Ball2 -coatFresnel Constant 0
80 vbsdf Ball2 -baseFresnel Constant 1
81 vlocation Ball2 -rotation 0 0 0 1
82 vlocation Ball2 -location 10 40 0
83
84 # Setup object 'Ball3'
85 vdisplay Ball3
86 vsetmaterial Ball3 Glass
87 vbsdf Ball3 -Kc 1 1 1
88 vbsdf Ball3 -Kd 0 0 0
89 vbsdf Ball3 -Ks 0 0 0
90 vbsdf Ball3 -Kt 1 1 1
91 vbsdf Ball3 -baseRoughness 0
92 vbsdf Ball3 -coatRoughness 0
93 vbsdf Ball3 -Le 0 0 0
94 vbsdf Ball3 -absorpColor 0.75 0.95 0.9
95 vbsdf Ball3 -absorpCoeff 0.05
96 vbsdf Ball3 -coatFresnel Dielectric 1.62
97 vbsdf Ball3 -baseFresnel Constant 1
98 vlocation Ball3 -rotation 0 0 0 1
99 vlocation Ball3 -location -30 -40 0
100
101 # Setup object 'Ball4'
102 vdisplay Ball4
103 vsetmaterial Ball4 Brass
104 vbsdf Ball4 -Kc 0 0 0
105 vbsdf Ball4 -Kd 0 0 0
106 vbsdf Ball4 -Ks 0.985 0.985 0.985
107 vbsdf Ball4 -Kt 0 0 0
108 vbsdf Ball4 -baseRoughness 0
109 vbsdf Ball4 -coatRoughness 0
110 vbsdf Ball4 -Le 0 0 0
111 vbsdf Ball4 -absorpColor 0 0 0
112 vbsdf Ball4 -absorpCoeff 0
113 vbsdf Ball4 -coatFresnel Constant 0
114 vbsdf Ball4 -baseFresnel Schlick 0.58 0.42 0.2
115 vlocation Ball4 -rotation 0 0 0 1
116 vlocation Ball4 -location -70 -40 0
117
118 # Setup object 'Ball5'
119 vdisplay Ball5
120 vsetmaterial Ball5 Glass
121 vbsdf Ball5 -Kc 1 1 1
122 vbsdf Ball5 -Kd 0 0 0
123 vbsdf Ball5 -Ks 0 0 0
124 vbsdf Ball5 -Kt 1 1 1
125 vbsdf Ball5 -baseRoughness 0
126 vbsdf Ball5 -coatRoughness 0
127 vbsdf Ball5 -Le 0 0 0
128 vbsdf Ball5 -absorpColor 0 0.288061 0.825532
129 vbsdf Ball5 -absorpCoeff 0.3
130 vbsdf Ball5 -coatFresnel Dielectric 1.62
131 vbsdf Ball5 -baseFresnel Constant 1
132 vlocation Ball5 -rotation 0 0 0 1
133 vlocation Ball5 -location -30 0 0
134
135 # Setup object 'Ball6'
136 vdisplay Ball6
137 vsetmaterial Ball6 Brass
138 vbsdf Ball6 -Kc 1 1 1
139 vbsdf Ball6 -Kd 0 0.716033 0.884507
140 vbsdf Ball6 -Ks 0.115493 0.115493 0.115493
141 vbsdf Ball6 -Kt 0 0 0
142 vbsdf Ball6 -baseRoughness 0.045
143 vbsdf Ball6 -coatRoughness 0
144 vbsdf Ball6 -Le 0 0 0
145 vbsdf Ball6 -absorpColor 0 0 0
146 vbsdf Ball6 -absorpCoeff 0
147 vbsdf Ball6 -coatFresnel Dielectric 1.5
148 vbsdf Ball6 -baseFresnel Schlick 0.58 0.42 0.2
149 vlocation Ball6 -rotation 0 0 0 1
150 vlocation Ball6 -location -30 40 0
151
152 # Setup object 'Ball7'
153 vdisplay Ball7
154 vsetmaterial Ball7 Brass
155 vbsdf Ball7 -Kc 1 1 1
156 vbsdf Ball7 -Kd 1e-06 9.9999e-07 9.9999e-07
157 vbsdf Ball7 -Ks 0.0479573 0.804998 0
158 vbsdf Ball7 -Kt 0 0 0
159 vbsdf Ball7 -baseRoughness 0.447
160 vbsdf Ball7 -coatRoughness 0
161 vbsdf Ball7 -Le 0 0 0
162 vbsdf Ball7 -absorpColor 0 0 0
163 vbsdf Ball7 -absorpCoeff 0
164 vbsdf Ball7 -coatFresnel Dielectric 1.5
165 vbsdf Ball7 -baseFresnel Schlick 0.58 0.42 0.2
166 vlocation Ball7 -rotation 0 0 0 1
167 vlocation Ball7 -location -70 0 0
168
169 # Setup object 'Ball8'
170 vdisplay Ball8
171 vsetmaterial Ball8 Aluminium
172 vbsdf Ball8 -Kc 0 0 0
173 vbsdf Ball8 -Kd 0 0 0
174 vbsdf Ball8 -Ks 0.985 0.985 0.985
175 vbsdf Ball8 -Kt 0 0 0
176 vbsdf Ball8 -baseRoughness 0.026
177 vbsdf Ball8 -coatRoughness 0
178 vbsdf Ball8 -Le 0 0 0
179 vbsdf Ball8 -absorpColor 0 0 0
180 vbsdf Ball8 -absorpCoeff 0
181 vbsdf Ball8 -coatFresnel Constant 0
182 vbsdf Ball8 -baseFresnel Schlick 0.913183 0.921494 0.924524
183 vlocation Ball8 -rotation 0 0 0 1
184 vlocation Ball8 -location -70 40 0
185
186 # Setup object 'Ball0'
187 vdisplay Ball0
188 vsetmaterial Ball0 Glass
189 vbsdf Ball0 -Kc 0 0 0
190 vbsdf Ball0 -Kd 0.723404 0.166229 0.166229
191 vbsdf Ball0 -Ks 0 0 0
192 vbsdf Ball0 -Kt 0 0 0
193 vbsdf Ball0 -baseRoughness 0
194 vbsdf Ball0 -coatRoughness 0
195 vbsdf Ball0 -Le 0 0 0
196 vbsdf Ball0 -absorpColor 0 0 0
197 vbsdf Ball0 -absorpCoeff 0
198 vbsdf Ball0 -coatFresnel Constant 0
199 vbsdf Ball0 -baseFresnel Constant 1
200 vlocation Ball0 -rotation 0 0 0 1
201 vlocation Ball0 -location 10 -40 0
202
203 # Restore view parameters
204 vcamera -perspective -fovy 25
205 vcamera -distance 238.089
206 vviewparams -proj 0.679219 -0.00724546 0.7339
207 vviewparams -up -0.733931 -0.00311795 0.679217
208 vviewparams -at -22.3025 0.0986351 3.30327
209 vviewparams -eye 139.412 -1.62643 178.037
210 vviewparams -size 170.508
211
212 # Restore light source parameters
213 vlight -clear
214 vlight -add ambient
215 vlight -add directional -direction -0.303949 -0.434084 -0.848048 -smoothness 0.3 -intensity 12
216
217 # Load environment map
218 vtextureenv on 1
219
220 puts "Trying path tracing mode..."
221 vrenderparams -ray -gi -rayDepth 10
222
223 # Start progressive refinement mode
224 #vprogressive
225
226 puts "Make several path tracing iterations to refine the picture, please wait..."
227 vfps 512
228 puts "Done. To improve the image further, or after view manipulations, give command:"
229 puts "vfps \[nb_iteratons\] or vrepaint -continuous"