#######################################################
####  Script exemple de creation d'une animation simple
####  a l'aide (s)piapp et ImageMagick 
####  SOPHYA/PI - (C) LAL / IRFU    2008
#######################################################
newwin 1 1 250 250 
setaxesatt 'font=courier,roman,12 fixedfontsize white'

xc1 = 0.
yc1 = 0.
a1 = 1.15
b1 = 0.75
xc2 = 0.
yc2 = -0.2
a2 = 0.6
b2 = 1.

## repertoire ou se trouveront les images RGB des frames 
RGBDIR = '../TAnim/'

for i 0:73
  drpanel  -1.1 1.1 -1.1 1.1 'centeredaxes nolabels wbgcol=black'
  addoval $xc1 $yc1 $a1 $b1 'red line=solid,2'
  addoval $xc2 $yc2 $a2 $b2 'navyblue line=solid,2'
  t = $i*(Pi*2./72.)
  x = cos($t)*$a1+$xc1
  y = sin($t)*$b1+$yc1
  addmarker $x $y 'marker=fcircle,19 gold'
  t = $i*(Pi*2./72.)*1.75
  x = cos($t)*$a2+$xc2
  y = sin($t)*$b2+$yc2
  addmarker $x $y 'marker=fcircle,19 skyblue'
  addtext -1 1 "PIAppTestAnim I=  $i" 'font=helvetica,bold,20 white'
#  sleep 1
  win2rgb $(RGBDIR)/tanim$i.rgb 
end