DGL • Thema anzeigen

TFile3DS

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

sniper

Betreff des Beitrags: TFile3DS

Verfasst: Do Feb 10, 2005 16:19

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

TFile3DS ist im File3ds deffiniert. Wie soll ich dass jetzt rendern....?

Code:

 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
  public
    procedure glInit();
  end;
 
var
  Form1: TForm1;
  mydc,myrc:cardinal;
  a:TFile3DS;
 
implementation
{$R *.dfm}
 
procedure Tform1.glInit();
begin
  glClearColor(0.3, 0.3, 0.3, 0.0);        // Black Background
  glShadeModel(GL_SMOOTH);                 // Enables Smooth Color Shading
  glClearDepth(1.5);                       // Depth Buffer Setup
  glEnable(GL_DEPTH_TEST);
  glDepthFunc (GL_LEQUAL);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);   //Realy Nice perspective calculations
  glEnable(GL_TEXTURE_2D);                     // Enable Texture Mapping
  wglSwapIntervalEXT(0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 mydc := getdc(handle);
 InitOpenGL();
 myrc := CreateRenderingContext(mydc,[opDoublebuffered],32,24,0,0,0,0);
 ActivateRenderingContext(mydc, myrc);
 glInit();
 
 a := TFile3DS.CreateFromFile('4.3ds');
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 DeactivateRenderingContext;
 DestroyRenderingContext(myrc);
 releasedc(handle,mydc);
 
 a.Free;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
 if Height=0 then Height:=1;
 
  glViewport(0, 0, Width, Height);    // Set the viewport for the OpenGL window
  glMatrixMode(GL_PROJECTION);        // Change Matrix Mode to Projection
   glLoadIdentity();                   // Reset View
    gluPerspective(45.0, Width/Height, 1.0, 1000.0);  // Do the perspective calculations. Last value = max clipping depth
 
  glMatrixMode(GL_MODELVIEW);         // Return to the modelview matrix
   glLoadIdentity();                   // Reset View
 
   //if needed a faster feedback
   OnPaint(self);
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin // this is only an alternative....OnIdle for intensiv drawing
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   glLoadIdentity();
   //--draw the scene
    // ????????????????
   //--draw then scene
 SwapBuffers(mydc);
end;
 
end.
 

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Feb 10, 2005 16:46

DGL Member

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

Gute Frage. Wie sieht die TFile3DS denn aus? Wo kommt die denn her? Im Zweifelsfalle benutz die gl3ds.pas von Noeska. Da gab es ja gerade schon hinlänglich Gesprächstoff. Wo DU auch schön mitgeantwortet hast!?! :shock:

PS: Versuche bitte nicht ständig deinen ganzen Quellcode zu posten. Zur Not gibt es immer noch Attechments. Dann kann sich wenigstens jeder selber aussuchen ob er den ganzen Code sehen will oder nicht. Danke.

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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