- type
- PRGB = ^TRGBA;
- TRGBA = record
- r : byte;
- g : byte;
- b : byte;
- a : byte;
- end;
- var
- x : Integer;
- TexData : PByteArray;
- begin
- getmem(TexData, 256*Sizeof(TRGBA));
- For x := 0 to 255 do
- begin
- TexData^[x*4+0] := x; //r
- TexData^[x*4+1] := 100; //g
- TexData^[x*4+2] := 100; //b
- TexData^[x*4+3] := 1; //a
- end;
- ...
- glGenTextures(1, @ColorTex[0]);
- glBindTexture(GL_TEXTURE_1D, ColorTex[0]);
- glTexImage1D(GL_TEXTURE_1D,0,GL_RGBA,256,0,GL_RGBA,GL_UNSIGNED_BYTE, TexData);
- freemem(TexData, 256*Sizeof(TRGBA));