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