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

puts "================"
puts "OCC24643"
puts "================"
puts ""
#######################################################################
# No section curve between plane and cone
#######################################################################

restore [locate_data_file bug24643_b1.brep] b1
restore [locate_data_file bug24643_b2.brep] b2

bopcurves b1 b2

regexp {The length c_1 is ([-0-9.+eE]+)} [length c_1] full Curve_Length

set expected_length 107.39085794960783
set tol_abs_length 1.e-3
set tol_rel_length 0.01
checkreal "Curve length" ${Curve_Length} ${expected_length} ${tol_abs_length} ${tol_rel_length}

set log [dump c_1]
if {[regexp {Trimmed +curve} ${log}]} {
  puts "OK: section curve is good"
} else {
  puts "Error: section curve is bad"
}

smallview
donly c_1 b1 b2
fit

set only_screen_axo 1
Commit	Line	Data
db005e48	1	puts "================"
	2	puts "OCC24643"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# No section curve between plane and cone
	7	#######################################################################
	8
	9	restore [locate_data_file bug24643_b1.brep] b1
	10	restore [locate_data_file bug24643_b2.brep] b2
	11
	12	bopcurves b1 b2
	13
	14	regexp {The length c_1 is ([-0-9.+eE]+)} [length c_1] full Curve_Length
	15
	16	set expected_length 107.39085794960783
	17	set tol_abs_length 1.e-3
	18	set tol_rel_length 0.01
	19	checkreal "Curve length" ${Curve_Length} ${expected_length} ${tol_abs_length} ${tol_rel_length}
	20
	21	set log [dump c_1]
	22	if {[regexp {Trimmed +curve} ${log}]} {
	23	puts "OK: section curve is good"
	24	} else {
	25	puts "Error: section curve is bad"
	26	}
	27
	28	smallview
	29	donly c_1 b1 b2
	30	fit
	31
	32	set only_screen_axo 1