diff options
author | Karl Berry <karl@freefriends.org> | 2018-02-14 21:36:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-02-14 21:36:11 +0000 |
commit | fed9568042a15eccfe2f65969a4daaf85ca85659 (patch) | |
tree | 5cd389b8014e00411fa962d87366461e75620011 /Master/texmf-dist/tex | |
parent | 81de6ca8799fd9c8484cdede036a8dc59f31780f (diff) |
pst-antiprism (14feb18)
git-svn-id: svn://tug.org/texlive/trunk@46643 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-antiprism/pst-antiprism.tex | 72 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/pst-antiprism/pst-antiprism.sty | 20 |
2 files changed, 92 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-antiprism/pst-antiprism.tex b/Master/texmf-dist/tex/generic/pst-antiprism/pst-antiprism.tex new file mode 100644 index 00000000000..74df7443639 --- /dev/null +++ b/Master/texmf-dist/tex/generic/pst-antiprism/pst-antiprism.tex @@ -0,0 +1,72 @@ +%% $Id: pst-antiprism.tex 730 2018-02-13 17:50:37Z herbert $ +%% Package `pst-antiprism.tex' +%% +%% 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: 3d representation of an antiprism +%% +%% Author : <manuel.luque27@gmail.com> +%% Author : <hvoss@tug.org> +%% +\csname PSTANTIPRISMLoaded\endcsname +\let \PSTANTIPRISMLoaded\endinput +% Require PSTricks and pst-solides3d +\ifx\PSTricksLoaded\endinput \else\input pstricks.tex\fi +\ifx\PSTSOLIDESIIIDLoaded\endinput \else\input pst-solides3d.tex\fi +\ifx\PSTXKeyLoaded\endinput \else\input pst-xkey.tex\fi + +\def\fileversion{0.02} +\def\filedate{2018/02/07} +\message{`PST' v\fileversion, \filedate} + +\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax + +\pst@addfams{pst-antiprism} + +\pstheader{pst-antiprism.pro} + +\addtosolideslistobject{antiprism,antiprism-fan} + +\define@key[psset]{pst-antiprism}{n}{\def\pst@antiprism@n{#1 }} % nombre de cotes des polygones +% Mesh of the bases of the antiprism +\define@boolkey[psset]{pst-antiprism}[Pst@]{meshbases}[true]{} % +\define@boolkey[psset]{pst-antiprism}[Pst@]{colored}[true]{} % +\define@boolkey[psset]{pst-antiprism}[Pst@]{fan}[true]{} % +\psset[pst-antiprism]{n=5,meshbases=true,colored=false,fan=false} +\psset[pst-solides3d]{a=1} +% +\def\psAntiprism{\pst@object{psAntiprism}} +\def\psAntiprism@i{% + \pst@killglue + \begingroup + \use@keep@par + \ifPst@colored + \addbefore@par{% + fcol= + 0 1 \pst@antiprism@n 2 mul 1 sub {/i exch def i (i \pst@antiprism@n 2 mul div 1 1 sethsbcolor)} for % le tour complet + \pst@antiprism@n 2 mul 1 \pst@antiprism@n 3 mul 1 sub {/i exch def i (i \pst@antiprism@n 2 mul sub \pst@antiprism@n 2 mul div 1 1 sethsbcolor)} for + \pst@antiprism@n 3 mul 1 \pst@antiprism@n 4 mul 1 sub {/i exch def i (i \pst@antiprism@n 2 mul sub \pst@antiprism@n 2 mul div 1 1 sethsbcolor)} for, + opacity=0.9 + }% + \fi + \use@par + \addto@pscode{ + \tx@optionssolides + SolidesDict begin + /n@ \pst@antiprism@n def + /meshbases \ifPst@meshbases true \else false \fi def + end + }% + \ifPst@fan\psSolid[object=antiprism-fan]\else\psSolid[object=antiprism]\fi +% \use@pscode + \showpointsfalse + \endgroup + \ignorespaces +}% % fin de la commande PSTricks + + +\catcode`\@=\PstAtCode\relax +% +\endinput
\ No newline at end of file diff --git a/Master/texmf-dist/tex/latex/pst-antiprism/pst-antiprism.sty b/Master/texmf-dist/tex/latex/pst-antiprism/pst-antiprism.sty new file mode 100644 index 00000000000..8530a8930a1 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pst-antiprism/pst-antiprism.sty @@ -0,0 +1,20 @@ +%% $Id: pst-antiprism.sty 730 2018-02-13 17:50:37Z herbert $ + +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN archives +%% in directory CTAN:/macros/latex/base/lppl.txt. +% +\ProvidesPackage{pst-antiprism.tex}[2018/02/12 package wrapper for PSTricks pst-antiprism.tex] +% +\RequirePackage{pstricks} +\RequirePackage{pst-solides3d} +% +\input{pst-antiprism} +\ProvidesFile{pst-antiprism.tex} + [\filedate\space v\fileversion\space `PST-antiprism.tex'] +\IfFileExists{pst-antiprism.pro}{% + \ProvidesFile{pst-antiprism.pro} + [2018/02/12 PostScript prologue file (ml,hv)] + \@addtofilelist{pst-antiprism.pro}}{}% +\endinput +%% End of file `pst-antiprism.tex.sty'. |