verbatimtex \magnification=\magstep1 etex

u=1cm;

beginfig(1);

z0 = (0,0);                        % z0   is origin

x10 = x0; y10 = y0;                % z10  is point A
x11 = x10; y11 = y10 + 9u;         % z11  is point B
x12 - x10 = y11 - y10; y12 = y10;  % z12  is point E
x13 = x12; y13 = y11;              % z13  is point G
z14 = 0.5 [z10, z11];              % z14  is point F

z15 = 0.45 [z10, z12];
z16 = 2 [z10, z15];
x151 = x15; y151 = y11;

z201 = (1/2) [z14, z12];
z202 = (1/3) [z14, z12];
z203 = (1/4) [z14, z12];
z204 = (1/5) [z14, z12];
z205 = (1/6) [z14, z12];

z2013 = z12;
x2011 - x10 = x2012 - x2011 = x2013 - x2012;
y2011 = y2012 = (4/3) [y10, y201];

draw z10 .. controls z2011 and z2012 .. z2013;

x2023 = 2 [x10, x202]; y2023 = y10;
x2021 - x10 = x2022 - x2021 = x2023 - x2022;
y2021 = y2022 = (4/3) [y10, y202];

draw z10 .. controls z2021 and z2022 .. z2023;

x2033 = 2 [x10, x203]; y2033 = y10;
x2031 - x10 = x2032 - x2031 = x2033 - x2032;
y2031 = y2032 = (4/3) [y10, y203];

draw z10 .. controls z2031 and z2032 .. z2033;

x2043 = 2 [x10, x204]; y2043 = y10;
x2041 - x10 = x2042 - x2041 = x2043 - x2042;
y2041 = y2042 = (4/3) [y10, y204];

draw z10 .. controls z2041 and z2042 .. z2043;

x2053 = 2 [x10, x205]; y2053 = y10;
x2051 - x10 = x2052 - x2051 = x2053 - x2052;
y2051 = y2052 = (4/3) [y10, y205];

draw z10 .. controls z2051 and z2052 .. z2053;

draw z10--z11--z13--z12--cycle;
draw z12--z11;
draw z12--z14;
draw z13--z14;

z17 = (z15--z151) intersectionpoint (z10 .. controls z2021 and z2022 .. z2023);
draw z15--z17;

x161 = x16; y161 = y16 - 0.1u;

draw z16--z161;

label.bot(btex ${\rm A}$ etex, z10);
label.bot(btex ${\rm E}$ etex, z12);
label.ulft(btex ${\rm B}$ etex, z11);
label.urt(btex  ${\rm G}$ etex, z13);
label.lft(btex ${\rm F}$ etex, z14);

label.bot(btex ${\rm C}$ etex, z15);
label.bot(btex ${\rm e}$ etex, z161);
label.urt(btex ${\rm d}$ etex, z17);
label.bot(btex ${\rm L}$ etex, z2023);

endfig;

bye;