Sources Esope | Cast3M

palet2
C PALET2    SOURCE    FD218221  26/07/07    21:15:01     12595          
C     Interpolation de couleurs pour le trace des isovaleurs
C
C     Entrees :
C       MEVOL1 : numero de la palette, definie via OPTI 'PALE' evol1 ;
C                pointeur EVOLUTIO
C       NISO   : nombre de couleurs souhaitees (doit etre > 0)
C
C     Sorties : codes RGB normalises [0.--1.]
C       RED : liste des taux de rouge (dimension NISO)
C       GRE : liste des taux de vert  (dimension NISO)
C       BLU : liste des taux de bleu  (dimension NISO)
C
      SUBROUTINE PALET2(MEVOL1,NISO,RED,GRE,BLU)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC SMLREEL
-INC SMEVOLL
 
C     LISTREELs decrivants la palette
      POINTEUR ROUG.MLREEL,VERT.MLREEL,BLEU.MLREEL
C     Un segment KEVOLL
      POINTEUR KEVOL3.KEVOLL
 
C     Listes des couleurs interpolees
      REAL*8 RED(NISO),GRE(NISO),BLU(NISO)
 
      SEGACT MEVOL1
C     Interpolation des NISO couleurs
      DO I=1,NISO
         IF (NISO.EQ.1) THEN
            XALFA=0.5D0
         ELSE
            XALFA=(I-1.)/(NISO-1.)
         ENDIF
C        Boucle sur le rouge, le vert et le bleu
         DO J=1,3
            KEVOL1=MEVOL1.IEVOLL(J)
            SEGACT KEVOL1
            MLREE1=KEVOL1.IPROGX
            MLREE2=KEVOL1.IPROGY
            SEGACT MLREE1,MLREE2
            CALL INTER5(XALFA,MLREE1,MLREE2,XXX,0,0,1,IRET)
            IF (J.EQ.1) RED(I)=XXX
            IF (J.EQ.2) GRE(I)=XXX
            IF (J.EQ.3) BLU(I)=XXX
            SEGDES MLREE1,MLREE2
            SEGDES KEVOL1
         ENDDO
      ENDDO
      SEGDES MEVOL1
 
      RETURN
      END