Download raw (850 bytes)

% Q
input ../def;
beginchar(81, 24);
    x1 := 6.0 * ox;
    y1 := -3.0 * oy;
    x2 := 11.0 * ox;
    y2 := -0.5 * oy;
    x3 := 16.0 * ox;
    y3 := -4.75 * oy;
    x4 := 22.0 * ox;
    y4 := -3.0 * oy;
    x5 := 17.0 * ox;
    y5 := -4.5 * oy;
    x6 := 12.0 * ox;
    y6 := -0.25 * oy;
   
    x7 := 3.0 * ox;
    y7 := 10.5 * oy;
    x8 := 12.0 * ox;
    y8 := 21.0 * oy;
    x9 := 21.0 * ox;
    y9 := 10.5 * oy;
    x10 := 12.0 * ox;
    y10 := 0.0 * oy;
   
    x11 := 12.0 * ox;
    y11 := 0.0 * oy;
    x12 := 2.0 * ox;
    y12 := 10.5 * oy;
    x13 := 12.0 * ox;
    y13 := 21.0 * oy;
    x14 := 22.0 * ox;
    y14 := 10.5 * oy;
    
    draw z1 {up-left}.. z2 .. z3 ..{up-left} z4 {down-right}.. z5 .. z6 ..{down-right} cycle;
    draw z7 .. z8 .. z9 .. z10 .. cycle; 
    draw z11 .. z12 .. z13 .. z14 .. cycle; 

endchar(14);
end;