c2a0f481 |
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 : shape result is not correct" |
14 | } |
15 | regexp {Mass +: +([-0-9.+eE]+)} [sprops a] full mass |
16 | regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m |
17 | |
18 | if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } { |
19 | puts "Error : The square of result shape is $m" |
20 | } else { |
21 | puts "Squares of shapes a and result is equal" |
22 | } |
23 | |