DGL • Thema anzeigen - Textur mit glBitmap.pas auf einen Quader auftragen ?

Textur mit glBitmap.pas auf einen Quader auftragen ?

Moderator: DGL-Team

Seite 1 von 3

[ 37 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Seth

Betreff des Beitrags: Textur mit glBitmap.pas auf einen Quader auftragen ?

Verfasst: Di Mai 24, 2005 16:53

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

hallo, ich habe einen quader und möchte diesen zur Laufzeit mittels bmp oder wahlweise jpg Dateien texturieren.
Ich benutze die Units DGLOpenGL.pas und GLBitmap.pas, aber ich komme mit dem Texturieren nicht so wirklich klar.

Hier mal mein bisheriger Code

Code:

 
{...}
 
var
  MainForm: TMainForm;
  RC: HGLRC;
  DC: HDC;
  ShowFPS: Boolean = false;
  FontBase: GLUInt;
  StartTick: Cardinal;
  Frames: Integer;
  FPS: Single;
  DegX, DegY: integer;
  fZoom: glFloat = 1;
  linewidth: glfloat = 1;
  smoothlines: boolean = false;
  TT, TB, TL, TR, TFront, TBack: TglBitmap2D;
 
{...}
 
procedure BuildFont(pFontName : String);
var
  Font : HFONT;
begin
  FontBase := glGenLists(96);
  Font := CreateFont(16, 0, 0, 0, FW_MEDIUM, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE or DEFAULT_PITCH, PChar(pFontName));
  SelectObject(DC, Font);
  wglUseFontBitmaps(DC, 0, 256, FontBase);
  DeleteObject(Font)
end;
 
procedure PrintText(pX, pY: Integer; const pText: String);
begin
  if (pText = '') then
    exit;
  glPushAttrib(GL_LIST_BIT);
  glRasterPos2i(pX, pY);
  glListBase(FontBase);
  glCallLists(Length(pText), GL_UNSIGNED_BYTE, PChar(pText));
  glPopAttrib;
end;
 
procedure ShowFPSText;
begin
  if showfps then
    begin
      glDisable(GL_DEPTH_TEST);
      glDisable(GL_TEXTURE_2D);
      glMatrixMode(GL_PROJECTION);
      glLoadIdentity;
      glOrtho(0, mainform.preview.width, mainform.preview.height, 0, -1, 1);
      glMatrixMode(GL_MODELVIEW);
      glLoadIdentity;
      PrintText(5, 15, FloatToStr(FPS)+' fps');
      glEnable(GL_DEPTH_TEST);
      glEnable(GL_TEXTURE_2D);
    end;
end;
 
procedure DrawQuad(x, y, z: glfloat);
begin
  glBegin(GL_QUADS);
    glTexCoord2f(1, 0); glVertex3f(-x, -y, z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, y, -z);
    glTexCoord2f(0, 0); glVertex3f(x, -y, -z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, y, z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(x, y, -z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, -y, z);
    glTexCoord2f(0, 0); glVertex3f(-x,-y, z);
 
    glTexCoord2f(1, 0); glVertex3f(x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(x, -y, z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, -y, z);
    glTexCoord2f(0, 1); glVertex3f(-x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, -z);
  glEnd;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  GB_Pictures.doublebuffered := true;
  Degy := -45;
  Front.Canvas.rectangle(0, 0, Front.width, Front.Height);
  SideL.Canvas.rectangle(0, 0, SideL.width, SideL.Height);
  SideR.Canvas.rectangle(0, 0, SideR.width, SideR.Height);
  Back.Canvas.rectangle(0, 0, Back.width, Back.Height);
  Top.Canvas.rectangle(0, 0, Top.width, Top.Height);
  Bottom.Canvas.rectangle(0, 0, Bottom.width, Bottom.Height);
  InitOpenGL;
  DC := GetDC(Preview.Handle);
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
 
  glEnable(GL_CULL_FACE);
  glEnable(GL_TEXTURE_2D);
 
  glDepthFunc(GL_LESS);
  
  glClearColor(1, 1, 1, 0);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, Preview.Width, Preview.Height);
  gluPerspective(45, Preview.Width / Preview.Height, 0.1, 128);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  BuildFont('Arial');
  StartTick := GetTickCount;
end;
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  wglDeleteContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TMainForm.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  Done := false;
  inc(Frames);
 
  if (smoothlines = true) then
    glEnable(GL_LINE_SMOOTH) else
      glDisable(GL_LINE_SMOOTH);
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glLoadIdentity;
  glTranslatef(0, 0, -3.25);
 
  glScalef(FZoom, FZoom, FZoom);
  glRotatef(degx, 1, 0, 0);
  glRotatef(degy, 0, 1, 0);
 
  glColor3f(0, 0, 0);
  glLineWidth(linewidth);
  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  DrawQuad(0.75, 1, 0.2);
 
  ShowFPSText;
 
  SwapBuffers(DC);
  
  if GetTickCount - StartTick >= 500 then
    begin
      FPS := round(Frames / (GetTickCount-StartTick) * 1000);
      Frames := 0;
      StartTick := GetTickCount
    end;
end;
 
procedure TMainForm.RotLClick(Sender: TObject);
begin
  dec(DegY, 5);
  if DegY = -360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RotUClick(Sender: TObject);
begin
  dec(DegX, 5);
  if DegX = -360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RotDClick(Sender: TObject);
begin
  inc(DegX, 5);
  if DegX = 360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RUClick(Sender: TObject);
begin
  dec(DegX, 5);
  if DegX = -360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RRClick(Sender: TObject);
begin
  inc(DegY, 5);
  if DegY = 360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RLClick(Sender: TObject);
begin
  dec(DegY, 5);
  if DegY = -360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RDClick(Sender: TObject);
begin
  inc(DegX, 5);
  if DegX = 360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.ZIClick(Sender: TObject);
begin
  fzoom := fzoom + 0.05;
  if fzoom > 1.5 then
    fzoom := 1.5;
  z_l.Caption := floattostr(round(fzoom * 100)) + '%';  
end;
 
procedure TMainForm.ZOClick(Sender: TObject);
begin
  fzoom := fzoom - 0.05;
  if fzoom < 0.5 then
    fzoom := 0.5;
  z_l.Caption := floattostr(round(fzoom * 100)) + '%';    
end;
 
procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
  linewidth := strtoint(combobox1.Items[combobox1.itemindex]);
end;
 
{...}
 

EDIT: eigentlich möchte ich das bild in eine Variable laden und von da aus texturieren, da das bild auch noch in einem image auftauchen soll und ich keine grafische pixelpracht im negativen sinne erzeugen möchte

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 18:02

DGL Member

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

Das ist alles recht einfach.

Code:

// Beim erstellen des Fensters (FormCreate vor oder nach BuildFont)
FTex := TglBitmap2D.Create('Dateiname');
// oder 
FTex := TglBitmap2D.Create;
FTex.LoadFromFile('Dateiname');
 
// Anschließend die Textur generieren. Evetuelle andere Operationen dann auch noch vor dem GenTexture ausführen.
FTex.GenTexture;

Code:

// Bevor du die Fläche Zeichnest musst du die Textur binden damit Opengl weiß was er nehmen soll.
FTex.Bind;

Code:

// Beim Beenden der Anwendung auch immer schon die Textur freigeben. Und zwar bevor du OpenGL deinitialisierst.
FTex.Free;

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 18:42

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

so hatte ich das schonmal (wahrscheinlich wieder was falsch :lol:

), habe keine Textur:

Code:

 
{...}
 
var
  MainForm: TMainForm;
  RC: HGLRC;
  DC: HDC;
  DegX, DegY: integer;
  fZoom: glFloat = 1;
  linewidth: glfloat = 1;
  smoothlines: boolean = false;
  TT, TB, TL, TR, TFront, TBack: TglBitmap2D;
 
{...}
 
procedure GLScreenShot_BMP_1(name : string);
var
  F : file;
  FileInfo: BITMAPINFOHEADER;
  FileHeader : BITMAPFILEHEADER;
  pPicData:Pointer;
  Viewport : array[0..3] of integer;
begin
  ZeroMemory(@FileHeader, SizeOf(BITMAPFILEHEADER));
  ZeroMemory(@FileInfo, SizeOf(BITMAPINFOHEADER));
  glGetIntegerv(GL_VIEWPORT, @Viewport);
  FileInfo.biSize := SizeOf(BITMAPINFOHEADER);
  FileInfo.biWidth := Viewport[2];
  FileInfo.biHeight := Viewport[3];
  FileInfo.biPlanes := 1;
  FileInfo.biBitCount := 32;
  FileInfo.biSizeImage := FileInfo.biWidth*FileInfo.biHeight*(FileInfo.biBitCount);
  FileHeader.bfType := 19778;
  FileHeader.bfOffBits := SizeOf(BITMAPINFOHEADER)+SizeOf(BITMAPFILEHEADER);
  GetMem(pPicData, FileInfo.biSizeImage);
  glReadPixels(0, 0, Viewport[2], Viewport[3], GL_BGRA, GL_UNSIGNED_BYTE, pPicData);
  AssignFile(f, name);
  Rewrite( f,1 );
  BlockWrite(F, FileHeader, SizeOf(BITMAPFILEHEADER));
  BlockWrite(F, FileInfo, SizeOf(BITMAPINFOHEADER));
  BlockWrite(F, pPicData^, FileInfo.biSizeImage );
  CloseFile(f);
  FreeMem(pPicData, FileInfo.biSizeImage);
end;
 
procedure DrawQuad(x, y, z: glfloat);
begin
  glBegin(GL_QUADS);
    TFront.Bind;
    glTexCoord2f(1, 0); glVertex3f(-x, -y, z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, y, -z);
    glTexCoord2f(0, 0); glVertex3f(x, -y, -z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, y, z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(x, y, -z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, -y, z);
    glTexCoord2f(0, 0); glVertex3f(-x,-y, z);
 
    glTexCoord2f(1, 0); glVertex3f(x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(x, -y, z);
 
    glTexCoord2f(1, 0); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, -y, z);
    glTexCoord2f(0, 1); glVertex3f(-x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, -z);
  glEnd;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  GB_Pictures.doublebuffered := true;
  Degy := -45;
  Front.Canvas.rectangle(0, 0, Front.width, Front.Height);
  SideL.Canvas.rectangle(0, 0, SideL.width, SideL.Height);
  SideR.Canvas.rectangle(0, 0, SideR.width, SideR.Height);
  Back.Canvas.rectangle(0, 0, Back.width, Back.Height);
  Top.Canvas.rectangle(0, 0, Top.width, Top.Height);
  Bottom.Canvas.rectangle(0, 0, Bottom.width, Bottom.Height);
  InitOpenGL;
  DC := GetDC(Preview.Handle);
  RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ActivateRenderingContext(DC, RC);
 
  glEnable(GL_CULL_FACE);
  glEnable(GL_TEXTURE_2D);
 
  glDepthFunc(GL_LESS);
  
  glClearColor(1, 1, 1, 0);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewPort(0, 0, Preview.Width, Preview.Height);
  gluPerspective(45, Preview.Width / Preview.Height, 0.1, 128);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  TFront := TglBitmap2D.Create;
  TFront.LoadFromFile('TX3.jpg');
  TFront.GenTexture;
end;
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  wglDeleteContext(RC);
  ReleaseDC(Handle, DC);
  TFront.Free;
end;
 
procedure TMainForm.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  Done := false;
 
  if (smoothlines = true) then
    glEnable(GL_LINE_SMOOTH) else
      glDisable(GL_LINE_SMOOTH);
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glLoadIdentity;
  glTranslatef(0, 0, -3.25);
 
  glScalef(FZoom, FZoom, FZoom);
  glRotatef(degx, 1, 0, 0);
  glRotatef(degy, 0, 1, 0);
 
  glColor3f(0, 0, 0);
  glLineWidth(linewidth);
  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  DrawQuad(0.75, 1, 0.2);
 
  SwapBuffers(DC);
end;
 
procedure TMainForm.RotLClick(Sender: TObject);
begin
  dec(DegY, 5);
  if DegY = -360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RotUClick(Sender: TObject);
begin
  dec(DegX, 5);
  if DegX = -360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RotDClick(Sender: TObject);
begin
  inc(DegX, 5);
  if DegX = 360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RUClick(Sender: TObject);
begin
  dec(DegX, 5);
  if DegX = -360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.RRClick(Sender: TObject);
begin
  inc(DegY, 5);
  if DegY = 360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RLClick(Sender: TObject);
begin
  dec(DegY, 5);
  if DegY = -360 then
    DegY := 0;
  y_l.Caption := 'y: ' + inttostr(DegY);
end;
 
procedure TMainForm.RDClick(Sender: TObject);
begin
  inc(DegX, 5);
  if DegX = 360 then
    DegX := 0;
  x_l.Caption := 'x: ' + inttostr(-DegX);
end;
 
procedure TMainForm.ZIClick(Sender: TObject);
begin
  fzoom := fzoom + 0.05;
  if fzoom > 1.5 then
    fzoom := 1.5;
  z_l.Caption := floattostr(round(fzoom * 100)) + '%';  
end;
 
procedure TMainForm.ZOClick(Sender: TObject);
begin
  fzoom := fzoom - 0.05;
  if fzoom < 0.5 then
    fzoom := 0.5;
  z_l.Caption := floattostr(round(fzoom * 100)) + '%';    
end;
 
procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
  linewidth := strtoint(combobox1.Items[combobox1.itemindex]);
end;
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
  if savedialog1.execute then
    GLScreenShot_BMP_1(savedialog1.filename);
end;
 
{...}
 

Die Unit ist von dir, oder ? Respekt, ist echt kompfortable programmiert, man kann mit allem arbeiten, echt gutes Teil ! (wenn man weiß wies funzt :lol:

)

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 19:10

DGL Member

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

Danke für die Blumen hört man gerne, dass es gut durchdacht ist. Aber es kann noch ein paar dinge mehr. ;-)

Ein paar Anpassungen für deinen Code.

Code:

procedure DrawQuad(x, y, z: glfloat);
begin
  TFront.Bind;
  // die Textur muss außer von glBegin und glEnd gebunden werden. Innerhalb ist nicht zulässig.
  // Um eine neue Textur auf eine Fläche zu binden musst du erst das Zeichnen der Fläche beenden und wieder von Neuem beginnen.
  glBegin(GL_QUADS);
  ...
  glEnd;
 
  TBack.Bind;
  glBegin(GL_QUADS);
  ...
  glEnd;
end
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  TFront.Free;
  // Vor dem löschen des Kontextes die Textur frei geben.
  DeactivateRenderingContext;
  wglDeleteContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TMainForm.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
begin
  Done := false;
 
  // glLineWidth(linewidth);
  // glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  // sonst ist die textur nicht sinnvoll sichtbar
end;
 

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 19:20

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

habs mir schon gedacht (und zwar alles

), aber ich würde gerne meine ränder behalten .... weil box und hintergrund weiß ...

die textur sieht auch sehr ähmm pixelig aus ziemlich übel, wie kann ich das ändern ?

sie scheint ebenso gedreht und gespiegelt

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 20:04

DGL Member

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

Deine Texturgröße muss eine Potenz von 2 sein. Also 1, 2, 4, 8, 16, 32, 64, 128, 256, 512 usw. Alles andere ist nicht zulässig. Und Spiegelungen kannst du entweder durch anpassen der Texturkoordinaten erreichen oder durch anpassen der Textur. Mit FTex.FlipVert und FTex.FlipHorz kannst du die Textur spiegeln. Das muss zwischen dem Laden der Datei und GenTexture erfolgen. Ich persönlich würde aber eher die Koordinaten anpassen.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 13:59

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

wenn ich alle punkte um eins weiter schiebe erhalte ich doch eine drehung von 90° oder ?

jo, aber wie spiegele ich dann durch koordinaten bearbeiten ?

jo hab ich auch hinbekommen (punkte vertauschen)

und wie krieg ich die auflösung/qualität höher ?

(schon gemerkt ? ich bin F34r0fTh3D4rk ^^)

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 14:21

DGL Member

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

Dachte ich mir schon fast, das die Quellcode so verdammt ähnlich aussahen. Aber hast du hier nicht auch noch nen F34r0fTh3D4rk Account?

Wie meinst du das mit alle Punkte? Meinst du jetzt die Texturkoordinaten? Und ja. Je nachdem wie du die dort angibst kannst du die Textur spiegeln oder eben drehen. Und weiterschieben dürfte da sogar das sein wie du das haben willst.

Original

Code:

  glBegin(GL_QUADS);
    glTexCoord2f(0, 1); glVertex3f(- 3, - 3, 0);
    glTexCoord2f(1, 1); glVertex3f(  3, - 3, 0);
    glTexCoord2f(1, 0); glVertex3f(  3,   3, 0);
    glTexCoord2f(0, 0); glVertex3f(- 3,   3, 0);
  glEnd;

Um Horizontal zu spiegeln musst du bei der ersten Reihe (S Wert bei glTexCoord) aus der 0 eine 1 machen und aus der 1 eine 0. Bei Vertikal Entsprechend die zweite Reihe (T Wert bei glTexCoord).

Beispuel für Horizontal

Code:

  glBegin(GL_QUADS);
    glTexCoord2f(1, 1); glVertex3f(- 3, - 3, 0);
    glTexCoord2f(0, 1); glVertex3f(  3, - 3, 0);
    glTexCoord2f(0, 0); glVertex3f(  3,   3, 0);
    glTexCoord2f(1, 0); glVertex3f(- 3,   3, 0);
  glEnd;

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 14:23

DGL Member

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

Achja. Qualitativ besser bekommst du die nur, wenn du andere Texturen benutzt. Mit OpenGL oder einem Grafikprogramm geht so etwas nicht. Also du musst dann andere Texturen verwenden. Bessere sozusagen.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 17:07

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

aber wie machen das andere opengl spiele, bei denen sind manche texturen auch nur 64 * 64 und haben die qualität des originals, bei mir ist das nicht der fall :oops:

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 17:38

DGL Member

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

Dazu müsste ich wissen was du vor hast und wie die Texturen aussehen. Bzw. Wie es jetzt aussieht (Bild) und was daran nicht stimmt.

PS: Lass uns mal auf ein Forum beschränken. (Ich würde sagen das hier)

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 18:02

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ok ich hab mal einen screenshot gemacht, ich habe nämlich im delphi forum ein programm gefunden um Produkt Boxen zu erstellen, das war jetzt kein 3d (leider) und das andere Programm was ich gefunden habe erstellt Bilder in minigröße.

Also wollte ich selbst ein schreiben mit opengl, weil ich eine 3d ansicht brauchte, diese kann ruhig erst pixelig aussehen, damit man die ansicht leichter drehen und zoomen kann, dann könnte man das bild rendern (darf auch 10 sekunden dauern ^^) (das prinzip von cinema 4d und co eben)

Ich würde aber gerne die Ränder behalten, damit ich so eine Art "Skizzen-Look" habe, die Strichbreite lässt sich dann einstellen:

screenshot von der version, ohne texturen ist hier (wegen den strichen ^^): http://teamelectronix.te.funpic.de/?m=d ... how&fid=15

noch ne frage, ich möchte, dass wenn die datei nicht gefunden wurde, ein bitmap geladen wird, welches ich erstellt habe (programm intern, jedoch wird einfach immer die nächstgelegene Textur genommen, warum ?)

Code:

 
  empty := TBitmap.create;
  empty.width := 10;
  empty.Height := 10;
  empty.Canvas.rectangle(0, 0, 10, 10);
 
  TFront := TglBitmap2D.Create;
  if Fileexists('Front.bmp') then
    begin
      TFront.LoadFromFile('Front.bmp');
      TFront.GenTexture;
    end else
      TFront.AssignToBitmap(empty);
 
  TBack := TglBitmap2D.Create;
  if Fileexists('Back.bmp') then
    begin
      TBack.LoadFromFile('Back.bmp');
      TBack.GenTexture;
    end else
      TBack.AssignToBitmap(empty);
 
  TLeft := TglBitmap2D.Create;
  if Fileexists('Left.bmp') then
    begin
      TLeft.LoadFromFile('Left.bmp');
      TLeft.GenTexture;
    end else
      TLeft.AssignToBitmap(empty);
 
  TRight := TglBitmap2D.Create;
  if Fileexists('Rightt.bmp') then
    begin
      TRight.LoadFromFile('Side.bmp');
      TRight.GenTexture;
    end else
      TRight.AssignToBitmap(empty);
 
  TTop := TglBitmap2D.Create;
  if Fileexists('Top.bmp') then
    begin
      TTop.LoadFromFile('Top.bmp');
      TTop.GenTexture;
    end else
      TTop.AssignToBitmap(empty);
 
  TBottom := TglBitmap2D.Create;
  if Fileexists('Bottom.bmp') then
    begin
      TBottom.LoadFromFile('Bottom.bmp');
      TBottom.GenTexture;
    end else
      TBottom.AssignToBitmap(empty);
 

Code:

 
procedure DrawQuad(x, y, z: glfloat);
begin
  TFront.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(0, 1); glVertex3f(-x, -y, z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, z);
    glTexCoord2f(1, 0); glVertex3f(x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, z);
  glEnd;
 
  TBack.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(1, 1); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 0); glVertex3f(-x, y, -z);
    glTexCoord2f(0, 0); glVertex3f(x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(x, -y, -z);
  glEnd;
 
  TTop.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(0, 0); glVertex3f(-x, y, -z);
    glTexCoord2f(0, 1); glVertex3f(-x, y, z);
    glTexCoord2f(1, 1); glVertex3f(x, y, z);
    glTexCoord2f(1, 0); glVertex3f(x, y, -z);
  glEnd;
 
  TBottom.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(0, 1); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(x, -y, -z);
    glTexCoord2f(1, 0); glVertex3f(x, -y, z);
    glTexCoord2f(0, 0); glVertex3f(-x,-y, z);
  glEnd;
 
  TLeft.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(0, 1); glVertex3f(-x, -y, -z);
    glTexCoord2f(1, 1); glVertex3f(-x, -y, z);
    glTexCoord2f(1, 0); glVertex3f(-x, y, z);
    glTexCoord2f(0, 0); glVertex3f(-x, y, -z);
  glEnd;
 
  TRight.Bind;
  glBegin(GL_QUADS);
    glTexCoord2f(1, 1); glVertex3f(x, -y, -z);
    glTexCoord2f(1, 0); glVertex3f(x, y, -z);
    glTexCoord2f(0, 0); glVertex3f(x, y, z);
    glTexCoord2f(0, 1); glVertex3f(x, -y, z);
  glEnd;
end;
 

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 18:44

DGL Member

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

Irgendwie kann ich dir gerade nicht so ganz folgen. Kann auch sein, dass ich gerade nicht so super aufnahmefähig bin.

Also das mit dem Fertig rendern ist so eine Sache. Ich befürchte du musst das entweder mit OpenGL in einer richtig großen Größe rendern. Und dann musst du Teilbilder rendern. Was nicht sonderlich einfach ist. Oder du musst einen raytracer (also einen richtigen Renderer) implementieren. Was mit sicherheit auch nicht einfacher sein dürfte.

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Mi Mai 25, 2005 18:51

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ähm raytracing ist doch die rendermethode die fiktive strahlen aussendet, prüft was zu sehen und zu rendern ist, und das dann rendert, kann man da nich noch n paar sachen wie mipmapping und antialising verbessern, dazupacken oder so ? warum ist das denn so pixelig ? bei half life siehts ja besser aus (ok bei quake 2 isses auch nich viel besser aber besser), kA ob man bei doom2 schon texte erkennen konnte aber ich denke schon :lol:

Das muss doch verbesserbar sein, in den Tutorials sehen die Texturen ja auch anständig aus ?

Und das Quadrat kann auch nicht zu klein sein, dann würde das MipMapping das ja beheben.

ach ja, und warum wird meine bitmap nicht geladen, hab ich die falsche prozedur genommen ?

(Wenn ich meine Graka Power AA auf 100% stelle siehts schonmal anständig aus (man kann jedenfalls den Text lesen), es hat aber nunmal net jeder ne 256 mb graka

)

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Do Mai 26, 2005 14:26

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ok das problem schieben wir mal nach hinten, wie kann ich trotzdem meine striche bekommen, ich hab schon ein paar sachen probiert, es muss auch irgendwie gehen, aber ich kriegs net so ganz gebacken :lol:

Nach oben

Seite 1 von 3

[ 37 Beiträge ]

Gehe zu Seite 1, 2, 3 Nächste

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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