DGL • Thema anzeigen - SDL-Schriften mit transparentem Hintergrund

SDL-Schriften mit transparentem Hintergrund - Wie?

Moderator: DGL-Team

Seite 1 von 1

[ 9 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

berens

Betreff des Beitrags: SDL-Schriften mit transparentem Hintergrund - Wie?

Verfasst: Mi Aug 29, 2007 14:51

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Hi!
Ich versuche gerade mit den SDL-Schriften klar zu kommen und habe dazu das Beispielprogramm modifiziert.
Leider kommt bei mir immer nur weisse Schrift auf nem hellblauen Hintergrund.

Ich brauche definiert-bunte Schrift ohne Hintergrund. Idealer Weise auch mit Farbverlaufmöglichkeiten, wie es mit normalen Texturen möglich ist.

Was ist hier falsch?

Referenzen: http://wiki.delphigl.com/index.php/TTF_Rendermode

Achtung: ich benutze TTF_RenderText_Blended !

Code:

program glfont;
{
    glfont:  An example of using the SDL_ttf library with OpenGL.
    Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga
    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public
    License as published by the Free Software Foundation; either
    version 2 of the License, or (at your option) any later version.
    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Library General Public License for more details.
    You should have received a copy of the GNU Library General Public
    License along with this library; if not, write to the Free
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    The SDL_GL_* functions in this file are available in the public domain.
    Sam Lantinga
    slouken@libsdl.org
}
{ $Id: glfont.dpr,v 1.1 2004/02/16 22:16:40 savage Exp $ }
{ A simple program to test the text rendering feature of the TTF library }
uses
  SysUtils,
  sdl,
  sdl_ttf,
  gl;
 
(* Undefine this if you want a flat cube instead of a rainbow cube *)
{$DEFINE SHADED_CUBE}
 
const
  DEFAULT_PTSIZE = 200;
  DEFAULT_TEXT = '1234567890000000000';
  NUM_COLORS = 256;
  Usage = 'Usage: %s <font>.ttf [-solid] [-utf8 or -unicode] [-b] [-i] [-u] [-fgcol r g b] [-bgcol r g b]  [-ptsize nn] [-text "message"]';
  SCREEN_WIDTH = 640;
  SCREEN_HEIGHT = 480;
  SCREEN_BPP = 0;
 
procedure ShutDownApplication( HaltStatus : integer );
begin
  TTF_Quit;
  SDL_Quit;
  Halt( HaltStatus );
end;
 
procedure SDL_GL_Enter2DMode;
var
  screen : PSDL_Surface;
begin
  screen := SDL_GetVideoSurface;
  (* Note, there may be other things you need to change,
     depending on how you have your OpenGL state set up.
  *)
  glPushAttrib( GL_ENABLE_BIT );
  glDisable( GL_DEPTH_TEST );
  glDisable( GL_CULL_FACE );
  glEnable( GL_TEXTURE_2D );
  glViewport( 0, 0, screen.w, screen.h );
  glMatrixMode( GL_PROJECTION );
  glPushMatrix;
  glLoadIdentity;
  glOrtho( 0.0, screen.w, screen.h, 0.0, 0.0, 1.0 );
  glMatrixMode( GL_MODELVIEW );
  glPushMatrix;
  glLoadIdentity;
  glTexEnvf( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL );
end;
 
procedure SDL_GL_Leave2DMode;
begin
  glMatrixMode( GL_MODELVIEW );
  glPopMatrix;
  glMatrixMode( GL_PROJECTION );
  glPopMatrix;
  glPopAttrib;
end;
(* Quick utility function for texture creation *)
 
function power_of_two( input : integer ) : integer;
var
  value : integer;
begin
  value := 1;
  while ( value < input ) do
  begin
    value := value shl 1;
  end;
  result := value;
end;
 
function SDL_GL_LoadTexture( surface : PSDL_Surface; var texcoord : array of GlFloat ) : GLuint;
var
  texture : GLuint;
  w, h : integer;
  image : PSDL_Surface;
  area : TSDL_Rect;
  saved_flags : Uint32;
  saved_alpha : Uint8;
begin
  (* Use the surface width and height expanded to powers of 2 *)
  w := power_of_two( surface.w );
  h := power_of_two( surface.h );
  texcoord[ 0 ] := 0.0; (* Min X *)
  texcoord[ 1 ] := 0.0; (* Min Y *)
  texcoord[ 2 ] := surface.w / w; (* Max X *)
  texcoord[ 3 ] := surface.h / h; (* Max Y *)
  image := SDL_CreateRGBSurface(
    SDL_SWSURFACE,
    w, h,
    32,
{$IFDEF IA32} (* OpenGL RGBA masks *)
    $000000FF,
    $0000FF00,
    $00FF0000,
    $FF000000
{$ELSE}
    $FF000000,
    $00FF0000,
    $0000FF00,
    $000000FF
{$ENDIF}
    );
  if ( image = nil ) then
  begin
    result := 0;
    exit;
  end;
  (* Save the alpha blending attributes *)
  saved_flags := surface.flags and ( SDL_SRCALPHA or SDL_RLEACCELOK );
  saved_alpha := surface.format.alpha;
  if ( ( saved_flags and SDL_SRCALPHA ) = SDL_SRCALPHA ) then
  begin
    SDL_SetAlpha( surface, 0, 0 );
  end;
  (* Copy the surface into the GL texture image *)
  area.x := 0;
  area.y := 0;
  area.w := surface.w;
  area.h := surface.h;
  SDL_BlitSurface( surface, @area, image, @area );
  (* Restore the alpha blending attributes *)
  if ( ( saved_flags and SDL_SRCALPHA ) = SDL_SRCALPHA ) then
  begin
    SDL_SetAlpha( surface, saved_flags, saved_alpha );
  end;
  (* Create an OpenGL texture for the image *)
  glGenTextures( 1, @texture );
  glBindTexture( GL_TEXTURE_2D, texture );
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST );
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST );
  glTexImage2D( GL_TEXTURE_2D,
    0,
    GL_RGBA,
    w, h,
    0,
    GL_RGBA,
    GL_UNSIGNED_BYTE,
    image.pixels );
  SDL_FreeSurface( image ); (* No longer needed *)
  result := texture;
