generic 1

git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 190 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex b/Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex
new file mode 100644
index 00000000000..8bb39f06c6f
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex
@@ -0,0 +1,190 @@
+%%
+%% This is file `pst-gr3d.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% pst-gr3d.dtx  (with options: `pst-gr3d')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from pst-gr3d.tex.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file pst-gr3d.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-gr3d.dtx'
+%%
+%% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
+%% Herbert Voss <voss@perce.de>
+%%
+%% 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-gr3d' is a PSTricks package to draw three dimensional grids
+%%   with various customization
+%%
+\def\fileversion{1.34}
+\def\filedate{2005/09/12}
+\message{`PST-Grid3d' v\fileversion, \filedate\space (Denis Girou)}
+\csname PSTGridThreeDLoaded\endcsname
+\let\PSTGridThreeDLoaded\endinput
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
+\ifx\PSTthreeDLoaded\endinput\else\input pst-3d.tex\fi
+\ifx\MultidoLoaded\endinput\else\input multido.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey\fi
+%%
+\edef\PstAtCode{\the\catcode`\@}\catcode`\@=11\relax
+\pst@addfams{pst-gr3d}
+%%
+%% change Pst@Debug to prevent a clash with pst-fill
+%% which has the same option. Now pstricks defines Pst@Debug
+%%\define@key[psset]{pst-gr3d}{PstDebug}{\pst@getint{#1}{\Pst@Debug}}
+%% end hv 2004-06-22
+\newif\ifPst@PstPicture
+\define@key[psset]{pst-gr3d}{PstPicture}[true]{\@nameuse{Pst@PstPicture#1}}
+\newif\ifPstGridThreeD@Nodes
+\define@key[psset]{pst-gr3d}{GridThreeDNodes}[true]{%
+   \@nameuse{PstGridThreeD@Nodes#1}}
+\define@key[psset]{pst-gr3d}{GridThreeDXUnit}{%
+  \pst@getint{#1}{\PstGridThreeD@XUnit}}
+\define@key[psset]{pst-gr3d}{GridThreeDYUnit}{%
+  \pst@getint{#1}{\PstGridThreeD@YUnit}}
+\define@key[psset]{pst-gr3d}{GridThreeDZUnit}{%
+  \pst@getint{#1}{\PstGridThreeD@ZUnit}}
+\define@key[psset]{pst-gr3d}{GridThreeDXPos}{%
+  \pst@getint{#1}{\PstGridThreeD@XPos}}
+\define@key[psset]{pst-gr3d}{GridThreeDYPos}{%
+  \pst@getint{#1}{\PstGridThreeD@YPos}}
+\define@key[psset]{pst-gr3d}{GridThreeDZPos}{%
+  \pst@getint{#1}{\PstGridThreeD@ZPos}}
+\define@key[psset]{pst-gr3d}{Rx}{\psset{XnodesepA=#1}}
+\define@key[psset]{pst-gr3d}{Ry}{\psset{offsetA=#1}}
+\psset{viewpoint=1.2 -0.6 0.8}
+\psset{%
+PstDebug=0,PstPicture=true,GridThreeDNodes=false,
+GridThreeDXPos=0,GridThreeDYPos=0,GridThreeDZPos=0,
+GridThreeDXUnit=1,GridThreeDYUnit=1,GridThreeDZUnit=1}
+\def\PstGridThreeD{\@ifnextchar[{\PstGridThreeD@i}{\PstGridThreeD@i[]}}
+\def\PstGridThreeD@i[#1](#2,#3,#4){{%
+\psset{dimen=middle}%
+\psset{#1}%
+\pst@cnth=#2
+\multiply\pst@cnth\PstGridThreeD@XUnit
+\divide\pst@cnth\tw@
+\ifodd\pst@cnth
+  \edef\PstGridThreeD@PictureYmin{-\the\pst@cnth}%
+\else
+  \edef\PstGridThreeD@PictureYmin{-\the\pst@cnth.5}%
+\fi
+\pst@cntg=#3
+\multiply\pst@cntg\PstGridThreeD@YUnit
+\pst@cnth=#2
+\divide\pst@cnth\tw@
+\multiply\pst@cnth\PstGridThreeD@XUnit
+\advance\pst@cntg\pst@cnth
+\pst@cnth=#3
+\advance\pst@cnth\m@ne
+\multiply\pst@cnth\PstGridThreeD@YUnit
+\divide\pst@cnth\tw@
+\pst@cntd=#4
+\multiply\pst@cntd\PstGridThreeD@ZUnit
+\advance\pst@cntd\pst@cnth
+\ifnum\pst@cnth=\z@
+  \edef\PstGridThreeD@PictureYmax{\the\pst@cntd.5}%
+\else
+  \edef\PstGridThreeD@PictureYmax{\the\pst@cntd}%
+\fi
+\ifPst@PstPicture
+  \ifnum\Pst@Debug=\@ne
+    \psframebox[framesep=0]{%
+  \fi
+  \pspicture(0,\PstGridThreeD@PictureYmin)
+            (\the\pst@cntg,\PstGridThreeD@PictureYmax)
+\fi
+\pst@cntd=\PstGridThreeD@XPos
+\multiply\pst@cntd\PstGridThreeD@XUnit
+\pst@cntg=\PstGridThreeD@YPos
+\multiply\pst@cntg\PstGridThreeD@YUnit
+\pst@cnth=\PstGridThreeD@ZPos
+\multiply\pst@cnth\PstGridThreeD@ZUnit
+\ifx\PstGridThreeDHookZFace\empty
+\else
+  \pst@cntc=#4
+  \advance\pst@cntc\@ne
+  \multido{\iz=#4+-\PstGridThreeD@ZUnit}{\pst@cntc}{% Z face hook
+    \ThreeDput[normal=0 0 1](\pst@cntd,\pst@cntg,\iz){\PstGridThreeDHookZFace}}
+\fi
+\pst@cntc=#2
+\advance\pst@cntc\@ne
+\multido{\ix=\pst@cntd+\PstGridThreeD@XUnit}{\pst@cntc}{%
+  \ThreeDput[normal=1 0 0](\ix,\pst@cntg,\pst@cnth){%
+    \PstGridThreeDHookXFace
+    \psgrid[xunit=\PstGridThreeD@YUnit,yunit=\PstGridThreeD@ZUnit,
+            subgriddiv=0,gridlabels=0](#3,#4)}}
+\pst@cnta=#3
+\multiply\pst@cnta\PstGridThreeD@YUnit
+\advance\pst@cnta\pst@cntg
+\pst@cntc=#3
+\advance\pst@cntc\@ne
+\multido{\iy=\pst@cnta+-\PstGridThreeD@YUnit}{\pst@cntc}{%
+  \ThreeDput[normal=0 1 0](\pst@cntd,\iy,\pst@cnth){%
+    \PstGridThreeDYFace{#2}{#4}{\iy}}}
+\PstGridThreeD@HookEnd
+\ifPst@PstPicture
+  \endpspicture
+  \ifnum\Pst@Debug=\@ne
+}
+  \fi
+\fi}}
+\def\PstGridThreeDYFace#1#2#3{%
+\PstGridThreeDHookYFace%
+\psgrid[xunit=\PstGridThreeD@XUnit,yunit=\PstGridThreeD@ZUnit,
+        subgriddiv=0,gridlabels=0](-#1,#2)
+\pst@cnta=#1
+\advance\pst@cnta\@ne
+\pst@cntb=#2
+\advance\pst@cntb\@ne
+\pst@cntg=#3
+\multido{\ia=0+-\PstGridThreeD@XUnit}{\pst@cnta}{%
+  \pst@cntc=\multidocount
+  \advance\pst@cntc\m@ne
+  \multido{\ib=0+\PstGridThreeD@ZUnit}{\pst@cntb}{%
+    \ifPstGridThreeD@Nodes
+      \pst@cntd=\multidocount
+      \advance\pst@cntd\m@ne
+      \pnode(\ia,\ib){Gr3dNode\the\pst@cntc\the\pst@cntg\the\pst@cntd}
+    \fi
+    \ifx\PstGridThreeDHookNode\empty
+    \else
+      \rput(\ia,\ib){\PstGridThreeDHookNode}
+    \fi}}}
+\def\PstGridThreeDHookNode{}
+\def\PstGridThreeDHookXFace{}
+\def\PstGridThreeDHookYFace{}
+\def\PstGridThreeDHookZFace{}
+\def\PstGridThreeDHookEnd{}
+\def\PstGridThreeD@HookEnd{%
+\def\PstGridThreeD@HookEnd{}%
+\PstGridThreeDHookEnd}
+\def\PstGridThreeDNodeProcessor#1{{%
+\psset{unit=0.3}
+\pspicture(-0.5,-0.5)(0.5,0.5)
+  \pscircle*[linecolor=#1]{0.5}
+  \pscircle*[linecolor=white]{0.2}
+\endpspicture}}
+\catcode`\@=\PstAtCode\relax
+\endinput
+%%
+%% End of file `pst-gr3d.tex'.