tests/bugs/vis/bug137_3

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