tests/bugs/modalg_6/bug21670

   1 puts "========"
   2 puts "OCC21670"
   3 puts "========"
   4 puts ""
   5 ###################################
   6 # BOP section produces bad result
   7 ###################################
   8
   9 smallview
  10
  11 restore [locate_data_file bug21633_SECC19_1_IZQ.brep] a
  12
  13 explode a f
  14 mksurface s a_1
  15 mkface f s
  16
  17 restore [locate_data_file bug21670-bug_prj_wire.brep] w
  18
  19 explode w
  20 prism p w_1 0 0 -1
  21
  22 donly f p
  23 fit
  24
  25 puts "Checking f: [bopcheck f] [checkshape f] [tolerance f]"
  26 puts "Checking p: [bopcheck p] [checkshape p] [tolerance p]"
  27
  28 bsection result f p
  29
  30 set bug_info [explode result]
  31 if {[llength $bug_info] != 1} {
  32   puts "ERROR: OCC21670 is reproduced. Result of bsection command is set of shapes."
  33 }
  34
  35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png