Article 25387 of comp.os.linux:
Path: samba!concert!gatech!emory!sol.ctr.columbia.edu!usc!cs.utexas.edu!uunet!vtserf!vttcf.cc.vt.edu!tdunbar
From: tdunbar@vttcf.cc.vt.edu (Thomas Dunbar)
Newsgroups: comp.os.linux
Subject: TeX/MetaFont sample for Linux 1.0 announcement
Message-ID: <11471@vtserf.cc.vt.edu>
Date: 30 Jan 93 19:31:36 GMT
Sender: usenet@vtserf.cc.vt.edu
Organization: Virginia Tech, Blacksburg, VA
Lines: 74

%TeX/Metafont sample for Linux 1.0 announcement:
\input eplain \nopagenumbers  \font\ttfont=cmtt8 scaled 800
\font\linus=linus \font\tfont=cmr6  The metafont code below is 
a brute-force coding, very ugly.  It is from the first part of a
(hopefully not mythical) chapter on MetaFont programming in {\it Linux -- 
A Personal Computing Milieu, \rm by Thomas Dunbar.} \vglue .3in
{\linus l}\kern -77pt\raise 33pt\vtop{\tfont \parindent=0pt\baselineskip=7pt
\hsize=42pt \raggedright Linux News: ``1.0 is in!'' \rightline{says Linus}
\par} \vglue .1in
 To use: cut out the code and save in linus.mf, copy it to 
where your metafont macros are, start metafont, respond to **
with  $\backslash$mode=localfont; input linus\quad
It will make a 1 character font, run gftopk on the output 
(linus.300pk probably) and then move the pk and tfm files to where tex, etc 
can find them.   Then, run tex on this file and preview/print it.  
\par\def\setuplistinghook{\ttfont\baselineskip=7.5pt}
\listing{linus.mf}

\bye

%linus.mf:
mode_setup;
beginchar("l",100pt#,100pt#,0); pickup pencircle scaled .8pt;
draw (.49w,.86w)--(.555w,.89w); draw (.66w,.91w)--(.725w,.895w);
pickup pencircle xscaled .035w yscaled .07w rotated 10;
drawdot (.49w,.63w); drawdot (.68w,.65w); pickup pencircle scaled .4pt;
draw flex((.2w,.15h),(.14w,.3h),(.1w,.45h))
	& flex((.1w,.45w),(.4w,.42w),(.63w,.46w),(.68w,.45w))
	& flex((.68w,.45w),(.69w,.30w),(.7w,.18w));
draw flex ((.11w,.47w), (.3w,.46w),(.55w,.48w),(.71w,.47w))
	& flex ((.71w,.47w), (.72w,.31w),(.73w,.19w));
draw flex ((.13w,.49w),(.45w,.5w),(.75w,.49w))
	& flex ((.75w,.49w),(.76w, .38w), (.77w,.25w));
draw (.3w,.51w)..{up}(.29w,.54w)..(.36w,.66w)..(.4w,.73w){up}
..(.36w,.87w){up}..(.46w,.97w){dir 20}..(.7w,1.1w){right}
..(.83w,1.07w){dir -30}..{dir 265}(1.03w,.73w);
draw (1.03w,.73w){right}..(1.14w,.63w){down}..{dir 175}(1.03w,.56w);
draw (1.03w,.56w){down}..{left}(.765w,.28w);
draw (.24w,.16w)..(.4w,.12w){right}..(.5w,.13w);
draw (.28w,.12w)..(.4w,.08w){dir -15}..(.53w,.06w);
draw (.29w,.54w){dir 170}..(.26w,.57w){up}..{right}(.36w,.66w);
draw (.62w,.70w){dir 170}..(.55w,.7w)..(.54w,.65w){down}
..(.58w,.61w){dir 20}---(.61w,.62w);
draw (.43w,.59w){dir 135}..(.42w,.63w){up}..{dir 65}(.46w,.72w);
draw (.7w,.76w){dir -45}..{down}(.75w,.68w)..(.745w,.645w);
draw (.2w,.15w)---(.18w,.21w)..(.15w,.22w){left}
..(.115w,.17w){down}..(.18w,.1w){right}..(.21w,.12w){up}..cycle;
draw (.12w,.14w)..(.11w,.07w)..(.16w,.04w){right}..{dir 100}(.205w,.09w);
draw (.11w,.07w){dir 230}..(.15w,-.02w){right}..(.19w,.02w);
draw (.46w,.97w){left}..(.31w,.9w)..(.25w,.78w);
draw (.7w,1.1w){dir 150}..(.46w,.97w)..{dir 285}(.46w,.83w);
draw (.7w,1.1w){left}..{dir 285}(.53w,.84w);
draw (.83w,1.07w){dir -50}..{dir 250}(.9w,.7w);
draw (.83w,1.07w){dir 135}..(.7w,1.1w)..{dir 280}(.57w,.8w);
draw (.7w,1.1w){right}..(.83w,1w)..(.9w,.75w);
draw (.535w,1.02w){dir 190}..(.37w,1.03w){left}..{down}(.15w,.77w);
draw (.92w,1w){dir -55}..{dir 250}(.95w,.7w);
draw (.92w,1w){right}..(.96w,.99w)...{dir 250}(.95w,.68w);
draw (.92w,1w){dir 120}..{left}(.83w,1.07w)..(.69w,1w)..{dir 250}(.59w,.87w);
draw (.92w,1w){dir 135}..(.69w,.9w){dir 240};
draw (.92w,1w){dir 185}..(.75w,.85w){dir 250};
draw (.85w,.20w){dir 40}..(1w,.3w)..(1.07w,.31w){right}..(1.23w,.06w){dir -80};
draw (.9w,.2w)..(1w,.24w){right}..{dir -80}(1.14w,.01w);
draw (1.01w,.01w)..(.95w,.15w)..(.92w,.17w){left}..(.85w,.2w){up}
..{dir 200}(.77w,.25w) ..{dir -45}(.79w,.17w)
&(.79w,.17w){dir 135}..(.73w,.19w)..(.7w,.18w)
..(.72w,.1w)---(.77w,.11w)&(.77w,.11w)---(.72w,.1w)..(.76w,.02w)---(.8w,.05w)
&(.8w,.05w)---(.76w,.02w)..(.81w,-.02w)---(.84w,.01w)
&(.84w,.01w)---(.82w,-.02w)..(.84w,-.03w)..(.88w,-.01)..{dir 80}(.89w,.02w)
---(1.01w,.01w)---cycle; draw (.8w,.282w)..(.805w,.255w);
fill (.85w,.2w){dir 40}..(.89w,.245w)---(.88w,.25w)---(.84w,.24w)
..(.85w,.22w)---cycle; endchar; end;




