Download raw (639 bytes)

% C
input ../def;


beginchar(67, 22);

    x2 := 20.0 * ox;
    y2 := 3.0 * oy;
    x1 := 20.0 * ox;
    y1 := y2 + (srf_H * 2);
    x3 := 12.0 * ox;
    bot y3 := 0.0 * oy + os_bsln;
    x4 := 2.0 * ox;
    y4 := 10.5 * oy;
    x5 := 12.0 * ox;
    top y5 := 21.0 * oy  + os_x;
    x6 := 20.0 * ox;
    y6 := 18.0 * oy;
    x7 := 20.0 * ox;
    y7 := y6 - (srf_H * 2);
    x8 := 12.0 * ox;
    top y8 := 21.0 * oy + os_x;
    x9 := 3.0 * ox;
    y9 := 10.5 * oy;
    x10 := 12.0 * ox;
    bot y10 := 0.0 * oy + os_bsln;
   

    draw z1 -- z2 .. z3 ..
    z4 .. z5 .. z6 -- z7 .. 
    z8 .. z9 .. z10 .. cycle; 

endchar(10);
end;