where is the misitake ?
Uses tex,wingraph,crt,gl,glu,glut;
const poly1=1;
var poly:array[1…100]of GLuint;
img:texture;
Procedure Init;
Begin
SetOpenGlMode(DirectOn);
TexLoad(‘mop.tex’,img);
getmem(TBuf,mxmy3);
tBuf:=@img;
GLClearColor(0,0,0,0);
GLClear (GL_Color_Buffer_bit OR gl_dEPTH_buffer_bit);
glOrtho(0.0,1.0,0.0,1.0,-1.0,1.0);
end;
Procedure Draw;
Begin
{poly[1]:=1;}
GLNewList(poly1,GL_Compile);
GLBegin(GL_POLYGON);
GLColor4f(1.0,1.0,1.0,1.0);
GLVertex3f(0.25,0.25,0.0);
GLVertex3f(0.75,0.25,0.0);
GLVertex3f(0.75,0.75,0.0);
GLVertex3f(0.25,0.75,0.0);
GLEnd();
GLEndList;
GLFlush();
end;
Begin
InitGraph(d8bit,m640x480,‘TEXTURE TEST 1’);
init;
draw;
GLCallList(Poly1);
updategraph(updatenow);
if REadkey=#27 then
Begin
halt;
closegraph;
end;
end.