
Merge "inlet.stl";

CreateTopology;

ll[] = Line "*";
l = newl;
For j In {0 : #ll[]-1}
	Compound Line(l+j) = ll[j];
EndFor

ss[] = Surface "*";
s = news;
For i In {0 : #ss[]-1}
	Compound Surface(s+i) = ss[i];
EndFor

Field[1] = MathEval;
Field[1].F = "25";

Background Field = 1;

Mesh.CharacteristicLengthExtendFromBoundary = 0;

Physical Surface("Inlet") = {s:s+31}; 

