blob: 74df74436395a265e3e416a0f6e9c79680dbc7c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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
|
