- if High(Ebenen)<>-1 then
- begin
- EListe:=glGenLists(1);
- glNewList(EListe, gl_compile);
- glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);
- glenable(gl_blend);
- glblendfunc(gl_src_alpha, gl_src_alpha);
- for Lauf := 0 to High(Ebenen) do
- begin
- glcolor4f(0.3,0.3,0.8, TAlpha);
- glBegin(gl_quads);
- glVertex3f(...);
- glVertex3f(...);
- glVertex3f(...);
- glVertex3f(...);
- glEnd;
- end;
- glPolygonMode (GL_FRONT_AND_BACK, GL_LINE);
- gldisable(gl_blend);
- glEndList;
- end;