tests/bugs/modalg_2/bug535

   1 #INTERFACE IGES
   2 puts "======="
   3 puts "OCC535"
   4 puts "======="
   5 puts ""
   6 #############################################################
   7 ## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
   8 ## with help command "nbs" is increased.
   9 #############################################################
  10
  11 pload XDE
  12
  13 restore [locate_data_file OCC535.brep] a
  14
  15 set nb_info_a [nbshapes a]
  16 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
  17
  18 fixshape result a
  19
  20 set nb_info_res [nbshapes result]
  21 regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
  22
  23 puts ""
  24 puts [format "before Shapes = %s     after Shapes = %s" $r1 $r2]
  25 puts ""
  26
  27 if { $r1 == $r2 } {
  28     puts "OCC535 OK"
  29 } else {
  30     puts "OCC535 Faulty"
  31 }
  32
  33 set square 3554.31
  34 set 2dviewer 0