Télécharger la plaquette Cast3M


fr en

Télécharger anime.procedur

Retour à la liste

Numérotation des lignes : 

  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.  
  61.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales