0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug28828_4
1 puts "===================================================================="
2 puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
3 puts "===================================================================="
4 puts ""
5
6 pcylinder a1 10 50
7 plane pp 25 0 0  -1 0 0
8 pcylinder a2 pp 15 50
9 bfuse b a1 a2
10 savehistory hh
11
12 explode a1 f
13 generated ee hh a1_1
14 donly b ee
15
16 chamf_throat result b ee 1.
17
18 checkshape result
19
20 checknbshapes result -solid 1 -shell 1 -face 6 -wire 7 -edge 8 -vertex 5 -shape 29
21
22 set tolres [checkmaxtol result]
23
24 if { ${tolres} > 0.0002} {
25    puts "Error: bad tolerance of result"
26 }
27
28 checkprops result -v 46724.8 -deps 1.e-7
29
30 checkview -display result -2d -path ${imagedir}/${test_image}.png