[occt.git] / tests / bugs / modalg_5 / bug24422

puts "================"
puts "OCC24422"
puts "================"
puts ""
#######################################################################
# Wrong result done by FaceClassifier algorythm
#######################################################################

restore [locate_data_file bug24422_Compound.brep] b 
explode b f
copy b_1 f

point p 115.945392440981 106 230.000108990528
point p_proj 230.00010899052799 1925.9453924409811
set info [b2dclassify f p_proj]

if { [regexp "The point is OUT of shape" $info] != 1  } {
    puts "Error : point should be ON shape"
} else {
    puts "OK: point is OUT of shape"
}

axo
fit
set only_screen_axo 1
Commit	Line	Data
73cd8a8a	1	puts "================"
	2	puts "OCC24422"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Wrong result done by FaceClassifier algorythm
	7	#######################################################################
	8
	9	restore [locate_data_file bug24422_Compound.brep] b
	10	explode b f
	11	copy b_1 f
	12
	13	point p 115.945392440981 106 230.000108990528
	14	point p_proj 230.00010899052799 1925.9453924409811
	15	set info [b2dclassify f p_proj]
	16
	17	if { [regexp "The point is OUT of shape" $info] != 1 } {
	18	puts "Error : point should be ON shape"
	19	} else {
	20	puts "OK: point is OUT of shape"
	21	}
	22
	23	axo
	24	fit
	25	set only_screen_axo 1
	26
	27