1puts "========" 2puts "0029807: Impossible to cut cone from prism" 3puts "========" 4puts "" 5 6restore [locate_data_file bug25542_cylinder.brep] b1 7restore [locate_data_file bug25542_cone.brep] b2 8 9explode b1 f 10explode b2 f 11 12smallview 13don b1_1 b2_1 14fit 15 16regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_1 b2_1 -2d] full Toler NbCurv 17 18checkreal Tolerance $Toler 0.0016015772839744358 0.0 0.01 19 20if {$NbCurv != 2} { 21 puts "Error: Please check NbCurves for intersector" 22} 23 24checkview -screenshot -2d -path ${imagedir}/${test_image}_3d.png 25smallview -2D- 262dfit 27checkview -screenshot -2d -path ${imagedir}/${test_image}_2d.png 28