ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-13 14:40:35 +05:00
Code Issues Packages Projects Releases Wiki Activity

minor adaption

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libsrc/csg/csgpkg.cpp
View File

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

3
libsrc/meshing/meshclass.hpp
View File

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