- procedure TMyForm.BuildDL;
- var
- i: Integer;
- begin
- FDLID := glGenLists(1);
- Randomize;
- glNewList(FDLID, GL_COMPILE);
- for i := 0 to 100000 do
- begin
- glPushMatrix;
- glTranslated(Random*640 - 320, Random*480 - 240, 0);
- glColor3d(Random, Random, Random);
- glRotated(Random*360, 0, 0, 1);
- glScaled(Random*100, Random*100, 1);
- glbegin(GL_TRIANGLES);
- glVertex3d(0, 0, 0);
- glVertex3d(1, 0, 0);
- glVertex3d(0, 1, 0);
- glEnd;
- glPopMatrix;
- end;
- glEndList;
- end;