blob: edb6494350efd684cad9dccfd1df4af7997df33a (
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
|
%%
%% This is file `pst-li3d.pro',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% pst-li3d.dtx (with options: `postscript-header')
%%
%% IMPORTANT NOTICE:
%%
%% For the copyright see the source file.
%%
%% Any modified versions of this file must be renamed
%% with new filenames distinct from pst-li3d.pro.
%%
%% For distribution of the original source see the terms
%% for copying and modification in the file pst-li3d.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.)
%%
%% Package `pst-li3d.dtx'
%%
%% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands)
%% <kleiweg@let.rug.nl> %% %% July 10, 2003
%%
%% 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.
%%
%%
/tx@LightThreeDDict 40 dict def
tx@LightThreeDDict begin
/LightThreeDMove {
/y0c exch def
/x0c exch def
/xc x0c def
/yc y0c def
newpath } def
/LightThreeDLine {
/yyc exch def
/xxc exch def
yyc yc sub xxc xc sub 1 index 0 eq 1
index 0 eq and not { atan
/ac exch def
ac LightThreeDMINangle le ac LightThreeDMAXangle ge or
{ ac LightThreeDAngle sub 2 mul cos 1 add LightThreeDColorPsCommand
xc yc moveto xxc yyc lineto LightThreeDDXa LightThreeDDYa
rlineto xc LightThreeDDXa add yc LightThreeDDYa add
lineto closepath fill } if } if
/xc xxc def
/yc yyc def } def
/LightThreeDCurve {
/y4c exch def
/x4c exch def
/y3c exch def
/x3c exch def
/y2c exch def
/x2c exch def
/y1c yc def
/x1c xc def
1 LightThreeDSteps div 1 LightThreeDSteps div 1 {
/t exch def
3 t sub x1c mul t 2 sub x2c mul 1 t sub x3c mul add 3 mul add x4c
t mul add t mul x2c x1c sub 3 mul add t mul x1c add % X
3 t sub y1c mul t 2 sub y2c mul
1 t sub y3c mul add 3 mul add y4c t mul add t
mul y2c y1c sub 3 mul add t mul y1c add % Y
LightThreeDLine
} for
} def
/LightThreeDClose {
x0c 0 eq {x0c} {x0c 1 add} ifelse y0c 0 eq {y0c} {y0c 1 add} ifelse
LightThreeDLine newpath
} def
/LightThreeDPathForAll {
{ LightThreeDMove} { LightThreeDLine } { LightThreeDCurve } { LightThreeDClose }
pathforall} def
end
%%
%% End of file `pst-li3d.pro'.
|
