Sources Esope | Cast3M

palet3
C PALET3    SOURCE    PV090527  26/09/08    21:15:09     12640          
C     Interpolation d'une couleur associee a la valeur d'un champ et
C     une palette de couleurs
C
C     Entrees :
C       XALFA  : valeur normalisee du champ (doit etre entre 0. et 1.)
C       MEVOL1 : numero de la palette, definie via OPTI 'PALE' evol1 ;
C                pointeur EVOLUTIO
C
C     Sorties : codes RGB normalises [0.--1.]
C       RED : taux de rouge
C       GRE : taux de vert
C       BLU : taux de bleu
C
      SUBROUTINE PALET3(XALFA,MEVOL1,RED,GRE,BLU)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL RED,GRE,BLU,XALFA
 
-INC SMLREEL
-INC SMEVOLL
 
C     Activation de l'evolution representant la palette
      SEGACT MEVOL1
C     Interpolation du rouge, vert et bleu selon XALFA
      DO J=1,3
         KEVOL1=MEVOL1.IEVOLL(J)
         SEGACT KEVOL1
         MLREE1=KEVOL1.IPROGX
         MLREE2=KEVOL1.IPROGY
         SEGACT MLREE1,MLREE2
         YALFA=XALFA
         CALL INTER5(YALFA,MLREE1,MLREE2,Y,0,0,1,IRET)
         XALFA=YALFA
         IF (J.EQ.1) RED=Y
         IF (J.EQ.2) GRE=Y
         IF (J.EQ.3) BLU=Y
         SEGDES MLREE1,MLREE2
         SEGDES KEVOL1
      ENDDO
      SEGDES MEVOL1
 
      RETURN
      END