1 %% Package `pst-li3d.tex'
3 %% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
4 %% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands)
5 %% <kleiweg@let.rug.nl>
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.
12 %% `pst-li3d' is a PSTricks package for three dimensional
13 %% lighten effect on characters and PSTricks graphics.
16 \csname PSTLightThreeDLoaded
\endcsname
17 \let\PSTLightThreeDLoaded\endinput
18 \ifx\PSTricksLoaded\endinput\else\input{pstricks
}\fi
21 \pst@addfams
{pst-light3d
}
23 \def\FileVersion{0.12}
24 \def\FileDate{2006/
11/
25}
25 \message{`Pst-Light3d' v
\FileVersion,
\FileDate\space(DG/PK)
}
27 \edef\PstAtCode{\the\catcode`\@
}
29 \pstheader{pst-light3d.pro
}
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}}
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
{%
52 /LightThreeDDXa LightThreeDDX def
53 /LightThreeDDYa LightThreeDDY def
54 /stroke
{ gsave reversepath LightThreeDPathForAll grestore
55 LightThreeDPathForAll
} def
}{ end
}%
58 \def\PstLightThreeDText{\pst@object
{PstLightThreeDText
}}
59 \def\PstLightThreeDText@i
{%
62 /LightThreeDDXa LightThreeDDX Resolution
100 div mul def
63 /LightThreeDDYa LightThreeDDY VResolution
100 div mul def
64 /tx@LightThreeDSavedShow /show load def
69 reversepath LightThreeDPathForAll
70 grestore true charpath
72 {/show /tx@LightThreeDSavedShow load def end
}%
78 \pst@code grestore CP newpath moveto
85 \def\PstLightThreeD@i
#1#2{{%
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
102 \catcode`\@=
\PstAtCode\relax
105 %% End of file `pst-li3d.tex'.
109 0.10 hv initial version