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*(LOCHAI) TXCAT
  20. ENDSEGMENT
  21. POINTEUR MCATE1.MCATEG,MCATE2.MCATEG,MCATE3.MCATEG
  22. *
  23. * ICLAS(I)=2 ---> CLASSE "ETIQUETTE"
  24. * => INUPT : POINTEUR MELEME CONTENANT LE POINT SUPPORT DE L'ETIQUETTE
  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
  30. * 2=S
  31. * 3=SE
  32. * 4=O
  33. * 5=C
  34. * 6=E
  35. * 7=NO
  36. * 8=N
  37. * 9=NE (cf pave numerique)
  38. * => DEPOR : INDIQUE LA DISTANCE ENTRE IPOIN ET LA POSITION
  39. * DE L'ETIQUETTE (coin inf droit si KPOSI=NO, centre si KPOSI=C...)
  40. * => BLIEN : INDIQUE DE TRACER UN LIEN SI DEPOR>0
  41. * => TXETI : CONTIENT LE TEXTE DE L'ETIQUETTE
  42. SEGMENT METIQU
  43. INTEGER INUPT
  44. INTEGER ICLRE
  45. INTEGER KPOSI
  46. REAL*8 DEPOR
  47. LOGICAL BLIEN
  48. CHARACTER*(LOCHAI) TXETI
  49. ENDSEGMENT
  50. POINTEUR METIQ1.METIQU,METIQ2.METIQU,METIQ3.METIQU
  51. *
  52.  

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