tests/bugs/vis/bug137_5

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