0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26208
CommitLineData
5b9e1842 1puts "========"
2puts "OCC26208"
3puts "========"
4puts ""
5##@@###########################
6# Incomplete intersection curve. [Episode 2]
7###############################
8
9restore [locate_data_file OCC26208_qf.brep] q
10explode q
11copy q_1 b1
12copy q_2 b2
13
14explode b2 e
15
16set NbVertGood 4
17
18bsection rr b1 b2
19
20set lst [checksection rr]
21set i 1
22while {$i} {
23 if {[regexp "is a shape VERTEX" [whatis alone_$i]]} {
24 distmini dd1 alone_$i b2_1
25 distmini dd2 alone_$i b2_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
42set NbVertFound [expr $i-1]
43
44if {$NbVertFound != $NbVertGood} {
45 puts "Error: $NbVertFound found but $NbVertGood expected"
46}
47
48smallview
49donly b1 b2 rr
50fit
5747059b 51checkview -screenshot -2d -path ${imagedir}/${test_image}.png