🚀 go-pugleaf

From article <19384@mimsy.UUCP>, by chris@mimsy.UUCP (Chris Torek):
> In article <2944@tahoe.unr.edu> mikew@wheeler.wrcr.unr.edu [wait, that's
> a mimic---I mean, that is the address I found was wrong: wrc, not wrcr]
> (Mike Whitbeck) writes:
>>I want a symbol for 'registered trademark' ...
>>Can this be made with TeX?
> 
> You can kludge one out of a circle and an R, but the right way to get
> such a symbol is to design it with METAFONT.
> 
>>should \savebox be used to hold it if it will be used often?
> 
> If you make it out of circle-plus-R, yes.
> 
> Someone ought to do the TeX world a service and add `\reg' as a symbol
> in the `lasy' font.
> -- 
> In-Real-Life: Chris Torek, Univ of MD Comp Sci Dept (+1 301 454 7163)
> Domain:	chris@mimsy.umd.edu	Path:	uunet!mimsy!chris

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, here is the macros I use with latex.

\def\@regmark{{\ooalign
  {\hfil\raise.07ex\hbox{\tiny R}\hfil\crcr{\scriptsize\mathhexbox20D}}}}
\def\regmark{\raise1ex\hbox{\@regmark}}
\newbox\regbox\setbox\regbox=\hbox{\@regmark}%
\def\regnotice#1{%
  \markedfootnote{\copy\regbox}{#1}}%
\def\markedfootnote#1#2{{\def\thefootnote{#1}\footnote[1]{#2}}}

Note that \@regmark produces a `R' with circle similar to the way the
copyright symbol is produced in plain.tex.  \regmark raises it to the
height normally used.  The box \regbox has the UNraised symbol because
I use it with the footnote macros to produce a registration notice at
the bottom of the page by calling \regnotice and passing the text I
want (eg. UNIX is a registered trademark of AT\&T) as the argument.
This requires the macro \markedfootnote which allows one to specify
the footnote symbol.

The macro \regmark could have used \copy\regbox rather than @regmark.
I have forgotten why I didn't.


			     --	Terry L Anderson
				AT&T Bell Laboratories -- Liberty Corners
				UUCP:	...!att!bartok!tla
				NET:	tla%bartok@RESEARCH.ATT.COM 	
				ATTMAIL: mozart!tla
				TeleMail: Terry.Anderson
				(201) 580-4428