[Gmsh] subloops
hubrys at virgilio.it
hubrys at virgilio.it
Sat Jul 26 11:05:33 CEST 2008
Hi, when I run the file .geo, in message console appeare this message:
Info : Reading '/home/alessandro/Scrivania/structure.geo'
Info :
Starting subloop 1 in Line Loop 21 (are you sure about this?)
Info :
Starting subloop 2 in Line Loop 21 (are you sure about this?)
Info :
Starting subloop 3 in Line Loop 21 (are you sure about this?)
Info :
Starting subloop 4 in Line Loop 21 (are you sure about this?)
Where is
the error? Or isn't an error?
This is my file .geo:
Function
Structure
a1=newp; Point(a1) = {a,b+2*r,0,lc1};
a2=newp;
Point(a2) = {a+r,b+3*r,0,lc1};
a3=newp; Point(a3) = {a+2*r,b+2*r,0,
lc1};
a4=newp; Point(a4) = {a+r,b+r,0,lc1};
a5=newp; Point(a5)
= {a+r,b+2*r,0,lc1};
c1=newl; Circle(c1) = {a1,a5,a2};
c2=newl; Circle(c2) = {a2,a5,a3};
c3=newl; Circle(c3) = {a3,a5,
a4};
c4=newl; Circle(c4) = {a4,a5,a1};
circle_loop[] += {c1,c2,
c3,c4};
Return
//Begin
lc1=10;
lc2=20;
r=10;
t=0;
b=15;
R=200;
side=4;
step=2;
i=1; j=1;
For i In {1:
side:step}
a=25;
For j In {1:side:step}
Call Structure;
a+=80;
EndFor
b+=80;
EndFor
a11=newp; Point(a11) = {-R,0,0,lc2};
a12=newp; Point(a12) = {0,R,0,lc2};
a13=newp; Point(a13) = {R,0,0,
lc2};
a14=newp; Point(a14) = {0,-R,0,lc2};
a15=newp; Point(a15)
= {0,0,0,lc2};
c9=newl; Circle(c9) = {a11,a15,a12};
c10=newl;
Circle(c10) = {a12,a15,a13};
c11=newl; Circle(c11) = {a13,a15,a14};
c12=newl; Circle(c12) = {a14,a15,a11};
circle_loop[] += {c9,c10,
c11,c12};
circle_holes = newreg;
Line Loop(circle_holes) =
{circle_loop[]};
surf_no_holes = newreg;
Plane Surface
(surf_no_holes) = {circle_holes};
Thank for your help