1 puts "TODO OCC11111 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
3 puts "================"
6 puts "================"
8 #######################################################################################
9 # Viewer is always updated on closing local contexts
10 #######################################################################################
11 # Various improvements of RINA LH3D-3H project
12 #######################################################################################
15 box b2 50 50 50 10 10 10
41 #QASetChoiceMode EDGE ON
44 set BeforeNbSelected [vnbselected]
54 set AfterNbSelected [vnbselected]
56 checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B}
57 checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B}
58 checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B}
59 checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B}
60 checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B}
62 if {${BeforeNbSelected} == 0} {
63 puts "OCC1629: OK (case 6: before selection)"
65 puts "OCC1629: Error (case 6: before selection)"
68 if {${AfterNbSelected} == 5} {
69 puts "OCC1629: OK (case 7: after selection)"
71 puts "OCC1629: Error (case 7: after selection)"
79 puts "Viewer is not updated on closing local context,"
80 puts "but we can not check it by automatic test!"
82 puts "5 edges must be selected on the viewer,"
83 puts "but must be CloseNbSelected = 0 !"
87 set CloseNbSelected [vnbselected]
89 checkcolor ${x1} ${y1} ${Selection_R} ${Selection_G} ${Selection_B}
90 checkcolor ${x2} ${y2} ${Selection_R} ${Selection_G} ${Selection_B}
91 checkcolor ${x3} ${y3} ${Selection_R} ${Selection_G} ${Selection_B}
92 checkcolor ${x4} ${y4} ${Selection_R} ${Selection_G} ${Selection_B}
93 checkcolor ${x5} ${y5} ${Selection_R} ${Selection_G} ${Selection_B}
95 if {${CloseNbSelected} == 0} {
96 puts "OCC1629: OK (case 13: after close local context)"
98 puts "OCC1629: Error (case 13: after close local context)"