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.top(btex $l$ etex, z41);
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);
label.top(btex $f$ etex, z49);

endfig;

beginfig(2);

z0 = (0,0);                        % z0 is origin
z11 = z0 + (u,4u);                 % z11 is point A

z13 = z11 + (3u,-2u);              % z13 is point B
z15 = 2 [z11, z13];                % z15 is point b

x14 = x13; y14 = y11;              % z14 is point D
x16 = x15; y16 = y11;              % z16 is point d

z20 = 0.5 [z11,z13] + 0.6 (z11 - z13) rotated 90;

v = angle (z13 - z20) - angle (z11 - z20);

z21 - z20 = (z11 - z20) rotated 0.25v;
z22 - z20 = (z11 - z20) rotated 0.5v;
z23 - z20 = (z11 - z20) rotated 0.75v;
z25 - z20 = (z11 - z20) rotated 1.25v;

z12 = z22;                         % z12 is point C

z30 = 0.5 [z11,z15] + 0.6 (z11 - z15) rotated 90;

w = angle (z15 - z30) - angle (z11 - z30);

z31 - z30 = (z11 - z30) rotated 0.25w;
z32 - z30 = (z11 - z30) rotated 0.5w;
z33 - z30 = (z11 - z30) rotated 0.75w;
z35 - z30 = (z11 - z30) rotated 1.25w;

z17 = z32;                         % z17 is point c

draw z11--z16;
draw z11--z15;
draw z13--z14;
draw z15--z16;

draw z11..z21..z22..z23..z13..z25;

draw z11..z31..z32..z33..z15..z35;

label.lft(btex ${\rm A}$ etex, z11);
label(btex ${\rm C}$ etex, z12);
label.llft(btex ${\rm B}$ etex, z13);
label.top(btex ${\rm D}$ etex, z14);
label.rt(btex $b$ etex, z15);
label.top(btex $d$ etex, z16);
label.llft(btex $c$ etex, z17);

endfig;

bye;