MACRO TESTLEC
* TEST DE LECTURE DE DONNEES SUR UN FICHIER
*
* CREATION D'UN FICHIER postscript
 FORTRAN/FILE 66 PAW.PS
 META 66 -111
*
* RETOUR AUX VALEURS PAR DEFAUT
 IGSET *
 SET *
 OPTION *

* DEFINITION DES VECTEURS, JM=TEMPS
 JM=1400
 VE/CR AZ([JM]) R
 DO I=1,2 ; VE/CR X[I]([JM]) R ; VE/CR Y[I]([JM]) R ; ENDDO
*
* LECTURE DU FICHIER (colonne 1=no image, puis x1,y1,x2,y2)
 FN=per02.2.txt
 VE/READ AZ,X1,Y1,X2,Y2 [FN]
* ECRITURE DES DONNEES SUR UN FICHIER 
 FN=verif.txt ; FMT=F6.0,F7.3
 VE/WRITE AZ,X1 [FN] [FMT]
*
* GRAPHE DU MOUVEMENT DES 2 POISSONS
 SIGMA XT=ARRAY([JM],1#[JM])
 RL=2.0 ; X1=-[RL] ; X2=[RL] ; Y1=-[RL] ; Y2=[RL]
 NULL [X1] [X2] [Y1] [Y2]
 IGSET LWID 4 
 IGSET PLCI 4 ; GRAPH [JM] X1 Y1 L
 IGSET PLCI 2 ; GRAPH [JM] X2 Y2 L
*
 IGSET TXFP -20 ; IGSET CHHE 0.30 ; IGSET TXCI 4 ; IGSET TXAL 23
 TT=Mouvements de 2 poissons, 1440 images (120 s)
 XP=0 ; YP=[X2]*0.95 ; ITX [XP] [YP] [TT]
*
 VE/DE *
 CLOSE 66
 RETURN