0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug26028
1 puts "============="
2 puts "Drawing mesh as closed object."
3 puts "============="
4 puts ""
5
6 pload XDE
7
8 set aMeshFile [locate_data_file sh1.stl]
9
10 vclear
11 vinit View1
12 vaxo
13
14 meshfromstl  m0 "$aMeshFile"
15 vsetdispmode m0 2
16
17 vsetlocation -noupdate m0 -100 0 0
18 meshfromstl m1 "$aMeshFile"
19 meshcolors  m1 elem1 0
20 vsetlocation -noupdate m1    0 0 0
21
22 meshfromstl m2 "$aMeshFile"
23 meshcolors  m2 elem2 0
24 vsetlocation -noupdate m2  100 0 0
25
26 meshfromstl m3 "$aMeshFile"
27 meshcolors  m3 nodal 1
28 vsetlocation -noupdate m3    0 0 100
29
30 meshfromstl m4 "$aMeshFile"
31 meshcolors  m4 nodaltex 1
32 vsetlocation -noupdate m4  100 0 100
33 vfit
34
35 vclipplane create p
36 vclipplane change p equation 0 1 0 0
37 vclipplane change p capping on
38 vclipplane change p capping color 0.9 0.9 0.9
39 vclipplane set    p view Driver1/Viewer1/View1
40
41 for {set i 0} {$i < 5} {incr i} { meshclosed m$i 0 }
42 vdump ${imagedir}/${casename}_open.png
43
44 for {set i 0} {$i < 5} {incr i} { meshclosed m$i 1 }
45 set aColor0 [vreadpixel 125 200 rgb name]
46 set aColor1 [vreadpixel 225 300 rgb name]
47 set aColor2 [vreadpixel 325 325 rgb name]
48 set aColor3 [vreadpixel 225 150 rgb name]
49 set aColor4 [vreadpixel 325 200 rgb name]
50
51 # note that aColor2 is not expected to be capped
52 if { "$aColor0" != "GRAY72" || "$aColor1" != "GRAY72" || "$aColor2" == "GRAY72" || "$aColor3" != "GRAY72" || "$aColor4" != "GRAY72" } {
53   puts "Error: capping color does not match"
54 }
55
56 vdump ${imagedir}/${casename}_closed.png