- color_palette:array[0..255]of tcolor;
- palette:array[0..255]of TGLVectorf3;
- for y:=0 to 255 do
- begin
- palette[y][0]:=getrvalue(color_palette[loop])/255;
- palette[y][1]:=getgvalue(color_palette[loop])/255;
- palette[y][2]:=getbvalue(color_palette[loop])/255;
- end;
- glUniform3fvARB(glGetUniformLocationARB(prog,PGLcharARB(ansistring('palette'))),256,@palette);