Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug60852
1
2 puts "========"
3 puts "BUC60852"
4 puts "BUC60923"
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 -20
17 set point_1_1_Y -5
18 set point_1_1_Z 10
19 set point_1_2_X 50
20 set point_1_2_Y 15
21 set point_1_2_Z 10
22
23 vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
24 vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
25
26 edge edge_1 vertex_1_1 vertex_1_2
27
28 puts ""
29
30 set point_2_1_X -20
31 set point_2_1_Y -10
32 set point_2_1_Z 10
33 set point_2_2_X 50
34 set point_2_2_Y -10
35 set point_2_2_Z 10
36
37 vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
38 vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
39
40 edge edge_2 vertex_2_1 vertex_2_2
41
42 puts ""
43
44 box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
45
46
47 line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ]
48
49 line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ]
50
51 puts ""
52
53 set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
54 if {${result1} != "Line that lies on edge intersects the box\n"} {
55   puts "BUC60852: Error; (case 1)"
56 } else {
57   puts "BUC60852: OK; (case 1)"
58 }
59
60 puts ""
61
62 set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
63 if {${result2} != "Line that lies on edge does not intersect the box\n"} {
64   puts "BUC60852: Error; (case 2)"
65 } else {
66   puts "BUC60852: OK; (case 2)"
67 }
68