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