3306fdd9 |
1 | puts "========" |
2 | puts "0029807: Impossible to cut cone from prism" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | # The aim of this test is to obtain the same result on |
7 | # different platforms (Windows, Linux, MacOS etc.) |
8 | |
9 | pload QAcommands |
10 | restore [locate_data_file OCC13116_sh1.brep] b1 |
11 | restore [locate_data_file OCC13116_sh2.brep] b2 |
12 | |
13 | explode b1 f |
14 | explode b2 f |
15 | |
16 | mksurface s1 b1_3 |
17 | mksurface s2 b2_1 |
18 | |
19 | regexp {Radius of curvature is +([-0-9.+eE]+)} [OCC29807 s1 s2 1.5704836137868956 3.0501269066007808e-007 3.9658833912538207 1.5704836137865030] full R1 |
20 | if {$R1 != -1.0} { |
21 | puts "Error in R1 computation" |
22 | } |
23 | |
24 | regexp {Radius of curvature is +([-0-9.+eE]+)} [OCC29807 s1 s2 1.6025602743734420 -6.1366790760075673e-007 0.82433854035089271 1.5390323792163476] full R2 |
25 | if {$R2 != -1.0} { |
26 | puts "Error in R2 computation" |
27 | } |
28 | |
29 | regexp {Radius of curvature is +([-0-9.+eE]+)} [OCC29807 s1 s2 1.6375006167098363 -8.0934069046634249e-007 0.82433889938148752 1.5040920368799497] full R3 |
30 | if {$R3 != -1.0} { |
31 | puts "Error in R3 computation" |
32 | } |
33 | |
34 | regexp {Radius of curvature is +([-0-9.+eE]+)} [OCC29807 s1 s2 1.7042049066248015 -1.1250135685259011e-006 0.82433908359918306 1.4373877469650012] full R4 |
35 | if {$R4 != -1.0} { |
36 | puts "Error in R4 computation" |
37 | } |
38 | |
39 | regexp {Radius of curvature is +([-0-9.+eE]+)} [OCC29807 s1 s2 1.7772619860554566 -1.3863691492588259e-006 0.82433916835888565 1.3643306675343436] full R5 |
40 | if { abs($R5-19.71766721319873) > 1.0e-7} { |
41 | puts "Error in R5 computation" |
42 | } |