OpenGL: Verdunkeln

[Destroyer446]

Ich habe das mit GL_LINE_LOOP probiert, nur leider waren die Linien nicht so, wie ich wollte;
Meine Versuchs-Prozedur:

Delphi-Quellcode:

procedure DrawBlock(X, Y: Integer; RGBColor: TRGBColor);
begin
 glBegin(GL_QUADS);
  glColor3f(RGBColor.R, RGBColor.G, RGBColor.B);
  glVertex2f(X, Y);
  glVertex2f(X+BlockSize, Y);
  glVertex2f(X+BlockSize, Y+BlockSize);
  glVertex2f(X, Y+BlockSize);
 glEnd;
 If (RGBColor.R = 0) and (RGBColor.G = 0) and (RGBColor.B = 0) then Exit; // Falls Hintergrund, dann keine Umrandung
 glBegin(GL_LINE_LOOP);
  glColor3f(1, 0, 0);
  glVertex2f(X, Y);
  glVertex2f(X+BlockSize, Y);
  glVertex2f(X+BlockSize, Y+BlockSize);
  glVertex2f(X, Y+BlockSize);
 glEnd;
end;

Das Quadrat zeichnen geht, nur das mit der Strecke nicht... (const BlockSize = 1)