diff options
Diffstat (limited to 'Master/texmf-dist')
9 files changed, 754 insertions, 0 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 Binary files differnew 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 |