tests/bugs/modalg/bug140

   1
   2 puts "================"
   3 puts "OCC140"
   4 puts "================"
   5 puts ""
   6 #########################################################
   7 ## Fillet is created incorrectly on attached shape.
   8 #########################################################
   9
  10 restore [locate_data_file shading_137.brep] s
  11 puts [checkshape s]
  12
  13 dset SCALE1 5
  14 tscale s 0 0 0 SCALE1
  15 explode s e
  16 blend sh s  4.5*SCALE1 s_4  4.5*SCALE1 s_5  4.5*SCALE1 s_1
  17 explode sh so
  18
  19 renamevar sh_1 result
  20 fsameparameter result
  21
  22 set square 3.65424e+06
  23 set 2dviewer 0