ivan 
ivan.revelli@synaptica.info 
23 July 2009
Ambiente di sviluppo : Microsoft Visual C++ , Delphi 7.0, GNU GCC
Come tutti ormai credo sappiano Borland include una libreria per la gestione dell’OpenGl che appunto si chiama OpenGl.pas che a sua volta mappa per windows buona parte dei metodi contenuti nella dll di sistema ‘opengl32.dll’. Questa libreria funziona molto bene, ed in passato la vecchia Borland aveva anche fatto il corrispondente .so per l’ormai defuntu Kylix.
Tutto ciò è molto carino ed esaltante, però a meno di volersi disegnare gli scenari da codice , una cosa sicuramente necessaria è la possibilità di importare oggetti e scenari da un programma apposito. Quale programma se non il mitico 3d Studio ?
A questo punto ci si imbatte in una ricerca frenetica su internet incappando in diverse solozioni , tra cui una libreria interamente scritta in Delphi ed open source da un sito SULACO , a prima vista sembra funzioni tutto correttamente ma manipolando texture e punti luce affiorano dei piccoli problemi. Ovviamente è un buon lavoro che per chi è interessato permette di comprendere un po la struttura dei files 3ds e magari da una base per farne di conseguenza delle correzioni.
Provando e riprovando librerie si incappa nalla libreria “lib3ds” al sito www.lib3ds.org, questa libreria oltre ad essere molto veloce è anche semplicissima da utilizzare. A parte qualche prova iniziale ricompilandola come dll usando Microsoft Visual C++ ci è stato semplice utilizzarla con Delphi.
Su internet avevamo trovato già dei sorgenti in C++ che permettevano di compilarne una dll facilmente utilizzabile, e la dll creata dal progetto si chiama lib3dsloader.dll , c’era però qualche problema nel richiamo delle procedure, perchè la definizione in C++ non era stdcall. Allora abbiamo apportato al sorgente questa piccola modifica :
1 - nel file lib3dsloader.h abbiamo definito il tipo di riferimento per l’esportazione dei metodi (LIB3DSLOADERAPI ) come __stdcall
2 - la funzione “ivan” dato un pathfile e un “filename” ritorna l’id “hadle” della memoria dove gli oggetti 3d studio sono caricati , i parametri da Delphi dovranno essere dei pChar che corrispondono in C a char *
-
-
#include <stdio.h>
-
#include <stdlib.h>
-
#include <stddef.h>
-
#include "stdafx.h"
-
#include <gl/gl.h>
-
-
-
#define LIB3DSLOADERAPI __declspec(dllexport) __stdcall
-
typedef char * pchar;
-
-
#ifdef __cplusplus
-
extern "C" {
-
#endif
-
-
struct DisplayList
-
{
-
int id;
-
char name[64];
-
};
-
-
struct MaterialList
-
{
-
GLuint textureId;
-
float diffuseColor[4];
-
};
-
-
int LIB3DSLOADERAPI Load3ds(char* pathname,char* filename,int & numDisplayLists,DisplayList dLists[],int &numMaterials,MaterialList mList[]);
-
int LIB3DSLOADERAPI LoadWhole3ds(char* pathname,char* filename);
-
int LIB3DSLOADERAPI ivan(pchar pathname,pchar filename);
-
-
#ifdef __cplusplus
-
}
-
#endif
-
nell’implementazione, cioè nel file lib3dsloader.cpp abbiamo modificato un po le definizioni in modo da renderle compliant, definendo il gruppo di funzioni esportate come “Extrnal C”
Download :
src libreria 3ds compreso di binario
Per usare questa libreria :
1) dovete copiare le due dll (lib3dsloader.dll e lib3ds-2_0.dll ) nella directory del progetto.
2) abbiamo creato una “unit” (libreria per i non delphini) che mappi i metodi della stessa (per il momento ci serve esclusivamente caricare gli oggetti 3dstudio), il codice della libreria per il richiamo :
-
-
unit ACTS_Ivan;
-
-
interface
-
uses classes,sysutils;
-
-
function IvanLoadWhole3ds(_Loc_File_Path, _Loc_File_name : String ) : Integer;
-
-
implementation
-
-
-
function I3dsLoader(_Loc_File_Path, _Loc_File_name : PChar ) : Integer; stdcall; external ‘lib3dsloader.dll’ name ‘_ivan@8′;
-
-
-
function IvanLoadWhole3ds(_Loc_File_Path, _Loc_File_name : String ) : Integer;
-
Begin
-
result := I3dsLoader(Pchar(_Loc_File_Path),PChar(_Loc_File_name));
-
End;
-
-
-
end.
-
-
ora creiamo un progetto… dove nel form main usiamo la unit dove abbiamo definito il map con la DLL
-
-
unit UnitOpenGl;
-
-
interface
-
-
uses
-
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, dglOpenGL,
-
ExtCtrls, StdCtrls, OpenGl;
-
-
-
type
-
TForm1 = class(TForm)
-
Panel1: TPanel;
-
Panel2: TPanel;
-
CloseButton: TButton;
-
procedure FormCreate(Sender: TObject);
-
procedure Panel1Resize(Sender: TObject);
-
procedure FormDestroy(Sender: TObject);
-
procedure FormKeyPress(Sender: TObject; var Key: Char);
-
procedure CloseButtonClick(Sender: TObject);
-
private
-
{ Private declarations }
-
rc : HGLRC; // Rendering Context
-
dc : HDC; // Device Context
-
ElapsedTime, AppStart, LastTime : DWord; // Timing variables
-
ObjectLoaded : Integer;
-
procedure glDraw;
-
procedure Idle(Sender: TObject; var Done: Boolean);
-
procedure CaricaTutto;
-
-
public
-
{ Public declarations }
-
end;
-
-
var
-
Form1: TForm1;
-
-
-
implementation
-
-
uses ACTS_Ivan;
-
-
{$R *.DFM}
-
-
{——————————————————————}
-
{ Function to draw the actual scene }
-
{——————————————————————}
-
procedure TForm1.glDraw();
-
Var x:Integer;
-
begin
-
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); // Clear The Screen And The Depth Buffer
-
glLoadIdentity(); // Reset The View
-
-
-
glTranslatef(0, 0, -4);
-
-
glRotatef(ElapsedTime/10, 0, 1, 0);
-
-
glBegin(GL_TRIANGLES);
-
glColor3f(1, 0, 0); glVertex3f(-1, -1, 0);
-
glColor3f(0, 1, 0); glVertex3f( 1, -1, 0);
-
glColor3f(0, 0, 1); glVertex3f( 0, 1, 0);
-
glEnd();
-
glPushMatrix();
-
glPopMatrix();
-
end;
-
-
-
{——————————————————————}
-
{ Initialise OpenGL }
-
{——————————————————————}
-
procedure glInit();
-
begin
-
glClearColor(0.0, 0.0, 0.0, 0.0); // Black Background
-
glShadeModel(GL_SMOOTH); // Enables Smooth Color Shading
-
glClearDepth(1.0); // Depth Buffer Setup
-
glEnable(GL_DEPTH_TEST); // Enable Depth Buffer
-
glDepthFunc(GL_LESS); // The Type Of Depth Test To Do
-
-
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST); //Realy Nice perspective calculations
-
end;
-
-
-
{——————————————————————}
-
{ Create the form and initialist openGL }
-
{——————————————————————}
-
procedure TForm1.FormCreate(Sender: TObject);
-
var pfd : TPIXELFORMATDESCRIPTOR;
-
pf : Integer;
-
begin
-
InitOpenGL; // New call to initialize and bind the OpenGL dll
-
-
// OpenGL initialisieren
-
dc:=GetDC(Panel1.Handle);
-
-
// PixelFormat
-
pfd.nSize:=sizeof(pfd);
-
pfd.nVersion:=1;
-
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;// or 0;
-
pfd.iPixelType:=PFD_TYPE_RGBA; // PFD_TYPE_RGBA or PFD_TYPEINDEX
-
pfd.cColorBits:=32;
-
-
-
pf := ChoosePixelFormat(dc, @pfd); // Returns format that most closely matches above pixel format
-
SetPixelFormat(dc, pf, @pfd);
-
-
rc :=wglCreateContext(dc); // Rendering Context = window-glCreateContext
-
wglMakeCurrent(dc,rc); // Make the DC (Form1) the rendering Context
-
-
-
ReadExtensions; // Read And Bind The Standard OpenGL Functions
-
ReadImplementationProperties; // Read And Bind All
-
-
// Initialise GL environment variables
-
glInit;
-
Panel1Resize(sender); // sets up the perspective
-
AppStart :=GetTickCount();
-
-
// when the app has spare time, render the GL scene
-
Application.OnIdle := Idle;
-
//
-
CaricaTutto();
-
end;
-
-
-
{——————————————————————}
-
{ Release rendering context when form gets detroyed }
-
{——————————————————————}
-
procedure TForm1.FormDestroy(Sender: TObject);
-
begin
-
wglMakeCurrent(0,0);
-
wglDeleteContext(rc);
-
end;
-
-
-
{——————————————————————}
-
{ Application onIdle event }
-
{——————————————————————}
-
procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
-
begin
-
Done := FALSE;
-
-
LastTime :=ElapsedTime;
-
ElapsedTime :=GetTickCount() - AppStart; // Calculate Elapsed Time
-
ElapsedTime :=(LastTime + ElapsedTime) DIV 2; // Average it out for smoother movement
-
-
glDraw(); // Draw the scene
-
SwapBuffers(DC); // Display the scene
-
end;
-
-
-
{——————————————————————}
-
{ If the panel resizes, reset the GL scene }
-
{——————————————————————}
-
procedure TForm1.Panel1Resize(Sender: TObject);
-
begin
-
if not (ExtensionsRead and ImplementationRead) then // Only call the resize if the OpenGL dll was bound to the functions
-
exit;
-
-
glViewport(0, 0, Panel1.Width, Panel1.Height); // Set the viewport for the OpenGL window
-
glMatrixMode(GL_PROJECTION); // Change Matrix Mode to Projection
-
glLoadIdentity(); // Reset View
-
gluPerspective(45.0, Panel1.Width/Panel1.Height, 1.0, 45500.0); // Do the perspective calculations. Last value = max clipping depth
-
-
glMatrixMode(GL_MODELVIEW); // Return to the modelview matrix
-
end;
-
-
-
{——————————————————————}
-
{ Monitors all keypress events for the app }
-
{——————————————————————}
-
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
-
begin
-
if Key = #27 then
-
Close;
-
end;
-
-
procedure TForm1.CloseButtonClick(Sender: TObject);
-
begin
-
Close;
-
end;
-
-
-
procedure TForm1.CaricaTutto;
-
var FileName: String;
-
-
begin
-
// In file name inserite il nome file del file 3d studio
-
ObjectLoaded := IvanLoadWhole3ds(ExtractFilePath(FileName),ExtractFileName(FileName));
-
-
-
end;
-
-
end.
-
a questo punto avete caricato e state vedendo il vs modello 3DStudio all’interno del vostro form Delphi, ovviamente non ditemi quant’è veloce perchè ci son rimasto di stucco, viaggia alla stragrande anche dentro una virtual machine con le OpenGL in emulazione…. (da paura)
se avete bisogno di chiarimenti in merito lasciate pure un commento mi arriva la mail ….
a presto
ivan