0027531: Modeling Algorithms - Make the algorithm Approx_SameParameter more clear...
[occt.git] / tests / heal / surface_to_revolution_advanced / end
1 puts [DT_ShapeConvertRev result a 1 1]
2
3 set expsh [expshape result 0 0]
4 set nb_plane 0
5 set nb_other_surf 0
6 set nb_curve 0
7 set nb_pcurve 0
8 regexp {Number +of +Planes +- +([-0-9.+eE]+)} $expsh full nb_plane
9 regexp {Number +of +other +surfaces +- +([-0-9.+eE]+)} $expsh full nb_other_surf
10 regexp {Number +of +other +curves +- +([-0-9.+eE]+)} $expsh full nb_curve
11 regexp {Number +of +other +pcurves +- +([-0-9.+eE]+)} $expsh full nb_pcurve
12 if { $nb_plane != 0 || $nb_other_surf != 0 || $nb_curve != 0 || $nb_pcurve != 0} {
13    puts "Error : The resulting shape is not correct"
14 }
15 regexp {Mass +: +([-0-9.+eE]+)} [sprops a $rel_tol] full mass
16 regexp {Mass +: +([-0-9.+eE]+)} [sprops result $rel_tol] full m
17
18 if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 1.5*$rel_tol) || ($mass == 0 && $m != 0) } {
19    puts "Error : The area of the resulting shape is $m"
20 } else {
21    puts "The areas of the initial and the resulting shape are equal"
22 }