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 set only_screen_axo 1