58 EuclideanShape ball1( c1, radius );
60 trace.beginBlock(
"Arc length computing");
61 double arcExp = ball1.arclength( make_pair(0.0,0.0), make_pair(0.0,M_PI) ,500 );
62 double arcTheo = M_PI*radius;
63 trace.info() <<
"Computed arc length: "<< arcExp <<endl;
64 trace.info() <<
"Theoric arc length: "<< arcTheo << endl;
65 if(fabs(arcTheo- arcExp) < 0.1)
67 trace.info() <<
"The arc length has a good value"<<endl;
75 trace.beginBlock(
"Surface length computing");
76 double surfaceExp = ball1.surfacelength( make_pair(0.0,0.0), make_pair(M_PI*2,M_PI) ,500 );
77 double surfaceTheo = 4.0*M_PI*radius*radius;
78 trace.info() <<
"Computed surface length: "<< surfaceExp <<endl;
79 trace.info() <<
"Theoric surface length: "<< surfaceTheo << endl;
80 if(fabs(surfaceExp- surfaceTheo) < 0.1)
82 trace.info() <<
"The surface has a good value"<<endl;