new pstricks package pst-solarsystem 0.12 (1jan12)

git-svn-id: svn://tug.org/texlive/trunk@24995 c570f23f-e606-0410-a88d-b1316a301751

13 files changed, 759 insertions, 3 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-solarsystem/Changes b/Master/texmf-dist/doc/generic/pst-solarsystem/Changes
new file mode 100644
index 00000000000..d649ad523a6
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-solarsystem/Changes
@@ -0,0 +1,12 @@
+..... pst-solarsystem.tex
+0.12  2012-01-01  - first version
+
+..... pst-solarsystem.pro
+0.10  2012-01-01  - first version
+
+..... pst-solarsystem.sty
+0.10  2012-01-01  - first version
+
+..... pst-solarsystem-doc.tex
+      2012-01-01  - first version
+
diff --git a/Master/texmf-dist/doc/generic/pst-solarsystem/README b/Master/texmf-dist/doc/generic/pst-solarsystem/README
new file mode 100644
index 00000000000..f6e12cf47c9
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-solarsystem/README
@@ -0,0 +1,12 @@
+pst-mirror: objects on a spherical mirror
+
+Save the files pst-mirror.sty|tex|pro in a directory, which is part of your 
+local TeX tree. The pro file should go into $TEXMF/dvips/pstricks/
+Then do not forget to run texhash to update this tree.
+For more information  see the documentation of your LATEX distribution 
+on installing packages into your local TeX system or read the 
+TeX Frequently Asked Questions:
+(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
+
+PSTricks is PostScript Tricks, the documentation cannot be run
+with pdftex, use the sequence latex->dvips->ps2pdf.
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.bib b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.bib
new file mode 100644
index 00000000000..96838e3a2db
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.bib
@@ -0,0 +1,166 @@
+@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} }
+
+@Article{	  dtk02.2:jackson.voss:plot-funktionen,
+  author	= {Laura E. Jackson and Herbert Vo{\ss}},
+  title		= {Die {P}lot-{F}unktionen 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          = {Post{S}cript 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
+}
+
+@Book{PSTricks2,
+  author	= {Herbert Vo\ss},
+  title		= {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
+  edition	= {6.},
+  publisher	= {DANTE -- Lehmanns},
+  year		= {2010},
+  address	= {Heidelberg/Berlin}
+}
+
+@Book{voss:math,
+  author	= {Herbert Vo\ss},
+  title		= {Typesetting mathematics with \LaTeX},
+  publisher	= {UIT},
+  year		= {2010},
+  address	= {Cambridge}
+}
+
+@Book{PSTricks2-UIT,
+  author	= {Herbert Vo\ss},
+  title		= {PSTricks -- Graphics for \TeX\ and \LaTeX},
+  publisher	= {UIT},
+  year		= {2011},
+  address	= {Cambridge}
+}
+
+@Manual{wolfram,
+  author	= {Eric Weisstein},
+  title		= {Wolfram MathWorld},
+  publisher	= {{Wolfram}},
+  year		= {2007},
+  address	= {\url{http://mathworld.wolfram.com}}
+}
+
diff --git a/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.pdf b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.pdf
new file mode 100644
index 00000000000..f7a69abd067
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex
new file mode 100644
index 00000000000..5fb14555cb4
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex
@@ -0,0 +1,94 @@
+%% $Id: pst-solarsystem-doc.tex 620 2012-01-01 14:09:57Z herbert $
+\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,
+   smallheadings, headexclude,footexclude,oneside]{pst-doc}
+\usepackage[latin1]{inputenc}
+\usepackage{pst-solarsystem}
+\let\pstFV\fileversion
+\usepackage{pstricks-add}
+\renewcommand\bgImage{\resizebox{0.6\linewidth}{!}{\SolarSystem[Day=1,Month=1,Year=2012,Hour=12,viewpoint=1 -1 2]}}
+
+\lstset{language=PSTricks,
+    morekeywords={psGammaDist,psChiIIDist,psTDist,psFDist,psBetaDist,psPlotImpl},basicstyle=\footnotesize\ttfamily}
+%
+\begin{document}
+
+\title{\texttt{pst-solarsystem}}
+\subtitle{Position of the visible planets, projected on the plane of the ecliptic; v.\pstFV}
+\author{Manuel Luque \\Herbert Vo\ss}
+\docauthor{}
+\date{\today}
+\maketitle
+
+\tableofcontents
+
+\vspace{2cm}
+For the method of calculation, I was guided by:
+\begin{itemize}
+\item that given by \textit{Jean Meeus} astronomical calculations in the book for use by
+published by the Amateur Astronomical Society of France.
+\item and that of Guy Serane in \textit{Astronomy \& PC published} by Wiley \& Sons.
+\end{itemize}
+
+As we can not represent all the planets in the real proportions, only Mercury, Venus, Earth and Mars are the proportions of the orbits and
+their relative sizes observed. Saturn and Jupiter are in the right direction, but
+obviously not at the right distance.
+
+The orbits are shown in solid lines for the portion above the ecliptic
+and dashed for the portion located below.
+
+We can compare the view obtained with the following representation:
+
+\url{http://users.skynet.be/fa274406/rubriques/live/orbites/orbites.htm}
+
+The use of the command is very simple, just specify the date of observation
+with the following parameters, for example:
+\begin{verbatim}
+\SolarSystem[Day=31,Month=06,Year=2001,Hour=23,Minute=59,Second=59]
+\end{verbatim}
+\xLkeyword{Day}\xLkeyword{Month}\xLkeyword{Year}\xLkeyword{Hour}\xLkeyword{Minute}\xLkeyword{Second}
+
+By default, if no parameter is specified, \Lcs{SolarSystem} gives the configuration
+day 0 hours to compile.
+
+The \Lkeyword{values} is enabled by default. It displays the values of
+longitude, latitude, and the distance in astronomical units.
+
+The accuracy of the calculations is about 0.1 to 0.3 degrees (comparing to ephemeris
+the Bureau des Longitudes), which is more than enough for a performance
+graph.
+
+\url{http://www.imcce.fr/fr/ephemerides/formulaire/form_ephepos.php}
+\begin{center}
+\SolarSystem
+
+\SolarSystem[Day=30,Month=06,Year=2001,Hour=23,Minute=59,Second=59,viewpoint=1 -1 2,values=false]
+\end{center}
+
+
+\begin{verbatim}
+\SolarSystem[Day=30,Month=06,Year=2001,
+             Hour=23,Minute=59,Second=59,
+             viewpoint=1 -1 2,values=false]
+\end{verbatim}
+
+
+\clearpage
+\section{List of all optional arguments for \texttt{pst-solarsystem}}
+
+\xkvview{family=pst-solarsystem,columns={key,type,default}}
+
+
+
+
+\bgroup
+\raggedright
+\nocite{*}
+\bibliographystyle{plain}
+\bibliography{pst-solarsystem-doc}
+\egroup
+
+\printindex
+
+
+
+\end{document} 
diff --git a/Master/texmf-dist/dvips/pst-solarsystem/pst-solarsystem.pro b/Master/texmf-dist/dvips/pst-solarsystem/pst-solarsystem.pro
new file mode 100644
index 00000000000..b590f173700
--- /dev/null
+++ b/Master/texmf-dist/dvips/pst-solarsystem/pst-solarsystem.pro
@@ -0,0 +1,124 @@
+%% $Id: pst-solarsystem.pro 620 2012-01-01 14:09:57Z herbert $
+%%
+%% This is file `pst-solarsystem.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%%  PostScript prologue for pst-solarsystem.tex
+%%
+%% Manuel Luque 
+%% Herbert Voss 
+%%
+%% 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.
+%%
+%% DESCRIPTION:
+%%   `pst-solarsystem' is a PSTricks package for plotting the solar system
+%%                     for a specific date
+%%
+%% version 0.12 2012-01-01
+%%
+%%%% pst-solarsystem.pro ------------------------------------
+/Pi 3.14159265359 def
+/Rad2Deg tx@Dict begin /RadtoDeg load end bind def 
+/Deg2Rad tx@Dict begin /DegtoRad load end bind def
+%%%%%%%%%%  DATAS  ---------------------------------------------
+% longitude moyenne
+/merLM [4.402608842 26088.14707 5.305219e-4 3.098e-7] def
+/venLM [3.176146696 10213.52942 5.521e-4 2.535e-7] def
+/earLM [1.73470314 6283.319663 5.3001819e-4 3.69e-7] def
+/marLM [6.203480913 3340.856278 5.4274843e-4 2.66e-7] def
+/jupLM [0.5595464972 529.9348075 3.9049899e-4 4.37e-7] def
+/satLM [0.8740167563 213.542926 9.067344e-4 -5.57e-8] def
+% LP = longitude du périhélie
+% terme KA = excentricité x cos(LP)
+/merKA [0.044660598 -0.054483487 -0.01806305 0.000663185] def
+/venKA [-0.004492821 -0.000923135 0.000225036 -0.000001441] def
+/earKA [-0.003740816 -0.004793106 0.000281128 0.000073831] def
+/marKA [0.085365603 0.013005053 0.004287376 -0.000259837] def
+/jupKA [0.046985721 -0.001796949 -0.002042137 -0.000040262] def
+/satKA [-0.002960036 -0.018813138 0.001283285 0.000384811] def
+% terme HA = excentricité x sin(LP)
+/merHA [0.200723314 0.012331538 -0.007334087 -0.000065185] def
+/venHA [0.005066847 -0.001456941 -0.000058477 0.000022573] def
+/earHA [0.01628447 -0.001532379 -0.000720171 0.000032299] def
+/marHA [-0.037899732 0.02706276 0.002245677 -0.000451825] def
+/jupHA [0.012003857 0.013628604 0.000042602 -0.000210827] def
+/satHA [0.055429643 -0.004477771 -0.003261143 0.000200072] def
+% terme Q
+/merQ [0.040615634 -0.009342389 -0.000919439 0.000065185] def
+/venQ [0.006824101 -0.004512949 -0.000118430 0.000017766] def
+/earQ [0 0 0 0] def
+/marQ [0.010470426 -0.001689431 -0.000082811 0.000003613] def
+/jupQ [-0.002065611 -0.001905724 0.000108273 0.000008934] def
+/satQ [-0.008717474 -0.002914183 0.000157351 0.000012382] def
+% terme P
+/merP [0.045635505 0.008527127 -0.000955462 -0.000067142] def
+/venP [0.028822858 0.001158456 -0.000349201 -0.000008779] def
+/earP [0 0 0 0] def
+/marP [0.012284493 0.001371039 -0.000107356 -0.000002604] def
+/jupP [0.011183772 -0.000839731 -0.000159489 0.000007916] def
+/satP [0.019891473 -0.001633044 -0.000223323 0.000011193] def
+% demi-grand axe en u.a.
+/amer 0.38709830982 def
+/aven 0.72332981996 def
+/aear 1.0000101778 def
+/amar 1.52367934191 def
+/ajup {5.20260319132 1.913e-6 T mul add} def
+/asat {9.55490959574 -2.139e-5 T mul add} def
+%%%%%%%% Calculs -------------------------------------------
+/Calc {aload pop T3 mul 3 -2 roll T2 mul 3 -2 roll T mul add add add} def
+/orbitalparameters{
+/P exch Calc def
+/Q exch Calc def
+/HA exch Calc def
+/KA exch Calc def
+/LM exch Calc Rad2Deg def
+ LM 0 le {/LM LM LM neg 360 div round 360 mul add 360 add def} if
+ LM 360 ge {/LM LM LM 360 div round 360 mul sub def} if
+/LP HA KA atan def
+/E HA LP sin div abs def
+/AM LM LP sub def
+ AM 360 ge {/AM AM 360 sub def} if
+ AM 0 lt {/AM AM 360 add def} if
+ /AE AM def
+ 10{/AETemp
+  AM E Rad2Deg AE sin mul add def
+  /AE AETemp def} repeat
+ /AV AE 2 div sin AE 2 div cos div 1 E add 1
+ E sub div sqrt mul 1 atan 2 mul def
+ AV 360 gt {/AV AV AV 360 div floor  360 mul sub def} if
+P 0 eq Q 0 eq and {
+  /LO LP AV add def
+   }{
+ /LN P Q atan def
+/APL LP AV add LN sub def
+%%%%%%%%%% inclinaison de l'orbite --------------------
+ /SINIO1 P LN sin div def
+ /COSIO1 1 SINIO1 dup mul sub sqrt def
+ /IO SINIO1 COSIO1 atan 2 mul def
+ /SINLA1 IO sin APL sin mul def
+ /COSLA1 1 SINLA1 dup mul sub sqrt def
+%%%%%%%%%% latitude -----------------------------------
+ /LA SINLA1 COSLA1 atan def
+  LA 180 ge {/LA LA 360 sub def}if
+ /COSLO1 APL cos LA cos div def
+ /SINLO1 1 COSLO1 dup mul sub sqrt def
+ /LO SINLO1 COSLO1 atan LN add def
+ LA 0 lt {/LO 360  LO sub 2 LN mul add def} if
+ } ifelse
+ LO 360 gt {/LO LO 360 sub def} if
+} def
+%%%%% pour l'affichage des valeurs ----------------
+/Times-Roman findfont
+ 100 scalefont
+ setfont
+ /MG 72 def
+ /LigneSuivante
+  { currentpoint 16 sub
+  exch pop
+  MG exch
+  moveto } def
+ /chaine 15 string def
+ /affiche {chaine cvs show } def
diff --git a/Master/texmf-dist/source/generic/pst-solarsystem/Makefile b/Master/texmf-dist/source/generic/pst-solarsystem/Makefile
new file mode 100644
index 00000000000..935962b877f
--- /dev/null
+++ b/Master/texmf-dist/source/generic/pst-solarsystem/Makefile
@@ -0,0 +1,69 @@
+
+# `Makefile' for `pst-solarsystem.pdf', hv, 2009/12/08
+
+.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps
+
+PACKAGE = pst-solarsystem
+
+MAIN = $(PACKAGE)-doc
+
+TDS = ~/PSTricks/PSTricks-TDS
+
+LATEX = latex
+
+ARCHNAME = $(MAIN)-$(shell date +%y%m%d)
+
+ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile
+
+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 -t $(basename $<).ilg -s pst-doc.ist -o $(basename $<).ind $(basename $<).idx
+	makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls \
+	  $(basename $<).glo
+	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 .xcp)
+
+veryclean : clean
+	$(RM) $(addprefix $(MAIN), .pdf .bbl .blg)
+
+arch :
+	zip $(ARCHNAME).zip $(ARCHFILES)
+
+tds:
+	cp -u Changes     $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u README      $(TDS)/doc/generic/$(PACKAGE)/
+	cp -u $(MAIN).pdf $(TDS)/doc/generic/$(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/generic/pst-solarsystem/pst-solarsystem.tex b/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex
new file mode 100644
index 00000000000..4f2890bc6ec
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex
@@ -0,0 +1,264 @@
+%% $Id: pst-solarsystem.tex 620 2012-01-01 14:09:57Z herbert $
+%%
+%% This is file `pst-solarsystem.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-solarsystem.tex'
+%%
+%% Manuel Luque <manuel -> perce.de>
+%% Herbert Voss <herbert -> dante.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-solarsystem' is a PSTricks package for plotting the solar system
+%%                     for a specific date
+%%
+\csname PSTSOLARSYSTEMELoaded\endcsname
+\let\PSTSOLARSYSTEMELoaded\endinput
+% Requires some packages
+\ifx\PSTricksLoaded\endinput\else \input pstricks \fi
+\ifx\PSTnodesLoaded\endinput\else \input pst-node \fi
+\ifx\PSTplotLoaded\endinput\else  \input pst-plot \fi
+\ifx\PSTthreeDLoaded\endinput\else\input pst-3d   \fi
+\ifx\GradientLoaded\endinput\else \input pst-grad \fi
+\ifx\PSTtoolsLoaded\endinput\else \input pst-tools\fi
+\ifx\PSTXKeyLoaded\endinput\else  \input pst-xkey \fi
+\def\fileversion{0.12}
+\def\filedate{2012/01/01}
+\message{`PSTSOLARSYSTEME' v\fileversion, \filedate}
+%
+\pstheader{pst-solarsystem.pro}
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+%
+\pst@addfams{pst-solarsystem}
+\define@key[psset]{pst-solarsystem}{Day}[\number\day]{\def\psk@SolarSystemD{#1}}
+\define@key[psset]{pst-solarsystem}{Month}[\number\month]{\def\psk@SolarSystemM{#1}}
+\define@key[psset]{pst-solarsystem}{Year}[\number\year]{\def\psk@SolarSystemY{#1}}
+\define@key[psset]{pst-solarsystem}{Hour}[12]{\def\psk@SolarSystemH{#1}}
+\define@key[psset]{pst-solarsystem}{Minute}[0]{\def\psk@SolarSystemMi{#1}}
+\define@key[psset]{pst-solarsystem}{Second}[0]{\def\psk@SolarSystemS{#1}}
+%
+\psset{Day=\number\day,Month=\number\month,Year=\number\year,Hour=12,Minute=0,Second=0}
+%% === show the results ---------------------
+\define@boolkey[psset]{pst-solarsystem}[Pst@]{values}[true]{}
+\psset[pst-solarsystem]{values}
+
+\SpecialCoor
+\newpsstyle{planetes}{linestyle=none,fillstyle=gradient,gradmidpoint=0,gradend=white,GradientCircle}
+\newcommand{\Jupiter}{%
+  \psclip{\pscircle[fillstyle=solid,fillcolor=yellow]{1.5}}
+  \psset{fillstyle=solid,fillcolor={[cmyk]{0 0.2 0.4 0}},linestyle=none}
+    \psframe(-2,.6)(2,1)
+    \psframe(-2,0.45)(2,0.52)
+    \psframe(-2,.05)(2,.3)
+    \psframe(-2,-0.35)(2,-0.2)
+    \psframe(-2,-0.9)(2,-.5)
+  \endpsclip
+  \psellipse[fillstyle=solid,fillcolor={[cmyk]{0 0.4 0.6 0}},linestyle=none](-0.3,-0.6)(0.35,0.2)
+  \pscircle{1.5}}
+%
+\newcommand{\Saturne}{%
+  \psellipse(3,0.7)
+  \psellipse[linewidth=2\pslinewidth](3.5,1)
+  \psellipse(4,1.2)
+  \pscircle[fillstyle=solid](0,0){1.5}
+  \psclip{\pscircle(0,0){1.5}}
+    \psellipticarc(3,0.7){180}{0}
+    \psellipticarc[linewidth=2\pslinewidth](3.5,1){180}{0}
+    \psellipticarc(4,1.2){180}{0}
+  \endpsclip
+  \psellipticarc(0,0.5)(1.414,0.25){180}{0}
+  \psellipticarc(0,1.25)(0.829,0.2){180}{0}
+  \psellipticarc(0,-1)(1.118,0.2){180}{0}
+  \psellipticarc(0,0)(1.5,0.27){180}{0}}
+%
+\psset{viewpoint=0 0 1}
+%
+\def\SolarSystem{\pst@object{SolarSystem}}
+\def\SolarSystem@i{{%
+  \pst@killglue%
+  \use@par%
+  \begin{pspicture}(-8,-8)(8,8)
+  \psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0pt]%
+  \pstVerb{%
+   /JOUR \psk@SolarSystemD\space def
+   /MOIS \psk@SolarSystemM\space def
+   /AN \psk@SolarSystemY\space def
+   /HEURE \psk@SolarSystemH\space def
+   /MINUTE \psk@SolarSystemMi\space def
+   /SECONDE \psk@SolarSystemS\space def
+   %%%% Calcul du millénaire Julien ---------------------
+   /lesMois [0 31 59 90 120 151 181 212 243 273 304 334] def
+   /EcartJours {lesMois MOIS 1 sub get JOUR add HEURE MINUTE 60 div add SECONDE 3600 div add 24 div add 1 sub} def
+   /EcartAn {AN 4 div AN 4 div floor sub cvi} bind def
+   EcartAn 0 eq {/EcartAn 1 def} if
+   EcartAn 1 eq {MOIS 2 gt {/EcartJours EcartJours 1 add def}if} if
+   /T {AN 2000 sub 365.25 mul 0.5 add EcartJours add EcartAn sub 365250 div} bind def
+   /T2 {T dup mul} bind def
+   /T3 {T2 T mul} bind def
+  }%
+  \rput(0,8){\psk@SolarSystemD/\psk@SolarSystemM/\psk@SolarSystemY}%
+  \ThreeDput{%
+    % \psframe[fillstyle=gradient,gradbegin=cyan,gradend=white](-7,-7)(7,7)
+    \multido{\r=22.5+45}{8}{\psline[linecolor=yellow](1;\r)}%
+    \psline[linestyle=dotted]{->}(-7,0)(7,0)
+    \uput[0](7,0){$\mathbf{\gamma}$}
+    \uput[90](7,0){0\textsuperscript{o}}
+    \uput[90](0,7){90\textsuperscript{o}}
+    \uput[180](-7,0){180\textsuperscript{o}}
+    \uput[270](0,-6.9){270\textsuperscript{o}}
+    \psline[linestyle=dotted](0,-7)(0,7)}%
+    \pscircle[linestyle=none,fillstyle=gradient,gradmidpoint=0,gradend=yellow,GradientCircle=true,gradbegin=gray]{0.5}%
+    {\psset{unit=2}
+     % Mercure
+     \pstVerb{%
+       merLM merKA merHA merQ merP orbitalparameters
+       amer /radius exch 1 E dup mul sub mul
+       1 E LO LP sub cos mul add div def }%
+    \ThreeDput{%
+      \psplot[polarplot,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
+        amer 1 E dup mul sub mul 1 E x LP sub cos mul add div}%
+      \psplot[polarplot,plotpoints=361,linestyle=dashed,linecolor=blue]{180 LN add}{LN 360 add}{%
+        amer 1 E dup mul sub mul 1 E x LP sub cos mul add div}%
+      \pnode(! radius LO cos mul radius LO sin mul){M}
+    }%
+  \rput(M){\psset{unit=2}%
+    \pscircle[style=planetes,gradbegin=black,GradientPos={(0.01,0.01)}]{0.02}
+    \uput[u](0,0){\footnotesize\textsf{Mercure}}}
+  \ifPst@values
+    \rput(-2.5,-4.25){\psPrintValue{LO}}
+    \rput(-2.5,-4.75){\psPrintValue{LA}}
+    \rput(-2.5,-5.25){\psPrintValue{radius}}
+  \fi
+% Venus
+  \pstVerb{%
+    venLM venKA venHA venQ venP orbitalparameters
+    aven /radius exch 1 E dup mul sub mul
+    1 E LO LP sub cos mul add div def }%
+  \ThreeDput{%
+    \psplot[polarplot,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
+      aven 1 E dup mul sub mul   1 E x LP sub cos mul add div}
+    \psplot[polarplot=true,plotpoints=361,linestyle=dashed,linecolor=blue]{180 LN add}{LN 360 add}{%
+      aven 1 E dup mul sub mul
+      1 E x LP sub cos mul add div}%
+    \pnode(! radius LO cos mul radius LO sin mul){V}
+  }%
+  \rput(V){\psset{unit=2}%
+    \pscircle[style=planetes,gradbegin={[HTML]{6F2D0A}},GradientPos={(0.03,0.03)}]{0.051}%
+    \uput{0.07}[u](0,0){\footnotesize\textsf{V\'enus}}}
+  \ifPst@values
+    \rput(-1.5,-4.25){\psPrintValue{LO}}
+    \rput(-1.5,-4.75){\psPrintValue{LA}}
+    \rput(-1.5,-5.25){\psPrintValue{radius}}
+  \fi
+% Earth
+  \pstVerb{%
+    earLM earKA earHA earQ earP orbitalparameters
+    aear /radius exch 1 E dup mul sub mul
+    1 E LO LP sub cos mul add div def
+  }%
+  \ThreeDput{%
+    \psplot[polarplot=true,plotpoints=361,linecolor=red]{0}{360}{%
+      aear 1 E dup mul sub mul
+      1 E x LP sub cos mul add div}
+    \pnode(! radius LO cos mul radius LO sin mul){Terre}}
+  \rput(Terre){\psset{unit=2}%
+  \pscircle[style=planetes,gradbegin=blue,GradientPos={(0.013,0.03)}]{0.0536}%
+  \uput{0.08}[u](0,0){\footnotesize\textsf{Terre}}}%
+  \ifPst@values
+    \rput(-0.5,-4.25){\psPrintValue{LO}}
+    \rput(-0.5,-4.75){\psPrintValue{0.000}}
+    \rput(-0.5,-5.25){\psPrintValue{radius}}
+  \fi
+% Mars
+\pstVerb{%
+marLM marKA marHA marQ marP orbitalparameters
+ amar /radius exch 1 E dup mul sub mul
+ 1 E LO LP sub cos mul add div def
+ }%
+ \ThreeDput{%
+ \psplot[polarplot=true,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
+ amar 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+ \psplot[polarplot=true,plotpoints=361,linestyle=dashed,linecolor=blue]{180 LN add}{LN 360 add}{%
+ amar 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+\pnode(! radius LO cos mul radius LO sin mul){Mars}}
+\rput(Mars){%
+  \psset{unit=2}\pscircle[style=planetes,gradbegin=red,GradientPos={(0.01,0.01)}]{0.02857}
+  \uput[u](0,0){\footnotesize\textsf{Mars}}}%
+\ifPst@values
+\rput(0.5,-4.25){\psPrintValue{LO}}
+\rput(0.5,-4.75){\psPrintValue{LA}}
+\rput(0.5,-5.25){\psPrintValue{radius}}
+\fi
+% Jupiter
+\pstVerb{%
+ jupLM jupKA jupHA jupQ jupP orbitalparameters
+ /aJ ajup def
+ aJ /radius exch 1 E dup mul sub mul
+ 1 E LO LP sub cos mul add div def
+ }%
+ \ThreeDput{%
+ \psset{unit=0.5}
+ \psplot[polarplot=true,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
+ aJ 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+ \psplot[polarplot=true,plotpoints=361,linestyle=dashed,linecolor=blue]{180 LN add}{LN 360 add}{%
+ aJ 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+\pnode(! radius LO cos mul radius LO sin mul){Jupiter}
+}%
+\rput(Jupiter){\psset{unit=0.1}\Jupiter%
+  \uput{1.5}[u](0,0){\footnotesize\textsf{Jupiter}}}%
+\ifPst@values
+\rput(1.5,-4.25){\psPrintValue{LO}}
+\rput(1.5,-4.75){\psPrintValue{LA}}
+\rput(1.5,-5.25){\psPrintValue{radius}}
+\fi
+% JSaturne
+\pstVerb{%
+satLM satKA satHA satQ satP orbitalparameters
+ /aS asat def
+ aS /radius exch 1 E dup mul sub mul
+     1 E LO LP sub cos mul add div def
+ }%
+ \ThreeDput{%
+\psset{unit=0.35}
+ \psplot[polarplot=true,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
+ aS 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+ \psplot[polarplot=true,plotpoints=361,linestyle=dashed,linecolor=blue]{180 LN add}{LN 360 add}{%
+ aS 1 E dup mul sub mul
+ 1 E x LP sub cos mul add div}%
+\pnode(! radius LO cos mul radius LO sin mul){Saturne}
+}%
+\rput(Saturne){\psset{unit=0.1}\Saturne%
+  \uput{1.7}[u](0,0){\footnotesize\textsf{Saturne}}}%
+\ifPst@values
+\rput(2.5,-4.25){\psPrintValue{LO}}
+\rput(2.5,-4.75){\psPrintValue{LA}}
+\rput(2.5,-5.25){\psPrintValue{radius}}
+\fi
+}
+\ifPst@values
+\rput(-4.5,-7.75){Mercure}
+\rput(-2.5,-7.75){Venus}
+\rput(-0.5,-7.75){Earth}
+\rput(1.5,-7.75){Mars}
+\rput(3.5,-7.75){Jupiter}
+\rput(5.5,-7.75){Saturn}
+\rput(-6.5,-8.42){longitude at $^\mathrm{o}$}
+\rput(-6.5,-9.42){latitude at $^\mathrm{o}$}
+\rput(-6.5,-10.42){distance at U.A.}
+\fi
+\end{pspicture}}}
+%
+\catcode`\@=\PstAtCode\relax
+%
+\endinput 
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/latex/pst-solarsystem/pst-solarsystem.sty b/Master/texmf-dist/tex/latex/pst-solarsystem/pst-solarsystem.sty
new file mode 100644
index 00000000000..9b341be4c94
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/pst-solarsystem/pst-solarsystem.sty
@@ -0,0 +1,13 @@
+%% $Id: pst-solarsystem.sty 620 2012-01-01 14:09:57Z herbert $
+\RequirePackage{pstricks}
+\ProvidesPackage{pst-solarsystem}[2012/01/01 package wrapper for
+  pst-solarsystem.tex]
+\input{pst-solarsystem.tex}
+\IfFileExists{pst-solarsystem.pro}{%
+  \ProvidesFile{pst-solarsystem.pro}
+    [2012/01/01 v. 0.12,  PostScript prologue file]
+    \@addtofilelist{pst-ssolarystem.pro}}{}%
+\ProvidesFile{pst-sysolarstem.tex}
+  [\filedate\space v\fileversion\space `PST-solarsysteme']
+\endinput
+%% End of file `pst-sysolarstem.sty' 
\ No newline at end of file
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 0bf0fe80cb7..827cacfec5a 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -321,8 +321,8 @@ my @TLP_working = qw(
     pst-ob3d pst-optexp pst-optic
     pst-osci pst-pad pst-pdgr pst-platon pst-plot pst-poly pst-pdf
     pst-qtree pst-rubans
-    pst-sigsys pst-solides3d pst-soroban pst-spectra
-    pst-slpe pst-stru pst-support pst-text pst-thick pst-tree pst-tvz pst-uml
+    pst-sigsys pst-slpe pst-solarsystem pst-solides3d pst-soroban pst-spectra
+    pst-stru pst-support pst-text pst-thick pst-tree pst-tvz pst-uml
     pst-vowel pst-vue3d
     pst2pdf pstool pstricks pstricks-add pstricks-examples pstricks-examples-en
     psu-thesis ptptex punknova purifyeps
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index d61187e918a..8e6d77a49a7 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -719,7 +719,8 @@ chomp ($Build = `cd $Master/../Build/source && pwd`);
  'pst-rubans',	"&MAKEpst",
  'pst-sigsys',	"&MAKEpst",
  'pst-slpe',	"&MAKEpst",
- 'pst-solides3d',"&MAKEpst",
+ 'pst-solarsystem',	"&MAKEpst",
+ 'pst-solides3d',	"&MAKEpst",
  'pst-soroban',	"&MAKEpst",
  'pst-spectra',	"&MAKEpst",
  'pst-stru',	"&MAKEpst",
diff --git a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
index fba654f3915..d6eb021119e 100644
--- a/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-pstricks.tlpsrc
@@ -61,6 +61,7 @@ depend pst-qtree
 depend pst-rubans
 depend pst-sigsys
 depend pst-slpe
+depend pst-solarsystem
 depend pst-spectra
 depend pst-solides3d
 depend pst-soroban
diff --git a/Master/tlpkg/tlpsrc/pst-solarsystem.tlpsrc b/Master/tlpkg/tlpsrc/pst-solarsystem.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/pst-solarsystem.tlpsrc