61c421bf |
1 | puts "================" |
2 | puts "OCC1243" |
3 | puts "================" |
4 | puts "Bad solid created from face with command 'revol'" |
5 | puts "" |
6 | |
7 | restore [locate_data_file OCC1243-2.brep] f1 |
8 | checkshape f1 |
9 | |
10 | revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0 |
11 | |
12 | set tolerance [maxtolerance result] |
13 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance |
14 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance |
15 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance |
16 | |
17 | set max_tolerance 1.00000e-06 |
18 | |
19 | if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } { |
20 | puts "OCC1243 - Error" |
21 | } else { |
22 | puts "OCC1243 - OK" |
23 | } |
24 | |
25 | set square 3.06024e+06 |
26 | set 2dviewer 0 |