doc/pst-anamorphosis.tex

   1 %% This work may be distributed and/or modified under the
   2 %% conditions of the LaTeX Project Public License, either version 1.3
   3 %% of this license or (at your option) any later version.
   4 %% The latest version of this license is in
   5 %%   http://www.latex-project.org/lppl.txt
   6 %% and version 1.3 or later is part of all distributions of LaTeX
   7 %% version 2003/12/01 or later.
   8
   9 \csname PSTANAMORPHOSISLoaded\endcsname
  10 \let\PSTANAMORPHOSISLoaded\endinput
  11 % Requires some packages
  12 \ifx\PSTricksLoaded\endinput\else \input pstricks \fi
  13 \ifx\PSTXKeyLoaded\endinput\else  \input pst-xkey \fi
  14 \def\fileversion{0.21}
  15 \def\filedate{2011/10/14}
  16 \message{`PSTANAMORPHOSIS' v\fileversion, \filedate}
  17
  18 \pstheader{anamorphosis.pro}
  19
  20 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
  21 \SpecialCoor
  22 \psset{dimen=middle}
  23
  24 \pst@addfams{pst-anamorphosis}
  25
  26 \define@key[psset]{pst-anamorphosis}{Rmirror}{\edef\psk@Anamorphose@Rmirror{#1 }}%
  27 \psset[pst-anamorphosis]{Rmirror=3}
  28 %
  29 %% === Options spécifiques à l'anamorphose cylindrique -------------------------
  30 \define@key[psset]{pst-anamorphosis}{Xv}{\edef\psk@Anamorphose@Xv{#1 }}%
  31 \define@key[psset]{pst-anamorphosis}{Yv}{\edef\psk@Anamorphose@Yv{#1 }}%
  32 \psset[pst-anamorphosis]{Xv=0,Yv=-10}
  33 %
  34 %% === Options spécifiques à l'anamorphose conique -----------------------------
  35 \define@key[psset]{pst-anamorphosis}{Zs}{\edef\psk@Anamorphose@Zs{#1 }}%
  36 \define@key[psset]{pst-anamorphosis}{Zv}{\edef\psk@Anamorphose@Zv{#1 }}%
  37 \psset[pst-anamorphosis]{Zs=10,Zv=50}
  38 %
  39 %% === Options spécifiques à l'anamorphose spherique -----------------------------
  40 \define@key[psset]{pst-anamorphosis}{Zv}{\edef\psk@Anamorphose@Zv{#1 }}%
  41 \psset[pst-anamorphosis]{Zv=10}
  42 %
  43 %% === Options spécifiques à la perspective -----------------------------
  44 \define@key[psset]{pst-anamorphosis}{ua}{\edef\psk@Anamorphose@ua{#1 }}%
  45 \define@key[psset]{pst-anamorphosis}{F}{\edef\psk@Anamorphose@H{#1 }}%
  46 \define@key[psset]{pst-anamorphosis}{D}{\edef\psk@Anamorphose@D{#1 }}%
  47 \psset[pst-anamorphosis]{ua=2,F=10,D=4}
  48 %
  49 %% === Options scale pour placer une image EPS ---------------------
  50 \define@key[psset]{pst-anamorphosis}{scale}{\edef\psk@Anamorphose@scale{#1 }}%
  51 \psset[pst-anamorphosis]{scale=1 1}
  52 %
  53 %% === Options translate pour placer une image PST---------------------
  54 \define@key[psset]{pst-anamorphosis}{translate}{\edef\psk@Anamorphose@translate{#1 }}%
  55 \psset[pst-anamorphosis]{translate=0 0}
  56 %
  57 %% === Option pour ne pas dessiner l'image anamorphosée---------------------
  58 \newif\ifPst@Anamorphose@draw
  59 \define@key[psset]{pst-anamorphosis}{drawanamorphosis}[true]{\@nameuse{Pst@Anamorphose@draw#1}}
  60 \psset[pst-anamorphosis]{drawanamorphosis=true}
  61 %
  62 %% === Chemin pour les dessins ---------------------------------------------
  63 \define@key[psset]{pst-anamorphosis}{path}{\edef\psk@Anamorphose@Path{#1}} % chemin des dessins
  64 \psset{path=}
  65
  66 %% Reservation des noms de macros
  67 % adaptation de la macro de pst-solides3d
  68 % #1=type de reservation associee a une liste qui
  69 % doit forcement etre du type pst@anamorphosis@list@#1
  70 \def\pst@anamorphosis@reservednames#1{%
  71 \edef\@tempa{\csname pst@anamorphosis@list@#1\endcsname}
  72 \@for \name:=\@tempa\do{%
  73   \expandafter\def\csname pst@anamorphosis@#1@\name\endcsname{}%
  74 }}
  75 % nature de l'anamorphose
  76 \def\pst@anamorphosis@list@type{%
  77   cylindrical,conical,spherical,perspective,inverseperspective}
  78 %
  79 %% Reservation de macros correspondants aux types
  80 \pst@anamorphosis@reservednames{type}
  81 \define@key[psset]{pst-anamorphosis}{type}{%
  82  \ifcsname pst@anamorphosis@type@#1\endcsname
  83    \def\psk@anamorphosis@type{pst-#1}%
  84  \else
  85     \@pstrickserr{The anamorphosis #1 is not defined, the anamorphosis by default is
  86     drawn}{}%
  87  \fi}
  88 % anamorphose par defaut
  89 \psset[pst-anamorphosis]{type=cylindrical}%
  90 %
  91 \pst@def{optionsanamorphosis}<%
  92 /unit {\pst@number\psunit mul } def
  93 /Xv \psk@Anamorphose@Xv unit def
  94 /Yv \psk@Anamorphose@Yv unit def
  95 /Zv \psk@Anamorphose@Zv unit def
  96 /Zs \psk@Anamorphose@Zs unit def
  97 /Rmirror \psk@Anamorphose@Rmirror unit def
  98 /R Rmirror dup mul def
  99 /ua \psk@Anamorphose@ua unit def
 100 /yH \psk@Anamorphose@H unit def
 101 /xD \psk@Anamorphose@D unit def
 102 /Anamorphose  {\psk@anamorphosis@type} def
 103 \psk@Anamorphose@scale
 104 % pour tenir d'un changement d'échelle global
 105  /s@@y exch \pst@number\psyunit mul 28.45274 div def
 106  /s@@x exch \pst@number\psxunit mul 28.45274 div def
 107 >
 108
 109 \def\psanamorphosis{\def\pst@par{}\pst@object{psanamorphosis}}
 110 \def\psanamorphosis@i{\@ifnextchar({\psanamorphosis@do}{\psanamorphosis@do(0,0)}}
 111 \def\psanamorphosis@do(#1)#2{%  #1 = fichier.eps à transformer
 112 \begingroup%
 113 \use@par%
 114   \begin@SpecialObj%
 115   \pst@@getcoor{#1}%
 116     \addto@pscode{
 117       \pst@coor /t@@y ED /t@@x ED % Translate
 118       /fichier (\psk@Anamorphose@Path#2) def
 119     \tx@optionsanamorphosis
 120      Image
 121 \ifPst@Anamorphose@draw
 122    tx@anamorphosisPathDict begin
 123       gsave
 124       /showpage {} def
 125        fichier run
 126       grestore
 127     end
 128 \fi
 129     }%
 130   \end@SpecialObj%
 131 \endgroup%
 132 }