diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-light3d')
-rw-r--r-- | Master/texmf-dist/dvips/pst-light3d/pst-light3d.pro | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-light3d/pst-light3d.pro b/Master/texmf-dist/dvips/pst-light3d/pst-light3d.pro new file mode 100644 index 00000000000..edb6494350e --- /dev/null +++ b/Master/texmf-dist/dvips/pst-light3d/pst-light3d.pro @@ -0,0 +1,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'. |