Télécharger CCTRACE.INC

Retour à la liste

Numérotation des lignes :

  1. *
  2. *-INC CCTRACE
  3. *
  4. C ECRAN : police (OPTI 'POLI' ... -> IOPOLI)
  5. c couleur fond ecran (OPTI 'COSC'... -> ICOSC)
  6. C SORTIE PS : police (OPTI 'POTR' fonte -> IOPOTR )
  7. c INFOTR : info de trace
  8. c INFOTR(1) : angle en degre d ecriture ou de tracé
  9. c INFOTR(2) : alignement (0:defaut, 1:excentre, 2:centre ...)
  10. c INFOTR(...) : ...
  11. REAL*4 AMPLIT
  12. INTEGER INFOTR
  13. COMMON/CTRACE/IOPOLI,ICOSC,IOPOTR,INFOTR(8)
  14. COMMON/RTRACE/AMPLIT
  15. *
  16. * COMMON PORTANT SUR LES COULEURS POUR LES TRACES
  17. *
  18. *
  19. * TABLEAU DU DEGRADE DE COULEURS (arc en ciel typiquement)
  20. * avec les couleurs nommees.
  21. COMMON/CTRACE/ICOTAB(15)
  22. *
  23. * TABLEAU DE CHOIX DU DEGRADE DE COULEURS DANS ICOTAB LORSQU'ON
  24. * DEMANDE MOINS DE 16 COULEURS (ISOTAB)
  25. * OU MOINS DE 13 COULEURS (ISOTA0)
  26. * En effet, pour OPTI ISOV LIGNE, on evite les couleurs
  27. * gris, blanc et noir
  28. *
  29. COMMON/CTRACE/ISOTAB(15,15)
  30. COMMON/CTRACE/ISOTA0(12,12)
  31.  
  32.  

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