tests/bugs/vis/bug71

   1 puts "================"
   2 puts "OCC71"
   3 puts "BUC61045"
   4 puts "================"
   5 puts ""
   6
   7 # Data
   8 set Triedron_X 29
   9 set Triedron_Y 380
  10
  11 set Shape_X 120
  12 set Shape_Y 250
  13
  14 # Display box
  15 vinit
  16 box b 10 10 10
  17 vdisplay b
  18
  19 # Display triedron
  20 OCC71
  21 vfit
  22
  23 # Check triedron color
  24 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  25
  26 # Shading box
  27 vsetdispmode b 1
  28
  29 # Check box color
  30 checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
  31
  32 # Check triedron color
  33 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  34
  35 # Select box
  36 vselect ${Shape_X} ${Shape_Y}
  37
  38 # Check box color
  39 checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
  40
  41 # Check triedron color
  42 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  43
  44 # Select empty view
  45 vselect 1 1
  46
  47 # Check box color
  48 checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
  49
  50 # Check triedron color
  51 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  52
  53 checkview -screenshot -3d -path ${imagedir}/${test_image}.png