Added Layer option for Extrude Point

Parser/Gmsh.y

 %{ 
 
-// $Id: Gmsh.y,v 1.132 2003-03-02 18:44:19 geuzaine Exp $
+// $Id: Gmsh.y,v 1.133 2003-03-11 03:47:06 geuzaine Exp $
 //
 // Copyright (C) 1997 - 2003 C. Geuzaine, J.-F. Remacle
 //
@@ -2207,6 +2207,42 @@ Extrude :
 			   $8[0],$8[1],$8[2],$10[0],$10[1],$10[2],$12,
 			   &pc,&prc,NULL);
     }
+  | tExtrude tPoint '{' FExpr ',' VExpr '}'
+    {
+      extr.mesh.ExtrudeMesh = false;
+      extr.mesh.Recombine = false;
+    }
+                   '{' ExtrudeParameters '}' tEND
+    {
+      Curve *pc, *prc;
+      Extrude_ProtudePoint(TRANSLATE,(int)$4,$6[0],$6[1],$6[2],
+			   0.,0.,0.,0.,0.,0.,0.,
+			   &pc,&prc,&extr);
+    }
+  | tExtrude tPoint '{' FExpr ',' VExpr ',' VExpr ',' FExpr '}'
+    {
+      extr.mesh.ExtrudeMesh = false;
+      extr.mesh.Recombine = false;
+    }
+                   '{' ExtrudeParameters '}' tEND
+    {
+      Curve *pc, *prc;
+      Extrude_ProtudePoint(ROTATE,(int)$4,0.,0.,0.,
+			   $6[0],$6[1],$6[2],$8[0],$8[1],$8[2],$10,
+			   &pc,&prc,&extr);
+    }
+  | tExtrude tPoint '{' FExpr ',' VExpr ',' VExpr ',' VExpr ',' FExpr'}'
+    {
+      extr.mesh.ExtrudeMesh = false;
+      extr.mesh.Recombine = false;
+    }
+                   '{' ExtrudeParameters '}' tEND
+    {
+      Curve *pc, *prc;
+      Extrude_ProtudePoint(TRANSLATE_ROTATE,(int)$4,$6[0],$6[1],$6[2],
+			   $8[0],$8[1],$8[2],$10[0],$10[1],$10[2],$12,
+			   &pc,&prc,&extr);
+    }
 
   // Lines
 

Parser/Gmsh.yy.cpp

@@ -2,7 +2,7 @@
 /* A lexical scanner generated by flex */
 
 /* Scanner skeleton version:
- * $Header: /cvsroot/gmsh/Parser/Gmsh.yy.cpp,v 1.150 2003-03-02 18:44:21 geuzaine Exp $
+ * $Header: /cvsroot/gmsh/Parser/Gmsh.yy.cpp,v 1.151 2003-03-11 03:47:07 geuzaine Exp $
  */
 
 #define FLEX_SCANNER
@@ -1007,7 +1007,7 @@ char *yytext;
 #define INITIAL 0
 #line 2 "Gmsh.l"
 
-// $Id: Gmsh.yy.cpp,v 1.150 2003-03-02 18:44:21 geuzaine Exp $
+// $Id: Gmsh.yy.cpp,v 1.151 2003-03-11 03:47:07 geuzaine Exp $
 //
 // Copyright (C) 1997 - 2003 C. Geuzaine, J.-F. Remacle
 //

TODO

-$Id: TODO,v 1.12 2003-03-10 17:04:15 geuzaine Exp $
-
-********************************************************************
-
-Add Layers to Extrude Point
+$Id: TODO,v 1.13 2003-03-11 03:47:06 geuzaine Exp $
 
 ********************************************************************
 

benchmarks/extrude/point.geo

+L = 0.25;
+lclev = L / 4;
+
+Point(1) = {0.0*L, 0.0*L,   0.0, lclev};
+
+Extrude Point {1, {L,0,0}}{ Layers { {5,10}, {1,1}, {0.7,1} } ; Recombine; };
+Extrude Line {1, {0,L/2,0}}{ Layers { {5,10}, {2,2}, {0.7,1} } ; Recombine;  };
+Extrude Surface {5, {0,0,L}}{ Layers { {5,10}, {3,3}, {0.7,1} } ; Recombine; };
+
+Physical Volume(111) = {3};

doc/VERSIONS

-$Id: VERSIONS,v 1.134 2003-03-10 04:26:32 geuzaine Exp $
+$Id: VERSIONS,v 1.135 2003-03-11 03:47:07 geuzaine Exp $
 
 New in 1.42: suppressed the automatic addition of a ".geo" extension
-if the file given on the command line is not recognized; fixed various
-small bugs;
+if the file given on the command line is not recognized; added missing
+Layer option for Extrude Point; fixed various small bugs;
 
 New in 1.41: Gmsh is now licensed under the GNU General Public
 License; general code cleanup (indent);