\mode:=localfont;
mode_setup;
screenchars;showit;
em#:=7.3pt#; cap#:=8pt#;
thin#:=1/2pt#; thick#:=5/6pt#;
o#:=1/5pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
define_corrected_pixels(o);
curve_sidebar=round 1/18em;
%
% Here we go...
%
fontdimen 2: 0.8em#, 1.5, 1; % spaces dimens (len,stretch,shrink)
pickup pencircle scaled .1em;
mypen:=savepen;
%
beginchar("D",em#,cap#,0pt#);  "Open Triangle";
  q = .1em;
  fill (0,0)--(w,0)--(w,h)--(0,h)--cycle;
  unfill (q,q){right}..(.5(w-q),.5h){up}..(q,h-q){left} &
         (q,h-q)--(q,q);
endchar;
%
end.