PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Wrapper pour Eliza3D

https://www.purebasic.fr/french/viewtopic.php?t=4939

Page 1 sur 1

Wrapper pour Eliza3D

Publié : lun. 24/avr./2006 21:27
par Progi1984
Eliza3D est un moteur basé sur DirectX 9 !

www.eliza3D.com

Je travaille sur un wrapper de cet engine, mais je crois bien que ces connaissance sont trés faibles.

J'essaie de traduire l'exemple le plus simples des tutoriaux.
Download wrapper 0.001 : >>Ici<<

Code : Tout sélectionner

;-Macros
; Macro Function(nom.s,) 
;    *Function = GetFunction(0,nom.s)
;    If *Function
;      Function = CallFunctionFast(*Function,nom.s,)
;    EndIf
;    ProcedureReturn Function
; EndMacro

;-Globales
;{
Global Eliza_dll
Global	EL_d3d9.IDirect3D9
Global	EL_d3dDev9.IDirect3DDevice9
Global	EL_WIDTH
Global	EL_HEIGHT
Global	EL_hwnd
;}

;-Constantes
;{
; Font creation flags
#D3DFONT_BOLD	=   $0001
#D3DFONT_ITALIC  =	$0002
#D3DFONT_ZENABLE =   $0004

#D3DFOG_NONE = 0
#D3DFOG_EXP = 1
#D3DFOG_EXP2 = 2
#D3DFOG_LINEAR = 3
#D3DFOG_FORCE_DWORD = $7fffffff

; flag pour les collisions entre deux entity
#NX_IGNORE_PAIR				=0
#NX_NOTIFY_ON_START_TOUCH	=1
#NX_NOTIFY_ON_END_TOUCH		=2
#NX_NOTIFY_ON_TOUCH			=3
; flag pour les affectations des groupes
#GROUP_NON_COLLIDABLE			=	0
#GROUP_COLLIDABLE_NON_PUSHABLE	=	1
#GROUP_COLLIDABLE_PUSHABLE		=	2
;}

