tests/bugs/modalg_6/bug28261

   1 puts "========"
   2 puts "OCC28261"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Chamfer fails on edges placed on quasi-planar cone
   7 #################################################
   8
   9 brestore [locate_data_file bug28261_face.brep] f
  10 brestore [locate_data_file bug28261_hexaprism.brep] h
  11
  12 explode f E
  13 mkcurve c f_1
  14 cvalue c 0 x y z dx dy dz
  15 revol rev f $x $y $z $dx $dy $dz 360
  16
  17 bcut r rev h
  18 savehistory hh
  19
  20 explode h f
  21 explode h_7 E
  22
  23 chamf r r h_7_1 0.1  h_7_2 0.1  h_7_3 0.1  h_7_4 0.1  h_7_5 0.1  h_7_6 0.1
  24
  25 explode rev f
  26 modified ff hh rev_1
  27 explode ff e
  28
  29 chamf result r ff_1 0.1  ff_2 0.1  ff_3 0.1  ff_4 0.1  ff_5 0.1  ff_6 0.1  ff_7 0.1
  30
  31 checkshape result
  32 checknbshapes result -solid 1 -face 27 -edge 54 -vertex 31
  33 checkprops result -v 17158.2 -s 4072.76 -deps 1.e-7
  34
  35 checkview -display result -2d -path ${imagedir}/${test_image}.png