Download raw (778 bytes)

% q
input ../def;
beginchar(113, 16);
   
    x1 := 7.75 * ox;
    bot y1 := 0.5 * oy + os_bsln;
    x2 := 2.75 * ox;
    y2 := 7.0 * oy;
    x3 := 8.0 * ox;
    top y3 := 14.0 * oy + os_x;
    x4 := 12.0 * ox;
    y4 := 10.0 * oy;
    x5 := 12.0 * ox;
    y5 := 3.0 * oy;
    x6 := 7.0 * ox;
    bot y6 := 0.0 * oy + os_bsln;
    x7 := 2.0 * ox;
    y7 := 6.0 * oy;

    x8 := 12.0 * ox;
    y8 := 12.0 * oy;
 
    x9 := 12.0 * ox;
    bot y9 := -7.0 * oy;
    
    x10 := 13.0 * ox;
    bot y10 := -7.0 * oy;
    x11 := 13.0 * ox;
    y11 := 14.0 * oy;   

    draw z5 .. z1 {left}.. z2 ..{right} z3 .. z4; 
    draw z5 .. z6 {left}.. z7 ..{right} z3 .. z8;    
    draw z8 -- top z9;
    draw top z10 -- z11 -- z8;
    serif(8, 9, 11, 10, 3, 0);
    
endchar(11);
end;