clear all
clc

g=[2 -53 53  0.00 0.00  1  0;        % #vertices,v_1x, v_2x, v_1y, v_2y, subdomain_left, subdomain_right
   2 53 83  0 105  1  0;
   2 83 80  105 105  1  0;
   2 80 67.1429  105 66  1  3;
   2 67.1429 50  66 6 1 2;
   2 50 -50 6 6 1 2;
   2 -50 -67.1429 6 66 1 2;
   2 -67.1429 -80 66 105 1 3;
   2 -80 -83 105 105 1 0;
   2 -83 -53 105 0 1 0;

   % surface between fluid and air
   2 -67.1429 67.1429 66 66 3 2;

   % top surface
   2 -80 80 105 105 0 3
   ]';


[p,e,t] = initmesh(g,'hmax',10); 
pdemesh(p,e,t)


ascii_write_mesh( p, t, e, mfilename);

ascii_write_subdomains( p, t, e, mfilename);