Télécharger mailstru.procedur

Retour à la liste

Numérotation des lignes :

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

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