0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug10781
1 puts "============"
2 puts "OCC10781"
3 puts "MeshVS is not sensitive to width of edges"
4 puts "============"
5 puts ""
6
7 set BugNumber OCC10781
8
9 pload XDE
10
11 vinit View1
12 vclear
13 vaxo
14
15 meshfromstl m [locate_data_file OMF6391_box.stl]
16
17 set aCoordX 206
18 set aCoordY 280
19
20 vmoveto $aCoordX $aCoordY
21
22 set aColor1px [vreadpixel $aCoordX $aCoordY rgb name]
23 if { "$aColor1px" != "BLACK" } {
24   puts "Error: BLACK color is expected at pixel ${aCoordX}x${aCoordY}"
25 }
26
27 mesh_edge_width m 6
28 set aColor5px [vreadpixel $aCoordX $aCoordY rgb name]
29 if { "$aColor5px" == "BLACK" } {
30   puts "Error: YELLOW color is expected at pixel ${aCoordX}x${aCoordY}"
31 }
32
33 checkview -screenshot -3d -path ${imagedir}/${test_image}.png