-     glEnable(GL_TEXTURE_2D);
 -     texture1:=auxDIBImageLoadA('granit.bmp');
 -     glGenTextures(1,tex);
 -     glBindTexture(GL_TEXTURE_2D,tex);
 -     glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 -     glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
 -     glTexImage2D(GL_TEXTURE_2D,0,3,texture1^.sizeX,texture1^.sizeY,
 -                   0,GL_RGB,GL_UNSIGNED_BYTE,texture1^.data);
 -     glBindTexture(GL_TEXTURE_2D,tex);
 -     //////////////////
 
