0023905: Clean obsolete test commands

[occt.git] / tests / bugs / vis / bug1786

puts "================"
puts "OCC1786"
puts "OCC2707"
puts "================"
#######################################################################################
# AIS_LC::AddOrRemoveSelected(Handle(SelectMgr_EntityOwner), ..) works too slow
#######################################################################################

box b1 10 10 10
box b2 20 20 20 10 10 10
vinit
vdisplay b1 b2
vfit

# box b1
set x11  57 ; set y11 322
set x12 118 ; set y12 322

# box b2
set x21 290 ; set y21 186
set x22 352 ; set y22 186

set Selection_R 0.8
set Selection_G 0.8
set Selection_B 0.8

set Idle_R 1
set Idle_G 1
set Idle_B 0

#QASetChoiceMode EDGE ON
vselmode 2 1
set AutoHilight 0
OCC1786 ${AutoHilight}
set BeforeNbSelected [vnbselected]

checkcolor ${x12} ${y12} ${Idle_R} ${Idle_G} ${Idle_B}
checkcolor ${x21} ${y21} ${Idle_R} ${Idle_G} ${Idle_B}
checkcolor ${x22} ${y22} ${Idle_R} ${Idle_G} ${Idle_B}

if {${BeforeNbSelected} == 0} {
    puts "OCC1786: OK (case 4: before selection)"
} else {
    puts "OCC1786: Error (case 4: before selection)"
}

# Select edges

vselect 0 0 1

vselect ${x11} ${y11} 1
vselect ${x12} ${y12} 1

vselect ${x21} ${y21} 1
vselect ${x22} ${y22} 1

vselect 0 0 1
set AfterNbSelected [vnbselected]

checkcolor ${x11} ${y11} ${Selection_R} ${Selection_G} ${Selection_B}
checkcolor ${x12} ${y12} ${Selection_R} ${Selection_G} ${Selection_B}
checkcolor ${x21} ${y21} ${Selection_R} ${Selection_G} ${Selection_B}
checkcolor ${x22} ${y22} ${Selection_R} ${Selection_G} ${Selection_B}

if {${AfterNbSelected} == 4} {
  puts "OCC1786: OK (case 9: after selection)"
} else {
  puts "OCC1786: Error (case 9: after selection)"
}

set only_screen 1