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