diff options
Diffstat (limited to 'graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex')
-rw-r--r-- | graphics/pstricks/contrib/pst-solarsystem/tex/pst-solarsystem.tex | 105 |
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}}} % |