09951da2 |
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 |
5d7a0489 |
25 | trinfo a_1 |
09951da2 |
26 | |
27 | vsetdispmode a_1 1 |
5d7a0489 |
28 | |
29 | checktrinfo a_1 -tri -nod |
09951da2 |
30 | |
ccadc126 |
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] |
09951da2 |
35 | |
36 | if { $rd == 0 || $gr == 0 || $bl == 0 } { |
37 | puts "Error : Face is not shaded (colors are not equal)" |
38 | } |
39 | |
5747059b |
40 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |