minor adaption

This commit is contained in:
Joachim Schoeberl 2011-01-20 19:58:57 +00:00
parent dc845bcd2c
commit 0e5e2c7883
2 changed files with 18 additions and 24 deletions

View File

@ -59,12 +59,8 @@ namespace netgen
if (strcmp (command, "get") == 0)
{
if (!geometry)
if (geometry)
{
Tcl_SetResult (interp, err_needscsgeometry, TCL_STATIC);
return TCL_ERROR;
}
char buf[20];
Point3d pmin = geometry->BoundingBox ().PMin();
Point3d pmax = geometry->BoundingBox ().PMax();
@ -83,6 +79,7 @@ namespace netgen
sprintf (buf, "%5.1lf", pmax.Z());
Tcl_SetVar (interp, "::geooptions.maxz", buf, 0);
}
}
else if (strcmp (command, "set") == 0)
{
Point<3> pmin (atof (Tcl_GetVar (interp, "::geooptions.minx", 0)),

View File

@ -38,9 +38,6 @@ private:
/// point coordinates
T_POINTS points;
/// type of element, set in calcsurfacesofnode
// Array<ELEMENTTYPE> eltyps;
/// line-segments at edges
Array<Segment> segments;
/// surface elements, 2d-inner elements