D E C U S - I N T E R O F F I C E   M E M O R A N D U M

Date:       14-May-1990 07:09pm EST
From:       Wayne Sewell 
            SEWELL 
Dept:       L & T SIG Steering Comm.
Tel No:     214-272-0515 x-3553

TO:  M. Edward (Ted) Nieland              ( NIELAND )


Subject:    DECUS logo
Doc Number: 001663

Ted,


Here is the METAFONT source file for the DECUS logo.  Build the font 
the same way the LaTeX fonts are built: without the CM base file. 
The PLAIN base file is sufficient. 

This is a font with a single very large character in it.  The ASCII 
code corresponding to the logo is a small "d" (for DECUS, of 
course).  A ten-point logo is so tiny as to be useless, so at 
magstep 0, the logo is 3/8 inch in size.  The other magsteps magnify 
it even larger, of course. 


I have provided a TeX file showing how one would use the font in a 
document.  I will send an MFT-generated TeX listing of the logo 
source file later.  I don't have MFT running on my PC. 

Let me know if you have any problems.

Wayne



------------------------------ file decuslog.mf -----------------

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.

------------------------------ file decuslog.tex -----------------

\documentstyle{article}

\font\decus=decuslog
\font\decushalf=decuslog scaled \magstephalf
\font\decusone=decuslog scaled \magstep1
\font\decustwo=decuslog scaled \magstep2
\font\decusthree=decuslog scaled \magstep3
\font\decusfour=decuslog scaled \magstep4
\font\decusfive=decuslog scaled \magstep5


\begin{document}
 

Normal size {\decus d}

Magstep half  {\decushalf d}

Magstep one  {\decusone d}

Magstep two  {\decustwo d}

Magstep three  {\decusthree d}

Magstep four  {\decusfour d}

Magstep five  {\decusfive d}


\end{document}