tests/bugs/modalg_4/bug625

   1 puts "========================"
   2 puts "OCC625"
   3 puts "========================"
   4 puts ""
   5 ###############################################################################
   6 ## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
   7 ###############################################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file OCC625.brep] a
  12 checkshape a
  13
  14 vinit
  15 tclean a
  16 explode a e
  17
  18 blend res1 a 10 a_22 10 a_14
  19 blend result res1 10 a_17 10 a_4
  20 checkshape result
  21
  22 vinit
  23 vdisplay result
  24 vfit
  25 vsetdispmode result 1
  26
  27 set x_coord 116
  28 set y_coord 252
  29
  30 checkcolor $x_coord $y_coord 0.82 0.58 0.09
  31
  32 set square 19977
  33 set 3dviewer 1