00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015 #include "euler.h"
00016 #include "print.h"
00017 #include <cmath>
00018
00019
00020 namespace euler
00021 {
00022
00023
00024 solid_t* solid_t :: block(point_t const& ur)
00025 {
00026 solid_t* s = solid_t :: mvfs( point_t() );
00027 loop_t *l = s->f->l;
00028 edge_t *e = l->e;
00029 e = l->mev( l->mev( l->mev( e, point_t(ur[0], 0.0, 0.0) ), point_t(ur[0], ur[1], 0.0) ), point_t(0, ur[1], 0.0) );
00030 l->del_single_vertex_edge_pair();
00031 face_t *f = s->mef(e, l->e)->f;
00032
00033 s->tsweep_face( f, vector_t(0., 0., ur[2]) );
00034
00035 return s;
00036 }
00037
00038
00039
00040
00041 }