X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_graphics.pas;h=bfef6d2e7e73f0f8f4476bbdcb49dd2cfc12b951;hb=af1787819fb852141cfca39a570927c0d48ddb6a;hp=47e69d602a1cec3e3a93ba2e13a8d7bc32d449ed;hpb=1bddfaf7b6421f1659a6f211dfdb1dfaef5d5173;p=d2df-sdl.git diff --git a/src/engine/e_graphics.pas b/src/engine/e_graphics.pas index 47e69d6..bfef6d2 100644 --- a/src/engine/e_graphics.pas +++ b/src/engine/e_graphics.pas @@ -19,7 +19,12 @@ unit e_graphics; interface uses - SysUtils, Classes, Math, e_log, e_texture, SDL2, GL, GLExt, MAPDEF, ImagingTypes, Imaging, ImagingUtility; +{$IFDEF USE_NANOGL} + nanoGL, +{$ELSE} + GL, GLExt, +{$ENDIF} + SysUtils, Classes, Math, e_log, e_texture, SDL2, MAPDEF, ImagingTypes, Imaging, ImagingUtility; type TMirrorType=(None, Horizontal, Vertical); @@ -164,7 +169,8 @@ type Base: Uint32; CharWidth: Byte; CharHeight: Byte; - XC, YC, SPC: Word; + XC, YC: WORD; + SPC: ShortInt; end; TCharFont = record @@ -380,6 +386,7 @@ begin Result.Width := w; Result.Height := h; +{$IFNDEF USE_NANOGL} // FIXIT: nanoGL doesn't support glGetTexImage if e_NoGraphics then Exit; data := GetMemory(w*h*4); @@ -460,6 +467,7 @@ begin end; FreeMemory(data); +{$ENDIF} end; procedure e_ResizeWindow(Width, Height: Integer); @@ -950,6 +958,9 @@ end; procedure e_DrawQuad(X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0); var nX1, nY1, nX2, nY2: Integer; +{$IFDEF USE_NANOGL} + v: array [0..15] of GLfloat; +{$ENDIF} begin if e_NoGraphics then Exit; // Only top-left/bottom-right quad @@ -976,7 +987,34 @@ begin glDisable(GL_TEXTURE_2D); glColor4ub(Red, Green, Blue, 255-Alpha); glLineWidth(1); - +{$IFDEF USE_NANOGL} + nX1 := X1; nY1 := Y1; + nX2 := X2; nY2 := Y1; + e_LineCorrection(nX1, nY1, nX2, nY2); + v[0] := nX1; v[1] := nY1; v[2] := nX2; v[3] := nY2; + + nX1 := X2; nY1 := Y1; + nX2 := X2; nY2 := Y2; + e_LineCorrection(nX1, nY1, nX2, nY2); + v[4] := nX1; v[5] := nY1; v[6] := nX2; v[7] := nY2; + + nX1 := X2; nY1 := Y2; + nX2 := X1; nY2 := Y2; + e_LineCorrection(nX1, nY1, nX2, nY2); + v[8] := nX1; v[9] := nY1; v[10] := nX2; v[11] := nY2; + + nX1 := X1; nY1 := Y2; + nX2 := X1; nY2 := Y1; + e_LineCorrection(nX1, nY1, nX2, nY2); + v[12] := nX1; v[13] := nY1; v[14] := nX2; v[15] := nY2; + + glVertexPointer(2, GL_FLOAT, 0, @v[0]); + glEnableClientState(GL_VERTEX_ARRAY); + glDisableClientState(GL_COLOR_ARRAY); + glDisableClientState(GL_NORMAL_ARRAY); + glDisableClientState(GL_TEXTURE_COORD_ARRAY); + glDrawArrays(GL_LINES, 0, 16); +{$ELSE} glBegin(GL_LINES); nX1 := X1; nY1 := Y1; nX2 := X2; nY2 := Y1; @@ -1002,6 +1040,7 @@ begin glVertex2i(nX1, nY1); glVertex2i(nX2, nY2); glEnd(); +{$ENDIF} glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); @@ -1076,6 +1115,10 @@ end; procedure e_DrawLine(Width: Byte; X1, Y1, X2, Y2: Integer; Red, Green, Blue: Byte; Alpha: Byte = 0); +{$IFDEF USE_NANOGL} + var + v: array [0..3] of GLfloat; +{$ENDIF} begin if e_NoGraphics then Exit; // Pixel-perfect lines @@ -1093,10 +1136,20 @@ begin glColor4ub(Red, Green, Blue, 255-Alpha); glLineWidth(Width); +{$IFDEF USE_NANOGL} + v[0] := X1; v[1] := Y1; v[2] := X2; v[3] := Y2; + glVertexPointer(2, GL_FLOAT, 0, @v[0]); + glEnableClientState(GL_VERTEX_ARRAY); + glDisableClientState(GL_COLOR_ARRAY); + glDisableClientState(GL_NORMAL_ARRAY); + glDisableClientState(GL_TEXTURE_COORD_ARRAY); + glDrawArrays(GL_LINES, 0, 4); +{$ELSE} glBegin(GL_LINES); glVertex2i(X1, Y1); glVertex2i(X2, Y2); glEnd(); +{$ENDIF} glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); @@ -1447,11 +1500,12 @@ end; procedure e_CharFont_GetSizeFmt(FontID: DWORD; Text: string; var w, h: Word); var a, lines, len: Integer; - h2, w2: Word; + h2, w2, tw, th: Word; begin w2 := 0; - w := 0; - h := 0; + h2 := 0; + tw := 0; + th := 0; if Text = '' then Exit; if e_CharFonts = nil then Exit; @@ -1467,29 +1521,26 @@ begin if Text[a] = #10 then begin Inc(lines); - if w2 > w then - begin - w := w2; - w2 := 0; - end; - continue; - end - else if Text[a] in [#1, #2, #3, #4, #18, #19, #20, #21] then + if w2 > tw then tw := w2; + w2 := 0; continue; + end; with Chars[Ord(Text[a])] do - if TextureID <> -1 then - begin - w2 := w2 + Width + IfThen(a = len, 0, Space); - e_GetTextureSize(TextureID, nil, @h2); - if h2 > h then h := h2; - end; + if TextureID <> -1 then + begin + w2 := w2 + Width + IfThen(a = len, 0, Space); + e_GetTextureSize(TextureID, nil, @h2); + if h2 > th then th := h2; + end; end; end; - if w2 > w then - w := w2; - h := h * lines; + if w2 > tw then + tw := w2; + + w := tw; + h := th * lines; end; function e_CharFont_GetMaxWidth(FontID: DWORD): Word; @@ -1575,7 +1626,9 @@ begin with e_TextureFonts[id] do begin +{$IF not DEFINED(USE_NANOGL)} Base := glGenLists(XCount*YCount); +{$ENDIF} TextureID := e_Textures[Tex].tx.id; CharWidth := (e_Textures[Tex].tx.Width div XCount)+Space; CharHeight := e_Textures[Tex].tx.Height div YCount; @@ -1585,6 +1638,7 @@ begin SPC := Space; end; +{$IF not DEFINED(USE_NANOGL)} glBindTexture(GL_TEXTURE_2D, e_Textures[Tex].tx.id); for loop1 := 0 to XCount*YCount-1 do begin @@ -1608,6 +1662,7 @@ begin glTranslated((e_Textures[Tex].tx.Width div XCount)+Space, 0, 0); glEndList(); end; +{$ENDIF} FontID := id; end; @@ -1615,10 +1670,51 @@ end; procedure e_TextureFontKill(FontID: DWORD); begin if e_NoGraphics then Exit; +{$IF not DEFINED(USE_NANOGL)} glDeleteLists(e_TextureFonts[FontID].Base, 256); +{$ENDIF} e_TextureFonts[FontID].Base := 0; end; +{$IFDEF USE_NANOGL} +procedure e_TextureFontDrawChar(ch: Char; FontID: DWORD); + var + index: Integer; + cx, cy: GLfloat; + Tex: Integer; + Width, Height: Integer; + XCount, YCount: Integer; +begin + index := Ord(ch) - 32; + Tex := e_TextureFonts[FontID].Texture; + Width := e_Textures[Tex].tx.Width; + Height := e_Textures[Tex].tx.Height; + XCount := e_TextureFonts[FontID].XC; + YCount := e_TextureFonts[FontID].YC; + cx := (index mod XCount)/XCount; + cy := (index div YCount)/YCount; + glBegin(GL_QUADS); + glTexCoord2f(cx, 1 - cy - 1/YCount); + glVertex2i(0, Height div YCount); + glTexCoord2f(cx + 1/XCount, 1 - cy - 1/YCount); + glVertex2i(Width div XCount, Height div YCount); + glTexCoord2f(cx + 1/XCount, 1 - cy); + glVertex2i(Width div XCount, 0); + glTexCoord2f(cx, 1 - cy); + glVertex2i(0, 0); + glEnd(); + glTranslatef((e_Textures[Tex].tx.Width div XCount) + e_TextureFonts[FontID].SPC, 0, 0); +end; + +procedure e_TextureFontDrawString(Text: String; FontID: DWORD); + var + i: Integer; +begin + for i := 1 to High(Text) do + e_TextureFontDrawChar(Text[i], FontID); +end; +{$ENDIF} + procedure e_TextureFontPrint(X, Y: GLint; Text: string; FontID: DWORD); begin if e_NoGraphics then Exit; @@ -1633,9 +1729,13 @@ begin glPushMatrix; glBindTexture(GL_TEXTURE_2D, e_TextureFonts[FontID].TextureID); glEnable(GL_TEXTURE_2D); - glTranslated(x, y, 0); + glTranslatef(x, y, 0); +{$IFDEF USE_NANOGL} + e_TextureFontDrawString(Text, FontID); +{$ELSE} glListBase(DWORD(Integer(e_TextureFonts[FontID].Base)-32)); glCallLists(Length(Text), GL_UNSIGNED_BYTE, PChar(Text)); +{$ENDIF} glDisable(GL_TEXTURE_2D); glPopMatrix; @@ -1651,15 +1751,23 @@ begin if Shadow then begin glColor4ub(0, 0, 0, 128); - glTranslated(X+1, Y+1, 0); + glTranslatef(X+1, Y+1, 0); +{$IFDEF USE_NANOGL} + e_TextureFontDrawChar(Ch, FontID); +{$ELSE} glCallLists(1, GL_UNSIGNED_BYTE, @Ch); +{$ENDIF} glPopMatrix; glPushMatrix; end; glColor4ub(e_Colors.R, e_Colors.G, e_Colors.B, 255); - glTranslated(X, Y, 0); + glTranslatef(X, Y, 0); +{$IFDEF USE_NANOGL} + e_TextureFontDrawChar(Ch, FontID); +{$ELSE} glCallLists(1, GL_UNSIGNED_BYTE, @Ch); +{$ENDIF} glPopMatrix; end; @@ -1682,7 +1790,7 @@ begin result := e_TextureFonts[FontID].CharWidth; end; -procedure e_TextureFontPrintFmt(X, Y: Integer; Text: string; FontID: DWORD; Shadow: Boolean = False); +procedure e_TextureFontPrintFmt(X, Y: GLint; Text: string; FontID: DWORD; Shadow: Boolean = False); var a, TX, TY, len: Integer; tc, c: TRGB; @@ -1707,7 +1815,10 @@ begin begin glBindTexture(GL_TEXTURE_2D, e_TextureFonts[FontID].TextureID); glEnable(GL_TEXTURE_2D); + +{$IF not DEFINED(USE_NANOGL)} glListBase(DWORD(Integer(e_TextureFonts[FontID].Base)-32)); +{$ENDIF} glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glEnable(GL_BLEND); @@ -1784,7 +1895,10 @@ begin glPushMatrix; glBindTexture(GL_TEXTURE_2D, e_TextureFonts[FontID].TextureID); glEnable(GL_TEXTURE_2D); + +{$IF not DEFINED(USE_NANOGL)} glListBase(DWORD(Integer(e_TextureFonts[FontID].Base)-32)); +{$ENDIF} glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); glEnable(GL_BLEND); @@ -1792,17 +1906,25 @@ begin if Shadow then begin glColor4ub(0, 0, 0, 128); - glTranslated(x+1, y+1, 0); + glTranslatef(x+1, y+1, 0); glScalef(Scale, Scale, 0); +{$IFDEF USE_NANOGL} + e_TextureFontDrawString(Text, FontID); +{$ELSE} glCallLists(Length(Text), GL_UNSIGNED_BYTE, PChar(Text)); +{$ENDIF} glPopMatrix; glPushMatrix; end; glColor4ub(Red, Green, Blue, 255); - glTranslated(x, y, 0); + glTranslatef(x, y, 0); glScalef(Scale, Scale, 0); +{$IFDEF USE_NANOGL} + e_TextureFontDrawString(Text, FontID); +{$ELSE} glCallLists(Length(Text), GL_UNSIGNED_BYTE, PChar(Text)); +{$ENDIF} glDisable(GL_TEXTURE_2D); glPopMatrix; @@ -1831,7 +1953,9 @@ begin for i := 0 to High(e_TextureFonts) do if e_TextureFonts[i].Base <> 0 then begin +{$IFNDEF USE_NANOGL} glDeleteLists(e_TextureFonts[i].Base, 256); +{$ENDIF} e_TextureFonts[i].Base := 0; end;