/usr/share/texmf-texlive/dvips/pst-light3d/pst-light3d.pro is in texlive-pstricks 2009-10ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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'.
|