tests/bugs/mesh/bug25479

   1 puts "========="
   2 puts "CR25479"
   3 puts "========="
   4 puts ""
   5 ###############################################
   6 # BRepTools::Clean() cleans all edge polygons, even related to different shapes
   7 ###############################################
   8
   9 restore [locate_data_file bug25469_common_edge.brep] a
  10
  11 tclean a
  12 incmesh a 0.004
  13
  14 explode a
  15
  16 incmesh a_1 0.04
  17 set report [tricheck a_1]
  18 if {$report != ""} {
  19    puts "Error: incorrect meshing of shape"
  20 }
  21
  22 tclean a_2
  23 set report [tricheck a_1]
  24 if {$report != ""} {
  25    puts "Error: cleaning mesh of shape 2 corrupts mesh of shape 1"
  26 }
  27
  28 vinit
  29 vsetdispmode 1
  30 vdisplay a_1 a_2
  31 vfit
  32
  33 set only_screen 1