5b9e1842 |
1 | puts "========" |
2 | puts "OCC26193" |
3 | puts "========" |
4 | puts "" |
5 | ##@@########################### |
6 | # Incomplete intersection curve |
7 | ############################### |
8 | |
9 | restore [locate_data_file OCC26193_qfv.brep] q |
10 | explode q |
11 | copy q_1 b1 |
12 | copy q_2 b2 |
13 | |
14 | explode b1 e |
15 | |
16 | set NbVertGood 8 |
17 | |
18 | bsection rr b1 b2 |
19 | |
20 | set lst [checksection rr] |
21 | set i 1 |
22 | while {$i} { |
23 | if {[regexp "is a shape VERTEX" [whatis alone_$i]]} { |
24 | distmini dd1 alone_$i b1_1 |
25 | distmini dd2 alone_$i b1_3 |
26 | |
27 | set dd1 [dval dd1_val] |
28 | set dd2 [dval dd2_val] |
29 | |
30 | set dist [expr min( $dd1, $dd2 ) ] |
31 | |
32 | if {$dist > 1.0e-7} { |
33 | puts "Error: Vertex alone_$i is not on boundary" |
34 | } |
35 | |
36 | incr i |
37 | } else { |
38 | break |
39 | } |
40 | } |
41 | |
42 | set NbVertFound [expr $i-1] |
43 | |
44 | if {$NbVertFound != $NbVertGood} { |
45 | puts "Error: $NbVertFound found but $NbVertGood expected" |
46 | } |
47 | |
48 | smallview |
49 | donly b1 b2 rr |
50 | fit |
5747059b |
51 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |