From e7bbf19e758762cc76a2e8d23e34cd252496b3c3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 31 Dec 2009 01:28:27 +0000 Subject: new pstricks package pst-platon 0.01 (25dec09) git-svn-id: svn://tug.org/texlive/trunk@16538 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/pst-platon/Changes | 6 + Master/texmf-dist/doc/generic/pst-platon/README | 10 + .../doc/generic/pst-platon/pst-platon-doc.bib | 181 ++++++++++++++ .../doc/generic/pst-platon/pst-platon-doc.pdf | Bin 0 -> 114566 bytes .../doc/generic/pst-platon/pst-platon-doc.tex | 265 +++++++++++++++++++++ .../texmf-dist/source/generic/pst-platon/Makefile | 70 ++++++ .../texmf-dist/tex/latex/pst-platon/pst-platon.sty | 240 +++++++++++++++++++ 7 files changed, 772 insertions(+) create mode 100644 Master/texmf-dist/doc/generic/pst-platon/Changes create mode 100644 Master/texmf-dist/doc/generic/pst-platon/README create mode 100644 Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.bib create mode 100644 Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.pdf create mode 100644 Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.tex create mode 100644 Master/texmf-dist/source/generic/pst-platon/Makefile create mode 100644 Master/texmf-dist/tex/latex/pst-platon/pst-platon.sty (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/doc/generic/pst-platon/Changes b/Master/texmf-dist/doc/generic/pst-platon/Changes new file mode 100644 index 00000000000..211e1ac1bc0 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-platon/Changes @@ -0,0 +1,6 @@ +pst-platon.sty -------- +v. 0.01 2009-12-25 initial CTAN version + + +pst-am-doc.tex -------- +2009-12-25 first documentation diff --git a/Master/texmf-dist/doc/generic/pst-platon/README b/Master/texmf-dist/doc/generic/pst-platon/README new file mode 100644 index 00000000000..e8786ac2679 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-platon/README @@ -0,0 +1,10 @@ +pst-platon: platonic solids + +pst-platon.sty - The LaTeX file +pst-platon-doc.pdf - The documentation +pst-platon-doc.tex - The documentation, source +pst-platon-doc.bib - The documentation, bibfile + + +-- +Herbert Voss 2012-12-25 diff --git a/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.bib b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.bib new file mode 100644 index 00000000000..cb8f1f164c5 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.bib @@ -0,0 +1,181 @@ +%% -*-bibtex-*- +@STRING{tugboat = {TUGboat} } +@STRING{beiprogramm = {{\TeX}-Beiprogramm} } +@STRING{bretter = {Bretter, die die Welt bedeuten} } +@STRING{dtk = {{D}ie {\TeX}nische {K}om{\"o}die} } +@STRING{editorial = {Editorial} } +@STRING{fremdebuehne = {Von fremden B{\"u}hnen} } +@STRING{fundus = {Aus dem Fundus} } +@STRING{hinterbuehne = {Hinter der B{\"u}hne} } +@STRING{leserbrief = {Leserbrief(e)} } +@STRING{magazin = {Magazin} } +@STRING{rezension = {Rezensionen} } +@STRING{schonimmer = {Was Sie schon immer {\"u}ber {\TeX} wissen wollten \dots} } +@STRING{theaterkasse = {Von der Theaterkasse} } +@STRING{theatertage = {{\TeX}-Theatertage} } + +@Book{PSTricks2, + author = {Herbert Vo\ss}, + title = {{\PST} {G}rafik f\"ur \TeX{} und \LaTeX}, + edition = {fifth}, + publisher = {DANTE -- Lob.media}, + year = {2008}, + address = {Heidelberg/Hamburg} +} + +@Book{companion04, + author = {Frank Mittelbach and Michel Goosens et al}, + title = {The {\LaTeX} {C}ompanion}, + edition = {second}, + publisher = {Addison-Wesley Publishing Company}, + year = {2004}, + address = {Boston} +} + +@Book{begleiter05, + author = {Frank Mittelbach and Michel Goosens et al}, + title = {Der {\LaTeX} {B}egleiter}, + edition = {zweite}, + publisher = {Pearson Education}, + year = {2005}, + address = {M\"unchen} +} + +@Book{unbound, + author = {Alan Hoenig}, + title = {\TeX{} {U}nbound: \LaTeX{} \& \TeX{} {S}trategies, {F}onts, {G}raphics, and {M}ore}, + publisher = {Oxford University Press}, + year = {1998}, + address = {London} +} +@Article{ dtk02.2:jackson.voss:plot-funktionen, + author = {Laura E. Jackson and Herbert Vo{\ss}}, + title = {Die Plot-Funktionen von {\texttt{pst-plot}}}, + journal = dtk, + year = 2002, + volume = {2/02}, + altvolume = 2, + altnumber = 14, + month = jun, + pages = {27--34}, + annote = bretter, + keywords = {}, + abstract = { Im letzten Heft wurden die mathematischen Funktionen von + \PS~im Zusammenhang mit dem {\LaTeX}-Paket + \texttt{pst-plot} zum Zeichnen von Funktionen beschrieben + und durch Beispiele erl{\"a}utert. In diesem Teil werden + die bislang nur erw{\"a}hnten Plot-Funktionen f{\"u}r + externe Daten behandelt. } +} + +@Article{ dtk02.1:voss:mathematischen, + author = {Herbert Vo{\ss}}, + title = {Die mathematischen {F}unktionen von {P}ost{S}cript}, + journal = dtk, + year = 2002, + volume = {1/02}, + altvolume = 1, + altnumber = 14, + month = mar, + pages = {}, + annote = bretter, + keywords = {}, + abstract = { \PS, faktisch genauso alt wie {\TeX}, ist im + Verh{\"a}ltnis dazu allgemein noch weniger bekannt, wenn es + darum geht zu beurteilen, was es denn nun im eigentlichen + Sinne ist. Au{\ss}erdem wird h{\"a}ufig vergessen, dass + sich mit den \PS-Funktionen viele Dinge erledigen lassen, + bei denen sonst auf externe Programme zur{\"u}ckgegriffen + wird. Dies wird im Folgenden f{\"u}r die mathematischen + Funktionen im Zusammenhang mit dem Paket \texttt{pst-plot} + gezeigt. } +} + +@Book{tlgc2, + author = {Michel Goosens and Frank Mittelbach and Sebastian Rahtz and Denis Roegel and Herbert Vo{\ss}}, + title = {The {\LaTeX} {G}raphics {C}ompanion}, + publisher = {{Addison-Wesley Publishing Company}}, + edition = second, + year = {2007}, + address = {Reading, Mass.} +} + +@Book{voss:chaos, + author = {Herbert Vo{\ss}}, + title = {Chaos und {F}raktale selbst programmieren: von {M}andelbrotmengen {\"u}ber {F}arbmanipulationen zur perfekten Darstellung}, + publisher = {{Franzis Verlag}}, + year = {1994}, + address = {Poing} +} + +@Article{girou:01:, + author = {Denis Girou}, + title = {Pr\'esentation de {PST}ricks}, + journal = {Cahier {GUT}enberg}, + year = 1994, + volume = {16}, + month = apr, + pages = {21-70} +} + +@Article{girou:02:, + author = {{Timothy Van} Zandt and Denis Girou}, + title = {Inside {PST}ricks}, + journal = TUGboat, + year = 1994, + volume = {15}, + month = sep, + pages = {239-246} +} + +@Book{PostScript, + Author = {Kollock, Nikolai G.}, + Title = {PostScript richtig eingesetzt: vom {K}onzept zum + praktischen {E}insatz}, + Publisher = {IWT}, + Address = {Vaterstetten}, + year = 1989, +} + +@Manual{pstricks, + Title = {PSTricks - {\PS} macros for generic {\TeX}}, + Author = {{Timothy Van} Zandt}, + Organization = {}, + Address = {\url{http://www.tug.org/application/PSTricks}}, + Note = {}, + year = 1993 +} + +@Manual{pst-plot, + Title = {\texttt{pst-plot}: Plotting two dimensional functions and data}, + Author = {{Timothy Van} Zandt}, + Organization = {}, + Address = {\url{CTAN:graphics/pstricks/generic/pst-plot.tex}}, + Note = {}, + year = 1999 +} + +@Manual{multido, + Title = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition}, + Author = {{Timothy Van} Zandt}, + Organization = {}, + Address = {\url{CTAN:/graphics/pstricks/generic/multido.tex}}, + Note = {}, + year = 1997 +} + +@MISC{xkeyval, + author = {Hendri Adriaens}, + title = {xkeyval package}, + howpublished = {\url{CTAN:/macros/latex/contrib/xkeyval}}, + year = 2004 +} + +@book{voss06, + Title = {Mathematiksatz in \LaTeX{}}, + Author = {Herbert Vo\ss}, + Publisher = {Lehmanns Media/DANTE}, + Edition= {first}, + Address= {Berlin/Heidelberg}, + Year= {2009}, +} diff --git a/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.pdf b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.pdf new file mode 100644 index 00000000000..ba19eb58bd5 Binary files /dev/null and b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.pdf differ diff --git a/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.tex b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.tex new file mode 100644 index 00000000000..a62a135f7ff --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-platon/pst-platon-doc.tex @@ -0,0 +1,265 @@ +%% $Id: pst-platon-doc.tex 208 2009-12-25 08:54:53Z herbert $ +\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings + headexclude,footexclude,oneside]{pst-doc} +\usepackage[utf8]{inputenc} +\usepackage{pst-platon} +\let\pstFV\fileversion +\lstset{language=PSTricks,basicstyle=\footnotesize\ttfamily} +% +\def\bgImage{\psset{psscale=2,PstPicture=false,faceNameFont=\huge\sffamily} + \psIcosahedron%[Frame=false,Viewpoint=-1 0.5 1.2]} +} +\title{\texttt{pst-platon}} +\subtitle{A PSTricks package for drawing platonic solids; v.\pstFV} +\author{Manuel Luque \\ Herbert Vo\ss} +\docauthor{} +\date{\today} + +\begin{document} +\maketitle + +\begin{abstract} +A platonic solid is a convex polyhedron that is a regular polygon. +The faces of a platonic solid are congruent regular polygons, +with the same number of faces meeting at each vertex. +All edges are congruent, as are its vertices and angles. +There exists five platonic solids. +\end{abstract} + +\vfill +\clearpage + + +\tableofcontents + +\newpage + +\section{The optional Arguments} +\subsection{\nxLkeyword{PstPicture}} +With \Lkeyset{PstPicture=true} (default) the image is set into a \Lenv{pspicture} environment, which +reserves some space. The correct bounding box depends to the viewpoint. With setting of \Lkeyset{PstPicture=false} +you can set the image inside your own \Lenv{pspicture} environment with other coordinates. All +solids areplaced relative to the origin of the coordinate system. Use \Lcs{rput} to place the +platonic solid elsewhere. + +\begin{LTXexample}[pos=t,rframe=] +\begin{pspicture}[showgrid=true](-1,-2)(10,5) +\psTetrahedron[PstPicture=false] +\rput(2,2){\psTetrahedron[PstPicture=false,Viewpoint=1 1.2 0.5]} +\psset{unit=1.3} +\rput(5,3){\psTetrahedron[PstPicture=false,Frame=false,Viewpoint=-1 0.5 2]} +\end{pspicture} +\end{LTXexample} + +\subsection{\nxLkeyword{Frame}} + +With \Lkeyset{Frame=true} (default) the unique cube with a=1 is printed with +dotted lines. + +\begin{LTXexample}[width=7cm,rframe=] +\psTetrahedron +\psTetrahedron[Frame=false] +\end{LTXexample} + +\clearpage + +\subsection{\nxLkeyword{Viewpoint}} + +With \Lkeyword{Viewpoint} the three dimensional view point from which the +solid is seen can be set. The default is \verb=1 1 1=. + +\begin{LTXexample}[width=10.5cm,rframe=,wide] +\psTetrahedron +\psTetrahedron[Viewpoint=-1 1 .5] +\psTetrahedron[Viewpoint=0.4 -1 .5] +\end{LTXexample} + +\subsection{\nxLkeyword{faceName}} + +With \Lkeyword{faceName} the name of the faces can be set with setting +it to one of the macros \Lcs{Alph} (default), \Lcs{alph}, \Lcs{arabic}, +\Lcs{Roman}, and \Lcs{roman}. + +\begin{LTXexample}[width=10.5cm,rframe=,wide] +\psHexahedron% +\psHexahedron[faceName=\alph]% +\psHexahedron[faceName=\Roman] +\end{LTXexample} + + +\subsection{\nxLkeyword{faceNameFont}} + +With \Lkeyword{faceNameFont} the font for the face name can be set. +Any valid \LaTeX\ command is possible. + +\begin{LTXexample}[width=10.5cm,rframe=,wide] +\psHexahedron% +\psHexahedron[faceNameFont=\Huge]% +\psHexahedron[faceNameFont=\Huge\sffamily] +\end{LTXexample} + +\subsection{\nxLkeyword{psscale}} + +The solids can be magnified by the keyword \Lkeyword{psscale} +which is preset to 1. + +\begin{LTXexample}[width=8cm,rframe=] +\psOctahedron[Frame=false] +\psOctahedron[Frame=false,psscale=2] +\end{LTXexample} + +\subsection{Colors} +The faces are defined by the colors of type A or B with +\begin{verbatim} +\newcommand\colorTypeA{% +\definecolor{ColorA}{cmyk}{0.1,0.1,0.05,0} +\definecolor{ColorB}{cmyk}{0.15,0.15,0.05,0} +... +} +\newcommand\colorTypeB{% +\definecolor{ColorA}{cmyk}{0.1,0.2,0.1,0} +\definecolor{ColorB}{cmyk}{0.15,0.2,0.15,0} +... +} +\end{verbatim} + +New types can be definied in the same way and then set by the keyword \Lkeyword{colorType}=\Larga{type}. + +\begin{LTXexample}[width=5cm,rframe=] +\newcommand\colorTypeC{% + \colorlet{ColorA}{red} + \colorlet{ColorB}{green} + \colorlet{ColorC}{blue} + \definecolor{ColorD}{rgb}{0.55,0.2,0.15} +} +\psTetrahedron[colorType=C] +\end{LTXexample} + + +\section{The Platonic Solids} +There are the five platonic solids with the macronames +\Lcs{psTetrahedron}, \Lcs{psHexahedron}, \Lcs{psOctahedron}, \Lcs{psDodecahedron}, +and \Lcs{psIcosahedron}. + + +\subsection{Tetrahedron} + +\begin{LTXexample}[width=5cm,rframe=] +\psTetrahedron +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psTetrahedron[Viewpoint=1 1.2 0.5] +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psTetrahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psTetrahedron[Frame=false,Viewpoint=1 1.2 0.7] +\psTetrahedron[Frame=false,Viewpoint=-1 0.5 2] +\psTetrahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + +\subsection{Hexahedron} +\begin{LTXexample}[width=5cm,rframe=] +\psHexahedron +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psHexahedron[Viewpoint=1 1.2 0.5] +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psHexahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psHexahedron[Frame=false,Viewpoint=1 1.2 0.7] +\psHexahedron[Frame=false,Viewpoint=-1 0.5 2] +\psHexahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + + +\subsection{Octahedron} +\begin{LTXexample}[width=5cm,rframe=] +\psOctahedron +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psOctahedron[Viewpoint=1 1.2 0.5] +\end{LTXexample} + +\begin{LTXexample}[width=5cm,rframe=] +\psOctahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psset{psscale=2} +\psOctahedron[Frame=false,Viewpoint=1 1.2 0.7] +\psOctahedron[Frame=false,Viewpoint=-1 0.5 2] +\psOctahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\end{LTXexample} + +\clearpage +\subsection{Dodecahedron} +\begin{LTXexample}[width=5cm,rframe=] +\psDodecahedron +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psDodecahedron[Viewpoint=-0.5 0.9 0.9] +\psDodecahedron[Viewpoint=-0.5 0.7 -1.2] +\psDodecahedron[Viewpoint=0.5 -0.7 -0.5] +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psDodecahedron[Frame=false,Viewpoint=-0.2 0.2 0.2] +\psDodecahedron[Frame=false,Viewpoint=-0.707 -0.707 -1] +\psDodecahedron[Frame=false,Viewpoint=0.6 -0.7 -0.5] +\end{LTXexample} + +\subsection{Isocahedron} + +\begin{LTXexample}[width=5cm,rframe=] +\psIcosahedron +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psIcosahedron[Viewpoint=1 1.2 0.5] +\psIcosahedron[Viewpoint=-1 1.2 0.5] +\psIcosahedron[Viewpoint=-1 -1.2 0.5] +\psIcosahedron[Viewpoint=1 -1.2 0.5] +\end{LTXexample} + +\begin{LTXexample}[pos=t,rframe=] +\psIcosahedron[Frame=false,Viewpoint=0.5 -1 1] +\psIcosahedron[Frame=false,Viewpoint=-1 0.5 1.2] +\psIcosahedron[Frame=false,Viewpoint=0.7 -0.5 -0.8] +\psIcosahedron[Frame=false,Viewpoint=-0.7 -0.7 -0.2] +\end{LTXexample} + + + +\section{List of all optional arguments for \texttt{pst-platon}} + +\xkvview{family=pst-platon,columns={key,type,default}} + + + + + +\nocite{*} +\bgroup +\RaggedRight +\bibliographystyle{plain} +\bibliography{pst-platon-doc} +\egroup + +\printindex + + + +\end{document} + diff --git a/Master/texmf-dist/source/generic/pst-platon/Makefile b/Master/texmf-dist/source/generic/pst-platon/Makefile new file mode 100644 index 00000000000..36b9679cea0 --- /dev/null +++ b/Master/texmf-dist/source/generic/pst-platon/Makefile @@ -0,0 +1,70 @@ + +# `Makefile' for `pst-am.pdf', hv, 2009/12/08 + +.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps + +PACKAGE = pst-platon + +MAIN = $(PACKAGE)-doc + +LATEX = latex + +ARCHNAME = $(MAIN)-$(shell date +%y%m%d) + +ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile + +TDS = ~/PSTricks/PSTricks-TDS + +all : doc clean +doc: $(MAIN).pdf + +$(MAIN).pdf : $(MAIN).ps + GS_OPTIONS=-dAutoRotatePages=/None ps2pdf $< + +$(MAIN).ps : $(MAIN).dvi + dvips $< + +$(MAIN).dvi : $(MAIN).tex + $(LATEX) $< + $(LATEX) $< + if ! test -f $(basename $<).glo ; then touch $(basename $<).glo; fi + if ! test -f $(basename $<).idx ; then touch $(basename $<).idx; fi + makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls \ + $(basename $<).glo + makeindex -t $(basename $<).ilg -o $(basename $<).ind \ + $(basename $<).idx + bibtex $(basename $<) + $(LATEX) $< + $(LATEX) $< + +clean : + $(RM) $(addprefix $(MAIN), .log .aux .glg .glo .gls .ilg .idx .ind .tmp .toc .out .blg .bbl) + $(RM) $(addprefix $(MAIN), .dvi .ps .eps) + +veryclean : clean + $(RM) $(addprefix $(MAIN), .pdf .bbl .blg) + +arch : + zip $(ARCHNAME).zip $(ARCHFILES) + +tds: + cp -u Changes $(TDS)/doc/latex/$(PACKAGE)/ + cp -u README $(TDS)/doc/latex/$(PACKAGE)/ + cp -u $(MAIN).pdf $(TDS)/doc/latex/$(PACKAGE)/ +# + cp -u Changes $(TDS)/tex/latex/$(PACKAGE)/ + cp -u $(PACKAGE).sty $(TDS)/tex/latex/$(PACKAGE)/ +# +# cp -u Changes $(TDS)/tex/generic/$(PACKAGE)/ +# cp -u $(PACKAGE).tex $(TDS)/tex/generic/$(PACKAGE)/ +# +# cp -u Changes $(TDS)/dvips/$(PACKAGE)/ +# cp -u $(PACKAGE).pro $(TDS)/dvips/$(PACKAGE)/ +# + cp -u Changes $(TDS)/source/$(PACKAGE)/ + cp -u $(MAIN).tex $(TDS)/source/$(PACKAGE)/ + cp -u $(MAIN).bib $(TDS)/source/$(PACKAGE)/ + cp -u Makefile $(TDS)/source/$(PACKAGE)/ + + +# EOF diff --git a/Master/texmf-dist/tex/latex/pst-platon/pst-platon.sty b/Master/texmf-dist/tex/latex/pst-platon/pst-platon.sty new file mode 100644 index 00000000000..b21d9de1e8b --- /dev/null +++ b/Master/texmf-dist/tex/latex/pst-platon/pst-platon.sty @@ -0,0 +1,240 @@ +%% $Id: pst-platon.sty 208 2009-12-25 08:54:53Z herbert $ +%% +%% This is file `pst-platon.sty', +%% +%% 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. +%% +%% Manuel Luque (France) +%% Herbert Voss \z@ \ThreeDput[normal=#1 #2 #3](#4,#5,#6){#7% + \rput(0,0){\psk@faceNameFont\setcounter{face@counter}{#8}% + \pst@faceName{face@counter}}}\fi% +} +% +\def\psTetrahedron{\pst@object{psTetrahedron}} +\def\psTetrahedron@i{{% + \pst@killglue% + \addbefore@par{fillstyle=solid,dimen=middle,radius=1.633,colorType=B}% + \use@par% + \def\faceA[##1]{\pspolygon[##1](\psk@radius;90)(\psk@radius;210)(\psk@radius;330)} + \def\faceB[##1]{\pspolygon[##1](\psk@radius;30)(\psk@radius;150)(\psk@radius;270)} + \psset[pst-3d]{viewpoint=\psk@platon@Viewpoint}% + \psscalebox{\psk@@psscale}{% + \ifPst@PstPicture\pspicture(-1.4,-1.6)(1.4,1.6)\fi% + \pst@ifpos(1,1,-1)[\pst@t,\pst@t,-\pst@t]{\faceA[fillcolor=ColorA]}{1}% face 1 + \pst@ifpos(-1,1,1)[-\pst@t,\pst@t,\pst@t]{\faceB[fillcolor=ColorB]}{2}% face 2 + \pst@ifpos(1,-1,1)[\pst@t,-\pst@t,\pst@t]{\faceB[fillcolor=ColorC]}{3}% face 3 + \pst@ifpos(-1,-1,-1)[-\pst@t,-\pst@t,-\pst@t]{\faceA[fillcolor=ColorC]}{4}% face 4 + \ifPst@Frame\pst@showFrame{}\fi + \ifPst@PstPicture\endpspicture\fi% +}}\ignorespaces} +% +\def\psHexahedron{\pst@object{psHexahedron}} +\def\psHexahedron@i{{% + \pst@killglue% + \addbefore@par{fillstyle=solid,dimen=middle,colorType=B}% + \use@par% + \def\face[##1]{\psframe[##1](-1,-1)(1,1)}% + \psscalebox{\psk@@psscale}{% + \ifPst@PstPicture\pspicture(-1.4,-1.7)(1.4,1.7)\fi% + \psset[pst-3d]{viewpoint=\psk@platon@Viewpoint}% + \pst@ifpos(1,0,0){\face[fillcolor=ColorA]}{1} % face1 + \pst@ifpos(0,1,0){\face[fillcolor=ColorB]}{2} % face2 + \pst@ifpos(-1,0,0){\face[fillcolor=ColorC]}{3}% face3 + \pst@ifpos(0,-1,0){\face[fillcolor=ColorD]}{4}% face4 + \pst@ifpos(0,0,1){\face[fillcolor=ColorE]}{5} % face5 + \pst@ifpos(0,0,-1){\face[fillcolor=ColorF]}{6}% face6 + \ifPst@Frame\pst@showFrame\fi + \ifPst@PstPicture\endpspicture\fi% +}}\ignorespaces} +% +\def\psOctahedron{\pst@object{psOctahedron}} +\def\psOctahedron@i{{% + \pst@killglue% + \addbefore@par{fillstyle=solid,dimen=middle,radius=0.8165,colorType=B}% + \use@par% + \def\faceA[##1]{\pspolygon[##1](\psk@radius;90)(\psk@radius;210)(\psk@radius;330)} + \def\faceB[##1]{\pspolygon[##1](\psk@radius;30)(\psk@radius;150)(\psk@radius;270)} + \psset[pst-3d]{viewpoint=\psk@platon@Viewpoint}% + \psscalebox{\psk@@psscale}{% + \ifPst@PstPicture\pspicture(-1,-1)(1,1)\fi% + \pst@ifpos(1,1,1)[\pst@t,\pst@t,\pst@t]{\faceA[fillcolor=ColorA]}{1}% face 1 + \pst@ifpos(-1,1,1)[-\pst@t,\pst@t,\pst@t]{\faceA[fillcolor=ColorB]}{2}% face 2 + \pst@ifpos(-1,-1,1)[-\pst@t,-\pst@t,\pst@t]{\faceA[fillcolor=ColorC]}{3}% face 3 + \pst@ifpos(1,-1,1)[\pst@t,-\pst@t,\pst@t]{\faceA[fillcolor=ColorD]}{4}% face 4 + \pst@ifpos(1,1,-1)[\pst@t,\pst@t,-\pst@t]{\faceB[fillcolor=ColorE]}{5}% face 5 + \pst@ifpos(-1,1,-1)[-\pst@t,\pst@t,-\pst@t]{\faceB[fillcolor=ColorF]}{6}% face 6 + \pst@ifpos(1,-1,-1)[\pst@t,-\pst@t,-\pst@t]{\faceB[fillcolor=ColorG]}{7}% face 7 + \pst@ifpos(-1,-1,-1)[-\pst@t,-\pst@t,-\pst@t]{\faceB[fillcolor=ColorH]}{8}% face 8 + \ifPst@Frame\pst@showFrame\fi + \ifPst@PstPicture\endpspicture\fi% +}}\ignorespaces} +% +\def\psDodecahedron{\pst@object{psDodecahedron}} +\def\psDodecahedron@i{{% + \pst@killglue% + \addbefore@par{fillstyle=solid,colorType=A}% + \use@par% + \def\RA{1.05146}\def\rb{0.723607}\def\ra{1.17082}% + \def\rc{0.723607}\def\rd{1.17082}% + \psset[pst-3d]{viewpoint=\psk@platon@Viewpoint}% + \def\faceA[##1]{\pspolygon[##1](\RA;18)(\RA;90)(\RA;162)(\RA;234)(\RA;306)}% + \def\faceB[##1]{\pspolygon[##1](\RA;270)(\RA;-18)(\RA;54)(\RA;126)(\RA;198)}% + \def\faceC[##1]{\pspolygon[##1](\RA;0)(\RA;72)(\RA;144)(\RA;216)(\RA;288)}% + \def\faceD[##1]{\pspolygon[##1](\RA;36)(\RA;108)(\RA;180)(\RA;252)(\RA;324)}% + \psscalebox{\psk@@psscale}{% + \ifPst@PstPicture\pspicture(-1.1,-1.8)(1.1,1.8)\fi% + \pst@ifpos(0,\ra,\rb){\faceA[fillcolor=ColorA]}{1}% face1 + \pst@ifpos(0,-\ra,\rb){\faceA[fillcolor=ColorB]}{2}% face2 + \pst@ifpos(0,\ra,-\rb){\faceB[fillcolor=ColorC]}{3}% face3 + \pst@ifpos(0,-\ra,-\rb){\faceB[fillcolor=ColorD]}{4}% face4 + \pst@ifpos(\rc,0,\rd){\faceB[fillcolor=ColorE]}{5}% face5 + \pst@ifpos(-\rc,0,\rd){\faceB[fillcolor=ColorF]}{6}% face6 + \pst@ifpos(\rc,0,-\rd){\faceA[fillcolor=ColorG]}{7}% face7 + \pst@ifpos(-\rc,0,-\rd){\faceA[fillcolor=ColorH]}{8}% face8 + \pst@ifpos(\rd,\rc,0){\faceC[fillcolor=ColorI]}{9}% face9 + \pst@ifpos(-\rd,\rc,0){\faceD[fillcolor=ColorJ]}{10}% face10 + \pst@ifpos(\rd,-\rc,0){\faceD[fillcolor=ColorK]}{11}% face11 + \pst@ifpos(-\rd,-\rc,0){\faceC[fillcolor=ColorL]}{12}%face12 + \ifPst@Frame\pst@showFrame\fi% + \ifPst@PstPicture\endpspicture\fi% +}}\ignorespaces} +% +\def\psIcosahedron{\pst@object{psIcosahedron}} +\def\psIcosahedron@i{{% + \pst@killglue% + \addbefore@par{fillstyle=solid,radius=1.1547,colorType=A}% + \use@par% + \def\rb{0.539345}\def\ra{1.41202}% + \def\rc{0.539345}\def\rd{1.41202}% + \def\Nx{0.381966}\def\Ny{0.381966}\def\Nz{0.381966}% + \def\Ox{0.872678}\def\Oy{0.872678}\def\Oz{0.872678}% + \def\nx{1}\def\ny{0.381966}\def\nz{0}% + \def\ox{1.42102}\def\oy{0.53945}\def\oz{0}% + \def\faceA[##1]{\pspolygon[##1](\psk@radius;90)(\psk@radius;210)(\psk@radius;330)} + \def\faceB[##1]{\pspolygon[##1](\psk@radius;-90)(\psk@radius;30)(\psk@radius;150)} + \def\faceC[##1]{\pspolygon[##1](\psk@radius;-69.0948)(\psk@radius;50.9502)(\psk@radius;170.9502)} + \def\faceD[##1]{\pspolygon[##1](\psk@radius;-110.9052)(\psk@radius;9.4598)(\psk@radius;129.4598)} + \def\faceE[##1]{\pspolygon[##1](\psk@radius;69.0948)(\psk@radius;189.09498)(\psk@radius;309.09498)} + \def\faceF[##1]{\pspolygon[##1](\psk@radius;110.9052)(\psk@radius;230.9052)(\psk@radius;350.9052)} + \def\faceG[##1]{\pspolygon[##1](\psk@radius;0)(\psk@radius;120)(\psk@radius;240)} + \def\faceH[##1]{\pspolygon[##1](\psk@radius;60)(\psk@radius;180)(\psk@radius;300)} + \psscalebox{\psk@@psscale}{% + \ifPst@PstPicture\pspicture(-1,-2)(1,2)\fi% + \psset[pst-3d]{viewpoint=\psk@platon@Viewpoint}% + \pst@ifpos(0,\ra,\rb){\faceA[fillcolor=ColorA]}{1}% face1 + \pst@ifpos(0,-\ra,\rb){\faceA[fillcolor=ColorB]}{2}% face2 + \pst@ifpos(0,\ra,-\rb){\faceB[fillcolor=ColorC]}{3}% face3 + \pst@ifpos(0,-\ra,-\rb){\faceB[fillcolor=ColorD]}{4}% face4 + \pst@ifpos(\rc,0,\rd){\faceB[fillcolor=ColorE]}{5}% face5 + \pst@ifpos(-\rc,0,\rd){\faceB[fillcolor=ColorF]}{6}% face6 + \pst@ifpos(\rc,0,-\rd){\faceA[fillcolor=ColorG]}{7}% face7 + \pst@ifpos(-\rc,0,-\rd){\faceA[fillcolor=ColorH]}{8}% face8 + \pst@ifpos(\Nx,\Ny,\Nz)[\Ox,\Oy,\Oz]{\faceC[fillcolor=ColorI]}{9}% face9 + \pst@ifpos(-\Nx,\Ny,\Nz)[-\Ox,\Oy,\Oz]{\faceD[fillcolor=ColorJ]}{10}% face10 + \pst@ifpos(\Nx,-\Ny,\Nz)[\Ox,-\Oy,\Oz]{\faceD[fillcolor=ColorK]}{11}% face11 + \pst@ifpos(-\Nx,-\Ny,\Nz)[-\Ox,-\Oy,\Oz]{\faceC[fillcolor=ColorL]}{12}% face12 + \pst@ifpos(\Nx,\Ny,-\Nz)[\Ox,\Oy,-\Oz]{\faceE[fillcolor=ColorM]}{13}% face13 + \pst@ifpos(\Nx,-\Ny,-\Nz)[\Ox,-\Oy,-\Oz]{\faceF[fillcolor=ColorN]}{14}% face14 + \pst@ifpos(-\Nx,-\Ny,-\Nz)[-\Ox,-\Oy,-\Oz]{\faceE[fillcolor=ColorO]}{15}% face15 + \pst@ifpos(-\Nx,\Ny,-\Nz)[-\Ox,\Oy,-\Oz]{\faceF[fillcolor=ColorP]}{16}% face16 + \pst@ifpos(\nx,\ny,\nz)[\ox,\oy,\oz]{\faceG[fillcolor=ColorQ]}{17}% face17 + \pst@ifpos(\nx,-\ny,\nz)[\ox,-\oy,\oz]{\faceH[fillcolor=ColorR]}{18}% face18 + \pst@ifpos(-\nx,-\ny,\nz)[-\ox,-\oy,\oz]{\faceG[fillcolor=ColorS]}{19}% face19 + \pst@ifpos(-\nx,\ny,\nz)[-\ox,\oy,\oz]{\faceH[fillcolor=ColorT]}{20}% face20 + \ifPst@Frame\pst@showFrame\fi% + \ifPst@PstPicture\endpspicture\fi% +}}\ignorespaces} +% +\def\pst@showFrame{{% + \psset{fillstyle=none,linestyle=dotted}% + \ThreeDput[normal=1 0 0](1,0,0){\psframe(-1,-1)(1,1)}% + \ThreeDput[normal=0 1 0](0,1,0){\psframe(-1,-1)(1,1)}% + \ThreeDput[normal=0 0 1](0,0,1){\psframe(-1,-1)(1,1)}% + \ThreeDput[normal=0 0 -1](0,0,-1){\psframe(-1,-1)(1,1)}% + \ThreeDput[normal=-1 0 0](-1,0,0){\psframe(-1,-1)(1,1)}% + \ThreeDput[normal=0 -1 0](0,-1,0){\psframe(-1,-1)(1,1)}% +}} +% +\endinput + -- cgit v1.2.3