1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
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
|
