/* ---------------------------------------------------------------------------
   Model ZAvojnice sa type1
----------------------------------------------------------------------------*/
// Constants
Include "coiltype1.cst";
Include "MateriauxType1.pro";

cm = 1.e-2;
micl = 1.e-6;
ml = 1.e-3;
lc = 0.1*cm;
lc2 = 1*cm;

lc3 = 1*cm/1.0;

rpetri = 5.4*cm;
mcq = 100*micl;
hmc = mcq/((rpetri ^ 2)*3.14);




milleu = 1;
up = 11;
vp = 12;
boun = 13;


// milleu

Point(5) = {0.0*cm,0.0*cm,0.0*cm,lc3};                          
Point(1) = {0.0*cm,0.0*cm,4.5*cm,lc3};
Point(2) = {0.0*cm,4.5*cm,0.0*cm,lc3};
Point(3) = {0.0*cm,0.0*cm,(0.0-4.5)*cm,lc3};
Point(4) = {0.0*cm,(0.0-4.5)*cm,0.0*cm,lc3};
Circle(1) = {1,5,2};
Circle(2) = {2,5,3};
Circle(3) = {3,5,4};
Circle(4) = {4,5,1};



// surfaces




Line Loop(1) = {1,2,3,4};
Plane Surface(1) = {1};



// extrusion visina milleu

Extrude Surface{ milleu, {hmc,0,0} } { Layers { 4, MILLEU, 1 } ; } ;
Surface Loop(5001) = {1,13,25,21,17,26};

Complex Volume(5002) = {5001};
Physical Volume(15001) = {5002};
Physical Surface(15002) = {1,13,25,21,17,26};

Physical Point(15010) = {1};





General.Color.Background = {255,255,255};
General.Color.Axes = {0,0,128};
General.Color.Text = Black;
General.Color.Foreground = {255,255,255};
Geometry.Color.Points = Orange;