end;
 
type
  TRenderType = ( rtLatin1, rtUTF8, rtUnicode );
 
var
  //fontfile : string;
  gl_error : GLenum;
  texture : GLuint;
  x, y, w, h : integer;
  //texcoord : array[ 0..4 ] of TGLfloat;
  texMinX, texMinY : GLfloat;
  texMaxX, texMaxY : GLfloat;
  color : array[ 0..7, 0..2 ] of single = ( ( 1.0, 1.0, 0.0 ),
    ( 1.0, 0.0, 0.0 ),
    ( 0.0, 0.0, 0.0 ),
    ( 0.0, 1.0, 0.0 ),
    ( 0.0, 1.0, 1.0 ),
    ( 1.0, 1.0, 1.0 ),
    ( 1.0, 0.0, 1.0 ),
    ( 0.0, 0.0, 1.0 ) );
  cube : array[ 0..7, 0..2 ] of single = ( ( 0.5, 0.5, -0.5 ),
    ( 0.5, -0.5, -0.5 ),
    ( -0.5, -0.5, -0.5 ),
    ( -0.5, 0.5, -0.5 ),
    ( -0.5, 0.5, 0.5 ),
    ( 0.5, 0.5, 0.5 ),
    ( 0.5, -0.5, 0.5 ),
    ( -0.5, -0.5, 0.5 ) );
  screen : PSDL_Surface = nil;
  font : PTTF_Font;
  temp : PSDL_Surface = nil;
  ptsize : integer = 0;
  i : integer;
  done : Boolean = false;
  //rdiff, gdiff, bdiff : integer;
  //colors : array[ 0..NUM_COLORS - 1 ] of TSDL_Color;
  white : TSDL_Color = ( r : $FF; g : $FF; b : $FF; unused : 0 );
  black : TSDL_Color = ( r : $00; g : $00; b : $00; unused : 0 );
  bla : TSDL_Color = ( r : $FF; g : $00; b : $00; unused : 0 );
  forecol : TSDL_Color;
  backcol : TSDL_Color;
  //dstrect : TSDL_Rect;
  event : TSDL_Event;
  rendersolid : Boolean = false;
  renderstyle : integer = TTF_STYLE_NORMAL;
  rendertype : TRenderType = rtLatin1;
  dump : Boolean;
  message : string;
  glyph : PSDL_Surface = nil;
  r, g, b : integer;
  outname : string;
  //texcoord : array[ 0..3 ] of TGLfloat;
  aspect : single;
 
