0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26193
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
51 checkview -screenshot -2d -path ${imagedir}/${test_image}.png