DGL • Thema anzeigen - Text steht auf dem Kopf bei ausgabe mit TextSuite

Text steht auf dem Kopf bei ausgabe mit TextSuite

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Twist

Betreff des Beitrags: Text steht auf dem Kopf bei ausgabe mit TextSuite

Verfasst: Mi Okt 30, 2013 08:20

DGL Member

Registriert: Do Sep 12, 2013 07:45
Beiträge: 61
Programmiersprache: Turbo Delphi 2006

Hallo,
Ich habe wieder mal ein Problem. Ich lasse einen Text mit der TextSuite als Block ausgeben und er erscheint auf dem Kopf stehend. Eigentlich kein Problem glrotate und um 180° gedreht. Nur da ist dann nichts mehr zu sehen. Mit glScalef(1, -1, 1) das gleiche, rufe ich beides auf steht der Text wieder auf dem Kopf.
Lasse ich den Text nicht als Block sondern als Zeile ausgeben steht er auch Kopf aber ich kann ihn drehen.
Hat jemand einen Vorschlag?

Hier mal der Code

Code:

InitOpenGL;
DC := GetDC(panel1.Handle);
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);
glEnable(GL_DEPTH_TEST);
glDepthFunc(GL_LESS);
glClearColor(0,0,0,0);
glEnable(GL_TEXTURE_2D);
glShadeModel(GL_SMOOTH);                   
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
...
...
...
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, Panel1.Width, Panel1.Height);
  gluPerspective(50, Panel1.Width/Panel1.Height, 0.1, 128);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 ... 
 ... 
 ...
  glClear( GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT );
  glLoadIdentity;
  glTranslatef( 0, 0.5, -2 );
...
...
... 
  glMatrixMode(GL_PROJECTION);
  glDisable(GL_TEXTURE_2D);
  glenable(gl_blend);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glPushMatrix();
  glLoadIdentity();
  glOrtho(0,800,0,800,-2048,2048);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
...
...
...
  glColor3f(1, 1, 1);
  glEnable(GL_ALPHA_TEST);
  glAlphaFunc(GL_GREATER, 0.1);
  glBindTexture(GL_TEXTURE_2D,tex_GUI);
  glBegin(GL_quads);
    glTexCoord2f(0,1);       glVertex3d(0, 0, -5);
    glTexCoord2f(1,1);       glVertex3d(800, 0,  -5);
    glTexCoord2f(1,0);       glVertex3d(800, 800, -5);
    glTexCoord2f(0,0);       glVertex3d(0, 800,  -5);
  glEnd();
...
...
...
 
  tsTextColor3f(0, 0, 0);
  tsFontBind(fSmallFontID);
  tsSetParameteri(TS_ALIGN, TS_ALIGN_BLOCK);
  glLoadIdentity;
  glPushMatrix;
    glTranslatef(0 , 0, 0);
    glrotatef(00,1,0,0);
    glScalef(1, 1, 1);
 
    tsTextBeginBlock(142, 38, 525, 155, TS_BLOCKFLAG_WORD_WRAP);
      tsTextOutA('TextTextText');
    tsTextEndBlock;
  glPopMatrix; 

Nach oben

Polarwolf

Betreff des Beitrags: Re: Text steht auf dem Kopf bei ausgabe mit TextSuite

Verfasst: Mi Okt 30, 2013 09:27

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 166
Wohnort: Glinde
Programmiersprache: Delphi 7

Ich mag mich ja irren, aber musst du nicht eigentlich nur die Textur beim Zeichnen umdrehen ?

Code:

 
   glTexCoord2f(0,1);       glVertex3d(0, 0, -5);
   glTexCoord2f(1,1);       glVertex3d(800, 0,  -5);
   glTexCoord2f(1,0);       glVertex3d(800, 800, -5);
   glTexCoord2f(0,0);       glVertex3d(0, 800,  -5);
 

Code:

  
   glTexCoord2f(0,0);       glVertex3d(0, 0, -5);
   glTexCoord2f(1,0);       glVertex3d(800, 0,  -5);
   glTexCoord2f(1,1);       glVertex3d(800, 800, -5);
   glTexCoord2f(0,1);       glVertex3d(0, 800,  -5);
 

Ich habe es nicht getestet.
Ist aber ein versuch wert.

http://wiki.delphigl.com/index.php/Tutorial_Lektion_5

LG Polar

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

Twist

Betreff des Beitrags: Re: Text steht auf dem Kopf bei ausgabe mit TextSuite

Verfasst: Mi Okt 30, 2013 16:57

DGL Member

Registriert: Do Sep 12, 2013 07:45
Beiträge: 61
Programmiersprache: Turbo Delphi 2006

Das Quad mit Textur schafft nur den Hintergrund für den Text und ist das letzte (habe es deshalb nicht im Code weggelassen) was vor dem Textblock gezeichnet wird.
Der Textblock beginnt ab Zeile 56.

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 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.