[occt.git] / tests / bugs / modalg_6 / bug26197

puts "=========="
puts "OCC26197"
puts "=========="
puts ""
############################################################
# Incomplete intersection curve
############################################################

restore [locate_data_file bug26197_profile_1093.brep] b1
restore [locate_data_file bug26197_endcut1_1093.brep] b2

explode b1 f
copy b1_107 f1

explode b2 f
copy b2_2 f2

bsection result f1 f2

explode result e
mk2dcurve c2d2 result_1 f2

bounds c2d2 u1 u2
puts [dval u1]
puts [dval u2]

2dcvalue c2d2 u1 x y1
2dcvalue c2d2 u2 x y2

set y1_ [dval y1]
set y2_ [dval y2]

set tol_abs 1.e-7
set tol_rel 1.e-7

#V-last of the surface of f2 face
set expected_y 1.1883793591414735

checkreal "extension the section line to the surface boundary?" ${y2_} ${expected_y} ${tol_abs} ${tol_rel}

smallview
donly result f1 f2
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
4753a6fc	1	puts "=========="
	2	puts "OCC26197"
	3	puts "=========="
	4	puts ""
	5	############################################################
	6	# Incomplete intersection curve
	7	############################################################
	8
	9	restore [locate_data_file bug26197_profile_1093.brep] b1
	10	restore [locate_data_file bug26197_endcut1_1093.brep] b2
	11
	12	explode b1 f
	13	copy b1_107 f1
	14
	15	explode b2 f
	16	copy b2_2 f2
	17
	18	bsection result f1 f2
	19
	20	explode result e
	21	mk2dcurve c2d2 result_1 f2
	22
	23	bounds c2d2 u1 u2
	24	puts [dval u1]
	25	puts [dval u2]
	26
	27	2dcvalue c2d2 u1 x y1
	28	2dcvalue c2d2 u2 x y2
	29
	30	set y1_ [dval y1]
	31	set y2_ [dval y2]
	32
	33	set tol_abs 1.e-7
	34	set tol_rel 1.e-7
	35
	36	#V-last of the surface of f2 face
	37	set expected_y 1.1883793591414735
	38
	39	checkreal "extension the section line to the surface boundary?" ${y2_} ${expected_y} ${tol_abs} ${tol_rel}
	40
	41	smallview
	42	donly result f1 f2
	43	fit
5747059b	44	checkview -screenshot -2d -path ${imagedir}/${test_image}.png