Download raw (1.2 KB)

% a

input ../def;

 
beginchar(97, 14);

    x1 := 3.0 * ox;
    y1 := 11.0 * oy;
    x2 := 2.0 * ox;
    y2 := 12.0 * oy;
    x3 := 2.5 * ox;
    y3 := 11.5 * oy;
    x4 := 7.0 * ox;
    top y4 := 14.0 * oy + os_x;
    x5 := 11.0 * ox;
    y5 := 11.0 * oy;
    x6 := 11.0 * ox;
    y6 := 3.0 * oy;
    x7 := 12.0 * ox;
    bot y7 := 0.5 * oy  + os_bsln;
    x8 := 10.0 * ox;
    y8 := 8.0 * oy;
    x9 := 5.0 * ox;
    y9 := 8.0 * oy;
    x10 := 1.0 * ox;
    y10 := 3.0 * oy;
    x11 := 4.0 * ox;
    bot y11 := 0.0 * oy + os_bsln;
    x12 := 1.75 * ox;
    y12 := 4.0 * oy;
    x13 := 5.0 * ox;
    bot  y13 := 0.5 * oy + os_bsln;
    x14 := 14.0 * ox;
    y14 := 1.0 * oy;
    x15 := 10.0 * ox;
    y15 := 3.0 * oy;
    x16 := 10.0 * ox;
    y16 := 11.0 * oy;
    x17 := 12.0 * ox;
    bot y17 := 0.0 * oy  + os_bsln;


    draw z4{left} .. {dir247.5} z1 .. z2 {up-left}..{right} z4 .. {right}z4{dir 0} .. {down}z5 -- z6{down} .. z7 .. z14 -- z14 .. z17 .. z15{up} -- z16{up} .. {left}z4;; 
    draw z8 .. z9 .. z10 .. z11 ..{up-left} z15; 
    draw z9{dir 200} .. z12 .. {right}z13 ..{up-left} z15 withpen pentriangle scaled 1ux; 
    draw z3 withpen pencircle xscaled 1sx yscaled 1sx;
endchar(17);


end;