% pdcmisc.dtx 1.4 1995/03/30 -- CM subs for PS glyphs
%%%@TeX-definition-file {
%%% filename       = "$texmf/tex/plain/pdcmac/pdcmigr.tex",
%%% version        = "1.4",
%%% date           = "1995/03/30",
%%% package        = "pdcmac 1.0",
%%% author         = "P. Damian Cugley",
%%% email          = "damian.cugley@comlab.ox.ac.uk",
%%% address        = "Oxford University Computing Laboratory,
%%%                   Parks Road, Oxford  OX1 3QD, UK",
%%% codetable      = "USASCII",
%%% keywords       = "TeX, plain TeX, macros",
%%% supported      = "Maybe",
%%% abstract       = "Macros for simulating some PostScript characters
%%%                   using glyphs form the Computer Modern family.
%%%                   This file was generated by running
%%%                   plain TeX on pdcmisc.dtx",
%%% copyright      = "Copyright (c) 1991-1995 P. Damian Cugley",
%%% copying        = "DO NOT DISTRIBUTE THIS FILE.
%%%                   Distribute pdcmisc.dtx only as part of the
%%%                   package it came in.",
%%% dependencies   = "",
%%% }

\message{1.4 1995/03/30}

\dimendef\dimena=0
\def\pounds{{\it\char36 }}
\def\yen{{%
    \ooalign{%
        \hfil\raise0.25ex\hbox{$\scriptscriptstyle=$}\hfil\crcr
        \hfil Y\hfil
    }%
}}
\def\cents{\leavevmode\hbox{\rm\rlap/c}}
\def\currency{{%
    \ooalign{%
        \hskip-0.1em
            \raise0.2ex \hbox{\mathhexbox202}\hskip-0.1em\crcr
        \hfil \raise0.2ex \hbox{\mathhexbox20E}\hfil
    }%
}}
\def\florin{{\it f\/}}
\def\circledletter#1#2{{%
    \ooalign{%
        \hfil\kern#1\raise0.00ex \hbox{$\scriptstyle\rm #2$}\hfil\crcr
        \mathhexbox20D%
    }%
}}
\def\registered{\circledletter{0.02em}R}
\def\copyright{\circledletter{-0.045em}C}
\def\lguillemet{%
    \leavevmode
    \raise0.5ex \hbox{$\scriptscriptstyle\langle\!\langle$}%
}
\def\rguillemet{%
    \leavevmode
    \raise0.5ex \hbox{$\scriptscriptstyle\rangle\!\rangle$}%
}
\def\permille{{%
    \setbox0 \hbox{/}%
    \flushtop{$\scriptstyle0\!$}/%
    \lower\dp0 \hbox{$\!\scriptstyle00$}%
}}
\def\gbdecimal{\mathhexbox201}
\def\orda{\flushtop{\the\scriptfont\ifnum\fam>0 \fam\else 0\fi \b a}}
\def\ordo{\flushtop{\the\scriptfont\ifnum\fam>0 \fam\else 0\fi \b o}}
\let\sc=\relax
\let\csc=\relax
\let\mc=\relax
