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 | |
10 | if {[array get env os_type] != ""} { |
11 | set os $env(os_type) |
12 | } |
13 | |
14 | if { [string compare $os "windows"] == 0 } { |
15 | set aFile C:/temp/bug23193_sample.stl |
16 | } else { |
17 | set aFile /tmp/bug23193_sample.stl |
18 | } |
19 | |
bba05040 |
20 | file delete ${aFile} |
9ced84ff |
21 | if { [file exists ${aFile}] } { |
22 | puts "Error : There is old ${aFile} file" |
23 | } |
24 | |
25 | vinit |
26 | stepread [locate_data_file bug23193_sample.stp] a * |
27 | writestl a_1 ${aFile} 0 |
28 | catch {exec chmod 777 ${aFile}} |
29 | |
30 | meshfromstl m1 ${aFile} |
31 | meshcolors m1 elem2 1 |
32 | QARotateV3dView 4 0 0 1 |
33 | vfit |
34 | |
35 | set color [QAGetPixelColor 189 236] |
36 | regexp {RED +: +([-0-9.+eE]+)} $color full rd |
37 | regexp {GREEN +: +([-0-9.+eE]+)} $color full gr |
38 | regexp {BLUE +: +([-0-9.+eE]+)} $color full bl |
39 | |
40 | set a [expr $bl*10] |
41 | set bl_1 [expr round($a)] |
42 | |
43 | if { $rd != 0 || $gr != 0 || $bl_1 != 7 } { |
44 | puts "Error : Color are not equal. There is missing triangle" |
45 | } |
46 | |
47 | set 3dviewer 2 |
48 | |
49 | |
50 | |
51 | |