Procedures | Cast3M

   1 : * CHTITR    PROCEDUR  WANG      93/09/21    21:17:27     893            
   2 : 
   3 : 'DEBPROC' CHTITR EV1*'EVOLUTION' XT/'MOT' YT/'MOT';  
   4 : 
   5 : *--------------------------------------------------------------------          
   6 : *
   7 : *    POUR DONNER LE TITRE COURANT A UN OBJET D'EVOLUTION                        
   8 : *                                                                               
   9 : *    EV1 : OBJET EVOLUTION                                                      
  10 : *    XT  : NOUVEAU TITRE DES ABSCISSES                                          
  11 : *    YT  : NOUVEAU TITRE DES ORDONNEES                                          
  12 : *--------------------------------------------------------------------
  13 :  NC    = 'DIME' EV1          ;                                                  
  14 :  LR1   = 'EXTR' EV1 'ABSC'   ;                                                  
  15 :                                                                                 
  16 : 'SI' ( NC 'EGA' 1 ) ;                                                           
  17 :  LR2   = 'EXTR' EV1  'ORDO'  ;                                                  
  18 :    'SI' ( 'EXISTE' XT ) ;                                                       
  19 :     EV1   = 'EVOL' 'MANU' XT LR1 YT LR2 ;                                       
  20 :    'SINON' ;                                                                    
  21 : 
  22 : *   Si XT YT n'existent pas, on perd les noms des axes
  23 : 
  24 :     EV1   = 'EVOL' 'MANU' LR1  LR2 ;                                            
  25 :    'FINSI' ;                                                                    
  26 : 'FINSI' ;                                                                       
  27 : 'FINPROC' EV1 ;                                                                 
  28 :