1puts "TODO OCC11111 ALL: Faulty OCC3896"
2
3puts "============"
4puts "OCC3896"
5puts "============"
6puts ""
7######################################################
8# BRepCheck_Analyzer does not detect faulty faces in solid shape.
9######################################################
10
11#
12# a_13 face is FORVARD (faulty), but checkshape command does not detect it
13#
14
15set BugNumber OCC3896
16
17restore [locate_data_file OCC3896-pipe.brep] a
18
19explode a f
20compound a_1 a_13 result
21
22explode a_1 e
23explode a_13 e
24
25smallview
26donly result
27fit
28r
29
30normals result 200
31
32puts "Normal of a_13 face is red (FORWARD)"
33
34for {set i 1} {$i <= 14} {incr i} {
35    whatis a_$i
36}
37
38set info_result [checkshape result]
39
40if {[regexp {Faulty} $info_result] } {
41    puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
42} else {
43    puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
44}
45
46checkview -display result -2d -path ${imagedir}/${test_image}.png
47