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
33
34
35
36
37
38
39
40
41
42
43
44
|
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
set only_screen_axo 1
|
