Lines Matching refs:Palette
96 Palette = as.integer(c(256^(2:0) %*% crgb)) # convert to internal int format functionVar
97 nColor = length(Palette)
101 if (nColor<256) Palette = c(Palette, rep(0,256-nColor)) # pad it
108 .C("imwritegif", filename, x, Palette, param, comment,
159 Palette = x[ 10:265 ] functionVar
170 Palette = Palette[Palette>=0]
171 red = bitAnd(bitShiftR(Palette,16), 255)
172 green = bitAnd(bitShiftR(Palette, 8), 255)
173 blue = bitAnd( Palette , 255)
174 Palette = rgb (red, green, blue, 255, maxColorValue = 255)
176 return (list(image=x, col=Palette, transparent=tran, comment=comt))