6262a303 |
1 | puts "================" |
2 | puts "OCC25335" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Visualization - add test command for V3d_View::FitAll by view area |
7 | ####################################################################################### |
8 | |
9 | set check1_x 2 |
10 | set check1_y 2 |
11 | |
12 | set check2_x 407 |
13 | set check2_y 2 |
14 | |
15 | set check3_x 2 |
16 | set check3_y 407 |
17 | |
18 | set check4_x 407 |
19 | set check4_y 407 |
20 | |
21 | set check5_x 204 |
22 | set check5_y 204 |
23 | |
24 | vinit View1 |
25 | vtop |
26 | |
27 | # 2D view area |
28 | vpoint p1 5.0 5.0 0.0 |
29 | vpoint p2 15.0 5.0 0.0 |
30 | vpoint p3 15.0 15.0 0.0 |
31 | vpoint p4 5.0 15.0 0.0 |
32 | vpoint p5 10.0 10.0 0.0 |
33 | |
34 | vfitarea 4.999 4.999 15.001 15.001 |
35 | |
36 | # Check area by 1st point |
37 | vmoveto ${check1_x} ${check1_y} |
38 | checkcolor ${check1_x} ${check1_y} 0 1 1 |
39 | |
40 | if {$stat != 1} { |
41 | puts "Error : Fit all by view area is broken." |
42 | } |
43 | |
44 | # Check area by 2nd point |
45 | vmoveto ${check2_x} ${check2_y} |
46 | checkcolor ${check2_x} ${check2_y} 0 1 1 |
47 | |
48 | if {$stat != 1} { |
49 | puts "Error : Fit all by view area is broken." |
50 | } |
51 | |
52 | # Check area by 3rd point |
53 | vmoveto ${check3_x} ${check3_y} |
54 | checkcolor ${check3_x} ${check3_y} 0 1 1 |
55 | |
56 | if {$stat != 1} { |
57 | puts "Error : Fit all by view area is broken." |
58 | } |
59 | |
60 | # Check area by 4th point |
61 | vmoveto ${check4_x} ${check4_y} |
62 | checkcolor ${check4_x} ${check4_y} 0 1 1 |
63 | |
64 | if {$stat != 1} { |
65 | puts "Error : Fit all by view area is broken." |
66 | } |
67 | |
68 | # Check area by 5th point |
69 | vmoveto ${check5_x} ${check5_y} |
70 | checkcolor ${check5_x} ${check5_y} 0 1 1 |
71 | |
72 | if {$stat != 1} { |
73 | puts "Error : Fit all by view area is broken." |
74 | } |
75 | |
76 | set only_screen 1 |