|
Last change
on this file since 14 was
11,
checked in by aslmd, 15 years ago
|
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
|
File size:
479 bytes
|
| Line | |
|---|
| 1 | pro genanim, num, folder, name |
|---|
| 2 | |
|---|
| 3 | last=num-1 |
|---|
| 4 | |
|---|
| 5 | OPENW, 1, 'templist' |
|---|
| 6 | |
|---|
| 7 | FOR i=0,last do begin |
|---|
| 8 | ;; on ne met plus de dossier car on nomme les images |
|---|
| 9 | ;printf, 1, 'modImages['+STRTRIM(STRING(i),2)+'] = "'+folder+'/',$ |
|---|
| 10 | ;; +STRTRIM(STRING(i+1000),2)+'.ps.png";' |
|---|
| 11 | printf, 1, 'modImages['+STRTRIM(STRING(i),2)+'] = "',$ |
|---|
| 12 | +name+STRTRIM(STRING(i+1000),2)+'.png";' |
|---|
| 13 | ENDFOR |
|---|
| 14 | |
|---|
| 15 | printf, 1, 'first_image = '+string(0,'(I0)')+';' |
|---|
| 16 | printf, 1, 'last_image = '+string(last,'(I0)')+';' |
|---|
| 17 | |
|---|
| 18 | CLOSE, 1 |
|---|
| 19 | |
|---|
| 20 | end |
|---|
Note: See
TracBrowser
for help on using the repository browser.
