X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_graphics.pas;h=6362cd11437986e6eba5c5da168560e11145f06c;hb=b3ac6ffec7a28592931cbac93187634ff0d236a3;hp=3fdc66c51d10d4f5801dd385df81646fc065c607;hpb=0e354ade87a9aee657de86b63d4100b1dce7b483;p=d2df-sdl.git diff --git a/src/engine/e_graphics.pas b/src/engine/e_graphics.pas index 3fdc66c..6362cd1 100644 --- a/src/engine/e_graphics.pas +++ b/src/engine/e_graphics.pas @@ -22,8 +22,8 @@ uses SysUtils, Classes, Math, e_log, e_texture, SDL2, GL, GLExt, MAPDEF, ImagingTypes, Imaging, ImagingUtility; type - TMirrorType=(M_NONE, M_HORIZONTAL, M_VERTICAL); - TBlending=(B_NONE, B_BLEND, B_FILTER, B_INVERT); + TMirrorType=(None, Horizontal, Vertical); + TBlending=(None, Blend, Filter, Invert); TPoint2i = record X, Y: Integer; @@ -60,24 +60,27 @@ procedure e_SetViewPort(X, Y, Width, Height: Word); procedure e_ResizeWindow(Width, Height: Integer); procedure e_Draw(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Mirror: TMirrorType = TMirrorType.None); procedure e_DrawAdv(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Angle: Single; RC: PDFPoint; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Angle: Single; RC: PDFPoint; Mirror: TMirrorType = TMirrorType.None); procedure e_DrawSize(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = TMirrorType.None); procedure e_DrawSizeMirror(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = TMirrorType.None); procedure e_DrawFill(ID: DWORD; X, Y: Integer; XCount, YCount: Word; Alpha: Integer; - AlphaChannel: Boolean; Blending: Boolean); + AlphaChannel: Boolean; Blending: Boolean; ambientBlendMode: Boolean=false); -procedure e_DrawFillX (id: DWORD; x, y, wdt, hgt: Integer; alpha: Integer; alphachannel: Boolean; blending: Boolean); +procedure e_DrawFillX (id: DWORD; x, y, wdt, hgt: Integer; alpha: Integer; alphachannel: Boolean; + blending: Boolean; scale: Single; ambientBlendMode: Boolean=false); + +procedure e_AmbientQuad (x, y, w, h: Integer; r, g, b, a: Byte); procedure e_DrawPoint(Size: Byte; X, Y: Integer; Red, Green, Blue: Byte); procedure e_DrawLine(Width: Byte; X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0); procedure e_DrawQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0); procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte; - Blending: TBlending = B_NONE); + Blending: TBlending = TBlending.None); procedure e_DarkenQuad (x0, y0, x1, y1: Integer; a: Integer); procedure e_DarkenQuadWH (x, y, w, h: Integer; a: Integer); @@ -141,6 +144,7 @@ var e_Colors: TRGB; e_NoGraphics: Boolean = False; e_FastScreenshots: Boolean = true; // it's REALLY SLOW with `false` + g_dbg_scale: Single = 1.0; implementation @@ -282,7 +286,7 @@ var begin Result := False; - e_WriteLog('Loading texture from '+FileName, MSG_NOTIFY); + e_WriteLog('Loading texture from '+FileName, TMsgType.Notify); find_id := FindTexture(); @@ -465,15 +469,21 @@ begin e_SetViewPort(0, 0, Width, Height); end; -procedure drawTxQuad (x0, y0, w, h: Integer; u, v: single; Mirror: TMirrorType); +procedure drawTxQuad (x0, y0, w, h, tw, th: Integer; u, v: single; Mirror: TMirrorType); var x1, y1, tmp: Integer; begin if (w < 1) or (h < 1) then exit; x1 := x0+w; y1 := y0+h; - if Mirror = M_HORIZONTAL then begin tmp := x1; x1 := x0; x0 := tmp; end - else if Mirror = M_VERTICAL then begin tmp := y1; y1 := y0; y0 := tmp; end; + if Mirror = TMirrorType.Horizontal then begin tmp := x1; x1 := x0; x0 := tmp; end + else if Mirror = TMirrorType.Vertical then begin tmp := y1; y1 := y0; y0 := tmp; end; + //HACK: make texture one pixel shorter, so it won't wrap + if (g_dbg_scale <> 1.0) then + begin + u := u*tw/(tw+1); + v := v*th/(th+1); + end; glTexCoord2f(0, v); glVertex2i(x0, y0); glTexCoord2f(0, 0); glVertex2i(x0, y1); glTexCoord2f(u, 0); glVertex2i(x1, y1); @@ -481,7 +491,7 @@ begin end; procedure e_Draw(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Mirror: TMirrorType = TMirrorType.None); begin if e_NoGraphics then Exit; glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); @@ -504,7 +514,7 @@ begin glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id); glBegin(GL_QUADS); - drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); + drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); //u := e_Textures[ID].tx.u; //v := e_Textures[ID].tx.v; @@ -541,7 +551,7 @@ begin end; procedure e_DrawSize(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = TMirrorType.None); var u, v: Single; begin @@ -579,7 +589,7 @@ begin end; procedure e_DrawSizeMirror(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Width, Height: Word; Mirror: TMirrorType = TMirrorType.None); begin if e_NoGraphics then Exit; glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); @@ -601,46 +611,42 @@ begin glEnable(GL_TEXTURE_2D); glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id); glBegin(GL_QUADS); - drawTxQuad(X, Y, Width, Height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); + drawTxQuad(X, Y, Width, Height, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); glEnd(); glDisable(GL_BLEND); end; procedure e_DrawFill(ID: DWORD; X, Y: Integer; XCount, YCount: Word; Alpha: Integer; - AlphaChannel: Boolean; Blending: Boolean); + AlphaChannel: Boolean; Blending: Boolean; ambientBlendMode: Boolean=false); var X2, Y2, dx, w, h: Integer; u, v: Single; begin if e_NoGraphics then Exit; glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); + ambientBlendMode := false; - if (Alpha > 0) or (AlphaChannel) or (Blending) then - glEnable(GL_BLEND) + if (Alpha > 0) or AlphaChannel or Blending then + begin + glEnable(GL_BLEND); + end else - glDisable(GL_BLEND); - - if (AlphaChannel) or (Alpha > 0) then - glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); - - if Alpha > 0 then - glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255-Alpha); - - if Blending then - glBlendFunc(GL_SRC_ALPHA, GL_ONE); - - if XCount = 0 then - XCount := 1; + begin + if not ambientBlendMode then glDisable(GL_BLEND); + end; + if AlphaChannel or (Alpha > 0) then glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); + if (Alpha > 0) then glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255-Alpha); + if Blending then glBlendFunc(GL_SRC_ALPHA, GL_ONE); - if YCount = 0 then - YCount := 1; + if (XCount = 0) then XCount := 1; + if (YCount = 0) then YCount := 1; glEnable(GL_TEXTURE_2D); glBindTexture(GL_TEXTURE_2D, e_Textures[ID].tx.id); - X2 := X + e_Textures[ID].tx.width * XCount; - Y2 := Y + e_Textures[ID].tx.height * YCount; + X2 := X+e_Textures[ID].tx.width*XCount; + Y2 := Y+e_Textures[ID].tx.height*YCount; //k8: this SHOULD work... i hope if (e_Textures[ID].tx.width = e_Textures[ID].tx.glwidth) and (e_Textures[ID].tx.height = e_Textures[ID].tx.glheight) then @@ -683,33 +689,88 @@ begin glDisable(GL_BLEND); end; -procedure e_DrawFillX (id: DWORD; x, y, wdt, hgt: Integer; alpha: Integer; alphachannel: Boolean; blending: Boolean); + +//TODO: overflow checks +function intersectRect (var x0, y0, w0, h0: Integer; const x1, y1, w1, h1: Integer): Boolean; +var + ex0, ey0: Integer; +begin + result := false; + if (w0 < 1) or (h0 < 1) or (w1 < 1) or (h1 < 1) then exit; + // check for intersection + if (x0+w0 <= x1) or (y0+h0 <= y1) or (x1+w1 <= x0) or (y1+h1 <= y0) then exit; + if (x0 >= x1+w1) or (y0 >= y1+h1) or (x1 >= x0+h0) or (y1 >= y0+h0) then exit; + // ok, intersects + ex0 := x0+w0; + ey0 := y0+h0; + if (x0 < x1) then x0 := x1; + if (y0 < y1) then y0 := y1; + if (ex0 > x1+w1) then ex0 := x1+w1; + if (ey0 > y1+h1) then ey0 := y1+h1; + w0 := ex0-x0; + h0 := ey0-y0; + result := (w0 > 0) and (h0 > 0); +end; + + +procedure e_DrawFillX (id: DWORD; x, y, wdt, hgt: Integer; alpha: Integer; alphachannel: Boolean; + blending: Boolean; scale: Single; ambientBlendMode: Boolean=false); var x2, y2: Integer; - //dx, w, h: Integer; - //u, v: Single; + { + wassc: Boolean; + scxywh: array[0..3] of GLint; + vpxywh: array[0..3] of GLint; + } + w, h, dw, cw, ch, yofs: Integer; + u, v, cu, cv: Single; + onlyOneY: Boolean; + + { + procedure setScissorGLInternal (x, y, w, h: Integer); + begin + //if not scallowed then exit; + x := trunc(x*scale); + y := trunc(y*scale); + w := trunc(w*scale); + h := trunc(h*scale); + y := vpxywh[3]-(y+h); + if not intersectRect(x, y, w, h, scxywh[0], scxywh[1], scxywh[2], scxywh[3]) then + begin + glScissor(0, 0, 0, 0); + end + else + begin + //writeln(' (', x, ',', y, ')-(', w, ',', h, ')'); + glScissor(x, y, w, h); + end; + end; + } + begin if e_NoGraphics then exit; + ambientBlendMode := false; if (wdt < 1) or (hgt < 1) then exit; if (wdt mod e_Textures[ID].tx.width = 0) and (hgt mod e_Textures[ID].tx.height = 0) then begin - e_DrawFill(id, x, y, wdt div e_Textures[ID].tx.width, hgt div e_Textures[ID].tx.height, alpha, alphachannel, blending); + e_DrawFill(id, x, y, wdt div e_Textures[ID].tx.width, hgt div e_Textures[ID].tx.height, alpha, alphachannel, blending, ambientBlendMode); exit; end; glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); if (Alpha > 0) or AlphaChannel or Blending then - glEnable(GL_BLEND) + begin + glEnable(GL_BLEND); + end else - glDisable(GL_BLEND); - + begin + if not ambientBlendMode then glDisable(GL_BLEND); + end; if AlphaChannel or (Alpha > 0) then glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); - if (Alpha > 0) then glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255-Alpha); - if Blending then glBlendFunc(GL_SRC_ALPHA, GL_ONE); glEnable(GL_TEXTURE_2D); @@ -719,7 +780,7 @@ begin y2 := y+hgt; //k8: this SHOULD work... i hope - if (e_Textures[ID].tx.width = e_Textures[ID].tx.glwidth) and (e_Textures[ID].tx.height = e_Textures[ID].tx.glheight) then + if {false and} (e_Textures[ID].tx.width = e_Textures[ID].tx.glwidth) and (e_Textures[ID].tx.height = e_Textures[ID].tx.glheight) then begin glBegin(GL_QUADS); glTexCoord2f(0, hgt/e_Textures[ID].tx.height); glVertex2i(x, y); @@ -730,40 +791,83 @@ begin end else begin + // hard day's night; setup scissor { - glBegin(GL_QUADS); - // hard day's night + glGetIntegerv(GL_VIEWPORT, @vpxywh[0]); + wassc := (glIsEnabled(GL_SCISSOR_TEST) <> 0); + if wassc then glGetIntegerv(GL_SCISSOR_BOX, @scxywh[0]) else glGetIntegerv(GL_VIEWPORT, @scxywh[0]); + //writeln('(', scxywh[0], ',', scxywh[1], ')-(', scxywh[2], ',', scxywh[3], ')'); + //glEnable(GL_SCISSOR_TEST); + setScissorGLInternal(x, y, wdt, hgt); + } + // draw quads u := e_Textures[ID].tx.u; v := e_Textures[ID].tx.v; w := e_Textures[ID].tx.width; h := e_Textures[ID].tx.height; - while YCount > 0 do + x2 := x; + if (hgt > h) then begin y += hgt-h; onlyOneY := false; end else onlyOneY := true; + glBegin(GL_QUADS); + while (hgt > 0) do begin - dx := XCount; - x2 := X; - while dx > 0 do + if (hgt >= h) then begin ch := h; cv := v; yofs := 0; end else begin ch := hgt; cv := v/(h/hgt); yofs := h-hgt; end; + if onlyOneY then yofs := 0; + Dec(hgt, h); + dw := wdt; + x := x2; + while (dw > 0) do begin - glTexCoord2f(0, v); glVertex2i(X, Y); - glTexCoord2f(u, v); glVertex2i(X+w, Y); - glTexCoord2f(u, 0); glVertex2i(X+w, Y+h); - glTexCoord2f(0, 0); glVertex2i(X, Y+h); + if (dw >= w) then begin cw := w; cu := u; end else begin cw := dw; cu := u/(w/dw); end; + Dec(dw, w); + glTexCoord2f(0, cv); glVertex2i(X, Y+yofs); + glTexCoord2f(cu, cv); glVertex2i(X+cw, Y+yofs); + glTexCoord2f(cu, 0); glVertex2i(X+cw, Y+ch+yofs); + glTexCoord2f(0, 0); glVertex2i(X, Y+ch+yofs); Inc(X, w); - Dec(dx); end; - X := x2; - Inc(Y, h); - Dec(YCount); + Dec(Y, h); end; glEnd(); - } + //if wassc then glEnable(GL_SCISSOR_TEST) else glDisable(GL_SCISSOR_TEST); end; glDisable(GL_BLEND); end; +procedure e_AmbientQuad (x, y, w, h: Integer; r, g, b, a: Byte); +begin + if e_NoGraphics then exit; + if (w < 1) or (h < 1) then exit; + if (a <> 255) or ((r or g or b) <> 0) then + begin + glEnable(GL_BLEND); + glDisable(GL_TEXTURE_2D); + glColor4ub(r, g, b, a); + if ((r or g or b) <> 0) then + begin + glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); + glBegin(GL_QUADS); + glVertex2i(x, y); + glVertex2i(x+w, y); + glVertex2i(x+w, y+h); + glVertex2i(x, y+h); + glEnd(); + end; + glBlendFunc(GL_ZERO, GL_SRC_ALPHA); + glBegin(GL_QUADS); + glVertex2i(x, y); + glVertex2i(x+w, y); + glVertex2i(x+w, y+h); + glVertex2i(x, y+h); + glEnd(); + glDisable(GL_BLEND); + end; +end; + + procedure e_DrawAdv(ID: DWORD; X, Y: Integer; Alpha: Byte; AlphaChannel: Boolean; - Blending: Boolean; Angle: Single; RC: PDFPoint; Mirror: TMirrorType = M_NONE); + Blending: Boolean; Angle: Single; RC: PDFPoint; Mirror: TMirrorType = TMirrorType.None); begin if e_NoGraphics then Exit; @@ -795,7 +899,7 @@ begin glBindTexture(GL_TEXTURE_2D, e_Textures[id].tx.id); glBegin(GL_QUADS); //0-1 1-1 //00 10 - drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); + drawTxQuad(X, Y, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[id].tx.width, e_Textures[id].tx.height, e_Textures[ID].tx.u, e_Textures[ID].tx.v, Mirror); glEnd(); if Angle <> 0 then @@ -905,21 +1009,21 @@ begin end; procedure e_DrawFillQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue, Alpha: Byte; - Blending: TBlending = B_NONE); + Blending: TBlending = TBlending.None); begin if e_NoGraphics then Exit; - if (Alpha > 0) or (Blending <> B_NONE) then + if (Alpha > 0) or (Blending <> TBlending.None) then glEnable(GL_BLEND) else glDisable(GL_BLEND); - if Blending = B_BLEND then + if Blending = TBlending.Blend then glBlendFunc(GL_SRC_ALPHA, GL_ONE) else - if Blending = B_FILTER then + if Blending = TBlending.Filter then glBlendFunc(GL_DST_COLOR, GL_SRC_COLOR) else - if Blending = B_INVERT then + if Blending = TBlending.Invert then glBlendFunc(GL_ONE_MINUS_DST_COLOR, GL_ZERO) else if Alpha > 0 then @@ -1128,7 +1232,7 @@ function e_CharFont_Create(sp: ShortInt=0): DWORD; var i, id: DWORD; begin - e_WriteLog('Creating CharFont...', MSG_NOTIFY); + e_WriteLog('Creating CharFont...', TMsgType.Notify); id := DWORD(-1); @@ -1451,7 +1555,7 @@ var i, id: DWORD; begin if e_NoGraphics then Exit; - e_WriteLog('Creating texture font...', MSG_NOTIFY); + e_WriteLog('Creating texture font...', TMsgType.Notify); id := DWORD(-1);