9ced84ff |
1 | puts "============" |
2 | puts "OCC23193" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Some triangles are inverted when writing an STL file |
7 | ########################################################################### |
8 | pload QAcommands |
9 | |
9ced84ff |
10 | |
60874ff8 |
11 | set aFile $imagedir/bug23193_sample.stl |
9ced84ff |
12 | |
13 | vinit |
14 | stepread [locate_data_file bug23193_sample.stp] a * |
15 | writestl a_1 ${aFile} 0 |
9ced84ff |
16 | |
17 | meshfromstl m1 ${aFile} |
18 | meshcolors m1 elem2 1 |
4754e164 |
19 | vrotate 4 0 0 |
9ced84ff |
20 | vfit |
21 | |
f1aa2b62 |
22 | set x_coord 189 |
23 | set y_coord 236 |
9ced84ff |
24 | |
f1aa2b62 |
25 | checkcolor $x_coord $y_coord 0 0 0.7 |
9ced84ff |
26 | |
f1aa2b62 |
27 | if { ${stat} != 1 } { |
28 | puts "Error : There is missing triangle" |
9ced84ff |
29 | } |
30 | |
82cbc512 |
31 | set only_screen 1 |
9ced84ff |
32 | |
33 | |
34 | |
35 | |