tests/bugs/vis/bug137_2

   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 top face should be highlighted."
  30
  31 vselmode 4 1
  32
  33 OCC137 1
  34
  35 set x_coord 105
  36 set y_coord 100
  37
  38 QAMoveTo $x_coord $y_coord
  39 QAMoveTo $x_coord $y_coord
  40
  41 QAUpdateLights
  42
  43 checkcolor $x_coord $y_coord 0 1 1
  44
  45 set x_coord 105
  46 set y_coord 340
  47
  48 checkcolor $x_coord $y_coord 0.78 0.54 0.09
  49
  50 set only_screen 1