source: Sophya/trunk/AddOn/PIPhoto/tanim.pic@ 4016

Last change on this file since 4016 was 3554, checked in by ansari, 17 years ago

This commit was generated by cvs2svn to compensate for changes in r3553,
which included commits to RCS files with non-trunk default branches.
File size: 1004 bytes
Line 
1#######################################################
2#### Script exemple de creation d'une animation simple
3#### a l'aide (s)piapp et ImageMagick
4#### SOPHYA/PI - (C) LAL / IRFU 2008
5#######################################################
6newwin 1 1 250 250
7setaxesatt 'font=courier,roman,12 fixedfontsize white'
8
9xc1 = 0.
10yc1 = 0.
11a1 = 1.15
12b1 = 0.75
13xc2 = 0.
14yc2 = -0.2
15a2 = 0.6
16b2 = 1.
17
18## repertoire ou se trouveront les images RGB des frames
19RGBDIR = '../TAnim/'
20
21for i 0:73
22 drpanel -1.1 1.1 -1.1 1.1 'centeredaxes nolabels wbgcol=black'
23 addoval $xc1 $yc1 $a1 $b1 'red line=solid,2'
24 addoval $xc2 $yc2 $a2 $b2 'navyblue line=solid,2'
25 t = $i*(Pi*2./72.)
26 x = cos($t)*$a1+$xc1
27 y = sin($t)*$b1+$yc1
28 addmarker $x $y 'marker=fcircle,19 gold'
29 t = $i*(Pi*2./72.)*1.75
30 x = cos($t)*$a2+$xc2
31 y = sin($t)*$b2+$yc2
32 addmarker $x $y 'marker=fcircle,19 skyblue'
33 addtext -1 1 "PIAppTestAnim I= $i" 'font=helvetica,bold,20 white'
34# sleep 1
35 win2rgb $(RGBDIR)/tanim$i.rgb
36end
Note: See TracBrowser for help on using the repository browser.