Download raw (351 bytes)

% J
input ../def;
beginchar(74, 13);
    x1 := 2.0 * ox;
    y1 := -5.0 * oy;
    x2 := 9.0 * ox;
    y2 := 3.0 * oy;
    x3 := 9.0 * ox;
    top y3 := 21.0 * oy;
    x4 := 8.0 * ox;
    top y4 := 21.0 * oy;
    x5 := 8.0 * ox;
    y5 := 2.0 * oy;
   
    
    draw z4 -- z5 {down}.. z1 -- z1 ..{up} z2 -- z3; 
    serif(5,4,2,3,2);
endchar(5);
end;