%..geometry of the core  
x1 = [-10 10, 10, 8, 8, -8, -8, 8, 8, 10, 10, -10];
y1 = [-10, -10 -.5, -.5, -8, -8, 8, 8, .5, .5, 10, 10];
pdepoly(x1,y1,'core')
 
%..geometry of left part of the winding  
x2 = [-14, -10, -10, -14]; y2 = [-8, -8, 8, 8];
pdepoly(x2,y2,'leftwinding')

%..geometry of right part of the winding 
x3 = [-8 -5 -5 -8]; y3 = [-8, -8, 8, 8]; 
pdepoly(x3,y3,'rightwinding')

%..geometry of right part of the winding 
pderect([-25 20 -20 20],'air')
