tests/bugs/vis/bug137_5

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