tests/bugs/vis/bug24420

   1 puts "============"
   2 puts "CR24420: Test for type of sensitivity of AIS_Plane"
   3 puts "============"
   4 puts ""
   5
   6 pload VISUALIZATION
   7 set aV "Driver1/Viewer1/View1"
   8 vinit name=$aV l=32 t=32 w=400 h=400
   9 vactivate $aV
  10 vclear
  11
  12 vpoint p1 0 0 0
  13 vpoint p2 1 0 0
  14 vpoint p3 0 1 0
  15
  16 puts "Testing Select3D_TOS_INTERIOR type of sensitivity:"
  17 vplane pl1 p1 p2 p3 0
  18 vfit
  19
  20 vmoveto 210 210
  21 checkcolor 395 200 0 1 1
  22
  23 if { $stat != 1 } {
  24   puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_INTERIOR!"
  25 }
  26
  27 verase pl1
  28
  29 puts "Testing Select3D_TOS_BOUNDARY type of sensitivity:"
  30
  31 vplane pl2 p1 p2 p3 1
  32 vfit
  33
  34 vmoveto 210 210
  35 checkcolor 395 200 0.5 0.8 0.9
  36
  37 if { $stat != 1 } {
  38   puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
  39 }
  40
  41 vmoveto 395 200
  42 checkcolor 395 200 0 1 1
  43
  44 if { $stat != 1 } {
  45   puts "Error : Select3D_SensitiveFace does not work properly with type of sensitivity Select3D_TOS_BOUNDARY!"
  46 }