[occt.git] / tests / bugs / modalg_7 / bug28167

puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end"

puts "========"
puts "OCC28167"
puts "========"
puts ""
#####################################
# Fillet has strange form at its end
#####################################

restore [locate_data_file bug28167_solid.brep] s

explode s E

fillet r s 1 s_3

explode r F
explode r_6 E
renamevar r_6_1 res

regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1

set expected_length 1.31899
set toleranse 1.e-4
if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} {
   puts "Error: Fillet has strange form at its end"
}

checkview -display r_6 -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
9026dea8	1	puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end"
	2
	3	puts "========"
	4	puts "OCC28167"
	5	puts "========"
	6	puts ""
	7	#####################################
	8	# Fillet has strange form at its end
	9	#####################################
	10
	11	restore [locate_data_file bug28167_solid.brep] s
	12
	13	explode s E
	14
	15	fillet r s 1 s_3
	16
	17	explode r F
	18	explode r_6 E
	19	renamevar r_6_1 res
	20
	21	regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1
	22
	23	set expected_length 1.31899
	24	set toleranse 1.e-4
	25	if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} {
	26	puts "Error: Fillet has strange form at its end"
	27	}
	28
	29	checkview -display r_6 -2d -path ${imagedir}/${test_image}.png