🚀 go-pugleaf

In article <3581@cbnewsm.ATT.COM>tla@cbnewsm.ATT.COM (terry.l.anderson) writes:

>I agree with Chris Torek that the ideal solution to a registered
>trademark symbol is to create one with metafont.  But since I have not
>found one...

In Scott Simpson's quicspool software for the QMS printer (in the
TeXdevices directory of the Unix TeX distribution), he has MF sources
for fonts providing all the Troff characters (the idea being
to be able to use the same driver software and fonts for ditroff
and TeX).  I have not used these myself, but here is his definition
for `Registered'.  I presume that `cmmf' is in effect here.

  cmchar "Registered";
  beginchar(oct"017",18u#,asc_height#,desc_depth#); autorounded;
  adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup rule.nib;
  lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o;
  circle_points; draw_circle;  % circle
  x9=x11=x12=.7[x6,x8]; x10=x13=.3[x4,x2];
  y12=y13=.5[y4,y6]; y9=.5[y6,y8]; y11=.5[y12,y9]; y10=.5[y11,y9];
  x14=.08[x4,x2]; y14=y9;
  path p;
  p=z9--z14{dir 0}..z10..{dir 180}z11;
  z15=point 2.6 of p;
  draw z12--z9; draw z13--z15; draw p;
  labels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); endchar;
  
-- 

	Mike Urban
	urban@rand.ORG