mode_setup; u# := 2mm#; define_pixels(u); beginchar("A", 8u#, 9u#, 5u#); z1 = ( 0u, 0u); z2 = ( 8u, 0u); z3 = ( 1u, 8u); z4 = ( 7u, 8u); pickup pencircle scaled 1u#; draw z4 .. z1 .. z2 .. z3 .. cycle; pickup pencircle scaled 3u#; drawdot z1; drawdot z2; drawdot z3; drawdot z4; endchar; \end