tests/bugs/vis/bug24569

   1 puts "============"
   2 puts "CR24569"
   3 puts "============"
   4 puts ""
   5
   6 #######################################################################
   7 #  Test for conversion of sensitives by AIS_InteractiveContext::Update
   8 #######################################################################
   9
  10 set aV "Driver1/Viewer1/View1"
  11 vinit name=$aV l=32 t=32 w=400 h=400
  12 vactivate $aV
  13 vclear
  14
  15 vpoint p1 0 0 0
  16 vpoint p2 1 0 0
  17 vpoint p3 0 1 0
  18
  19 vplane pl1 p1 p2 p3 0
  20 vfit
  21
  22 vmoveto 200 256
  23 checkcolor 395 200 0 1 1
  24
  25 if { $stat != 1 } {
  26   puts "Error : Selection of AIS_Plane does not work initially!"
  27 }
  28
  29 puts "Testing of plane sensitivity update:"
  30
  31 vchangeplane pl1 x=-150 y=150 z=0 sx=10 sy=10
  32 vupdate pl1
  33 vzrange 230.36270740666069 409.91874112463427
  34 vmoveto 200 240
  35 checkcolor 199 23 0 1 0
  36
  37 if { $stat != 1 } {
  38   puts "Error : Sensitive entity of AIS_Plane is not updated!"
  39 }
  40
  41 vmoveto 200 28
  42 checkcolor 199 23 0 1 1
  43
  44 if { $stat != 1 } {
  45   puts "Error : Sensitive entity of AIS_Plane is incorrect after update!"
  46 }
  47
  48 checkview -screenshot -3d -path ${imagedir}/${test_image}.png