2 %% This is file `pst-li3d.pro',
3 %% generated with the docstrip utility.
5 %% The original source files were:
7 %% pst-li3d.dtx (with options: `postscript-header')
11 %% For the copyright see the source file.
13 %% Any modified versions of this file must be renamed
14 %% with new filenames distinct from pst-li3d.pro.
16 %% For distribution of the original source see the terms
17 %% for copying and modification in the file pst-li3d.dtx.
19 %% This generated file may be distributed as long as the
20 %% original source files, as listed above, are part of the
21 %% same distribution. (The sources need not necessarily be
22 %% in the same archive or directory.)
24 %% Package `pst-li3d.dtx'
26 %% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
27 %% and Peter Kleiweg (Rijksuniversiteit Groningen - Nederlands)
28 %% <kleiweg@let.rug.nl> %% %% July 10, 2003
30 %% This program can be redistributed and/or modified under
31 %% the terms of the LaTeX Project Public License Distributed
32 %% from CTAN archives in directory macros/latex/base/lppl.txt.
35 %% `pst-li3d' is a PSTricks package for three dimensional
36 %% lighten effect on characters and PSTricks graphics.
39 /tx@LightThreeDDict 40 dict def
40 tx@LightThreeDDict begin
50 yyc yc sub xxc xc sub 1 index 0 eq 1
51 index 0 eq and not { atan
53 ac LightThreeDMINangle le ac LightThreeDMAXangle ge or
54 { ac LightThreeDAngle sub 2 mul cos 1 add LightThreeDColorPsCommand
55 xc yc moveto xxc yyc lineto LightThreeDDXa LightThreeDDYa
56 rlineto xc LightThreeDDXa add yc LightThreeDDYa add
57 lineto closepath fill } if } if
69 1 LightThreeDSteps div 1 LightThreeDSteps div 1 {
71 3 t sub x1c mul t 2 sub x2c mul 1 t sub x3c mul add 3 mul add x4c
72 t mul add t mul x2c x1c sub 3 mul add t mul x1c add % X
73 3 t sub y1c mul t 2 sub y2c mul
74 1 t sub y3c mul add 3 mul add y4c t mul add t
75 mul y2c y1c sub 3 mul add t mul y1c add % Y
80 x0c 0 eq {x0c} {x0c 1 add} ifelse y0c 0 eq {y0c} {y0c 1 add} ifelse
81 LightThreeDLine newpath
83 /LightThreeDPathForAll {
84 { LightThreeDMove} { LightThreeDLine } { LightThreeDCurve } { LightThreeDClose }
88 %% End of file `pst-li3d.pro'.