drapeaux/pst-light3d.tex

   1 %% Package `pst-li3d.tex'
   2 %%
   3 %% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
   4 %% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands)
   5 %% <kleiweg@let.rug.nl>
   6 %%
   7 %% This program can be redistributed and/or modified under
   8 %% the terms of the LaTeX Project Public License Distributed
   9 %% from CTAN archives in directory macros/latex/base/lppl.txt.
  10 %%
  11 %% DESCRIPTION:
  12 %%   `pst-li3d' is a PSTricks package for three dimensional
  13 %%   lighten effect on characters and PSTricks graphics.
  14 %%
  15 %%
  16 \csname PSTLightThreeDLoaded\endcsname
  17 \let\PSTLightThreeDLoaded\endinput
  18 \ifx\PSTricksLoaded\endinput\else\input{pstricks}\fi
  19 %
  20 \input pst-xkey
  21 \pst@addfams{pst-light3d}
  22 %
  23 \def\FileVersion{0.12}
  24 \def\FileDate{2006/11/25}
  25 \message{`Pst-Light3d' v\FileVersion, \FileDate\space(DG/PK)}
  26 %
  27 \edef\PstAtCode{\the\catcode`\@}
  28 \catcode`\@=11\relax
  29 \pstheader{pst-light3d.pro}
  30 %
  31 \define@key[psset]{pst-light3d}{LightThreeDXLength}{%
  32   \pst@getlength{#1}\PstLightThreeD@XLength}
  33 \define@key[psset]{pst-light3d}{LightThreeDYLength}{%
  34   \pst@getlength{#1}\PstLightThreeD@YLength}
  35 \define@key[psset]{pst-light3d}{LightThreeDLength}{%
  36   \pst@getlength{#1}\PstLightThreeD@XLength%
  37   \pst@getlength{#1}\PstLightThreeD@YLength}
  38 \define@key[psset]{pst-light3d}{LightThreeDSteps}{%
  39   \pst@getint{#1}\PstLightThreeD@Steps}
  40 \define@key[psset]{pst-light3d}{LightThreeDAngle}{%
  41   \pst@getangle{#1}\PstLightThreeD@LightAngle}
  42 \define@key[psset]{pst-light3d}{LightThreeDColorPsCommand}{%
  43   \edef\PstLightThreeD@ColorPsCommand{#1}}
  44 \psset{%
  45   LightThreeDXLength=0.2,LightThreeDYLength=0.3,%
  46   LightThreeDSteps=40,LightThreeDAngle=45,%
  47   LightThreeDColorPsCommand=2.5 div setgray}
  48 \def\PstLightThreeDGraphic{\pst@object{PstLightThreeDGraphic}}
  49 \def\PstLightThreeDGraphic@i{%
  50   \pst@makebox{%
  51     \PstLightThreeD@i{%
  52       /LightThreeDDXa LightThreeDDX def
  53       /LightThreeDDYa LightThreeDDY def
  54       /stroke { gsave reversepath LightThreeDPathForAll grestore
  55         LightThreeDPathForAll } def }{ end }%
  56   }%
  57 }
  58 \def\PstLightThreeDText{\pst@object{PstLightThreeDText}}
  59 \def\PstLightThreeDText@i{%
  60   \pst@makebox{%
  61     \PstLightThreeD@i{%
  62       /LightThreeDDXa LightThreeDDX Resolution 100 div mul def
  63       /LightThreeDDYa LightThreeDDY VResolution 100 div mul def
  64       /tx@LightThreeDSavedShow /show load def
  65       /show {
  66         dup
  67         gsave
  68         false charpath
  69         reversepath LightThreeDPathForAll
  70         grestore true charpath
  71       } def }%
  72     {/show /tx@LightThreeDSavedShow load def end }%
  73   \begin@ClosedObj%
  74     \def\use@pscode{%
  75       \pst@Verb{%
  76         gsave
  77         \tx@STV
  78         \pst@code grestore CP newpath moveto
  79       }%
  80       \gdef\pst@code{}%
  81     }%
  82     \end@ClosedObj%
  83   }%
  84 }%
  85 \def\PstLightThreeD@i#1#2{{%
  86   \use@par%
  87   \leavevmode%
  88   \pstVerb{%
  89     tx@LightThreeDDict begin
  90       /LightThreeDDX \PstLightThreeD@XLength\space def
  91       /LightThreeDDY \PstLightThreeD@YLength\space neg def
  92       /LightThreeDSteps \PstLightThreeD@Steps def
  93       /LightThreeDAngle \PstLightThreeD@LightAngle def
  94       /LightThreeDColorPsCommand {\PstLightThreeD@ColorPsCommand} def
  95       /LightThreeDMINangle LightThreeDDY LightThreeDDX atan 180 sub def
  96       /LightThreeDMAXangle LightThreeDDY LightThreeDDX atan def
  97       #1}%
  98   \hbox{\box\pst@hbox}%
  99   \pstVerb{#2}%
 100 }\ignorespaces}
 101 %
 102 \catcode`\@=\PstAtCode\relax
 103 \endinput
 104 %%
 105 %% End of file `pst-li3d.tex'.
 106
 107 \iffalse
 108 0.11 hv use pst-xkey
 109 0.10 hv initial version
 110 \fi