|
1 %% xypdf-r.tex from $Id: xypdf-r.doc,v $ |
|
2 %% |
|
3 %% Xy-pic ``PDF Rotations and Scaling''. |
|
4 %% Copyright (c) 1999-1999 Ross Moore <ross@maths.mq.edu.au> |
|
5 %% |
|
6 %% This file is part of the Xy-pic package for graphs and diagrams in TeX. |
|
7 %% See the companion README and INSTALL files for further information. |
|
8 %% Copyright (c) 1991-1999 Kristoffer H. Rose <krisrose@brics.dk> |
|
9 %% |
|
10 %% The Xy-pic package is free software; you can redistribute it and/or modify |
|
11 %% it under the terms of the GNU General Public License as published by the |
|
12 %% Free Software Foundation; either version 2 of the License, or (at your |
|
13 %% option) any later version. |
|
14 %% |
|
15 %% The Xy-pic package is distributed in the hope that it will be useful, but |
|
16 %% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
|
17 %% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
18 %% for more details. |
|
19 %% |
|
20 %% You should have received a copy of the GNU General Public License along |
|
21 %% with this package; if not, write to the Free Software Foundation, Inc., |
|
22 %% 675 Mass Ave, Cambridge, MA 02139, USA. |
|
23 %% |
|
24 %% As a special exception, you may use this file and all files derived |
|
25 %% from it without restrictions. This special exception was added with |
|
26 %% version 3.7 of Xy-pic. |
|
27 %% |
|
28 \expandafter\ifx\csname xypdf-rloaded\endcsname\empty |
|
29 \message{not reloaded}\endinput \fi |
|
30 \expandafter\let\csname xypdf-rloaded\endcsname=\empty \xycatcodes |
|
31 \expandafter\ifx\csname xypdf-sloaded\endcsname\empty\else |
|
32 \xyinputorelse@{xypdf-s}{\xyerror@{Could not load xypdf-s}{}}% |
|
33 \xycatcodes\fi |
|
34 \xydef@\installPDFrotscale@{\installPDFstyle@ |
|
35 % \let\xyRotate@@=\xyPDFrotate@@ |
|
36 % \let\doSpecialRotate@@=\doPDFspecialRotate@@ |
|
37 \let\xyscale@@=\xyPDFscale@@ |
|
38 \xyPDFshapes@true |
|
39 \xyuncatcodes } |
|
40 \xydef@\UsePDFrotate{\installPDFrotscale@} |
|
41 \xydef@\NoPDFrotate{\UnloadRotate@\relax} |
|
42 \xydef@\xyPDFpretransform@{\xyPDFrawA@{\preXYtransform@@}} |
|
43 \xydef@\xyPDFposttransform@{\xyPDFrawZ@{\postXYtransform@@}} |
|
44 \let\preXYtransform@=\xyPDFpretransform@ |
|
45 \let\postXYtransform@=\xyPDFposttransform@ |
|
46 \xydef@\xyPDFrotSplit@{% |
|
47 \expandafter\def\expandafter\preShape@@\expandafter{\xyPDFpre@}% |
|
48 \expandafter\def\expandafter\postShape@@\expandafter{\xyPDFpost@}} |
|
49 \xydef@\xyPDFscale@@#1#2{% |
|
50 \xyPDFsplitPDF@{\xyscale@start(#1,#2)}{\xyscale@end}% |
|
51 \xyPDFrotSplit@\xyPDFpdfxy@ } |
|
52 \xydef@\xyPDFrotate@@#1{% |
|
53 \xyPDFsplitPDF@{\xyrot@start(#1 xyd)}{\xyrot@end}%%%<<------ here |
|
54 \xyPDFrotSplit@\xyPDFpdfxy@ } |
|
55 \xydef@\xyPDFspecialRotate@#1{% |
|
56 \xyPDFsplitPDF@{\xyrot@start(#1)}{\xyrot@end}\xyPDFrotSplit@\xyPDFpdfxy@ } |
|
57 \xydef@\doPDFspecialRotate@@#1@@{\xyPDFspecialRotate@{#1}} |
|
58 \xydef@\xyRotScale@@{% |
|
59 % \def\xyrot@start(##1){{xyt ##1\space xyr}}%%%<<------ here |
|
60 \def\xyscale@start(##1,##2){ q ##1 0 0 ##2 0 0 cm}% |
|
61 \def\xyrot@end{ Q}\def\xyscale@end{ Q}} |
|
62 \endinput |