tests/bugs/modalg_7/bug28354

   1 puts "TODO OCC28354 ALL: Error: Filleting destroys shape if the filleted edge touches a seam edge"
   2
   3 puts "============"
   4 puts "OCC28354"
   5 puts "============"
   6 puts ""
   7 ###################################################################
   8 # Filleting destroys shape if the filleted edge touches a seam edge
   9 ###################################################################
  10
  11 #pcylinder cylinder 4 8
  12 #box box -5 -8 4 10 10 10
  13 #
  14 #bcut res cylinder box
  15 #
  16
  17 restore [locate_data_file bug28354.brep] res
  18
  19 explode res e
  20
  21 blend result_1 res 1.5 res_9
  22 set Log_1 [whatis result_1]
  23 if {[regexp "shape" ${Log_1}] != 1} {
  24     puts "Error: Filleting destroys shape"
  25 }
  26 checkview -display result_1 -2d -path ${imagedir}/${test_image}-1.png
  27
  28 catch {blend result_2 res 2.2 res_9}
  29 set Log_2 [whatis result_2]
  30 if {[regexp "shape" ${Log_2}] != 1} {
  31     puts "Error: Filleting destroys shape if the filleted edge touches a seam edge"
  32 }
  33 checkview -display result_2 -2d -path ${imagedir}/${test_image}-2.png