faff3767 |
1 | puts "============" |
2 | puts "0031478: Visualization, TKOpenGl - allow uploading Cubemap in compressed DDS format when supported by GPU" |
3 | puts "============" |
4 | puts "" |
5 | |
ba562b2b |
6 | # PBR doesn't work with Compatible Profile on macOS |
7 | if { $::tcl_platform(os) == "Darwin" } { vcaps -core } |
8 | |
faff3767 |
9 | set aCubeMapPNG [locate_data_file cubemap_labels.png] |
10 | set aCubeMapDDS [locate_data_file cubemap_labels.dds] |
11 | |
12 | box b 1 2 3 |
13 | psphere s 1 |
14 | |
15 | vclear |
16 | vinit View1 -w 512 -h 512 |
17 | vcamera -fovy 100 |
18 | vzbufftrihedron |
19 | #vdisplay -dispMode 1 b |
20 | vdisplay -dispMode 1 s |
21 | vfit |
22 | |
23 | vrenderparams -shadingModel pbr |
24 | vbackground -cubemap $aCubeMapPNG -invertedz |
25 | vdump $imagedir/${casename}_png.png |
26 | |
27 | vbackground -cubemap $aCubeMapDDS -invertedz |
28 | vdump $imagedir/${casename}_dds.png |