drapeaux/pst-light3d.pro

   1 %%
   2 %% This is file `pst-li3d.pro',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% pst-li3d.dtx  (with options: `postscript-header')
   8 %%
   9 %% IMPORTANT NOTICE:
  10 %%
  11 %% For the copyright see the source file.
  12 %%
  13 %% Any modified versions of this file must be renamed
  14 %% with new filenames distinct from pst-li3d.pro.
  15 %%
  16 %% For distribution of the original source see the terms
  17 %% for copying and modification in the file pst-li3d.dtx.
  18 %%
  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.)
  23 %%
  24 %% Package `pst-li3d.dtx'
  25 %%
  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
  29 %%
  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.
  33 %%
  34 %% DESCRIPTION:
  35 %%   `pst-li3d' is a PSTricks package for three dimensional
  36 %%   lighten effect on characters and PSTricks graphics.
  37 %%
  38 %%
  39 /tx@LightThreeDDict 40 dict def
  40 tx@LightThreeDDict begin
  41 /LightThreeDMove {
  42   /y0c exch def
  43   /x0c exch def
  44   /xc x0c def
  45   /yc y0c def
  46   newpath } def
  47 /LightThreeDLine {
  48   /yyc exch def
  49   /xxc exch def
  50   yyc yc sub xxc xc sub 1 index 0 eq 1
  51   index 0 eq and not { atan
  52   /ac exch def
  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
  58     /xc xxc def
  59     /yc yyc def } def
  60 /LightThreeDCurve {
  61   /y4c exch def
  62   /x4c exch def
  63   /y3c exch def
  64   /x3c exch def
  65   /y2c exch def
  66   /x2c exch def
  67   /y1c yc def
  68   /x1c xc def
  69 1 LightThreeDSteps div 1 LightThreeDSteps div 1 {
  70   /t exch def
  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
  76   LightThreeDLine
  77   } for
  78 } def
  79 /LightThreeDClose {
  80   x0c 0 eq {x0c} {x0c 1 add} ifelse y0c 0 eq {y0c} {y0c 1 add} ifelse
  81   LightThreeDLine newpath
  82 } def
  83 /LightThreeDPathForAll {
  84   { LightThreeDMove} { LightThreeDLine } { LightThreeDCurve } { LightThreeDClose }
  85     pathforall} def
  86 end
  87 %%
  88 %% End of file `pst-li3d.pro'.