1 puts "================"
3 puts "================"
5 #######################################################################
6 # No section curve between plane and cone
7 #######################################################################
9 restore [locate_data_file bug24643_b1.brep] b1
10 restore [locate_data_file bug24643_b2.brep] b2
14 regexp {The length c_1 is ([-0-9.+eE]+)} [length c_1] full Curve_Length
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}
22 if {[regexp {Trimmed +curve} ${log}]} {
23 puts "OK: section curve is good"
25 puts "Error: section curve is bad"