RectT renders a quad with texture coordinates.

[pascal]procedure RectT(x1,y1,x2,y2: single);
begin
glBegin(GL_QUADS);
glTexCoord2f(0,0); glVertex2f(x1, y1);
glTexCoord2f(0,1); glVertex2f(x1, y2);
glTexCoord2f(1,1); glVertex2f(x2, y2);
glTexCoord2f(1,0); glVertex2f(x2, y1);
glEnd;
end;[/pascal]