X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_gfx.pas;h=8094c4e4e1af00e578f2f6d82d70340e75c565f0;hp=e9118a313c4c3ad2fecd7f161dc154c1e4d7d129;hb=d63e6eaaecbc83b40c9b932b3381fc324f6a2461;hpb=87c3a28dda4534eec3fde4ef06dc5f324b2c4b3b diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas index e9118a3..8094c4e 100644 --- a/src/game/g_gfx.pas +++ b/src/game/g_gfx.pas @@ -1674,16 +1674,6 @@ end; procedure g_GFX_Draw (); var a, len: Integer; -{$IFDEF USE_NANOGL} - type - Vertex = record - x, y: GLfloat; - r, g, b, a: GLfloat; - end; - var - count: Integer; - v: array of Vertex; -{$ENDIF} begin if not gpart_dbg_enabled then exit; @@ -1698,34 +1688,6 @@ begin glEnable(GL_BLEND); glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); -{$IFDEF USE_NANOGL} - count := 0; - SetLength(v, Length(Particles)); - for a := 0 to High(Particles) 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[0].x); - glColorPointer(4, GL_FLOAT, SizeOf(Vertex), @v[0].r); - glEnableClientState(GL_VERTEX_ARRAY); - glEnableClientState(GL_COLOR_ARRAY); - glDisableClientState(GL_NORMAL_ARRAY); - glDisableClientState(GL_TEXTURE_COORD_ARRAY); - glDrawArrays(GL_POINTS, 0, count); -{$ELSE} glBegin(GL_POINTS); len := High(Particles); @@ -1743,7 +1705,6 @@ begin end; glEnd(); -{$ENDIF} glDisable(GL_BLEND); end;