Перенести белую составляющую текстуры на другой фон. Delphi, OpenGL

sizex:=128;
sizey:=128;
 
for i:=1 to sizex do
  for j:=1 to sizey do
  begin
   q[i*sizex+j]:=PerlinNoise_2D(i,j);
  end;

glClear(GL_COLOR_BUFFER_BIT) ;
  glEnable(GL_TEXTURE_2D);
 
  glGenTextures(1,@texture[1]);
  glBindTexture(GL_TEXTURE_2D, texture[1]);
  gluBuild2DMipmaps(GL_TEXTURE_2D, 1, sizex, sizey,
  GL_LUMINANCE, GL_UNSIGNED_BYTE,@q);

glBegin(GL_QUADS) ;
glTexCoord2f(0.0, 0.0); glVertex2f(-1.0, 1.0);
glTexCoord2f(1.0, 0.0); glVertex2f( 1.0, 1.0);
glTexCoord2f(1.0, 1.0); glVertex2f( 1.0,-1.0);
glTexCoord2f(0.0, 1.0); glVertex2f(-1.0,-1.0);
glEnd();
 
glFinish();
wglMakeCurrent (0,0);
wglDeleteContext(hrc);

q[i*sizex+j]:=255 - PerlinNoise_2D(i,j);// инвертируем чёрное станет белым и наооборот
// всё что чёрное будет прозрачным
 
glClearColor( 0.0, 0.5, 1.0, 1.0); // цвет очистки экрана синий
// включаем смешивание через альфа канал
glEnable(GL_BLEND);
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
 
gluBuild2DMipmaps( GL_TEXTURE_2D, GLU_ALPHA, sizex, sizey, GLU_ALPHA, GL_UNSIGNED_BYTE, @q );
// устанавливаем тип смешивания цвета полигона и текстуры(умножение)
glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE );
 
glColor4ub( 255,255,255,255 ); // цвет полигона белый и не прозрачный
glBegin(GL_QUADS) ;
glTexCoord2f(0.0, 0.0); glVertex2f(-1.0, 1.0);
glTexCoord2f(1.0, 0.0); glVertex2f( 1.0, 1.0);
glTexCoord2f(1.0, 1.0); glVertex2f( 1.0,-1.0);
glTexCoord2f(0.0, 1.0); glVertex2f(-1.0,-1.0);
glEnd();