Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60889
1
2 puts "========"
3 puts "BUC60889"
4 puts "BUC60947"
5 puts "========"
6
7 pload QAcommands
8
9 set bndbox_X1 0
10 set bndbox_Y1 0
11 set bndbox_Z1 0
12 set bndbox_X2 30
13 set bndbox_Y2 10
14 set bndbox_Z2 20
15
16 set point_1_1_X -30
17 set point_1_1_Y -10
18 set point_1_1_Z 5
19 set point_1_2_X -30
20 set point_1_2_Y -10
21 set point_1_2_Z 15
22
23 set point_1_3_X -15
24 set point_1_3_Y -5
25 set point_1_3_Z 5
26
27 set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
28 set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
29 set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
30
31 point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
32 point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
33 polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
34 vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
35 vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
36 edge edge_1 vertex_1_1 vertex_1_2
37
38 puts ""
39
40 set point_2_1_X 30
41 set point_2_1_Y 10
42 set point_2_1_Z -5
43 set point_2_2_X 30
44 set point_2_2_Y 10
45 set point_2_2_Z -15
46
47 set point_2_3_X 0
48 set point_2_3_Y 10
49 set point_2_3_Z -5
50
51 set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
52 set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
53 set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
54
55 point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
56 point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
57 polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
58 vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
59 vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
60 edge edge_2 vertex_2_1 vertex_2_2
61
62 puts ""
63
64 box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
65
66
67 line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
68 line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
69
70 line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
71 line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
72
73 puts ""
74
75 set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
76
77 if {${result1} != "The band intersects the box\n"} {
78   puts "BUC60889: Error; (case 1)"
79 } else {
80   puts "BUC60889: OK; (case 1)"
81 }
82
83 puts ""
84
85 set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
86
87 if {${result2} != "The band lies out of the box\n"} {
88   puts "BUC60889: Error; (case 2)"
89 } else {
90   puts "BUC60889: OK; (case 2)"
91 }
92
93