summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
commit873660d1a83ece926fe7206288dda9c36b349c1b (patch)
treea48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex
parent2939242967231097459df0fc3150fabc2f639111 (diff)
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex153
1 files changed, 153 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex b/Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex
new file mode 100644
index 00000000000..cac3278b2cc
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-fr3d/pst-fr3d.tex
@@ -0,0 +1,153 @@
+%%
+%% This is file `pst-fr3d.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% pst-fr3d.dtx (with options: `pst-fr3d')
+%%
+%% IMPORTANT NOTICE:
+%%
+%% For the copyright see the source file.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from pst-fr3d.tex.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file pst-fr3d.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-fr3d.dtx'
+%%
+%% Denis Girou (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
+%%
+%% February 25, 2002
+%%
+%% 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-fr3d' is a PSTricks package to draw three dimensional grids
+%% with various customizations.
+%%
+\csname PstFrameBoxThreeDLoaded\endcsname
+\let\PstFrameBoxThreeDLoaded\endinput
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
+\edef\PstAtCode{\the\catcode`\@}
+\catcode`\@=11\relax
+\pst@addfams{pst-fr3d}
+\def\fileversion{1.01}
+\def\filedate{2004/11/14}
+\message{`Pst-FrameBox3d' v\fileversion, \filedate\space (Denis Girou)}
+\newif\ifPstFrameBoxThreeD@On
+\define@key[psset]{pst-fr3d}{FrameBoxThreeDOn}[true]{\@nameuse{PstFrameBoxThreeD@On#1}}
+\newif\ifPstFrameBoxThreeD@Opposite
+\define@key[psset]{pst-fr3d}{FrameBoxThreeDOpposite}[true]{%
+\@nameuse{PstFrameBoxThreeD@Opposite#1}}
+\define@key[psset]{pst-fr3d}{FrameBoxThreeDColorHSB}{%
+\PstFrameBoxThreeD@ColorHSB@i#1\@nil}
+\def\PstFrameBoxThreeD@ColorHSB@i#1\@nil{%
+\pst@expandafter\pst@getnumiii{#1} {} {} {} {}\@nil
+\edef\PstFrameBoxThreeD@Hue{\pst@tempg}%
+\edef\PstFrameBoxThreeD@Saturation{\pst@temph}%
+\edef\PstFrameBoxThreeD@Brightness{\pst@tempi}}
+\define@key[psset]{pst-fr3d}{FrameBoxThreeDBrightnessDistance}{%
+\edef\PstFrameBoxThreeD@BrightnessDistance{#1}}
+\psset{%
+ FrameBoxThreeDOn=true,FrameBoxThreeDOpposite=false,
+ FrameBoxThreeDColorHSB=0 0 0.5,FrameBoxThreeDBrightnessDistance=0.15}%
+\def\PstFrameBoxThreeD{%
+\@ifnextchar[{\PstFrameBoxThreeD@i}{\PstFrameBoxThreeD@i[]}}
+\def\PstFrameBoxThreeD@i[#1]#2{{%
+\psset{dimen=middle}%
+\psset{#1}%
+\ifdim\PstFrameBoxThreeD@Brightness\p@<\z@%
+ \def\PstFrameBoxThreeD@FillStyle{none}%
+ \def\pst@tempa{0.5}%
+\else
+ \def\PstFrameBoxThreeD@FillStyle{solid}%
+ \def\pst@tempa{\PstFrameBoxThreeD@Brightness}%
+\fi
+\pst@dimh=\pst@tempa\p@
+\advance\pst@dimh\PstFrameBoxThreeD@BrightnessDistance\p@
+\pst@dimtonum{\pst@dimh}{\pst@tempb}%
+\advance\pst@dimh-\PstFrameBoxThreeD@BrightnessDistance\p@
+\advance\pst@dimh-\PstFrameBoxThreeD@BrightnessDistance\p@
+\pst@dimtonum{\pst@dimh}{\pst@tempc}%
+\ifx\definecolor\@undefined
+ \newhsbcolor{PstFrameBoxThreeD@ColorC}{%
+ \PstFrameBoxThreeD@Hue \PstFrameBoxThreeD@Saturation \pst@tempa}%
+ \ifPstFrameBoxThreeD@On
+ \newhsbcolor{PstFrameBoxThreeD@ColorA}{%
+ \PstFrameBoxThreeD@Hue \PstFrameBoxThreeD@Saturation \pst@tempc}%
+ \newhsbcolor{PstFrameBoxThreeD@ColorB}{%
+ \PstFrameBoxThreeD@Hue \PstFrameBoxThreeD@Saturation \pst@tempb}%
+ \else
+ \newhsbcolor{PstFrameBoxThreeD@ColorA}{%
+ \PstFrameBoxThreeD@Hue \PstFrameBoxThreeD@Saturation \pst@tempb}%
+ \newhsbcolor{PstFrameBoxThreeD@ColorB}{%
+ \PstFrameBoxThreeD@Hue \PstFrameBoxThreeD@Saturation \pst@tempc}%
+ \fi
+\else
+ \definecolor{PstFrameBoxThreeD@ColorC}{hsb}{%
+ \PstFrameBoxThreeD@Hue,\PstFrameBoxThreeD@Saturation,\pst@tempa}%
+ \ifPstFrameBoxThreeD@On
+ \definecolor{PstFrameBoxThreeD@ColorA}{hsb}{%
+ \PstFrameBoxThreeD@Hue,\PstFrameBoxThreeD@Saturation,\pst@tempc}%
+ \definecolor{PstFrameBoxThreeD@ColorB}{hsb}{%
+ \PstFrameBoxThreeD@Hue,\PstFrameBoxThreeD@Saturation,\pst@tempb}%
+ \else
+ \definecolor{PstFrameBoxThreeD@ColorA}{hsb}{%
+ \PstFrameBoxThreeD@Hue,\PstFrameBoxThreeD@Saturation,\pst@tempb}%
+ \definecolor{PstFrameBoxThreeD@ColorB}{hsb}{%
+ \PstFrameBoxThreeD@Hue,\PstFrameBoxThreeD@Saturation,\pst@tempc}%
+ \fi
+\fi
+\psset{linestyle=none}%
+\psframebox[fillstyle=\PstFrameBoxThreeD@FillStyle,
+ fillcolor=PstFrameBoxThreeD@ColorC,doubleline=true]{#2}%
+\setbox\pst@boxg=\hbox{\psframebox{#2}}%
+\setbox\pst@hbox=\hbox{\psframebox[doubleline=true]{#2}}%
+\pst@dima=\wd\pst@hbox
+\advance\pst@dima-\wd\pst@boxg
+\divide\pst@dima\tw@
+\pst@dimb=\pst@dima
+\advance\pst@dima\wd\pst@boxg
+\psset{fillstyle=solid}%
+\pspolygon[fillcolor=PstFrameBoxThreeD@ColorA]
+ (-\wd\pst@hbox,-\dp\pst@hbox)(-\pst@dima,-\dp\pst@boxg)
+ (-\pst@dima,\ht\pst@boxg)(-\wd\pst@hbox,\ht\pst@hbox)
+\pspolygon[fillcolor=PstFrameBoxThreeD@ColorB]
+ (-\wd\pst@hbox,\ht\pst@hbox)(-\pst@dima,\ht\pst@boxg)
+ (-\pst@dimb,\ht\pst@boxg)(0,\ht\pst@hbox)
+\ifPstFrameBoxThreeD@Opposite
+ \def\pst@tempa{PstFrameBoxThreeD@ColorA}%
+ \def\pst@tempb{PstFrameBoxThreeD@ColorB}%
+\else
+ \def\pst@tempa{PstFrameBoxThreeD@ColorB}%
+ \def\pst@tempb{PstFrameBoxThreeD@ColorA}%
+\fi
+\pspolygon[fillcolor=\pst@tempa]
+ (0,-\dp\pst@hbox)(-\pst@dimb,-\dp\pst@boxg)
+ (-\pst@dimb,\ht\pst@boxg)(0,\ht\pst@hbox)
+\pspolygon[fillcolor=\pst@tempb]
+ (-\wd\pst@hbox,-\dp\pst@hbox)(-\pst@dima,-\dp\pst@boxg)
+ (-\pst@dimb,-\dp\pst@boxg)(0,-\dp\pst@hbox)
+\ifPstFrameBoxThreeD@Opposite
+\else
+ \psset{linestyle=solid,linewidth=0.2pt,arrows=cc-cc}%
+ \psline[linecolor=PstFrameBoxThreeD@ColorA]
+ (-\pst@dimb,\ht\pst@boxg)(0,\ht\pst@hbox)
+ \psline[linecolor=PstFrameBoxThreeD@ColorB]
+ (-\wd\pst@hbox,-\dp\pst@hbox)(-\pst@dima,-\dp\pst@boxg)
+\fi}}
+\catcode`\@=\PstAtCode\relax
+\endinput
+%%
+%% End of file `pst-fr3d.tex'.