tests/bugs/modalg_4/bug625

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