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
|
%%
%% 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.)
\def\pstslpefileversion{1.0}
\def\pstslpefiledate{98/09/15}
\message{ v\pstslpefileversion, \pstslpefiledate}
\csname PstSlopeLoaded\endcsname
\let\PstSlopeLoaded\endinput
\ifx\PSTricksLoaded\endinput\else
\def\next{\input pstricks.tex }\expandafter\next
\fi
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11
\pstheader{pst-slpe.pro}
\newrgbcolor{slopebegin}{0.9 1 0}
\def\psset@slopebegin#1{\pst@getcolor{#1}\psslopebegin}
\psset@slopebegin{slopebegin}
\newrgbcolor{slopeend}{0 0 1}
\def\psset@slopeend#1{\pst@getcolor{#1}\psslopeend}
\psset@slopeend{slopeend}
\def\psset@slopesteps#1{\pst@getint{#1}\psslopesteps}
\psset@slopesteps{100}
\def\psset@slopeangle#1{\pst@getangle{#1}\psx@slopeangle}
\psset@slopeangle{0}
\def\psset@slopecolors#1{\def\psx@slopecolors{#1}}
\def\psx@slopecolors{
0.0 1 0 0
0.4 0 1 0
0.8 0 0 1
1.0 1 0 1
4}
\def\psset@slopecenter#1{\def\psx@slopecenter{#1}}
\def\psx@slopecenter{0.5 0.5}
\def\psset@sloperadius#1{\pst@getlength{#1}\psx@sloperadius}
\def\psx@sloperadius{0}
\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}}
\catcode`\@=\TheAtCode\relax
\endinput
%%
%% End of file `pst-slpe.tex'.
|
