Procedures | Cast3M

   1 : * MAILSTRU  PROCEDUR  CHAT      95/12/08    21:22:14     1934           
   2 : 'DEBPROC'  mailstru co*'MAILLAGE'   dd*'FLOTTANT' ;
   3 : dden = &dens;
   4 : 'DENS' dd  ;                                                            
   5 : ox = 'COOR' 1 co;                                                         
   6 : oy = 'COOR' 2 co;                                                               
   7 : xmin = 'MINI' ox; xmax = 'MAXI' ox;                                             
   8 : ymin = 'MINI' oy; ymax = 'MAXI' oy;                                         
   9 : pinfg = xmin ymin;                                                      
  10 : pinfd = xmax ymin;                                                      
  11 : li = pinfg 'DROI' pinfd;                                                        
  12 : lsu = li 'TRANS' ( 0 (ymax - ymin));  
  13 : 'DENS' dden;                                                                    
  14 : sinc = lsu 'INCLUS'  co 'STRI';          
  15 : res = lsu elem  appuy largement    sinc;                                        
  16 : 'FINPROC'   res;
  17 :