Download raw (651 bytes)

% c

input ../def;

	beginchar(99, 14);   
		x1 := 12.0 * ox;   
		y1 := 2.0 * oy;   
		x2 := 8.0 * ox;   
		bot y2 := 0.5 * oy + os_bsln;   
		x3 := 2.75 * ox;   
		y3 := 7.0 * oy;   
		x4 := 10.5 * ox;   
		y4 := 12.0 * oy - os_x;   
		x5 := 11.5 * ox ;  
		y5 := 13.0 * oy - os_x;   
		x6 := 8.0 * ox;   
		top y6 := 14.0 * oy + os_x;   
		x7 := 2.0 * ox;   
		y7 := 6.0 * oy;  
		x8 := 7.0 * ox;   
		bot y8 := 0.0 * oy + os_bsln;     
		x9 := 10.5 * ox;   
		y9 := 13.0 * oy - os_x;

		draw z1 .. z2 .. z3 .. z6 {right}.. z4 .. z5 {dir145}..{left} z6 .. z7 .. z8 .. z1 -- cycle; 
		% draw z9 withpen pencircle scaled 1.75ux;
	endchar(9);

end;