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
110
111
112
113
114
115
116
117
118
119
120
121
122
|
%%
%% This is file `pst-slpe.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% pst-slpe.dtx (with options: `texfile')
%%
%% IMPORTANT NOTICE:
%%
%% For the copyright see the source file.
%%
%% Any modified versions of this file must be renamed
%% with new filenames distinct from pst-slpe.tex.
%%
%% For distribution of the original source see the terms
%% for copying and modification in the file pst-slpe.dtx.
%%
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%% 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.
%%
\def\pstslpefileversion{1.2}
\def\pstslpefiledate{2008/06/19}
\message{ v\pstslpefileversion, \pstslpefiledate}
\csname PstSlopeLoaded\endcsname
\let\PstSlopeLoaded\endinput
\ifx\PSTricksLoaded\endinput\else
\def\next{\input pstricks.tex }\expandafter\next
\fi
\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi % --> hv
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11
\pst@addfams{pst-slpe} % --> hv
\pstheader{pst-slpe.pro}
\newrgbcolor{slopebegin}{0.9 1 0}
\define@key[psset]{pst-slpe}{slopebegin}{\pst@getcolor{#1}\psslopebegin}% --> hv
\psset[pst-slpe]{slopebegin=slopebegin} % --> hv
\newrgbcolor{slopeend}{0 0 1}
\define@key[psset]{pst-slpe}{slopeend}{\pst@getcolor{#1}\psslopeend}% --> hv
\psset[pst-slpe]{slopeend=slopeend}% --> hv
\define@key[psset]{pst-slpe}{slopesteps}{\pst@getint{#1}\psslopesteps}% --> hv
\psset[pst-slpe]{slopesteps=100}% --> hv
\define@key[psset]{pst-slpe}{slopeangle}{\pst@getangle{#1}\psx@slopeangle}% --> hv
\psset[pst-slpe]{slopeangle=0}% --> hv
\define@key[psset]{pst-slpe}{slopecolors}{\def\psx@slopecolors{#1}}% --> hv
\psset[pst-slpe]{slopecolors={% --> hv
0.0 1 0 0
0.4 0 1 0
0.8 0 0 1
1.0 1 0 1
4}}
\define@key[psset]{pst-slpe}{slopecenter}{\def\psx@slopecenter{#1}}% --> hv
\psset[pst-slpe]{slopecenter={0.5 0.5}}% --> hv
\define@key[psset]{pst-slpe}{sloperadius}{\pst@getlength{#1}\psx@sloperadius}% --> hv
\psset[pst-slpe]{sloperadius=0}% --> hv
\def\psfs@slopes{%
\addto@pscode{
\psx@slopecolors\space
\psslopesteps
\psx@slopeangle
tx@PstSlopeDict begin SlopesFill end}}
\def\psfs@slope{%
\addto@pscode{%
gsave
0 \pst@usecolor\psslopebegin currentrgbcolor
1 \pst@usecolor\psslopeend currentrgbcolor
2
grestore
\psslopesteps \psx@slopeangle tx@PstSlopeDict begin SlopesFill end}}
\def\psfs@ccslopes{%
\addto@pscode{%
\psx@slopecolors\space
\psslopesteps \psx@slopecenter\space \psx@sloperadius\space
tx@PstSlopeDict begin CcSlopesFill end}}
\def\psfs@ccslope{%
\addto@pscode{%
gsave 0 \pst@usecolor\psslopebegin currentrgbcolor
1 \pst@usecolor\psslopeend currentrgbcolor
2 grestore
\psslopesteps \psx@slopecenter\space \psx@sloperadius\space
tx@PstSlopeDict begin CcSlopesFill end}}
\def\psfs@radslopes{%
\addto@pscode{%
\psx@slopecolors\space
\psslopesteps\psx@slopecenter\space\psx@sloperadius\space\psx@slopeangle
tx@PstSlopeDict begin RadSlopesFill end}}
\def\psfs@radslope{%
\addto@pscode{%
gsave 0 \pst@usecolor\psslopebegin currentrgbcolor
1 \pst@usecolor\psslopeend currentrgbcolor
2 \pst@usecolor\psslopebegin currentrgbcolor
3 \pst@usecolor\psslopeend currentrgbcolor
4 \pst@usecolor\psslopebegin currentrgbcolor
5 grestore
\psslopesteps\psx@slopecenter\space\psx@sloperadius\space\psx@slopeangle
tx@PstSlopeDict begin RadSlopesFill end}}
\def\psBall{\pst@object{psBall}}
\def\psBall@i{\@ifnextchar(\psBall@ii{\psBall@ii(0,0)}}
\def\psBall@ii(#1,#2)#3#4{%
\pst@killglue
\pst@dima=#4%
\pst@dimb=#4%
\advance\pst@dima by 0.075\pst@dimb%
\begingroup%
\addbefore@par{sloperadius=\the\pst@dima,fillstyle=ccslope,
slopebegin=white,slopeend=#3,slopecenter=0.4 0.6,linestyle=none}%
\use@par%
\pscircle(#1,#2){#4}%
\endgroup\ignorespaces%
}
\catcode`\@=\TheAtCode\relax
\endinput
%%
%% End of file `pst-slpe.tex'.
|