summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-light3d
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
commit873660d1a83ece926fe7206288dda9c36b349c1b (patch)
treea48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/pst-light3d
parent2939242967231097459df0fc3150fabc2f639111 (diff)
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-light3d')
-rw-r--r--Master/texmf-dist/tex/generic/pst-light3d/pst-light3d.tex109
1 files changed, 109 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-light3d/pst-light3d.tex b/Master/texmf-dist/tex/generic/pst-light3d/pst-light3d.tex
new file mode 100644
index 00000000000..b2558046214
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-light3d/pst-light3d.tex
@@ -0,0 +1,109 @@
+%% Package `pst-li3d.tex'
+%%
+%% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
+%% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands)
+%% <kleiweg@let.rug.nl>
+%%
+%% This program can be redistributed and/or modified under
+%% the terms of the LaTeX Project Public License Distributed
+%% from CTAN archives in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-li3d' is a PSTricks package for three dimensional
+%% lighten effect on characters and PSTricks graphics.
+%%
+%%
+\csname PSTLightThreeDLoaded\endcsname
+\let\PSTLightThreeDLoaded\endinput
+\ifx\PSTricksLoaded\endinput\else\input{pstricks}\fi
+%
+\input pst-xkey
+\pst@addfams{pst-light3d}
+%
+\def\FileVersion{0.11}
+\def\FileDate{2004/09/29}
+\message{`Pst-Light3d' v\FileVersion, \FileDate\space(DG/PK)}
+%
+\edef\PstAtCode{\the\catcode`\@}
+\catcode`\@=11\relax
+\pstheader{pst-light3d.pro}
+%
+\define@key[psset]{pst-light3d}{LightThreeDXLength}{%
+ \pst@getlength{#1}\PstLightThreeD@XLength}
+\define@key[psset]{pst-light3d}{LightThreeDYLength}{%
+ \pst@getlength{#1}\PstLightThreeD@YLength}
+\define@key[psset]{pst-light3d}{LightThreeDLength}{%
+ \pst@getlength{#1}\PstLightThreeD@XLength%
+ \pst@getlength{#1}\PstLightThreeD@YLength}
+\define@key[psset]{pst-light3d}{LightThreeDSteps}{%
+ \pst@getint{#1}\PstLightThreeD@Steps}
+\define@key[psset]{pst-light3d}{LightThreeDAngle}{%
+ \pst@getangle{#1}\PstLightThreeD@LightAngle}
+\define@key[psset]{pst-light3d}{LightThreeDColorPsCommand}{%
+ \edef\PstLightThreeD@ColorPsCommand{#1}}
+\psset{%
+ LightThreeDXLength=0.2,LightThreeDYLength=0.3,%
+ LightThreeDSteps=40,LightThreeDAngle=45,%
+ LightThreeDColorPsCommand=2.5 div setgray}
+\def\PstLightThreeDGraphic{\pst@object{PstLightThreeDGraphic}}
+\def\PstLightThreeDGraphic@i{%
+ \pst@makebox{%
+ \PstLightThreeD@i{%
+ /LightThreeDDXa LightThreeDDX def
+ /LightThreeDDYa LightThreeDDY def
+ /stroke { gsave reversepath LightThreeDPathForAll grestore
+ LightThreeDPathForAll } def }{ end }%
+ }%
+}
+\def\PstLightThreeDText{\pst@object{PstLightThreeDText}}
+\def\PstLightThreeDText@i{%
+ \pst@makebox{%
+ \PstLightThreeD@i{%
+ /LightThreeDDXa LightThreeDDX Resolution 100 div mul def
+ /LightThreeDDYa LightThreeDDY VResolution 100 div mul def
+ /tx@LightThreeDSavedShow /show load def
+ /show {
+ dup
+ gsave
+ false charpath
+ reversepath LightThreeDPathForAll
+ grestore true charpath
+ } def }%
+ {/show /tx@LightThreeDSavedShow load def end }%
+ \begin@ClosedObj%
+ \def\use@pscode{%
+ \pst@Verb{%
+ gsave
+ \tx@STV
+ \pst@code grestore CP newpath moveto
+ }%
+ \gdef\pst@code{}
+ }%
+ \end@ClosedObj%
+ }%
+}%
+\def\PstLightThreeD@i#1#2{{%
+ \use@par%
+ \leavevmode%
+ \pstVerb{%
+ tx@LightThreeDDict begin
+ /LightThreeDDX \PstLightThreeD@XLength\space def
+ /LightThreeDDY \PstLightThreeD@YLength\space neg def
+ /LightThreeDSteps \PstLightThreeD@Steps def
+ /LightThreeDAngle \PstLightThreeD@LightAngle def
+ /LightThreeDColorPsCommand {\PstLightThreeD@ColorPsCommand} def
+ /LightThreeDMINangle LightThreeDDY LightThreeDDX atan 180 sub def
+ /LightThreeDMAXangle LightThreeDDY LightThreeDDX atan def
+ #1}%
+ \hbox{\box\pst@hbox}%
+ \pstVerb{#2}%
+}}
+\catcode`\@=\PstAtCode\relax
+\endinput
+%%
+%% End of file `pst-li3d.tex'.
+
+\iffalse
+0.11 hv use pst-xkey
+0.10 hv initial version
+\fi \ No newline at end of file