img/serie02/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 %% Reservation des noms de macros
  63 % adaptation de la macro de pst-solides3d
  64 % #1=type de reservation associee a une liste qui
  65 % doit forcement etre du type pst@anamorphosis@list@#1
  66 \def\pst@anamorphosis@reservednames#1{%
  67 \edef\@tempa{\csname pst@anamorphosis@list@#1\endcsname}
  68 \@for \name:=\@tempa\do{%
  69   \expandafter\def\csname pst@anamorphosis@#1@\name\endcsname{}%
  70 }}
  71 % nature de l'anamorphose
  72 \def\pst@anamorphosis@list@type{%
  73   cylindrical,conical,spherical,perspective,inverseperspective}
  74 %
  75 %% Reservation de macros correspondants aux types
  76 \pst@anamorphosis@reservednames{type}
  77 \define@key[psset]{pst-anamorphosis}{type}{%
  78  \ifcsname pst@anamorphosis@type@#1\endcsname
  79    \def\psk@anamorphosis@type{pst-#1}%
  80  \else
  81     \@pstrickserr{The anamorphosis #1 is not defined, the anamorphosis by default is
  82     drawn}{}%
  83  \fi}
  84 % anamorphose par defaut
  85 \psset[pst-anamorphosis]{type=cylindrical}%
  86 %
  87 \pst@def{optionsanamorphosis}<%
  88 /unit {\pst@number\psunit mul } def
  89 /Xv \psk@Anamorphose@Xv unit def
  90 /Yv \psk@Anamorphose@Yv unit def
  91 /Zv \psk@Anamorphose@Zv unit def
  92 /Zs \psk@Anamorphose@Zs unit def
  93 /Rmirror \psk@Anamorphose@Rmirror unit def
  94 /R Rmirror dup mul def
  95 /ua \psk@Anamorphose@ua unit def
  96 /yH \psk@Anamorphose@H unit def
  97 /xD \psk@Anamorphose@D unit def
  98 /Anamorphose  {\psk@anamorphosis@type} def
  99 \psk@Anamorphose@scale
 100 % pour tenir d'un changement d'échelle global
 101  /s@@y exch \pst@number\psyunit mul 28.45274 div def
 102  /s@@x exch \pst@number\psxunit mul 28.45274 div def
 103 >
 104
 105 \def\psanamorphosis{\def\pst@par{}\pst@object{psanamorphosis}}
 106 \def\psanamorphosis@i{\@ifnextchar({\psanamorphosis@do}{\psanamorphosis@do(0,0)}}
 107 \def\psanamorphosis@do(#1)#2{%  #1 = fichier.eps à transformer
 108 \begingroup%
 109 \use@par%
 110   \begin@SpecialObj%
 111   \pst@@getcoor{#1}%
 112     \addto@pscode{
 113       \pst@coor /t@@y ED /t@@x ED % Translate
 114       /fichier (#2) def
 115     \tx@optionsanamorphosis
 116      Image
 117 \ifPst@Anamorphose@draw
 118    tx@anamorphosisPathDict begin
 119       gsave
 120       /showpage {} def
 121        fichier run
 122       grestore
 123     end
 124 \fi
 125     }%
 126   \end@SpecialObj%
 127 \endgroup%
 128 }