summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-light3d/pst-light3d.tex
blob: b255804621468ec772b6ba446cba04bc50d36cc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
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