[occt.git] / tests / bugs / moddata_2 / bug3896

puts "TODO OCC11111 ALL: Faulty OCC3896"

puts "============"
puts "OCC3896"
puts "============"
puts ""
######################################################
# BRepCheck_Analyzer does not detect faulty faces in solid shape.
######################################################

#
# a_13 face is FORVARD (faulty), but checkshape command does not detect it
#

set BugNumber OCC3896

restore [locate_data_file OCC3896-pipe.brep] a 

explode a f
compound a_1 a_13 result

explode a_1 e
explode a_13 e

smallview
donly result
fit
r

normals result 200

puts "Normal of a_13 face is red (FORWARD)"

for {set i 1} {$i <= 14} {incr i} {
    whatis a_$i
}

decho off
set info_result [checkshape result]
decho on

if {[regexp {Faulty} $info_result] } {
    puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
} else {
    puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
}

set 2dviewer 0
Commit	Line	Data
61c421bf	1	puts "TODO OCC11111 ALL: Faulty OCC3896"
	2
	3	puts "============"
	4	puts "OCC3896"
	5	puts "============"
	6	puts ""
	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
	15	set BugNumber OCC3896
	16
	17	restore [locate_data_file OCC3896-pipe.brep] a
	18
	19	explode a f
	20	compound a_1 a_13 result
	21
	22	explode a_1 e
	23	explode a_13 e
	24
	25	smallview
	26	donly result
	27	fit
	28	r
	29
	30	normals result 200
	31
	32	puts "Normal of a_13 face is red (FORWARD)"
	33
	34	for {set i 1} {$i <= 14} {incr i} {
	35	whatis a_$i
	36	}
	37
	38	decho off
	39	set info_result [checkshape result]
	40	decho on
	41
	42	if {[regexp {Faulty} $info_result] } {
	43	puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
	44	} else {
	45	puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
	46	}
	47
	48	set 2dviewer 0