1puts "========"
2puts "OCC26193"
3puts "========"
4puts ""
5##@@###########################
6# Incomplete intersection curve
7###############################
8
9restore [locate_data_file OCC26193_qfv.brep] q
10explode q
11copy q_1 b1
12copy q_2 b2
13
14explode b1 e
15
16set NbVertGood 8
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 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
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
51checkview -screenshot -2d -path ${imagedir}/${test_image}.png
52