- // Bodenareal zeichnen ...
- glLineWidth(1);
- if GitterAnAus.Checked = True then begin
- glbegin(gl_lines);
- glcolor3f(0.5,0.5,0.5);
- _j := -7;
- repeat
- glvertex3f(-7,-1,_j);
- glvertex3f(7,-1,_j);
- _j := _j + 0.5;
- until _j > 7;
- _j := -7;
- repeat
- glvertex3f(_j,-1,-7);
- glvertex3f(_j,-1,7);
- _j := _j + 0.5;
- until _j > 7;
- glend;
- end;