PureBasic

Code : Tout sélectionner

  SetCurrentDirectory("../../media/")

Code : Tout sélectionner

  SetCurrentDirectory("../media/")

Code : Tout sélectionner

  SetCurrentDirectory("../../media/")

Code : Tout sélectionner

  SetCurrentDirectory("../media/")

Code : Tout sélectionner

class CError
{
public:
   void DM_SetError(int code);
   int   DM_GetLastError();
   CList <int> PileErreur;
}

etc...

Code : Tout sélectionner

; Include files 
IncludePath "Include\"  :  IncludeFile "dreamotion3d.pbi"

EnableExplicit

Declare DM_PBImageToTexture(image.l,*texture.CTexture)

; Globales
Global	anglex.f, angley.f, flagXDown.w
Global	mox.f, omx.f, moy.l, omy.l

  Global	*camera.CCamera
  Global	*mesh.CMesh
  Global *brush.CBrush
  Global *texture.CTexture
  
  Global val.l,Quit.b , imageID.l
  
  
  ;  Init PB modules
  If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 
    End
  EndIf

  ; set graphic window 3D
  DM_Graphics3D(800,600,32, 0, 1)
  ; change directory
  SetCurrentDirectory("media/")
  ; ---------------------------------------
  ;           import some mesh
  ; ---------------------------------------
  ; Charge le tigre
  *mesh  = DM_CreateCube()
  
  ; ---------------------------------------
  ;      brush and texture of tiger
  ; ---------------------------------------
  *brush    = DM_GetBrush(*mesh)
  *texture  = DM_GetTexture(*brush)

  ;DM_LoadTexture("body.bmp", *texture)
  imageID = LoadImage(0, "body.bmp")
  DM_PBImageToTexture(0, *texture)  

  ; ---------------------------------------
  ;          create one camera
  ; ---------------------------------------
  *camera   = DM_CreateCamera()
  DM_MoveEntity(*camera, 0,0,-8)
  DM_CameraClsColor(*camera, 125, 125, 125)

  ; if fullscreen, must do it for keep mouse cursor
  ;change_curseur( #IDC_ARROW  )
  ; ---------------------------------------
  ;           Main loop
  ; ---------------------------------------
  Repeat
  	ExamineKeyboard()
  	ExamineMouse() 
  	ShowCursor_(1)
  	
 	
    ; if Escape Key, exit	  	
    If KeyboardReleased(#PB_Key_Escape) Or WindowEvent()=#PB_Event_CloseWindow
  	  Quit=1
    EndIf
 
  	; move camera with dir key and mouse (left click)
    If KeyboardPushed(#PB_Key_Up)
  	 	DM_MoveEntity(*camera, 0,0,1)
    ElseIf KeyboardPushed(#PB_Key_Down) 
  	  DM_MoveEntity(*camera, 0,0,-1)
    EndIf
    If MouseButton(#PB_MouseButton_Left)
  		If flagXDown=0
  			omx = MouseX()
  			omy = MouseY()
  			flagXDown=11
  		Else
  			moy = MouseY()-omy
  			angley=(moy/5.0)
  			omy= MouseY()
  			mox = MouseX()-omx
  			anglex=(mox/5.0)
  			omx= MouseX()
  			DM_TurnEntity(*camera, angley,anglex,0)
  		EndIf
  	Else
  	 		flagXDown=0
    EndIf

  	; ---------------
  	;      Render
  	; ---------------
  	DM_BeginScene()
    	DM_RenderWorld(*camera)
  	  ; display somes informations
  	DM_EndScene()
 
  Until Quit=1
  DM_ClearGraphics()
  End


Procedure DM_PBImageToTexture(image.l,*texture.CTexture=#Null)  
  Define.l x,y,*ptr,d
  Define *Tex.IDirect3DTexture9
  Define rect.D3DLOCKED_RECT  

  ; creation d'une texture, vide
  *DM_D3DDEVICE\CreateTexture(ImageWidth(image),ImageHeight(image),0,0,#D3DFMT_A8R8G8B8, #D3DPOOL_MANAGED, @*Tex, #Null)
  ; remplissage 
  *Tex\LockRect(0,@rect, #Null,0)
  *ptr = rect\pBits
  d = rect\Pitch - ImageWidth(image) * 4   ; pitch : décalage supplémentaire en octets
  StartDrawing(ImageOutput(image))
    For x.l = 0 To ImageWidth(image)-1 ;  pour chaque colone de la texture
        For y.l = 0 To ImageHeight(image)-1  ; pour chaque pixel de la colone    
            PokeL(*ptr,Point(x,y))
            *ptr + 4
        Next
        *ptr + d
    Next
    *Tex\UnlockRect(0)
  StopDrawing()    

  PokeL( *texture\Texture, *Tex)
  
  ProcedureReturn *texture 
EndProcedure