diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas
index 878c45acf560339b232bcb0db62bc52a2993378c..01ada5245edcbb7606cfd4ffdd3f12af364719b6 100644 (file)
--- a/src/game/g_gfx.pas
+++ b/src/game/g_gfx.pas
procedure g_GFX_Draw ();
-var
- a, len: Integer;
+ var
+ a, len: Integer;
+{$IFDEF USE_NANOGL}
+ type
+ PVertex = ^Vertex;
+ Vertex = record
+ x, y: GLfloat;
+ r, g, b, a: GLfloat;
+ end;
+ var
+ count: Integer;
+ v: PVertex;
+{$ENDIF}
begin
if not gpart_dbg_enabled then exit;
glEnable(GL_BLEND);
glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+{$IFDEF USE_NANOGL}
+ len := High(Particles);
+ v := GetMem(len * SizeOf(Vertex) + 1);
+ count := 0;
+ for a := 0 to len do
+ begin
+ with Particles[a] do
+ begin
+ if alive and (x >= sX) and (y >= sY) and (x <= sX + sWidth) and (sY <= sY + sHeight) then
+ begin
+ v[count].x := x + 0.37;
+ v[count].y := y + 0.37;
+ v[count].r := red / 255;
+ v[count].g := green / 255;
+ v[count].b := blue / 255;
+ v[count].a := alpha / 255;
+ Inc(count);
+ end;
+ end;
+ end;
+
+ glVertexPointer(2, GL_FLOAT, SizeOf(Vertex), @v.x);
+ glColorPointer(4, GL_FLOAT, SizeOf(Vertex), @v.r);
+ glEnableClientState(GL_VERTEX_ARRAY);
+ glEnableClientState(GL_COLOR_ARRAY);
+ glDisableClientState(GL_NORMAL_ARRAY);
+ glDisableClientState(GL_TEXTURE_COORD_ARRAY);
+ glDrawArrays(GL_POINTS, 0, count - 1);
+
+ Dispose(v);
+{$ELSE}
glBegin(GL_POINTS);
len := High(Particles);
end;
glEnd();
+{$ENDIF}
glDisable(GL_BLEND);
end;