tests/bugs/vis/bug137_5

   1 puts "========================"
   2 puts "OCC137"
   3 puts "========================"
   4 ###############################################################
   5 #Patch description:
   6 #
   7 #MIT010717 : 3D selection management
   8 #>>>     MIT010717 : Selection management
   9 #
  10 #        * Package OpenGl (OpenGl_execstruct.c)
  11 #
  12 #          @ Avoid drawing quality problem on selected face,
  13 #            enable/disable Z offset on highlighted faces.
  14 #
  15 #>>>     MIT010717 : drawing management
  16 #
  17 #        * Package OpenGl (OpenGl_indexpolygon.c, ...)
  18 #
  19 #          @ Avoid to undraw faces with confused points
  20 ###############################################################
  21 puts "========================"
  22
  23 vinit
  24 box b 10 10 10
  25 vdisplay b
  26 vfit
  27 vsetdispmode 1
  28
  29 puts "Only bottom face should be highlighted."
  30
  31 OCC137 1
  32 OCC137_z
  33
  34 vselmode 4 1
  35
  36 set x_coord 105
  37 set y_coord 350
  38
  39 QAMoveTo $x_coord $y_coord
  40 QAMoveTo $x_coord $y_coord
  41 QAUpdateLights
  42
  43 set x_coord 105
  44 set y_coord 340
  45
  46 checkcolor $x_coord $y_coord 0 1 1
  47
  48 QASetViewCharac 60.6309 7.07107 4.08248 0.592163 -0.60038 -0.537482 0.369921 -0.390032 0.843228 -3.28175 3.38875 3.0464
  49 set x_coord 105
  50 set y_coord 340
  51
  52 checkcolor $x_coord $y_coord 0.78 0.54 0.09
  53
  54 set only_screen 1