
\documentclass{article}
\usepackage[a4paper,margin=2cm]{geometry}
\usepackage{pst-eqdf,pst-node,pst-tools}
\usepackage{animate}
\pagestyle{empty}
%timeline
\begin{filecontents}{pb2corps.dat}
::0x0
::1
::2
::3
::4
::5
::6
::7
::8
::9
::10
::11
::12
::13
::14
::15
::16
::17
::18
::19
::20
::21
::22
::23
::24
::25
::26
::27
::28
::29
::30
::31
::32
::33
::34
::35
::36
::37
::38
::39
::40
::41
::42
::43
::44
::45
::46
::47
::48
::49
::50
::51
::52
::53
::54
::55
::56
::57
::58
::59
::60
::61
::62
::63
::64
::65
::66
::67
::68
::69
::70
::71
::72
::73
::74
::75
::76
::77
::78
::79
::80
::81
::82
::83
::84
::85
::86
::87
::88
::89
::90
::91
::92
::93
::94
::95
::96
::97
::98
::99
::100
::101
::102
::103
::104
::105
::106
::107
::108
::109
::110
::111
::112
::113
::114
::115
::116
::117
::118
::119
::120
::121
::122
::123
::124
::125
::126
::127
::128
::129
::130
::131
::132
::133
::134
::135
::136
::137
::138
::139
::140
::141
::142
::143
::144
::145
::146
::147
::148
::149
::150
::151
::152
::153
::154
::155
::156
::157
::158
::159
::160
::161
::162
::163
::164
::165
::166
::167
::168
::169
::170
::171
::172
::173
::174
::175
::176
::177
::178
::179
::180
::181
::182
::183
::184
::185
::186
::187
::188
::189
::190
::191
::192
::193
::194
::195
::196
::197
::198
::199
::200
\end{filecontents}
%%%%%%%%%%%%%%%%%%
\title{Gravitation : le problème des deux corps avec PSTricks\\ partie 2}
\date{5 juillet 2\,012}
\begin{document}
\begin{center}
\pstVerb{/XY1 [(XYM1.dat) run] def
         /XY2 [(XYM2.dat) run] def
         /XYG [(XYG.dat) run] def}%
\def\nFrames{200}% 200 images
\begin{animateinline}[controls,loop,timeline=pb2corps.dat,%
                     begin={\begin{pspicture}(-4,-5)(13,12)},
                     end={\end{pspicture}}]{10}% 10 images/s
\psframe*(-4,-5)(13,12)
\psgrid[subgriddiv=0,gridcolor=white,griddots=10,gridlabels=0pt]%
\listplot[linecolor=gray]{XY1 aload pop}
\listplot[linecolor=gray]{XY2 aload pop}
\listplot[linecolor=gray]{XYG aload pop}
\newframe
\multiframe{\nFrames}{i=0+10,I=2+10}{% 1 point sur 10
\pstVerb{/X1 XY1 \i\space get def
         /Y1 XY1 \i\space 1 add get def
         /X2 XY2 \i\space get def
         /Y2 XY2 \i\space 1 add get def
         /XG XYG \i\space get def
         /YG XYG \i\space 1 add get def
     /xy1 [
         0 2 \I\space {/i exch def
         XY1 i get
          XY1 i 1 add get
        } for
         ] def
     /xy2 [
         0 2 \I\space {/i exch def
         XY2 i get
         XY2 i 1 add get
        } for
         ] def
     /xyG [
         0 2 \I\space {/i exch def
         XYG i get
         XYG i 1 add get
        } for
         ] def
}%
\psgrid[subgriddiv=0,gridcolor=white,griddots=10,gridlabels=0pt]%
\listplot[linecolor=red]{xy1 aload pop}
\listplot[linecolor=blue!50]{xy2 aload pop}
\listplot[linecolor=yellow]{xyG aload pop}
\pscircle*[linecolor=red](!X1 Y1){0.3}
\pscircle*[linecolor=blue!50](!X2 Y2){0.1}
\pscircle*[linecolor=yellow](!XG YG){0.05}
%\psline[linestyle=dashed,linecolor=white](!X1 Y1)(!X2 Y2)
}
\end{animateinline}
\end{center}
\end{document} 