mode_setup;
 em#:=3/8in#; cap#:=3/8in#;
 thin#:=1/3pt#; thick#:=5/6pt#;
 o#:=1/5pt#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
define_corrected_pixels(o);
beginchar("d",em#,cap#,0); "DECUS Logo";
tracingequations := 1;
x2=x4; x1=x3; y1=y2; y3=y4;          % set up the border points
   lft x1=0; top y1=h; bot y3=0; 
   rt x2= w;
z5=1/2[z1,z4];                       % the dead center of the box
y7=y8=35/256[y3,y1];                  % vertical positions of the points
  y11=y12=y1-y7;
  y6=y9=117/256[y3,y1]; 
  y10=y13=y1-y6;
x6=x10=20/256[x1,x2]=x2-x9;            % horizontal positions of the points
  x9=x13; x8=x12;
  x7=x11=45/256[x1,x2]=x2-x8; 
direct=angle(x11-x10,y11-y10);
picture oldpicture;    % variable in which to save current picture
fill fullcircle scaled 132/256h shifted z5;  % fill in the circle in the center
pickup pencircle scaled 23/512[x1,x2]; % set up pen to width of 3-segment bars
draw z6--z7--z8--z9;          % draw the lower 3-segment bar
  cutoff(z6,90); cutoff(z9,90); % cut rounded tips off bar---make them flat edge
draw z10--z11--z12--z13;      % draw the upper 3-segment bar
  cutoff(z10,90+180); cutoff(z13,90+180); % cut off rounded tips
oldpicture=currentpicture;    % save current picture
clearit;                      % clear out everything
fill unitsquare scaled h;     % make it solid black
currentpicture:=currentpicture-oldpicture; % invert previously saved picture
labels(range 1 thru 13);
endchar;
end.