summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex')
-rw-r--r--graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex105
1 files changed, 73 insertions, 32 deletions
diff --git a/graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex b/graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex
index daff8cb001..462b6b7a1f 100644
--- a/graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex
+++ b/graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex
@@ -1,4 +1,4 @@
-%% $Id: pst-solarsystem.tex 620 2012-01-01 14:09:57Z herbert $
+%% $Id: pst-solarsystem.tex 851 2024-01-29 18:19:57Z herbert $
%%
%% This is file `pst-solarsystem.tex',
%%
@@ -6,8 +6,8 @@
%%
%% Package `pst-solarsystem.tex'
%%
-%% Manuel Luque <manuel -> perce.de>
-%% Herbert Voss <herbert -> dante.de>
+%% Manuel Luque <manuel.luque27@gmail.com>
+%% Herbert Voss <hvoss@tug.org>
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -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.13}
-\def\filedate{2017/08/22}
+\def\fileversion{0.14}
+\def\filedate{2024/01/29}
\message{`PSTSOLARSYSTEME' v\fileversion, \filedate}
%
\pstheader{pst-solarsystem.pro}
@@ -36,14 +36,57 @@
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
%
\pst@addfams{pst-solarsystem}
+
+\def\SolarSystemLangEN{%
+ \def\ps@@Mercury{Mercury}%
+ \def\ps@@Venus{Venus}%
+ \def\ps@@Earth{Earth}%
+ \def\ps@@Mars{Mars}%
+ \def\ps@@Jupiter{Jupiter}%
+ \def\ps@@Saturn{Saturn}%
+ \def\ps@@Longitude{longitude at $^\mathrm{o}$}%
+ \def\ps@@Latitude{latitude at $^\mathrm{o}$}%
+ \def\ps@@Distance{distance at U.A.}%
+}
+
+\def\SolarSystemLangDE{%
+ \def\ps@@Mercury{Merkur}%
+ \def\ps@@Venus{Venus}%
+ \def\ps@@Earth{Erde}%
+ \def\ps@@Mars{Mars}%
+ \def\ps@@Jupiter{Jupiter}%
+ \def\ps@@Saturn{Saturn}%
+ \def\ps@@Longitude{Längengrad $^\mathrm{o}$ }%
+ \def\ps@@Latitude{Breitengrad $^\mathrm{o}$ }%
+ \def\ps@@Distance{Entfernung bei U.A. }%
+}
+
+\def\SolarSystemLangFR{%
+ \def\ps@@Mercury{Mercure}%
+ \def\ps@@Venus{V{\´e}nus}%
+ \def\ps@@Earth{Terre}%
+ \def\ps@@Mars{Mars}%
+ \def\ps@@Jupiter{Jupiter}%
+ \def\ps@@Saturn{Saturn}%
+ \def\ps@@Longitude{longitude a $^\mathrm{o}$}%
+ \def\ps@@Latitude{latitude a $^\mathrm{o}$}%
+ \def\ps@@Distance{distance a U.A. }%
+}
+\let\SolarSystemLangen\SolarSystemLangEN
+\let\SolarSystemLangde\SolarSystemLangDE
+\let\SolarSystemLangfr\SolarSystemLangFR
+
+
\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}}
+\define@key[psset]{pst-solarsystem}{language}[EN]{\@nameuse{SolarSystemLang#1}}
%
-\psset{Day=\number\day,Month=\number\month,Year=\number\year,Hour=12,Minute=0,Second=0}
+\psset{Day=\number\day,Month=\number\month,Year=\number\year,Hour=12,Minute=0,Second=0,
+ language=EN}
%% === show the results ---------------------
%\newif\ifPst@solar@values
%\define@key[psset]{pst-solarsystem}{solarValues}{\@nameuse{Pst@solar@values#1}\ifPst@solar@values true \else false \fi}
@@ -51,9 +94,7 @@
\psset[pst-solarsystem]{solarValues=true}
-
-
-\newpsstyle{planetes}{linestyle=none,fillstyle=gradient,gradmidpoint=0,gradend=white,GradientCircle}
+\newpsstyle{planets}{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}
@@ -66,7 +107,7 @@
\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{%
+\newcommand\Saturn{%
\psellipse(3,0.7)
\psellipse[linewidth=2\pslinewidth](3.5,1)
\psellipse(4,1.2)
@@ -132,8 +173,8 @@
\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}}}
+ \pscircle[style=planets,gradbegin=black,GradientPos={(0.01,0.01)}]{0.02}
+ \uput[u](0,0){\footnotesize\textsf{\ps@@Mercury}}}
\ifPst@solarValues
\rput(-2.5,-4.25){\psPrintValue{LO}}%
\rput(-2.5,-4.75){\psPrintValue{LA}}%
@@ -153,8 +194,8 @@
\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}}}
+ \pscircle[style=planets,gradbegin={[HTML]{6F2D0A}},GradientPos={(0.03,0.03)}]{0.051}%
+ \uput{0.07}[u](0,0){\footnotesize\textsf{\ps@@Venus}}}
\ifPst@solarValues
\rput(-1.5,-4.25){\psPrintValue{LO}}%
\rput(-1.5,-4.75){\psPrintValue{LA}}%
@@ -172,8 +213,8 @@
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}}}%
+ \pscircle[style=planets,gradbegin=blue,GradientPos={(0.013,0.03)}]{0.0536}%
+ \uput{0.08}[u](0,0){\footnotesize\textsf{\ps@@Earth}}}%
\ifPst@solarValues
\rput(-0.5,-4.25){\psPrintValue{LO}}%
\rput(-0.5,-4.75){\psPrintValue{0.000}}%
@@ -195,8 +236,8 @@ marLM marKA marHA marQ marP orbitalparameters
\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}}}%
+ \psset{unit=2}\pscircle[style=planets,gradbegin=red,GradientPos={(0.01,0.01)}]{0.02857}
+ \uput[u](0,0){\footnotesize\textsf{\ps@@Mars}}}%
\ifPst@solarValues
\rput(0.5,-4.25){\psPrintValue{LO}}%
\rput(0.5,-4.75){\psPrintValue{LA}}%
@@ -220,13 +261,13 @@ marLM marKA marHA marQ marP orbitalparameters
\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}}}%
+ \uput{1.5}[u](0,0){\footnotesize\textsf{\ps@@Jupiter}}}%
\ifPst@solarValues
\rput(1.5,-4.25){\psPrintValue{LO}}%
\rput(1.5,-4.75){\psPrintValue{LA}}%
\rput(1.5,-5.25){\psPrintValue{radius}}%
\fi
-% JSaturne
+% JSaturn
\pstVerb{%
satLM satKA satHA satQ satP orbitalparameters
/aS asat def
@@ -241,10 +282,10 @@ satLM satKA satHA satQ satP orbitalparameters
\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}
+\pnode(! radius LO cos mul radius LO sin mul){Saturn}%
}%
- \rput(Saturne){\psset{unit=0.1}\Saturne%
- \uput{1.7}[u](0,0){\footnotesize\textsf{Saturne}}}%
+ \rput(Saturn){\psset{unit=0.1}\Saturn%
+ \uput{1.7}[u](0,0){\footnotesize\textsf{\ps@@Saturn}}}%
\ifPst@solarValues
\rput(2.5,-4.25){\psPrintValue{LO}}%
\rput(2.5,-4.75){\psPrintValue{LA}}%
@@ -253,15 +294,15 @@ satLM satKA satHA satQ satP orbitalparameters
}
\use@par
\ifPst@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.}%
+ \rput(-4.5,-7.75){\ps@@Mercury}%
+ \rput(-2.5,-7.75){\ps@@Venus}%
+ \rput(-0.5,-7.75){\ps@@Earth}%
+ \rput(1.5,-7.75){\ps@@Mars}%
+ \rput(3.5,-7.75){\ps@@Jupiter}%
+ \rput(5.5,-7.75){\ps@@Saturn}%
+ \rput[r](-5.5,-8.42){\ps@@Longitude}%
+ \rput[r](-5.5,-9.42){\ps@@Latitude}%
+ \rput[r](-5.5,-10.42){\ps@@Distance}%
\fi
\end{pspicture}}}
%