texlive[45097] Master/texmf-dist: pst-solarsystem (22aug17)
commits+karl at tug.org
commits+karl at tug.org
Tue Aug 22 23:17:15 CEST 2017
Revision: 45097
http://tug.org/svn/texlive?view=revision&revision=45097
Author: karl
Date: 2017-08-22 23:17:15 +0200 (Tue, 22 Aug 2017)
Log Message:
-----------
pst-solarsystem (22aug17)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-solarsystem/Changes
trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex
Modified: trunk/Master/texmf-dist/doc/generic/pst-solarsystem/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-solarsystem/Changes 2017-08-22 21:15:02 UTC (rev 45096)
+++ trunk/Master/texmf-dist/doc/generic/pst-solarsystem/Changes 2017-08-22 21:17:15 UTC (rev 45097)
@@ -1,4 +1,5 @@
..... pst-solarsystem.tex
+0.13 2017-08-22 - values->solarValues
0.12a 2017-08-14 - updated documentation
0.12 2012-01-01 - first version
Modified: trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex 2017-08-22 21:15:02 UTC (rev 45096)
+++ trunk/Master/texmf-dist/doc/generic/pst-solarsystem/pst-solarsystem-doc.tex 2017-08-22 21:17:15 UTC (rev 45097)
@@ -52,7 +52,7 @@
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
+The \Lkeyword{solarValues} 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
@@ -63,7 +63,7 @@
\begin{center}
\SolarSystem
-\SolarSystem[Day=30,Month=06,Year=2001,Hour=23,Minute=59,Second=59,viewpoint=1 -1 2,values=false]
+\SolarSystem[Day=30,Month=06,Year=2001,Hour=23,Minute=59,Second=59,viewpoint=1 -1 2,solarValues=false]
\end{center}
@@ -70,7 +70,7 @@
\begin{verbatim}
\SolarSystem[Day=30,Month=06,Year=2001,
Hour=23,Minute=59,Second=59,
- viewpoint=1 -1 2,values=false]
+ viewpoint=1 -1 2,solarValues=false]
\end{verbatim}
Modified: trunk/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex 2017-08-22 21:15:02 UTC (rev 45096)
+++ trunk/Master/texmf-dist/tex/generic/pst-solarsystem/pst-solarsystem.tex 2017-08-22 21:17:15 UTC (rev 45097)
@@ -27,8 +27,8 @@
\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.12a}
-\def\filedate{2017/08/14}
+\def\fileversion{0.13}
+\def\filedate{2017/08/22}
\message{`PSTSOLARSYSTEME' v\fileversion, \filedate}
%
\pstheader{pst-solarsystem.pro}
@@ -45,9 +45,14 @@
%
\psset{Day=\number\day,Month=\number\month,Year=\number\year,Hour=12,Minute=0,Second=0}
%% === show the results ---------------------
-\define at boolkey[psset]{pst-solarsystem}[Pst@]{values}[true]{}
-\psset[pst-solarsystem]{values}
+%\newif\ifPst at solar@values
+%\define at key[psset]{pst-solarsystem}{solarValues}{\@nameuse{Pst at solar@values#1}\ifPst at solar@values true \else false \fi}
+\define at boolkey[psset]{pst-solarsystem}[Pst@]{solarValues}[true]{}
+\psset[pst-solarsystem]{solarValues=true}
+
+
+
\newpsstyle{planetes}{linestyle=none,fillstyle=gradient,gradmidpoint=0,gradend=white,GradientCircle}
\newcommand\Jupiter{%
\psclip{\pscircle[fillstyle=solid,fillcolor=yellow]{1.5}}
@@ -80,8 +85,8 @@
%
\def\SolarSystem{\pst at object{SolarSystem}}
\def\SolarSystem at i{{%
- \pst at killglue%
- \use at par%
+ \pst at killglue
+ \use at keep@par
\begin{pspicture}(-8,-8)(8,8)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0pt]%
\pstVerb{%
@@ -112,8 +117,8 @@
\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}
+ \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
@@ -129,10 +134,10 @@
\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 at values
- \rput(-2.5,-4.25){\psPrintValue{LO}}
- \rput(-2.5,-4.75){\psPrintValue{LA}}
- \rput(-2.5,-5.25){\psPrintValue{radius}}
+ \ifPst at solarValues
+ \rput(-2.5,-4.25){\psPrintValue{LO}}%
+ \rput(-2.5,-4.75){\psPrintValue{LA}}%
+ \rput(-2.5,-5.25){\psPrintValue{radius}}%
\fi
% Venus
\pstVerb{%
@@ -150,10 +155,10 @@
\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 at values
- \rput(-1.5,-4.25){\psPrintValue{LO}}
- \rput(-1.5,-4.75){\psPrintValue{LA}}
- \rput(-1.5,-5.25){\psPrintValue{radius}}
+ \ifPst at solarValues
+ \rput(-1.5,-4.25){\psPrintValue{LO}}%
+ \rput(-1.5,-4.75){\psPrintValue{LA}}%
+ \rput(-1.5,-5.25){\psPrintValue{radius}}%
\fi
% Earth
\pstVerb{%
@@ -169,18 +174,18 @@
\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 at values
- \rput(-0.5,-4.25){\psPrintValue{LO}}
- \rput(-0.5,-4.75){\psPrintValue{0.000}}
- \rput(-0.5,-5.25){\psPrintValue{radius}}
+ \ifPst at solarValues
+ \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{%
+ \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{%
+ }%
+ \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}%
@@ -187,23 +192,24 @@
\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 at values
-\rput(0.5,-4.25){\psPrintValue{LO}}
-\rput(0.5,-4.75){\psPrintValue{LA}}
-\rput(0.5,-5.25){\psPrintValue{radius}}
-\fi
+\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 at solarValues
+ \rput(0.5,-4.25){\psPrintValue{LO}}%
+ \rput(0.5,-4.75){\psPrintValue{LA}}%
+ \rput(0.5,-5.25){\psPrintValue{radius}}%
+ \fi
% Jupiter
-\pstVerb{%
+ \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{%
+ }%
+ \ThreeDput{%
\psset{unit=0.5}
\psplot[polarplot=true,plotpoints=361,linecolor=red]{LN }{LN 180 add}{%
aJ 1 E dup mul sub mul
@@ -212,23 +218,23 @@
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 at values
-\rput(1.5,-4.25){\psPrintValue{LO}}
-\rput(1.5,-4.75){\psPrintValue{LA}}
-\rput(1.5,-5.25){\psPrintValue{radius}}
-\fi
+ }%
+ \rput(Jupiter){\psset{unit=0.1}\Jupiter%
+ \uput{1.5}[u](0,0){\footnotesize\textsf{Jupiter}}}%
+ \ifPst at solarValues
+ \rput(1.5,-4.25){\psPrintValue{LO}}%
+ \rput(1.5,-4.75){\psPrintValue{LA}}%
+ \rput(1.5,-5.25){\psPrintValue{radius}}%
+ \fi
% JSaturne
-\pstVerb{%
+ \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}
+ }%
+ \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}%
@@ -236,26 +242,27 @@
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 at values
-\rput(2.5,-4.25){\psPrintValue{LO}}
-\rput(2.5,-4.75){\psPrintValue{LA}}
-\rput(2.5,-5.25){\psPrintValue{radius}}
-\fi
-}
-\ifPst at 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
+ }%
+ \rput(Saturne){\psset{unit=0.1}\Saturne%
+ \uput{1.7}[u](0,0){\footnotesize\textsf{Saturne}}}%
+ \ifPst at solarValues
+ \rput(2.5,-4.25){\psPrintValue{LO}}%
+ \rput(2.5,-4.75){\psPrintValue{LA}}%
+ \rput(2.5,-5.25){\psPrintValue{radius}}%
+ \fi
+ }
+ \use at par
+ \ifPst at solarValues
+ \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
More information about the tex-live-commits
mailing list