1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
puts "============"
puts "OCC24966"
puts "============"
puts ""
####################################################################################
# Problem in local selection mode with selected objects staying in the viewer
# Outdated entity owners remain selected after recompute of presentation in
# local context.
# The following cases are tested:
# o Recompute should not clear per-object selection (neutral selection context).
# o Recompute should clear per-owner selection (local selection context).
####################################################################################
set check_recomputed_x 227
set check_recomputed_y 269
set check_untouched_x 239
set check_untouched_y 309
vinit View1
vpoint p1 100 100 0
vpoint p2 150 150 0
vpoint p3 100 150 0
vplane pln1 p1 p2 p3
veraseall
vdisplay pln1 p1 p2 p3
vselect 0 0 2500 2500
vchangeplane pln1 x=100 y=100 z=200 dx=0.707 dy=0.707 dz=0.707
vfit
checkcolor $check_recomputed_x $check_recomputed_y 0.8 0.8 0.8
if { $stat != 1 } {
puts "Error : Neutral selection of updated object is erased."
}
checkcolor $check_untouched_x $check_untouched_y 0.8 0.8 0.8
if { $stat != 1 } {
puts "Error : Neutral selection of unmodified object is erased."
}
vinit View2
vpoint p4 100 100 0
vpoint p5 150 150 0
vpoint p6 100 150 0
vplane pln2 p4 p5 p6
veraseall
vdisplay -local pln2 p4 p5 p6
vselect 0 0 2500 2500
vchangeplane pln2 x=100 y=100 z=200 dx=0.707 dy=0.707 dz=0.707
vfit
checkcolor $check_recomputed_x $check_recomputed_y 0 1 0
if { $stat != 1 } {
puts "Error : Local (renewed) selection of updated object is not updated."
}
checkcolor $check_untouched_x $check_untouched_y 0.8 0.8 0.8
if { $stat != 1 } {
puts "Error : Local selection of unmodified object is erased."
}
vdump ${imagedir}/${casename}_View1.png
vdump ${imagedir}/${casename}_View2.png
|
