tests/bugs/moddata_3/bug32

   1 puts "================"
   2 puts "OCC32"
   3 puts "================"
   4 puts ""
   5 #######################################################
   6 ## Standard_ConstructionError in Algo of the BRepFilletAPI_MakeChamfer
   7 #######################################################
   8
   9 restore [locate_data_file OCC31.brep] sh
  10 checkshape sh
  11
  12 explode sh f
  13 explode sh_1 e
  14
  15 if [catch {chamf res sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45} inf] {
  16     if { [regexp "No suitable edges to chamfer" $inf] != 1 } {
  17         puts "OK. Chamfer was not build. But suitable message was given"
  18     }
  19     renamevar res result
  20 } else {
  21     checkshape res
  22     explode res f
  23     explode res_1 e
  24     #But before chamfer two edges (res_1_4, res_1_5) union should be to make one arc
  25     catch {chamf result res res_1_4 res_1 5 5} info
  26
  27     if { [regexp "No suitable edges to chamfer" $info] != 1 } {
  28         puts "Warning. Chamfer was not build. But suitable message was given"
  29     } else {
  30         checkshape result
  31         checkprops result -s 10
  32     }
  33 }
  34 checkview -display result -2d -path ${imagedir}/${test_image}.png
  35
  36
  37