Download @cartoon.procedur

Back to the list

   1 : * @CARTOON  PROCEDUR  KK2000    98/01/19    21:19:34     3057           
   2 : 'DEBPROC' @CARTOON TAB1*TABLE MAILL1*MAILLAGE                           
   3 :   BL1/RIGIDITE OEIL/POINT AMPLI/FLOTTANT OSCILLE/MOT;                    
   4 :   IDIM='VALE' DIME;                                                       
   5 :   'SI' (IDIM 'EGA' 3);                                                    
   6 :     'SI' ('NON' ('EXISTE' OEIL));                                        
   7 :       'ERREUR' 'IL FAUT DONNER UN OEIL EN 3D';                          
   8 :     'FINSI';                                                             
   9 :   'FINSI';                                                                
  10 :   'SI' ('EXISTE' BL1);                                                    
  11 :     LVEC=VRAI;                                                           
  12 :   'SINON';                                                                
  13 :     LVEC=FAUX;                                                           
  14 :   'FINSI';                                                                
  15 :   'SI' ('EXISTE' OSCILLE);                                                
  16 :     'SI' ('NON' (EGA OSCILLE 'NOSCIL'));                                 
  17 :       'ERREUR' 'ON ATTEND  NOSCIL  COMME MOT';                             
  18 :     'FINSI';                                                             
  19 :   'FINSI';                                                                
  20 :   LP1='EXISTE' TAB1 'DEPLACEMENTS';                                       
  21 :   'SI' LP1;                                                               
  22 :     MODEPL= 'CHAINE' 'DEPLACEMENTS';                                      
  23 :   'SINON';                                                                
  24 :     MODEPL= 'CHAINE' 'RESUDEPL';                                          
  25 :   'FINSI';                                                                
  26 :   IND='INDEX' (TAB1.MODEPL);                                              
  27 :   NBINCR='DIME' IND;                                                      
  28 :   'SI' LP1 ;                                                              
  29 :     IINCR0=1;                                                              
  30 :     NBINCR=NBINCR - 1;                                                     
  31 :   'SINON';                                                                
  32 :     IINCR0=0;                                                            
  33 :   'FINSI';                                                                
  34 :   IINCR=IINCR0;                                                           
  35 :   MINAMPL=1.E+50;                                                         
  36 :   FMAX=1.;                                                                
  37 :   'SI' LVEC;                                                              
  38 :     XLONG=('MAXI' ( 'COOR' 1 MAILL1)) - ('MINI' ( 'COOR' 1 MAILL1));     
  39 :     YLONG=('MAXI' ( 'COOR' 2 MAILL1)) - ('MINI' ( 'COOR' 2 MAILL1));     
  40 :     'SI' (YLONG > XLONG);                                                
  41 :       XLONG=YLONG;                                                         
  42 :     'FINSI';                                                             
  43 :     'SI' (IDIM 'EGA' 3);                                                 
  44 :       ZLONG=('MAXI' ( 'COOR' 3 MAILL1)) - ('MINI' ( 'COOR' 3 MAILL1));      
  45 :       'SI' (ZLONG > XLONG);                                                 
  46 :         XLONG=ZLONG;                                                       
  47 :       'FINSI';                                                              
  48 :     'FINSI';                                                             
  49 :   'FINSI';                                                                
  50 :   'REPETER' BOU1 NBINCR;                                                  
  51 :     IINCR=IINCR+1;                                                       
  52 :     AMP1='EXTR'('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR)) 'AMPL';           
  53 :     'SI' (AMP1 '<' MINAMPL);                                             
  54 :       MINAMPL=AMP1;                                                         
  55 :     'FINSI';                                                             
  56 :     'SI' LVEC;                                                           
  57 :       FFMAX='MAXI' ('REAC' TAB1.MODEPL.(IND.IINCR) BL1) 'ABS';              
  58 :       'SI' (FFMAX > FMAX);                                                   
  59 :         FMAX=FFMAX;                                                        
  60 :       'FINSI';                                                               
  61 :     'FINSI';                                                             
  62 :   'FIN' BOU1;                                                             
  63 :   'SI' ('EXISTE' AMPLI);                                                  
  64 :     MINAMPL=AMPLI;                                                          
  65 :   'FINSI';                                                                
  66 :   DEF1='DEFO' MAILL1 TAB1.MODEPL.(IND.1) 0 VERT;                          
  67 :   'SI' LVEC;                                                              
  68 :     AMPVEC=XLONG/(5.*FMAX);                                              
  69 :     IINCR=IINCR0;                                                        
  70 :     'REPETER' BOU2 (NBINCR-1);                                           
  71 :       IINCR=IINCR+1;                                                        
  72 :       REA1='REAC' BL1 TAB1.MODEPL.(IND.IINCR);                              
  73 :       'SI' (IDIM 'EGA' 3);                                                  
  74 :         VEC1='VECTEUR' REA1 FX FY FZ AMPVEC ROUG;                          
  75 :         'SINON';
  76 :         'SI' ('EGA' ('VALE' MODE) 'AXIS');
  77 :           VEC1='VECTEUR' REA1 FR FZ AMPVEC ROUG;                             
  78 :         'SINON';
  79 :           'SI' ('EGA' ('VALE' MODE) 'FOUR');
  80 :             VEC1='VECTEUR' REA1 FR FZ FT AMPVEC ROUG;
  81 :           'SINON';
  82 :             VEC1='VECTEUR' REA1 FX FY AMPVEC ROUG;
  83 :           'FINSI';                         
  84 :         'FINSI';                         
  85 :       'FINSI';                                                              
  86 :       DEF1=DEF1 ET                                                          
  87 :       ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL VEC1 BLEU);           
  88 : *  ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 VEC1 BLEU);              
  89 :     'FIN' BOU2;                                                          
  90 :   'SINON';                                                                
  91 :     IINCR=IINCR0;                                                        
  92 :     'REPETER' BOU2 (NBINCR-1);                                           
  93 :       IINCR=IINCR+1;                                                        
  94 :       DEF1=DEF1 ET                                                          
  95 :       ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) MINAMPL BLEU);                
  96 : *  ('DEFO' MAILL1 TAB1.MODEPL.(IND.IINCR) AMP1 BLEU);                   
  97 :     'FIN' BOU2;                                                          
  98 :   'FINSI';                                                                
  99 :   'SI' ('EXISTE' OSCILLE);                                                
 100 :     'SI' (IDIM 'EGA' 3);                                                    
 101 :       'TRAC' OEIL DEF1 ANIME;                                             
 102 :     'SINON';                                                                
 103 :       'TRAC' DEF1 ANIME;                                                  
 104 :     'FINSI';                                                                  
 105 :   'SINON';                                                                
 106 :     'SI' (IDIM 'EGA' 3);                                                    
 107 :       'TRAC' OEIL DEF1 OSCIL;                                             
 108 :     'SINON';                                                                
 109 :       'TRAC' DEF1 OSCIL;                                                  
 110 :     'FINSI';                                                                  
 111 :   'FINSI';                                                                  
 112 : 'FINPROC' DEF1;                                                         
 113 :  

© Cast3M 2003 - All rights reserved.
Disclaimer