verbatimtex \magnification=\magstep1 etex

u=1cm;

beginfig(1);

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

z10 = z0;                          % z10 is point A
x11 = x10 + 1.5u; y11 = y10;       % z11 is point B
z12 = 2 [z10, z11];                % z12 is point C
z13 = 3 [z10, z11];                % z12 is point D
z14 = 4 [z10, z11];                % z12 is point E

z19 = 1.3 [z10, z11];              % z19 is point F

x20 = x10; y20 = y10 + 8u;         % z20 is point a
x21 = x11; y21 = 0.85 [y10, y20];  % z21 is point b
x22 = x12; y22 = 0.65 [y10, y20];  % z22 is point c
x23 = x13; y23 = 0.35 [y10, y20];  % z23 is point d

x30 = x10; y30 = y21;               % z30 is point K
x31 = x11; y31 = y22;               % z30 is point K
x32 = x12; y32 = y23;               % z30 is point K

x41 = x11; y41 = y20;
x42 = x12; y42 = y21;
x43 = x13; y43 = y22;
x44 = x14; y44 = y23;

x49 = x19; y49 = y20;              % z49 is point f

z59 = 0.7 [z13, z14];              % z59 is point e

draw z10--z14;

draw z10--z20;
draw z11--z41;
draw z12--z42;
draw z13--z43;
draw z14--z44;

draw z20--z49;
draw z30--z42;
draw z31--z43;
draw z32--z44;

draw z19--z49 dashed evenly;

draw z20..z21..z22..z23..z14;

label.bot(btex ${\rm A}$ etex, z10);
label.bot(btex ${\rm B}$ etex, z11);
label.bot(btex ${\rm C}$ etex, z12);
label.bot(btex ${\rm D}$ etex, z13);
label.bot(btex ${\rm E}$ etex, z14);

label.lft(btex $a$ etex, z20);
label.llft(btex $b$ etex, z21);
label.llft(btex $c$ etex, z22);
label.llft(btex $d$ etex, z23);

label.lft(btex ${\rm K}$ etex, z30);
label.lft(btex ${\rm L}$ etex, z31);
label.lft(btex ${\rm M}$ etex, z32);

label.rt(btex $m$ etex, z42);
label.rt(btex $n$ etex, z43);
label.rt(btex $o$ etex, z44);

label.bot(btex ${\rm F}$ etex, z19);

endfig;

beginfig(2);

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

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

z16 = 0.9 [z10, z12];
x161 = x16; y161 = y16 - 0.1u;

z210 = 0.6 [z10, z12];
z220 = 0.3 [z10, z12];

x211 = x210; y211 = y11;
x221 = x220; y221 = y11;

z212 = 0.35 [z210, z211];
z222 = 0.5  [z220, z221];

z213 = 0.75 [z210, z211];
z223 = 0.65 [z220, z221];

z214 = 0.5  [z210, z211];
z224 = 0.8  [z220, z221];

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

draw z210--z211;
draw z220--z221;

draw z16--z161;

draw z12..z212..z222..z14;
draw z13..z213..z223..z14;
draw z12..z214..z224..z11;

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

label.bot(btex ${\rm e}$ etex, z161);

label.bot(btex ${\rm C}$ etex, z210);
label.bot(btex ${\rm C}$ etex, z220);

label.llft(btex ${\rm d}$ etex, z212);
label.llft(btex ${\rm d}$ etex, z222);

label.urt(btex  ${\rm D}$ etex, z213 + (0,4pt));
label.ulft(btex ${\rm D}$ etex, z223);

endfig;

bye;