summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-gr3d/pst-gr3d.tex190
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'.