Télécharger SMANNOT.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMANNOT
  2. *
  3. * OBJET DE TYPE ANNOTATION (ANNOTATI)
  4. *
  5. * SEGMENT CHAPEAU DE L'ANNOTATION
  6. * => ICLAS(I) DESIGNE LA CLASSE DE LA I-EME ANNOTATION
  7. * => ISEGT(I) DESIGNE LE POINTEUR VERS LE I-EME SEGMENT
  8. SEGMENT MANNOT
  9. INTEGER ICLAS(NBANNO)
  10. INTEGER ISEGT(NBANNO)
  11. ENDSEGMENT
  12. POINTEUR MANNO1.MANNOT,MANNO2.MANNOT,MANNO3.MANNOT
  13. *
  14. * ICLAS(I)=1 ---> CLASSE "CATEGORIE"
  15. * => ICLRC DESIGNE LE NUMERO DE LA COULEUR DANS LA LISTE NCOUL
  16. * => TXCAT CONTIENT LE TEXTE AFFICHE DANS LA LEGENDE
  17. SEGMENT MCATEG
  18. INTEGER ICLRC
  19. CHARACTER*40 TXCAT
  20. ENDSEGMENT
  21. POINTEUR MCATE1.MCATEG,MCATE2.MCATEG,MCATE3.MCATEG
  22. *
  23. * ICLAS(I)=2 ---> CLASSE "ETIQUETTE"
  24. * => INUPT DESIGNE LE NUMERO DU NOEUD DANS LE TABLEAU XCOOR
  25. * TRAC >> si le noeud est deplace, alors l'etiquette suivra
  26. * DESS >> seules les coordonnees X et Y sont utiles
  27. * => ICLRE DESIGNE LE NUMERO DE LA COULEUR DANS LA LISTE NCOUL
  28. * => KPOSI INDIQUE OU EST DESSINEE L'ETIQUETTE PAR RAPPORT A INUPT
  29. * 1=SO 2=S 3=SE 4=O 5=C 6=E 7=NO 8=N 9=NE (cf pave numerique)
  30. * => DEPOR INDIQUE LA DISTANCE ENTRE IPOIN ET LA POSITION
  31. * DE L'ETIQUETTE (coin inf droit si KPOSI=NO, centre si KPOSI=C...)
  32. * => BLIEN INDIQUE DE TRACER UN LIEN SI DEPOR>0
  33. * => TXETI CONTIENT LE TEXTE DE L'ETIQUETTE
  34. SEGMENT METIQU
  35. INTEGER INUPT
  36. INTEGER ICLRE
  37. INTEGER KPOSI
  38. REAL*8 DEPOR
  39. LOGICAL BLIEN
  40. CHARACTER*40 TXETI
  41. ENDSEGMENT
  42. POINTEUR METIQ1.METIQU,METIQ2.METIQU,METIQ3.METIQU
  43. *
  44.  

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