Télécharger SMEVOLL.INC

Retour à la liste

Numérotation des lignes :

  1. *
  2. * -INC SMEVOLL
  3. *
  4. SEGMENT MEVOLL
  5. CHARACTER*8 ITYEVO
  6. CHARACTER*72 IEVTEX='SANS TITRE'
  7. INTEGER IEVOLL(N)
  8. ENDSEGMENT
  9. POINTEUR MEVOL1.MEVOLL,MEVOL2.MEVOLL
  10. *
  11. SEGMENT KEVOLL
  12. INTEGER IPROGX,IPROGY,NUMEVX
  13. INTEGER LSTYL=1
  14. INTEGER MMARQ=0
  15. INTEGER KTAIL=3
  16. CHARACTER*4 NUMEVY
  17. CHARACTER*8 TYPX,TYPY
  18. CHARACTER*12 NOMEVX,NOMEVY
  19. CHARACTER*72 KEVTEX
  20. ENDSEGMENT
  21. POINTEUR KEVOL1.KEVOLL,KEVOL2.KEVOLL
  22. *
  23. * OBJET DE TYPE 'EVOLUTIO'
  24. * ITYEVO : SOUS-TYPE REEL , COMPLEXE ( 2 COURBES ) ...
  25. * IEVTEX : TITRE DE L'ENSEMBLE DES COURBES
  26. * IEVOLL : POINTEUR SUR LE SEGMENT KEVOLL
  27. *
  28. * IPROGX : POINTEUR SUR UN SEGMENT DE TYPE TYPX (ABSCISSES)
  29. * IPROGY : POINTEUR SUR UN SEGMENT DE TYPE TYPY (ORDONNEES)
  30. * NUMEVX : COULEUR DE LA COURBE
  31. * NUMEVY : TYPE DE LA COURBE : 'REEL' 'MODU' 'PHAS' 'PREE' 'PIMA' ...
  32. *
  33. * NOMEVX : NOM AFFECTE AUX ABSCISSES
  34. * NOMEVY : NOM AFFECTE AUX ORDONNEES
  35. * KEVTEX : TITRE DE LA COURBE
  36. *
  37. * LSTYL : STYLE DE LA COURBE
  38. * MMARQ : MARQUES SUR LA COURBE
  39. * KTAIL : TAILLE DES MARQUES
  40. *
  41.  

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