tests/bugs/modalg_4/bug714

   1 #INTERFACE IGES
   2 puts "========"
   3 puts "OCC714"
   4 puts "========"
   5 puts ""
   6 ####################################################
   7 ## After command sew in DRAW on attached shape free wires are disappeared.
   8 ####################################################
   9
  10 puts "TODO OCC25593 ALL: Faulty shapes in variables faulty_1 to faulty_4"
  11
  12 restore [locate_data_file OCC714.brep] a
  13 checkshape a
  14
  15 set nb_info1 [nbshapes a]
  16 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
  17 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
  18 regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
  19
  20 sewing result 0.1 a
  21
  22 set nb_info2 [nbshapes a]
  23 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
  24 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
  25 regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
  26
  27 if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
  28     puts  [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
  29     puts  [format "                                                   vertexes after  %s, edges after  %s, wires after  %s" $ve1 $ed1 $we1]
  30 } else {
  31     puts "OK OCC714: SEWING operation was made PROPERLY"
  32 }
  33
  34 set square 12917.1
  35 set 2dviewer 0
  36