Skip to content
Snippets Groups Projects
Commit 41c42303 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

*** empty log message ***

parent bc0c13c9
No related branches found
No related tags found
No related merge requests found
// $Id: Create.cpp,v 1.16 2001-05-29 13:28:26 geuzaine Exp $ // $Id: Create.cpp,v 1.17 2001-06-02 13:09:14 geuzaine Exp $
#include "Gmsh.h" #include "Gmsh.h"
#include "Const.h" #include "Const.h"
...@@ -544,6 +544,8 @@ Surface * Create_Surface (int Num, int Typ, int Mat){ ...@@ -544,6 +544,8 @@ Surface * Create_Surface (int Num, int Typ, int Mat){
pS->Orientations = NULL; pS->Orientations = NULL;
pS->Support = pS; pS->Support = pS;
pS->Control_Points = List_Create (1, 10, sizeof (Vertex *)); pS->Control_Points = List_Create (1, 10, sizeof (Vertex *));
pS->s.Generatrices = NULL;
pS->Edges = NULL;
pS->Extrude = NULL; pS->Extrude = NULL;
pS->STL = NULL; pS->STL = NULL;
return (pS); return (pS);
...@@ -555,10 +557,12 @@ void Free_Surface(void *a, void *b){ ...@@ -555,10 +557,12 @@ void Free_Surface(void *a, void *b){
Tree_Action(pS->Simplexes, Free_Simplex); Tree_Action(pS->Simplexes, Free_Simplex);
Tree_Delete(pS->Simplexes); Tree_Delete(pS->Simplexes);
List_Delete(pS->TrsfSimplexes); List_Delete(pS->TrsfSimplexes);
Tree_Delete(pS->Vertices); //the vertices are freed globally before //Tree_Delete(pS->Vertices);//fait planter l'extrusion (1D-2D-1D boum)
//the vertices are freed globally before
List_Delete(pS->TrsfVertices); List_Delete(pS->TrsfVertices);
List_Delete(pS->Contours); List_Delete(pS->Contours);
List_Delete(pS->Control_Points); List_Delete(pS->Control_Points);
List_Delete(pS->s.Generatrices);
Free(pS); Free(pS);
pS = NULL; pS = NULL;
} }
......
// $Id: Numeric.cpp,v 1.14 2001-04-08 20:36:50 geuzaine Exp $ // $Id: Numeric.cpp,v 1.15 2001-06-02 13:09:14 geuzaine Exp $
#include "Gmsh.h" #include "Gmsh.h"
#include "Const.h" #include "Const.h"
...@@ -119,8 +119,8 @@ int sys3x3_with_tol (double mat[3][3], double b[3], double res[3], double *det){ ...@@ -119,8 +119,8 @@ int sys3x3_with_tol (double mat[3][3], double b[3], double res[3], double *det){
out = sys3x3(mat,b,res,det); out = sys3x3(mat,b,res,det);
if (fabs(*det) < 1.e-12){ if (fabs(*det) < 1.e-14){
Msg(DEBUG, "Assuming 3x3 matrix is singular (is this OK?)"); Msg(DEBUG, "Assuming 3x3 matrix is singular (det == %g)", fabs(*det));
res[0] = res[1] = res[2] = 0.0 ; res[0] = res[1] = res[2] = 0.0 ;
return (0); return (0);
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment