%% xycmtip.tex from $Id: xycmtip.doc,v 3.1 1995/09/05 20:31:32 kris Exp $
%%
%% Xy-pic ``Computer Modern tips'' option.
%% Copyright (c) 1992-1995 Kristoffer H. Rose <kris@diku.dk>
%%
%% This file is part of the Xy-pic package for graphs and diagrams in TeX.
%% Copyright (c) 1991-1995 Kristoffer H. Rose <kris@diku.dk>
%%
%% The Xy-pic package is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by the
%% Free Software Foundation; either version 2 of the License, or (at your
%% option) any later version.
%%
%% The Xy-pic package is distributed in the hope that it will be useful, but
%% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
%% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
%% for more details.
%%
%% You should have received a copy of the GNU General Public License along
%% with this package; if not, write to the Free Software Foundation, Inc.,
%% 675 Mass Ave, Cambridge, MA 02139, USA.
%%
\ifx\xyloaded\undefined \input xy \fi
\xyprovide{cmtip}{Computer Modern tip extension}{\stripRCS$Revision: 3.1 $}%
 {Kristoffer H.~Rose}{kris@diku.dk}%
 {Computer Science, University of Copenhagen, Universitetsparken~1,
 DK--2100 K{\o}benhavn~{\O}}
\xyfont@\xycmatfont=xycmat10
\xyfont@\xycmbtfont=xycmbt10
\xylet@\xytip@=\tip@
\xylet@\xyatip@=\atip@
\xylet@\xybtip@=\btip@
\xylet@\xytipjot@=\tipjot@
\xydef@\xycm@{\let\xyatipfont=\xycmatfont \let\xybtipfont=\xycmbtfont}
\xydef@\cmtip@{\xycm@@ \tip@x\tip@@}
\xydef@\cmatip@{\xycm@@ \tip@x\atip@@}
\xydef@\cmbtip@{\xycm@@ \tip@x\btip@@}
\xydef@\xycm@@{\xycm@}
\xydef@\xycmtip@unload{\def\xycm@@{\xycm@}}
\xyaddunsupport{cmtip}\xycmtip@unload
\xydef@\UseComputerModernTips{\def\tipjot@{.66\jot}%
 \let\tip@=\cmtip@ \let\atip@=\cmatip@ \let\btip@=\cmbtip@}
\xydef@\NoComputerModernTips{\let\tipjot@=\xytipjot@
 \let\tip@=\xytip@ \let\atip@=\xyatip@ \let\btip@=\xybtip@}
\xyendinput
