cleanup

benchmarks/extrude/spirale.geo

+// Extrusion and rotation. Christophe Geuzaine, Feb 2002.
 
 lc = 0.005;
 lc2 = 4*lc;
+
 Point(1)={0.09,0,0,lc};
 Point(2)={0.11,0,0,lc};
 Point(3)={0,0.09,0,lc};
@@ -9,7 +11,6 @@ Point(5)={0.2,0.09,0,lc};
 Point(6)={0.2,0.11,0,lc};
 Point(7)={0.09,0.2,0,lc};
 Point(8)={0.11,0.2,0,lc};
-
 Point(9)={0.09,0.09,0,lc2};
 Point(10)={0.09,0.11,0,lc2};
 Point(11)={0.11,0.11,0,lc2};
@@ -27,26 +28,22 @@ Line(9) = {10,4};
 Line(10) = {4,3};
 Line(11) = {3,9};
 Line(12) = {9,1};
+
 Line Loop(13) = {2,3,4,5,6,7,8,9,10,11,12,1};
 Plane Surface(14) = {13};
 
-//Extrude Point {1, {0,0,0.1} };
-//Extrude Point {1, {0,0,1} , {0.05,0.08,0} , Pi/2 };
-//Extrude Point {1, {0,0,0.1} , {0,0,1} , {0.05,0.08,0} , Pi/2 , 10};
-//Extrude Line {1, {0,0,0.1} , {0,0,1} , {0.05,0.08,0} , 0 , 10};
-//Coherence;
-//Extrude Line {1, {0,0,0.1}  };
-
 turns = 1/3;
 zz = 0.01;
 cc = 0.1;
 
 Extrude Surface {news-1, {0,0,2*zz}, {0,0,1} , {cc,cc,0} , 0}
                 { Layers {2,1,1}; Recombine; };
+
 For j In {1:3}
   Extrude Surface {news-1, {0,0,zz}, {0,0,1} , {cc,cc,0} , Pi/(40*(4-j))}
                   { Layers {1,1,1}; Recombine; };
 EndFor
+
 For j In {1:turns*8}
   Extrude Surface {news-1, {0,0,10*zz}, {0,0,1} , {cc,cc,0} , Pi/4}
                   { Layers {10,1,1}; Recombine; };
@@ -72,8 +69,10 @@ Circle(1635) = {p+1001,p+1000,p+1002};
 Circle(1636) = {p+1002,p+1000,p+1003};
 Circle(1637) = {p+1003,p+1000,p+1004};
 Circle(1638) = {p+1004,p+1000,p+1001};
+
 Line Loop(1639) = {1635,1636,1637,1638};
 Plane Surface(1640) = {1639};
+
 turns = 2;
 zz = 0.01/4;
 
@@ -91,6 +90,7 @@ Circle(4635) = {p+4001,p+4000,p+4002};
 Circle(4636) = {p+4002,p+4000,p+4003};
 Circle(4637) = {p+4003,p+4000,p+4004};
 Circle(4638) = {p+4004,p+4000,p+4001};
+
 Line Loop(4639) = {4635,4636,4637,4638};
 Plane Surface(4640) = {4639};
 
@@ -98,5 +98,3 @@ For j In {1:8*turns}
   Extrude Surface {news-1, {0,0,10*zz}, {0,0,1} , {cc,cc,0} , Pi/4}
                   { Layers {10,1,1}; Recombine; };
 EndFor
-
-