tests/bugs/iges/bug3936

   1 puts "========"
   2 puts "OCC3936"
   3 puts "========"
   4 puts ""
   5 #################################################################
   6 # Face on a surface of extrusion is extended after import to IGES
   7 #################################################################
   8
   9 set File1 [locate_data_file bug3936_tt.igs]
  10 set File2 ${imagedir}/bug3936_tt1.igs
  11 file delete -force ${File2}
  12
  13 igesbrep ${File1} a *
  14
  15 brepiges a ${File2}
  16
  17 igesbrep ${File2} a1 *
  18
  19 #
  20 ####
  21 #
  22 set area 191477.
  23
  24 set nbshapes_expected "
  25 Number of shapes in shape
  26  EDGE      : 4
  27  WIRE      : 1
  28  FACE      : 1
  29 "
  30 ##
  31 checkprops a -s ${area}
  32 checkshape a
  33 checknbshapes a -ref ${nbshapes_expected} -t -m "initial file"
  34 checkview -display a -2d -path ${imagedir}/${test_image}-initial.png
  35 ##
  36 checkprops a1 -s ${area}
  37 checkshape a1
  38 checknbshapes a1 -ref ${nbshapes_expected} -t -m "importing file"
  39 checkview -display a1 -2d -path ${imagedir}/${test_image}-importing.png