Procedures | Cast3M

   1 : * ANIME     PROCEDUR  PV        97/08/01    21:15:02     2777           
   2 : DEBPROC ANIME                                                                   
   3 :   NFOIS*'ENTIER' GEO*'MAILLAGE'                                                 
   4 :   DEF*'CHPOINT'  AMPLD*'FLOTTANT'                                               
   5 :   VEC/'CHPOINT';
   6 : 
   7 : 'OUBLIER' CHPO;
   8 : 'OUBLIER' CHEL;
   9 : 
  10 : TEX='TEXTE' ' ';
  11 : 'SI' ('EXISTE' VEC);                                                           
  12 :   'ARGUMENT' AMPLV/'FLOTTANT' LACOUL/'MOT';
  13 :   'SI' ('NON' ('EXISTE' LACOUL)); LACOUL='VERT'; FINSI;                        
  14 :   'SI' ('EXISTE' AMPLV);
  15 :      TEX= TEXTE TEX 'VECTX';
  16 :      'ARGUMENT' CHPO/CHPOINT;
  17 :      'SI' ('EXISTE' CHPO); TEX = 'TEXTE' TEX 'CHPOX'; 'FINSI';
  18 :   'SINON';
  19 :      CHPO=VEC;  OUBLIER VEC;
  20 :      TEX = 'TEXTE' TEX 'CHPOX';
  21 :   'FINSI';                                         
  22 : 'FINSI';
  23 : 
  24 : 'SI' ('NON' ('EXISTE' CHPO));
  25 :   'ARGUMENT' CHEL/'MCHAML';
  26 : 'FINSI';
  27 : 
  28 : 'SI' ('EXISTE' CHEL);
  29 :   'ARGUMENT' MODEL*'MMODEL';
  30 :   TEX = 'TEXTE' TEX 'CHELX' 'MODEL';
  31 : 'FINSI';
  32 : 
  33 :  LEMODE='VALEUR' 'MODE';                                                        
  34 :   'SI' ('EGA' LEMODE 'PLANCONT'); LESCOMPS=TEXT 'FX FY'; FINSI;                 
  35 :   'SI' ('EGA' LEMODE 'PLANDEFO'); LESCOMPS=TEXT 'FX FY'; FINSI;                 
  36 :   'SI' ('EGA' LEMODE 'AXIS'); LESCOMPS=TEXT 'FR FZ'; FINSI;                     
  37 :   'SI' ('EGA' LEMODE 'FOUR'); LESCOMPS=TEXT 'FR FZ'; FINSI;                     
  38 :   'SI' ('EGA' LEMODE 'TRID'); LESCOMPS=TEXT 'FX FY FZ'; FINSI;                  
  39 : 
  40 : 'SI' ('EXISTE' VEC); VECTX='VECTEUR' VEC 0 LESCOMPS LACOUL;'FINSI';
  41 : 'SI' ('EXISTE' CHPO); CHPOX= CHPO * 0; 'FINSI';
  42 : 'SI' ('EXISTE' CHEL); CHELX= CHEL * 0; 'FINSI';
  43 : 
  44 : DEFTOT = 'DEFO' GEO DEF 0 TEX BLEU;
  45 : 
  46 : 'REPETER' BOUCLE1 NFOIS;
  47 :                                                         
  48 :   SI (EXISTE CHEL); CHELX = CHEL * (&BOUCLE1 *1. / NFOIS ) ; FINSI;
  49 :   SI (EXISTE CHPO); CHPOX = CHPO * (&BOUCLE1 *1. / NFOIS ) ; FINSI;
  50 :   SI (EXISTE VEC); VECTX='VECTEUR' VEC (AMPLV*&BOUCLE1/NFOIS)
  51 :                                            LESCOMPS LACOUL;'FINSI';
  52 : 
  53 :   DEFX='DEFO'  DEF GEO (AMPLD * &BOUCLE1/NFOIS) TEX 'ROUGE';                    
  54 : DEFTOT=DEFTOT 'ET' DEFX ;                           
  55 :                             
  56 : 'FIN'     BOUCLE1;                                                              
  57 : 'FINPROC' DEFTOT;                                                               
  58 :  
  59 : 
  60 :