e67e482d |
1 | puts "========" |
2 | puts "OCC27648" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Regression vs 6.7.1: General Fuse operation fails to fuse the solids |
7 | ################################################# |
8 | |
9 | restore [locate_data_file bug27648_simple.brep] s |
10 | explode s |
11 | bsection r s_1 s_2 |
12 | explode s_2 f |
13 | |
14 | # find section edge belonging to the face s_2_3 |
15 | foreach e [explode r e] { |
16 | if {[catch {mk2dcurve c2d $e s_2_3}] == 0} { |
17 | break |
18 | } |
19 | } |
20 | |
21 | mkcurve c $e |
22 | |
23 | # in a loop, check that curve has increased Z value along its length |
24 | set delta 0.001 |
25 | cvalue c 0 xp yp zp |
26 | for {set p 0} {$p <= 1} {set p [expr $p + $delta]} { |
27 | cvalue c $p x y z |
28 | if {[dval z] < [dval zp]} { |
29 | puts "Error on parameter $p" |
30 | } |
31 | copy z zp |
32 | } |