procedure DrawTextTexture;
var
  //screen : PSDL_Surface;
  image : PSDL_Surface;
  texcoord : array[ 0..3 ] of GlFloat;
begin
  if ( texture = 0 ) then begin
     image := TTF_RenderText_Blended( font, PChar( message ), white);
    w := image.w;
    h := image.h;
    (* Convert the image into an OpenGL texture *)
    texture := SDL_GL_LoadTexture( image, texcoord );
    (* Make texture coordinates easy to understand *)
    texMinX := texcoord[ 0 ];
    texMinY := texcoord[ 1 ];
    texMaxX := texcoord[ 2 ];
    texMaxY := texcoord[ 3 ];
    (* We don't need the original image anymore *)
    SDL_FreeSurface( image );
    (* Make sure that the texture conversion is okay *)
    if ( texture = 0 ) then
    begin
      exit;
    end;
  end;
 
  (* Show the image on the screen *)
  SDL_GL_Enter2DMode;
  glBindTexture( GL_TEXTURE_2D, texture );
  glBegin( GL_TRIANGLE_STRIP );
//    glColor3f(1, 0, 0);
    glTexCoord2f( texMinX, texMinY );
    glVertex2i( x, y );
//    glColor3f(1, 1, 0);
    glTexCoord2f( texMaxX, texMinY );
    glVertex2i( x + w, y );
//    glColor3f(0, 1, 0);
    glTexCoord2f( texMinX, texMaxY );
    glVertex2i( x, y + h );
//    glColor3f(0, 1, 1);
    glTexCoord2f( texMaxX, texMaxY );
    glVertex2i( x + w, y + h );
  glEnd;
  SDL_GL_Leave2DMode;
end;
 
begin
  ptsize := 76;
 
  { Initialize SDL }
  if ( SDL_Init( SDL_INIT_VIDEO ) < 0 ) then SDL_Quit;
  { Initialize the TTF library }
  if ( TTF_Init < 0 ) then SDL_Quit;
 
  font := TTF_OpenFont( PChar( ParamStr( 1 ) ), ptsize );
 
  TTF_SetFontStyle( font, renderstyle );
 
  screen := SDL_SetVideoMode( SCREEN_WIDTH, SCREEN_HEIGHT, SCREEN_BPP, SDL_OPENGL );
 
  { Render and center the message }
  if ( message = '' ) then
  begin
    message := DEFAULT_TEXT;
  end;
 
  { Wait for a keystroke, and blit text on mouse press }
  done := false;
  while ( not done ) do
  begin
    while ( SDL_PollEvent( @event ) <> 0 ) do
    begin
      case event.type_ of
        SDL_MOUSEBUTTONDOWN :
          begin
            x := event.motion.x - w div 2;
            y := event.motion.y - h div 2;
          end;
 
        SDL_KEYDOWN, SDL_QUITEV :
          begin
            done := true;
          end;
      end;
    end;
 
  { Clear the screen }
  glClearColor( 0.5, 0.5, 0.5, 1.0 );
  glClear( GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT );
  { Draw the spinning cube }
 
  // Referenz-Hintergrund
  glBegin(GL_Quads);
    glColor3f(1, 0, 0); glVertex3f(-1,-1, 0);
    glColor3f(0, 0, 1); glVertex3f( 1,-1, 0);
    glColor3f(0, 1, 0); glVertex3f( 1, 1, 0);
    glColor3f(0, 1, 0); glVertex3f( -1, 1, 0);
  glEnd;
 
 //Alphatest
  glEnable(GL_ALPHA_TEST);
  glAlphaFunc(GL_GREATER, 1);
  glAlphaFunc(GL_GREATER, 0.4);
  glColor3f(0,0,0);
  DrawTextTexture;
  glDisable(GL_ALPHA_TEST);
  //Blenden
  glBlendFunc(GL_SRC_ALPHA, GL_ONE);
  glEnable(GL_BLEND);
  glColor3f(1,1,1);
  DrawTextTexture;
  glDisable(GL_BLEND);
 
  SDL_GL_SwapBuffers;
  end;
  TTF_CloseFont( font );
  ShutDownApplication( 0 );
end.
 

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Aug 29, 2007 15:02

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Es gab mal einen Fehler in dem SDL Header. Dadurch wurden wohl die Farbkanäle vertauscht und ich meine der hat sich Haar genau so geäußerst. Der Header aus dem DGL-SDK sind in der Sache berichtigt.

Könnte aber auch an dieser Stelle liegen. (Vermutung)

Code:

{$IFDEF IA32} (* OpenGL RGBA masks *)
  $000000FF,
  $0000FF00,
  $00FF0000,
  $FF000000
{$ELSE}
  $FF000000,
  $00FF0000,
  $0000FF00,
  $000000FF
{$ENDIF}

Aber etwas ganz Anderes. *hust* Um mal ein bisschen Werbung zu machen. Schau mal das Thema da.

Nach oben

berens

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 10:14

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Wenn man anstatt der Compilerbedingungen einfach

Code:

 
$FF000000,
$00FF0000,
$0000FF00,
$000000FF

schreibt, stimmt zumindest die Schriftfarbe. Der Hintergrund verhält sich nach wie vor merkwürdig.

Ich versuche nun Lossy's TextSuite, hänge da aber atm auch:
viewtopic.php?p=56673#56673

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 11:18

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Die Klassische RGBA Maske ist normal aber

Code:

$000000FF
$0000FF00
$00FF0000
$FF000000
 

Denn Rot ist das niederste Byte, Grün das Zweite usw.

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 12:01

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Übrigens befindet sich im DGLSDK die easySDLFont welche auch Schriften über SDL_TTF erstellt.
Gib mal die Version deiner Header (sdl_ttf.pas sowie jedi*.inc) und der DLLs.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

berens

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 13:07

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

Alle Dateien kommen von dglsdk_2006.1.exe

$Id: sdl.pas,v 1.24 2006/05/18 21:10:04 savage Exp $

$Id: sdl_ttf.pas,v 1.10 2005/01/02 19:07:32 savage Exp $

$Id: gl.pas,v 1.2 2004/08/14 22:54:30 savage Exp $

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 16:41

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

jedi-sdl.inc?

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

berens

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 17:27

DGL Member

Registriert: Mo Jul 17, 2006 13:16
Beiträge: 69

$Id: jedi-sdl.inc,v 1.9 2004/12/23 23:42:17 savage Exp $

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Do Aug 30, 2007 17:33

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Lossy eX hat geschrieben:

Genau das ist es:

Zitat:

Revision 1.11 2006/01/04 00:52:41 drellis
Updated to include defined for ENDIAN values, SDL_BYTEORDER should now be correctly defined depending onthe platform. Code taken from sdl_mixer

Fehlt nämlich in deiner jedi-sdl.inc.
Aktuelle Version findest du im Jedi CVS oder DGLSDK-SVN.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

Seite 1 von 1

[ 9 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 9 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.