DGL • Thema anzeigen - nurbs (dieses mal ausführlich, mit Viewport...)

nurbs (dieses mal ausführlich, mit Viewport...)

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Andyh

Betreff des Beitrags: nurbs (dieses mal ausführlich, mit Viewport...)

Verfasst: Di Nov 15, 2005 20:21

DGL Member

Registriert: Do Jun 09, 2005 13:48
Beiträge: 117
Wohnort: Sankt Augustin

Hallo,

ich möchte mir nurbs-Flächen anzeigen. Die gl- und glu-Funktionen werden ohne Fehler aufgerufen aber man sieht nichts auf dem Bildschirm. Ich benutze die dglOpenGL(1.5, Version 1.9, 19.04.2005), die ich mir hier herunter geladen habe. Folgendes mache ich:

Code:

 
unit NurbTest;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL;
 
type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  { Private declarations }
  h_DC   : HDC;                      // Global device context
  h_RC   : HGLRC;                    // OpenGL rendering context
  // Nurb variables
  PNurb : PGLUnurbs;
  numPoints : Integer = 4;
  Knots : Array[0..7] of glFloat = (0.0, 0.0, 0.0, 0.0, 1.0, 1.0, 1.0, 1.0);
  ControlPoints : Array[0..3, 0..3, 0..2] of glFloat = (
  ((-7.5, -8.0, 0.0), (-9.8, -2.7, 0.0 ), (-11.0, 4.0, 0.0 ), (-9.5,  9.5, 0.0)),
  ((-5.0, -8.3, 7.5), (-5.3, -7.2, 10.0), (-6.0, -1.8, 10.0), (-7.0,  7.8, 5.0)),
  (( 5.0, -8.3, 7.5), ( 5.3, -7.2, 10.0), ( 6.0, -1.8, 10.0), ( 7.0,  7.8, 5.0)),
  (( 7.5, -8.0, 0.0), ( 9.8, -2.7, 0.0 ), ( 11.0, 4.0, 0.0 ), ( 9.5,  9.5, 0.0)));
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  pfd: TPixelFormatDescriptor;
  FormatIndex: integer;
  PixelFormat : GLuint;         // Settings for the OpenGL rendering
