[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