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