1ccc9700 |
1 | puts "=========" |
2 | puts "OCC24404" |
3 | puts "=========" |
4 | puts "" |
5 | ###################################################################### |
6 | # The function BRepTools::UVBounds gives wrong result for the face |
7 | ###################################################################### |
8 | |
9 | # case 1 |
10 | box b1 1500 1500 1500 |
11 | explode b1 f |
12 | copy b1_4 b1 |
13 | don b1 |
14 | regexp {([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)} [xbounds b1] dump x1 y1 x2 y2 |
15 | if { $x1 > 1.e-10 || $y1 != 1500 || $x2 > 1.e-10 || $y2 != 1500} { |
16 | puts "Error: Case1: Wrong boundaries of the face" |
17 | } else { |
18 | puts "OK: Case1: Correct boundaries of the face" |
19 | } |
20 | |
21 | # case 2 |
22 | circle c1 1361.60462531413 1500 275.105307765905 0 1 0 182.781239888725 |
23 | mkedge e c1 |
24 | wire w e |
25 | mkplane b2 w |
26 | bcut b1 b1 b2 |
27 | explode b1 f |
28 | copy b1_1 b1 |
29 | don b1 |
30 | regexp {([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)} [xbounds b1] dump x1 y1 x2 y2 |
31 | if { $x1 > 1.e-10 || $y1 != 1500 || $x2 > 1.e-10 || $y2 != 1500} { |
32 | puts "Error: Case2: Wrong boundaries of the face" |
33 | } else { |
34 | puts "OK: Case2: Correct boundaries of the face" |
35 | } |
36 | |
37 | # case 3 |
38 | circle c2 398.623694869499 1500 5.77182937332096 0 1 0 181.948898616306 |
39 | mkedge e c2 |
40 | wire w e |
41 | mkplane b2 w |
42 | bcut b1 b1 b2 |
43 | explode b1 f |
44 | copy b1_1 b1 |
45 | don b1 |
46 | regexp {([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)} [xbounds b1] dump x1 y1 x2 y2 |
47 | if { $x1 > 1.e-10 || $y1 != 1500 || $x2 > 1.e-10 || $y2 != 1500} { |
48 | puts "Error: Case3: Wrong boundaries of the face" |
49 | } else { |
50 | puts "OK: Case3: Correct boundaries of the face" |
51 | } |
52 | |
53 | # case 4 |
54 | circle c3 66.2457890511211 1500 832.500519113239 0 1 0 176.393473166564 |
55 | mkedge e c3 |
56 | wire w e |
57 | mkplane b2 w |
58 | bcut b1 b1 b2 |
59 | explode b1 f |
60 | copy b1_1 b1 |
61 | don b1 |
62 | regexp {([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)} [xbounds b1] dump x1 y1 x2 y2 |
63 | if { $x1 > 1.e-10 || $y1 != 1500 || $x2 > 1.e-10 || $y2 != 1500} { |
64 | puts "Error: Case4: Wrong boundaries of the face" |
65 | } else { |
66 | puts "OK: Case4: Correct boundaries of the face" |
67 | } |
68 | |
69 | # case 5 |
70 | circle c4 1177.73545803307 1500 1406.03245550006 0 1 0 150.768085993996 |
71 | mkedge e c4 |
72 | wire w e |
73 | mkplane b2 w |
74 | bcut b1 b1 b2 |
75 | explode b1 f |
76 | copy b1_1 b1 |
77 | don b1 |
78 | regexp {([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)\n([-0-9.+eE]+)} [xbounds b1] dump x1 y1 x2 y2 |
79 | if { $x1 > 1.e-10 || $y1 != 1500 || $x2 > 1.e-10 || $y2 != 1500} { |
80 | puts "Error: Case4: Wrong boundaries of the face" |
81 | } else { |
82 | puts "OK: Case4: Correct boundaries of the face" |
83 | } |