;-Structures
;{
Structure D3DXVECTOR2
	x.f
	y.f
EndStructure
Structure D3DXVECTOR3
	x.f
	y.f
	z.f
EndStructure
Structure D3DXMATRIX
	_11.f
	_12.f
	_13.f
	_14.f
	_21.f
	_22.f
	_23.f
	_24.f
	_31.f
	_32.f
	_33.f
	_34.f
	_41.f
	_42.f
	_43.f
	_44.f
EndStructure
Structure D3DXCOLOR
    r.f
    g.f
    b.f
    a.f
EndStructure
Structure PARTICULE
 Yaw.f
 YawVariation.f
 Pitch.f
 PitchVariation.f
 Size.f
 SizeVariation.f
 Speed.f
 SpeedVariation.f
 Lifetime.f
 LifetimeVariation.f
 gravity.f
 interval.l
 StartColorR.l
 StartColorG.l
 StartColorB.l
 StartColorA.l
 EndColorR.l
 EndColorG.l
 EndColorB.l
 EndColorA.l
EndStructure
Structure CCamera     
EndStructure
Structure CLight      
EndStructure
Structure CSprite2D   
EndStructure
Structure CParticleEmitter   
EndStructure
Structure CSky  
EndStructure
Structure Child  
EndStructure
Structure CSpline 
EndStructure
Structure CPMirror 
EndStructure
Structure NxActor 
EndStructure
Structure CTexture9 
EndStructure

;}
Declare Eliza_Init()
Declare Eliza_End()
Declare Eliza_InitD3D( hWnd , W, H, Depth, FullScreen.b, vS.b, UseHard.b, physic.b)
Declare EL_InitD3D9(W.w, H.w, Depth.w, FullScreen.b, vS.b, UseHard.b, physic.b)
Declare EL_GetD3D9()
Declare EL_GetDevice9()
Declare NewIDirect3DDevice9()
Procedure Eliza_Init()
  Eliza_dll=OpenLibrary(#PB_Any,"Eliza3D.dll")
EndProcedure
Procedure Eliza_End()
  CloseLibrary(0)
EndProcedure

Procedure Eliza_InitD3D( hWnd , W, H, Depth, FullScreen.b, vS.b, UseHard.b, physic.b)
  *Function = GetFunction(0,"Eliza_InitD3D")
  If *Function
    Function = CallFunctionFast(*Function,"Eliza_InitD3D",hWnd , W, H, Depth, FullScreen.b, vS.b, UseHard.b, physic.b)
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_InitD3D9(W.w, H.w, Depth.w, FullScreen.b, vS.b, UseHard.b, physic.b)
	Protected a
	OpenScreen(W,H,Depth.w,"Eliza3D")
	EL_hwnd = GetActiveWindow_()
	a=Eliza_InitD3D(EL_hWnd , W, H, Depth, FullScreen, vS, UseHard, physic)
	EL_d3d9 	= EL_GetD3D9()
	EL_d3dDev9.IDirect3DDevice9=NewIDirect3DDevice9()
	EL_d3dDev9 	= EL_GetDevice9()
	EL_WIDTH=W
	EL_HEIGHT=H
EndProcedure

Procedure EL_GetD3D9()
  ProcedureReturn CallFunction(Eliza_dll,"EL_GetD3D9")
EndProcedure
Procedure EL_GetDevice9()
  ProcedureReturn CallFunction(Eliza_dll,"EL_GetDevice9")
EndProcedure
Procedure EL_CreateFont(rang, filename.s, taille, flag)
  *Function = GetFunction(0,"EL_CreateFont")
  If *Function
    Function = CallFunctionFast(*Function,"EL_CreateFont",rang, filename.s, taille, flag)
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_RegisterFunctionGUI(fonction)
  *Function = GetFunction(0,"EL_RegisterFunctionGUI")
  If *Function
    Function = CallFunctionFast(*Function,"EL_RegisterFunctionGUI",fonction)
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_RegisterFunctionRender(fonction)
  *Function = GetFunction(0,"EL_RegisterFunctionRender")
  If *Function
    Function = CallFunctionFast(*Function,"EL_RegisterFunctionRender",fonction)
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_LightDisable()
  *Function = GetFunction(0,"EL_LightDisable")
  If *Function
    Function = CallFunctionFast(*Function,"EL_LightDisable")
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_GetCurentCamera()
  *Function = GetFunction(0,"EL_GetCurentCamera")
  If *Function
    Function = CallFunctionFast(*Function,"EL_GetCurentCamera")
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_CameraYaw(cam, angle)
  *Function = GetFunction(0,"EL_CameraYaw")
  If *Function
    Function = CallFunctionFast(*Function,"EL_CameraYaw",cam, angle)
  EndIf
  ProcedureReturn Function
EndProcedure
 Procedure EL_CameraMove(cam, units, x, y, z)
   *Function = GetFunction(0,"EL_CameraMove")
   If *Function
     Function = CallFunctionFast(*Function,"EL_CameraMove",cam, units, x, y, z)
   EndIf
   ProcedureReturn Function
 EndProcedure
Procedure Eliza_Render()
  *Function = GetFunction(0,"Eliza_Render")
  If *Function
    Function = CallFunctionFast(*Function,"Eliza_Render")
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure Eliza_CleanUp()
  *Function = GetFunction(0,"Eliza_CleanUp")
  If *Function
    Function = CallFunctionFast(*Function,"Eliza_CleanUp")
  EndIf
  ProcedureReturn Function
EndProcedure
Procedure EL_DrawText(rang, x, y, str.s)
  *Function = GetFunction(0,"EL_DrawText")
  If *Function
    Function = CallFunctionFast(*Function,"EL_DrawText",rang, x, y, str.s)
  EndIf
  ProcedureReturn Function
EndProcedure


Procedure NewIDirect3DDevice9()
  ; allocation de la mémoire
  *new.IDirect3DDevice9 = AllocateMemory(SizeOf(IDirect3DDevice9))
  ProcedureReturn *new
EndProcedure 

;Global cam.CCamera
Global	buf.IDirect3DVertexBuffer9
Global	*tt
Global Dim vv.l(12)
vv(0)=-100.0
vv(1)=0.0
vv(2)=500.0 
vv(3)=6666.0
vv(4)=0.0
vv(5)=100.0 
vv(6)=500.0 
vv(7)=9999.0
vv(8)=100.0
vv(9)=0.0
vv(10)=500.0  
vv(11)=2222.0

InitKeyboard()
InitSprite()
Eliza_Init()
EL_InitD3D9	(800, 600, 32, 0, 1, 1, 0)
EL_CreateFont(0, "Arial", 8, 1)
EL_RegisterFunctionGUI( GUIRender )
EL_RegisterFunctionRender( MyRender )
EL_LightDisable()

; def triangle
Vertex = D3DFVF_XYZ | D3DFVF_DIFFUSE 
EL_d3dDev9\CreateVertexBuffer( 3*16 ,0, Vertex, D3DPOOL_DEFAULT,  buf, Null ) 
buf\Lock( 0, 48, *tt, 0 )
	CopyMemory(*tt, *vv, 48)
buf\Unlock()




cam = EL_GetCurentCamera()
Repeat
  ExamineKeyboard()
	If KeyboardPushed(#PB_Key_Left) 
	  EL_CameraYaw(cam, 0.05)
	EndIf
	If KeyboardPushed(#PB_Key_Right)
	  EL_CameraYaw(cam, -0.05)
	EndIf
	If KeyboardPushed(#PB_Key_Up)
		EL_CameraMove(cam, 1.0, 0,0,10.5)
	EndIf
	If KeyboardPushed(#PB_Key_Down)
	 	EL_CameraMove(cam, 1.0, 0,0,-10.5)
	EndIf
	Eliza_Render()
Until KeyboardPushed(#PB_Key_Escape)

Eliza_CleanUp()

Eliza_End()
Procedure MyRender(v)

	EL_d3dDev9\SetFVF( Vertex )
	EL_d3dDev9\SetStreamSource( 0, buf, 0, 16 )
	EL_d3dDev9\DrawPrimitive(D3DPT_TRIANGLELIST,0, 1)

EndProcedure


Procedure GUIRender(v)
	EL_DrawText( 0, 10, 10, "Triangle (dir Key for camera)" )
EndProcedure
Mais je ne comprends pas pourquoi il bloque sur EL_d3dDev9\CreateVertexBuffer

Publié : lun. 24/avr./2006 21:39
par Polo
Oula, j'ai regardé ton code, c'est le gros bordel, Eliza n'a pas l'air d'être un super moteur :lol:
Je vois un mélange de direct3d avec des fonctions de la dll, bref...

Publié : lun. 24/avr./2006 21:56
par Flype
en tout cas çà plante chez moi parceque purebasic n'arrive pas à charger la dll en fait.

Code : Tout sélectionner

Procedure Eliza_Init()
  Eliza_dll=OpenLibrary(#PB_Any,"Eliza3D.dll")
  Debug Eliza_dll
EndProcedure
Debug Eliza_dll me renvoie toujours 0.

Publié : lun. 24/avr./2006 22:06
par Progi1984
Polo >
C'est un moteur en développement. N'est ce pas en forgant que l'on devient forgeron ?

Flype >
Bizarre, as tu téléchargé mon zip tout en haut ?
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru