tests/bugs/vis/bug137_5

   1 puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
   2
   3 puts "========================"
   4 puts "OCC137"
   5 puts "========================"
   6 ###############################################################
   7 #Patch description:
   8 #
   9 #MIT010717 : 3D selection management
  10 #>>>     MIT010717 : Selection management
  11 #
  12 #        * Package OpenGl (OpenGl_execstruct.c)
  13 #
  14 #          @ Avoid drawing quality problem on selected face,
  15 #            enable/disable Z offset on highlighted faces.
  16 #
  17 #>>>     MIT010717 : drawing management
  18 #
  19 #        * Package OpenGl (OpenGl_indexpolygon.c, ...)
  20 #
  21 #          @ Avoid to undraw faces with confused points
  22 ###############################################################
  23 puts "========================"
  24
  25 vinit
  26 box b 10 10 10
  27 vdisplay b
  28 vfit
  29 vsetdispmode 1
  30
  31 puts "Only bottom face should be highlighted."
  32
  33 OCC137 1
  34 OCC137_z
  35
  36 vselmode 4 1
  37
  38 set x_coord 105
  39 set y_coord 350
  40
  41 QAMoveTo $x_coord $y_coord
  42 QAMoveTo $x_coord $y_coord
  43 QAUpdateLights
  44
  45 set x_coord 105
  46 set y_coord 340
  47
  48 checkcolor $x_coord $y_coord 0 1 1
  49
  50 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
  51 set x_coord 105
  52 set y_coord 340
  53
  54 checkcolor $x_coord $y_coord 0.78 0.54 0.09
  55
  56 set only_screen 1