5 ##@@###########################
6 # Incomplete intersection curve
7 ###############################
9 restore [locate_data_file OCC26193_qfv.brep] q
20 set lst [checksection rr]
23 if {[regexp "is a shape VERTEX" [whatis alone_$i]]} {
24 distmini dd1 alone_$i b1_1
25 distmini dd2 alone_$i b1_3
27 set dd1 [dval dd1_val]
28 set dd2 [dval dd2_val]
30 set dist [expr min( $dd1, $dd2 ) ]
33 puts "Error: Vertex alone_$i is not on boundary"
42 set NbVertFound [expr $i-1]
44 if {$NbVertFound != $NbVertGood} {
45 puts "Error: $NbVertFound found but $NbVertGood expected"
51 checkview -screenshot -2d -path ${imagedir}/${test_image}.png