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 QASelect ${Shape_X} ${Shape_Y}
  37 QASelect ${Shape_X} ${Shape_Y}
  38
  39 # Check box color
  40 checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
  41
  42 # Check triedron color
  43 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  44
  45 # Select empty view
  46 QASelect 1 1
  47 QASelect 1 1
  48
  49 # Check box color
  50 checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
  51
  52 # Check triedron color
  53 checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
  54
  55 set only_screen 1