261b7d9e |
1 | puts "================" |
2 | puts "OCC28222" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Intersection of two cylinders fails |
7 | ####################################################################### |
8 | |
9 | dsetsignal 1 |
10 | |
11 | set GoodNbCurv 2 |
12 | |
13 | foreach c [directory result*] { |
14 | unset $c |
15 | } |
16 | |
17 | cylinder s1 -9 -5 -2.2058 0 -1 0 0.001 |
18 | cylinder s2 0 0 -2.2058 0 0 -1 9 |
19 | |
20 | intersect result s1 s2 |
21 | |
22 | foreach c [directory result*] { |
23 | bounds $c U1 U2 |
24 | |
25 | if {[dval U2-U1] < 1.0e-9} { |
26 | puts "Error: Wrong curve's range!" |
27 | } |
28 | |
29 | xdistcs $c s1 U1 U2 10 2.0e-7 |
30 | xdistcs $c s2 U1 U2 10 2.0e-7 |
31 | } |
32 | |
33 | set NbCurv [llength [directory result*]] |
34 | |
35 | if { $NbCurv == $GoodNbCurv } { |
36 | puts "OK: Number of curves is good!" |
37 | } else { |
38 | puts "Error: $GoodNbCurv is expected but $NbCurv is found!" |
39 | } |
40 | |
41 | smallview |
42 | don result* |
43 | fit |
44 | don s1 s2 |
45 | disp result* |
46 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |