0030435: Improving performance of Approx_ComputeCLine
[occt.git] / tests / lowalgos / intss / bug27263
1 puts "================"
2 puts "OCC27263"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Regression vs 6.9.1: Exception is raised during intersection of two faces
7 #######################################################################
8
9 set MaxTol 1.e-7
10 set GoodNbCurv 2
11
12 restore [locate_data_file  bug27262_cmpd.brep] b
13 explode b
14
15 smallview
16 explode b_1 f
17 don b_1_27 b_2
18 fit
19
20 set log [bopcurves b_1_27 b_2 -2d]
21
22 regexp {Tolerance Reached=+([-0-9.+ee]+)\n+([-0-9.+ee]+)} ${log} full Toler NbCurv
23
24 if {${Toler} > ${MaxTol}} {
25   puts "Error: Tolerance is too big!"
26 }
27
28 if {${NbCurv} != ${GoodNbCurv}} {
29   puts "Error: Curve Number is bad!"
30 }
31
32 checklength c_1 -l 2.9620641619623407
33 checklength c_2 -l 3.1050603628884668
34
35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png