- Procedure DrawIt;
- Var x,y :integer;
- begin
- randseed := 1;
- glBegin(GL_QUADS);
- for x := 0 to 249 do for y := 0 to 249 do begin
- glColor3f(random,random,random);
- glvertex3f(x * 50 ,1 ,y * 50);
- glvertex3f(x * 50+50,1 ,y * 50);
- glvertex3f(x * 50+50,1 ,y * 50+50);
- glvertex3f(x * 50 ,1 ,y * 50+50);
- end;
- glend;
- end;