65584001 |
1 | puts "========" |
2 | puts "0031302: Visualization, TKOpenGl - wrong tangent space calculation for normal maps" |
3 | puts "Test for tangent space orientation." |
4 | puts "========" |
5 | |
6 | pload XDE OCAF MODELING VISUALIZATION |
7 | |
ba562b2b |
8 | # PBR doesn't work with Compatible Profile on macOS |
9 | if { $::tcl_platform(os) == "Darwin" } { vcaps -core } |
10 | |
65584001 |
11 | vclear |
12 | vclose ALL |
13 | |
14 | vinit v -w 1024 -h 1024 |
15 | vcamera -persp |
16 | vbackground -cubemap [locate_data_file Circus_CubeMap_V.png] |
17 | vrenderparams -shadingModel PBR |
18 | |
19 | vlight -clear |
20 | vlight -add ambient |
21 | |
22 | catch { Close D } |
23 | ReadGltf D [locate_data_file bug31302_NormalTangentTest.gltf] |
24 | XDisplay -dispmode 1 D |
25 | |
26 | vfront |
27 | vfit |
28 | vdump $imagedir/${casename}_front.png |
29 | |
30 | vback |
31 | vdump $imagedir/${casename}_back.png |