begin
  inherited Loaded;
  if (Owner<>nil) then
  fillchar(pfd,SizeOf(pfd),0);
  with pfd do
  begin
    nSize           := SizeOf(TPIXELFORMATDESCRIPTOR); // Size Of This Pixel Format Descriptor
    nVersion        := 1;                    // The version of this data structure
    dwFlags         := PFD_DRAW_TO_WINDOW    // Buffer supports drawing to window
                       or PFD_SUPPORT_OPENGL // Buffer supports OpenGL drawing
                       or PFD_DOUBLEBUFFER;  // Supports double buffering
    iPixelType      := PFD_TYPE_RGBA;        // RGBA color format
    cColorBits      := 32;                   // OpenGL color depth
    cRedBits        := 0;                    // Number of red bitplanes
    cRedShift       := 0;                    // Shift count for red bitplanes
    cGreenBits      := 0;                    // Number of green bitplanes
    cGreenShift     := 0;                    // Shift count for green bitplanes
    cBlueBits       := 0;                    // Number of blue bitplanes
    cBlueShift      := 0;                    // Shift count for blue bitplanes
    cAlphaBits      := 0;                    // Not supported
    cAlphaShift     := 0;                    // Not supported
    cAccumBits      := 0;                    // No accumulation buffer
    cAccumRedBits   := 0;                    // Number of red bits in a-buffer
    cAccumGreenBits := 0;                    // Number of green bits in a-buffer
    cAccumBlueBits  := 0;                    // Number of blue bits in a-buffer
    cAccumAlphaBits := 0;                    // Number of alpha bits in a-buffer
    cDepthBits      := 16;                   // Specifies the depth of the depth buffer
    cStencilBits    := 0;                    // Turn off stencil buffer
    cAuxBuffers     := 0;                    // Not supported
    iLayerType      := PFD_MAIN_PLANE;       // Ignored
    bReserved       := 0;                    // Number of overlay and underlay planes
    dwLayerMask     := 0;                    // Ignored
    dwVisibleMask   := 0;                    // Transparent color of underlay plane
    dwDamageMask    := 0;                     // Ignored
  end;
 
  InitOpenGL;
 
  // Try to get a device context
  h_DC := GetDC(Handle);
  if (h_DC = 0) then
  begin
    MessageBox(0, 'Unable to get a device context!', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
  // Attempts to find the pixel format supported by a device context that is the best match to a given pixel format specification.
  PixelFormat := ChoosePixelFormat(h_DC, @pfd);
  if (PixelFormat = 0) then
  begin
    MessageBox(0, 'Unable to find a suitable pixel format', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  // Sets the specified device context's pixel format to the format specified by the PixelFormat.
  if (not SetPixelFormat(h_DC, PixelFormat, @pfd)) then
  begin
    MessageBox(0, 'Unable to set the pixel format', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  // Create a OpenGL rendering context
  h_RC := wglCreateContext(h_DC);
  if (h_RC = 0) then
  begin
    MessageBox(0, 'Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  // Makes the specified OpenGL rendering context the calling thread's current rendering context
  if (not wglMakeCurrent(h_DC, h_RC)) then
  begin
    MessageBox(0, 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
    Exit;
  end;
 
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LEQUAL);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
 
  glViewPort(0,0,clientwidth,clientheight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(60, ClientWidth/ClientHeight, 1, 1000);
 
  // setup nurb drawing properties
  PNurb := gluNewNurbsRenderer();
  gluNurbsProperty(PNurb, GLU_SAMPLING_TOLERANCE, 40.0);   // Quality - Specifies the maximum length, in pixels, to use
  gluNurbsProperty(PNurb, GLU_DISPLAY_MODE, GLU_FILL);     // Fillstyle
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  // Makes current rendering context not current, and releases the device
  // context that is used by the rendering context.
  if (not wglMakeCurrent(h_DC, 0)) then
    MessageBox(0, 'Release of DC and RC failed!', 'Error', MB_OK or MB_ICONERROR);
 
  // Attempts to delete the rendering context
  if (not wglDeleteContext(h_RC)) then
  begin
    MessageBox(0, 'Release of rendering context failed!', 'Error', MB_OK or MB_ICONERROR);
    h_RC := 0;
  end;
 
  // Attemps to release the device context
  if ((h_DC = 1) and (ReleaseDC(TWinControl(Owner).Handle, h_DC) <> 0)) then
  begin
    MessageBox(0, 'Release of device context failed!', 'Error', MB_OK or MB_ICONERROR);
    h_DC := 0;
  end;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  if (not wglMakeCurrent(h_DC, h_RC)) then
    exit;
 
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);    // Clear The Screen And The Depth Buffer
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();                                       // Reset The View
 
  glTranslatef(0.0,0.0,-35);
 
  glRotatef(-45, 1.0, 0.0, 0.0);
  glColor3f(0, 0.1, 0.6);
 
  // draw the nurb surface
  gluBeginSurface(PNurb);
    gluNurbsSurface(PNurb,
        8, @Knots,              // No. of knots and knot array u direction
        8, @Knots,              // No. of knots and knot array v direction
        4 * 3,                  // Distance between control points in u dir.
        3,                      // Distance between control points in v dir.
        @ControlPoints,         // Control points
        4, 4,                   // u and v order of surface
        GL_MAP2_VERTEX_3);      // Type of surface
  gluEndSurface(PNurb);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewPort(0,0,clientwidth,clientheight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(60, ClientWidth/ClientHeight, 1, 1000);
end;
 
end.
 

weiss jemand Rat?

Danke

Zuletzt geändert von Andyh am Do Nov 17, 2005 11:39, insgesamt 4-mal geändert.

Nach oben

Pellaeon

Betreff des Beitrags:

Verfasst: Mi Nov 16, 2005 13:49

DGL Member

Registriert: Mo Apr 25, 2005 17:51
Beiträge: 464

Wo setzt du den Viewport?

Nach oben

Andyh

Betreff des Beitrags: Hallo!

Verfasst: Do Nov 17, 2005 03:35

DGL Member

Registriert: Do Jun 09, 2005 13:48
Beiträge: 117
Wohnort: Sankt Augustin

Danke für den Hinweis,

aber das war es auch nicht. Dies ist ein Beispielprogramm um die Problematik aus meinem Projekt auszulagern. Dabei habe ich wirklich vergessen, den ViewPort zu setzen. Aber leider funktioniert es mit gesetztem ViewPort auch nicht.
Ich habe das Programm oben aktualisiert und ausprobiert. Auch mit ViewPort geht es nicht.

Hat noch jemand eine Idee?

Nach oben

JSoftware

Betreff des Beitrags:

Verfasst: Do Nov 17, 2005 12:17

DGL Member

Registriert: Di Sep 06, 2005 20:40
Beiträge: 26
Wohnort: Aarhus, Denmark

Have you remembered to set a projection matrix?

Nach oben

Andyh

Betreff des Beitrags: Projektionsmatrix

Verfasst: Do Nov 17, 2005 12:40

DGL Member

Registriert: Do Jun 09, 2005 13:48
Beiträge: 117
Wohnort: Sankt Augustin

Ich dachte, das wäre mit gluPerspective in create und resize getan.

Hat sich zufällig mal jemand den code genommen und in ein testprojekt eingefügt?

Es wäre interessant zu wissen ob es in einer anderen Umgebung läuft.

Danke

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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