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

puts "========"
puts "OCC23927"
puts "========"
puts ""
######################################################################
# BRepProj_Projection produces Edge with one Vertex outside from curve
######################################################################

restore [locate_data_file bug23927_line.brep] line
restore [locate_data_file bug23927_surf.brep] surf

breducetolerance surf

prj p line surf 0.57735025882720947 -0.57735025882720947 0.57735025882720947

explode p_1 V

smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

explode line V

set tol_abs 0.001
set tol_rel 0

distmini d p_1_1 line_2
checkreal "Projection, p1" [dval d_val] 0 $tol_abs $tol_rel

distmini d p_1_2 line_1
checkreal "Projection, p2" [dval d_val] 0 $tol_abs $tol_rel
Commit	Line	Data
c2e47bdd	1	puts "========"
	2	puts "OCC23927"
	3	puts "========"
	4	puts ""
	5	######################################################################
	6	# BRepProj_Projection produces Edge with one Vertex outside from curve
	7	######################################################################
	8
	9	restore [locate_data_file bug23927_line.brep] line
	10	restore [locate_data_file bug23927_surf.brep] surf
	11
	12	breducetolerance surf
	13
	14	prj p line surf 0.57735025882720947 -0.57735025882720947 0.57735025882720947
	15
	16	explode p_1 V
	17
	18	smallview
	19	fit
	20	checkview -screenshot -2d -path ${imagedir}/${test_image}.png
	21
	22	explode line V
	23
	24	set tol_abs 0.001
	25	set tol_rel 0
	26
03cca6f7	27	distmini d p_1_1 line_2
c2e47bdd	28	checkreal "Projection, p1" [dval d_val] 0 $tol_abs $tol_rel
c2e47bdd	29
03cca6f7	30	distmini d p_1_2 line_1
c2e47bdd	31	checkreal "Projection, p2" [dval d_val] 0 $tol_abs $tol_rel