MACRO COULEUR
* COMMENT CREER DES COULEURS A VOLONTE
 XL=19 ; YL=19 ; SIZE [XL] [YL]
 TT=' ' ; TITLE [TT]
*
 X1=0 ; X2=10 ; Y1=0 ; Y2=10
 NULL [X1] [X2] [Y1] [Y2]
 IGSET LWID 30 
*
* LES 8 COULEURS DE BASE ET LES 3 COULEURS PRIMAIRES (ROUGE,VERT,BLEU)
*GOTO 121
 I=1
*IGSET PLCI [I] ; LINE 1 9 4 9
 RV=$RGBINFO([I],R) ; GV=$RGBINFO([I],G) ; BV=$RGBINFO([I],B)
*MESSAGE I=[I] RV=[RV] GV=[GV] GB=[BV]
*
 N=8
 DO I=1,[N]
 I1=[I]-1
 IGSET PLCI [I1] ; LINE 1 [I1] 4 [I1]
 RV=$RGBINFO([I1],R) ; GV=$RGBINFO([I1],G) ; BV=$RGBINFO([I1],B)
 MESSAGE I=[I1] RV=[RV] GV=[GV] GB=[BV]
 ENDDO
121:
*
*        MELANGE DE RED,GREEN,BLUE
 GOTO 122
 COLOR_TABLE 10 0.7 1 0.5 ; IGSET PLCI 10 ; LINE 1 9 4 9 
 COLOR_TABLE 11 0.8 1 0.5 ; IGSET PLCI 11 ; LINE 1 8 4 8
 COLOR_TABLE 12 0.9 1 0.5 ; IGSET PLCI 12 ; LINE 1 7 4 7
 COLOR_TABLE 13 0.7 0.5 0 ; IGSET PLCI 13 ; LINE 1 6 4 6
 COLOR_TABLE 14 0.7 0 0.5 ; IGSET PLCI 14 ; LINE 1 5 4 5
 COLOR_TABLE 15 0.7 0.1 0 ; IGSET PLCI 15 ; LINE 1 4 4 4
 COLOR_TABLE 16 0.7 0 0.1 ; IGSET PLCI 16 ; LINE 1 3 4 3
 COLOR_TABLE 17 1 1 0.7 ; IGSET PLCI 17 ; LINE 1 2 4 2
122:
*
* COULEURS SE RAPPROCHANT DU BLANC (POUR FLAMMES)
 GOTO 123
 IGSET LWID 30
 N=20
 C=0.04
 PY=0.4 
 XA1=1 ; XA2= 3 ; XB1=4 ; XB2=6 ; XC1=7 ; XC2=9
 Q1=0.8 ; Q2=1
 DO I=1,[N]
 R=[Q1] ; G=[Q2] ; B=$EVAL(1-[I]*[C])
 COLOR_TABLE 10 [R] [G] [B] ; IGSET PLCI 10 
 YP=$EVAL(9-[PY]*[I]) ; LINE [XA1] [YP] [XA2] [YP]
 RV=$RGBINFO(10,R) ; GV=$RGBINFO(10,G) ; BV=$RGBINFO(10,B)
 MESSAGE R=[R] RV=[RV] G=[G] GV=[GV] B=[B] BV=[BV]
 ENDDO 
*
 DO I=1,[N]
 R=[Q1] ; G=$EVAL(1-[I]*[C]) ; B=[Q2]
 COLOR_TABLE 10 [R] [G] [B] ; IGSET PLCI 10 
 YP=$EVAL(9-[PY]*[I]) ; LINE [XB1] [YP] [XB2] [YP]
 ENDDO 
*
*
 DO I=1,[N]
 R=$EVAL(1-[I]*[C]); G=[Q1] ; B=[Q2]
 COLOR_TABLE 10 [R] [G] [B] ; IGSET PLCI 10 
 YP=$EVAL(9-[PY]*[I]) ; LINE [XC1] [YP] [XC2] [YP]
 ENDDO 
123:
*
 VE/DE *
 RETURN