0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / iges / bug22888
1 puts "============"
2 puts "CR22888"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Wrong shape result imported from IGES file
7 #######################################################################
8 pload QAcommands
9
10 set x1 166
11 set y1 225
12
13 igesread [locate_data_file CR22888-data.igs] a *
14 if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } {
15     puts "Error : checkshape is faulty"
16 }
17
18 explode a f
19 vinit
20 vsetdispmode 0
21 vdisplay a_1
22 vfit
23 vzfit
24 tclean a_1
25 trinfo a_1
26
27 vsetdispmode a_1 1
28
29 checktrinfo a_1 -tri -nod
30
31 set color [vreadpixel ${x1} ${y1} rgb]
32 set rd [lindex $color 0]
33 set gr [lindex $color 1]
34 set bl [lindex $color 2]
35
36 if { $rd == 0 || $gr == 0 || $bl == 0 } {
37     puts "Error : Face is not shaded (colors are not equal)"
38 }
39
40 checkview -screenshot -3d -path ${imagedir}/${test_image}.png