1puts "============"
2puts "OCC28094"
3puts "============"
4puts ""
5######################################################
6# Shape obtained after DRAW command "splitshape" has unnecessary high tolerance.
7######################################################
8
9smallview
10
11set expected_MaxTolerance 2.e-07
12set tol_abs_MaxTolerance 1.e-06
13set tol_rel_MaxTolerance 1.e-06
14
15psphere a 10
16plane p2 2 0 0 1 0 0
17mkface f2 p2 -100 100 -100 100
18bsection s2 a f2
19explode a f
20explode s2 e
21splitshape res a_1 a_1 s2_1 a_1 s2_2
22
23regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance
24checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
25
26clear
27donly res
28fit
29
30xwd ${imagedir}/${test_image}.png
31