b3b6fa6f72b9a0bc250555018ba540599585a270
[occt.git] / tests / bugs / modalg_5 / bug24915
1 puts "TODO OCC25929 ALL: Error: Tolerance is too big!"
2 puts "TODO OCC25929 ALL: Error : T=0.818182"
3 puts "========="
4 puts "CR24915"
5 puts "========="
6 puts ""
7 ###############################
8 ## Wrong intersection curves between two cylinders
9 ###############################
10
11 puts "##############################"
12 puts "#!!!Searh \"Attention\" keyword on this web-page for additinal checking!!!"
13 puts "##############################"
14
15 restore [locate_data_file bug24915_ft2.brep] b1
16 restore [locate_data_file bug24915_ft3.brep] b2
17
18 # 1. topology
19 bclearobjects
20 bcleartools
21 baddobjects b1 b2
22 bfillds
23 bbuild r
24 checkshape r
25
26 # 2. geometry
27 set MaxTol 5.0e-7
28 set log [bopcurves b1 b2]
29
30 mksurface s1 b1
31 mksurface s2 b2
32
33 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
34
35 if {${Toler} > ${MaxTol}} {
36   puts "Error: Tolerance is too big!"
37 }
38
39 for {set i 1} {$i <= ${NbCurv}} {incr i} {
40   bounds c_$i U1 U2
41   dlog reset
42   dlog on
43   xdistcs c_$i s1 U1 U2 100
44   set Log2 [dlog get]
45   set List2 [split ${Log2} {TD= \t\n}]
46   set Tolerance 2.0e-5
47   set Limit_Tol 1.0e-7
48   set D_good 0.
49   catch {checkList ${List2} ${Tolerance} ${D_good} ${Limit_Tol}}
50
51   dlog reset
52   dlog on
53   xdistcs c_$i s2 U1 U2 100
54   set Log2 [dlog get]
55   set List2 [split ${Log2} {TD= \t\n}]
56   set Tolerance 2.0e-5
57   set Limit_Tol 1.0e-7
58   set D_good 0.
59   catch {checkList ${List2} ${Tolerance} ${D_good} ${Limit_Tol}}
60 }
61
62 smallview
63 donly b2 c_2
64 fit
65 set only_screen_axo 1