Télécharger la plaquette Cast3M


fr en

Télécharger palett.eso

Retour à la liste

Numérotation des lignes : 

palett

  1. C PALETT    SOURCE    FD218221  26/06/18    21:15:02     12577          
  2. C     Point d'entree de l'operateur PALE :
  3. C     definition de palettes de couleurs
  4. C
  5. C     Syntaxe de l'operateur :
  6. C       EVOL1 = PALE MOT1 ;
  7. C
  8. C     Entrees :
  9. C       MOT1    MOT clef decrivant la palette
  10. C               sa valeur doit etre parmi les listes PALE ou ELAP
  11. C
  12. C     Sorties :
  13. C       EVOL1   EVOLUTIOn contenant 3 courbes avec
  14. C               - en abscisse des valeurs croissantes de 0. a 1.
  15. C               - en ordonnee les valeurs de codes rouge, vert et bleu
  16. C                 correspondants
  17. C
  18.       SUBROUTINE PALETT
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8 (A-H,O-Z)
  21.  
  22. -INC SMEVOLL
  23.  
  24. C     Listes des noms des palettes disponibles
  25.       PARAMETER    (NPAL=20)
  26.       CHARACTER*4  PALE(NPAL),ELAP(NPAL)
  27.       DATA PALE / 'DEFA','FRAN','ARC1','ARC2','JET ',
  28.      &            'SPEC','PLAS','VIRI','GNUP','CUIV',
  29.      &            'CHAU','PIYG','PRGN','MANA','GRIS',
  30.      &            'VIOL','BLEU','VERT','ORAN','ROUG' /
  31.       DATA ELAP / 'AFED','NARF','1CRA','2CRA','TEJ ',
  32.      &            'CEPS','SALP','IRIV','PUNG','VIUC',
  33.      &            'UAHC','GYIP','NGRP','ANAM','SIRG',
  34.      &            'LOIV','UELB','TREV','NARO','GUOR' /
  35.  
  36.       INVE=0
  37. C     Acquisition du nom de la palette
  38. C     Est-il parmi la liste des noms en verlan ?
  39.       CALL LIRMOT(ELAP,NPAL,IRET,0)
  40.       IF (IRET.GT.0) THEN
  41.         IPAL=IRET
  42.         INVE=1
  43. C     Sinon, est-il dans la liste des noms "normaux" ?
  44.       ELSE
  45.         CALL LIRMOT(PALE,NPAL,IRET,1)
  46.         IF (IRET.GT.0) THEN
  47.           IPAL=IRET
  48.         ENDIF
  49.       ENDIF
  50.  
  51. C     Calcul de la palette (evolution) correspondante
  52.       CALL PALET1(IPAL,INVE,MEVOL1)
  53. C
  54. C     Ecriture de l'evolution dans la pile d'objets
  55.       CALL ECROBJ('EVOLUTIO',MEVOL1)
  56.  
  57.       RETURN
  58.       END
  59.  
  60.  

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